diff options
Diffstat (limited to 'html')
| -rw-r--r-- | html/apps/mu.subx.html | 43979 |
1 files changed, 22283 insertions, 21696 deletions
diff --git a/html/apps/mu.subx.html b/html/apps/mu.subx.html index ee1c0810..8e656d3b 100644 --- a/html/apps/mu.subx.html +++ b/html/apps/mu.subx.html @@ -573,7 +573,7 @@ if ('onhashchange' in window) { <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#L14175'>Next-block-index</a></span> 1/imm32 +<span id="L514" class="LineNr"> 514 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14608'>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 @@ -583,11 +583,11 @@ if ('onhashchange' in window) { <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#L14183'>parse-mu</a> *(ebp+8) *(ebp+0x10) *(ebp+0x14)) -<span id="L525" class="LineNr"> 525 </span> (<a href='mu.subx.html#L19227'>populate-mu-type-sizes</a> *(ebp+0x10) *(ebp+0x14)) +<span id="L524" class="LineNr"> 524 </span> (<a href='mu.subx.html#L14616'>parse-mu</a> *(ebp+8) *(ebp+0x10) *(ebp+0x14)) +<span id="L525" class="LineNr"> 525 </span> (<a href='mu.subx.html#L19660'>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#L19756'>check-mu-types</a> *(ebp+0x10) *(ebp+0x14)) -<span id="L528" class="LineNr"> 528 </span> (<a href='mu.subx.html#L24794'>emit-subx</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L527" class="LineNr"> 527 </span> (<a href='mu.subx.html#L20189'>check-mu-types</a> *(ebp+0x10) *(ebp+0x14)) +<span id="L528" class="LineNr"> 528 </span> (<a href='mu.subx.html#L25431'>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 @@ -630,7 +630,7 @@ if ('onhashchange' in window) { <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="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>) @@ -662,7 +662,7 @@ if ('onhashchange' in window) { <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="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>) @@ -701,7 +701,7 @@ if ('onhashchange' in window) { <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="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>) @@ -744,7 +744,7 @@ if ('onhashchange' in window) { <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="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>) @@ -783,7 +783,7 @@ if ('onhashchange' in window) { <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="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>) @@ -822,7 +822,7 @@ if ('onhashchange' in window) { <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="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>) @@ -860,7 +860,7 @@ if ('onhashchange' in window) { <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="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>) @@ -898,7 +898,7 @@ if ('onhashchange' in window) { <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="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>) @@ -936,7 +936,7 @@ if ('onhashchange' in window) { <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="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>) @@ -974,7 +974,7 @@ if ('onhashchange' in window) { <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="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>) @@ -1012,7 +1012,7 @@ if ('onhashchange' in window) { <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="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>) @@ -1050,7 +1050,7 @@ if ('onhashchange' in window) { <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="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>) @@ -1121,7 +1121,7 @@ if ('onhashchange' in window) { <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="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>) @@ -1157,7 +1157,7 @@ if ('onhashchange' in window) { <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="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>) @@ -1193,7 +1193,7 @@ if ('onhashchange' in window) { <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="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>) @@ -1231,7 +1231,7 @@ if ('onhashchange' in window) { <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="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>) @@ -1271,7 +1271,7 @@ if ('onhashchange' in window) { <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="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#L1275'>test-convert-function-with-return-register</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-register/1"</span>) @@ -1321,7 +1321,7 @@ if ('onhashchange' in window) { <span id="L1344" class="LineNr"> 1344 </span> 89/<- %edx 4/r32/esp <span id="L1345" class="LineNr"> 1345 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1346" class="LineNr"> 1346 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1347" class="Folded"> 1347 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1347" class="Folded"> 1347 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1353" class="LineNr"> 1353 </span> <span class="subxComment"># check output</span> <span id="L1354" class="LineNr"> 1354 </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#L1321'>test-function-with-output-without-register</a>: output should be empty"</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#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>) @@ -1359,7 +1359,7 @@ if ('onhashchange' in window) { <span id="L1387" class="LineNr"> 1387 </span> 89/<- %edx 4/r32/esp <span id="L1388" class="LineNr"> 1388 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1389" class="LineNr"> 1389 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1390" class="Folded"> 1390 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1390" class="Folded"> 1390 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1396" class="LineNr"> 1396 </span> <span class="subxComment"># check output</span> <span id="L1397" class="LineNr"> 1397 </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#L1364'>test-function-with-outputs-in-conflicting-registers</a>: output should be empty"</span>) <span id="L1398" class="LineNr"> 1398 </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#L1364'>test-function-with-outputs-in-conflicting-registers</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1398,7 +1398,7 @@ if ('onhashchange' in window) { <span id="L1431" class="LineNr"> 1431 </span> 89/<- %edx 4/r32/esp <span id="L1432" class="LineNr"> 1432 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1433" class="LineNr"> 1433 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1434" class="Folded"> 1434 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1434" class="Folded"> 1434 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1440" class="LineNr"> 1440 </span> <span class="subxComment"># check output</span> <span id="L1441" class="LineNr"> 1441 </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#L1407'>test-function-with-named-output</a>: output should be empty"</span>) <span id="L1442" class="LineNr"> 1442 </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#L1407'>test-function-with-named-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1438,7 +1438,7 @@ if ('onhashchange' in window) { <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="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#L1451'>test-return-with-wrong-type</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: return: 'x' has the wrong type"</span> <span class="Constant">"F - <a href='mu.subx.html#L1451'>test-return-with-wrong-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1477,7 +1477,7 @@ if ('onhashchange' in window) { <span id="L1520" class="LineNr"> 1520 </span> 89/<- %edx 4/r32/esp <span id="L1521" class="LineNr"> 1521 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1522" class="LineNr"> 1522 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1523" class="Folded"> 1523 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1523" class="Folded"> 1523 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1529" class="LineNr"> 1529 </span> <span class="subxComment"># check output</span> <span id="L1530" class="LineNr"> 1530 </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-missing-return</a>: output should be empty"</span>) <span id="L1531" class="LineNr"> 1531 </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#L1496'>test-missing-return</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1517,7 +1517,7 @@ if ('onhashchange' in window) { <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="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#L1540'>test-early-exit-without-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 has outputs, so you cannot 'break' out of the outermost block. Use 'return'."</span> <span class="Constant">"F - <a href='mu.subx.html#L1540'>test-early-exit-without-return</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1556,7 +1556,7 @@ if ('onhashchange' in window) { <span id="L1609" class="LineNr"> 1609 </span> 89/<- %edx 4/r32/esp <span id="L1610" class="LineNr"> 1610 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1611" class="LineNr"> 1611 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1612" class="Folded"> 1612 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1612" class="Folded"> 1612 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1618" class="LineNr"> 1618 </span> <span class="subxComment"># check output</span> <span id="L1619" class="LineNr"> 1619 </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-return-with-too-few-inouts</a>: output should be empty"</span>) <span id="L1620" class="LineNr"> 1620 </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#L1585'>test-return-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1595,7 +1595,7 @@ if ('onhashchange' in window) { <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="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#L1629'>test-return-with-too-many-inouts</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: return: too many inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L1629'>test-return-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1636,7 +1636,7 @@ if ('onhashchange' in window) { <span id="L1699" class="LineNr"> 1699 </span> 89/<- %edx 4/r32/esp <span id="L1700" class="LineNr"> 1700 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1701" class="LineNr"> 1701 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1702" class="Folded"> 1702 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1702" class="Folded"> 1702 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1708" class="LineNr"> 1708 </span> <span class="subxComment"># check output</span> <span id="L1709" class="LineNr"> 1709 </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-unavailable-value</a>: output should be empty"</span>) <span id="L1710" class="LineNr"> 1710 </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#L1673'>test-return-unavailable-value</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1665,7 +1665,7 @@ if ('onhashchange' in window) { <span id="L1733" class="LineNr"> 1733 </span> <span class="subxComment"># convert</span> <span id="L1734" class="LineNr"> 1734 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L1735" class="LineNr"> 1735 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1736" class="Folded"> 1736 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1736" class="Folded"> 1736 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1742" class="LineNr"> 1742 </span> <span class="subxComment"># check output</span> <span id="L1743" class="LineNr"> 1743 </span> (<a href='../109stream-equal.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#L1719'>test-convert-return-with-duplicate-values</a>/0"</span>) <span id="L1744" class="LineNr"> 1744 </span> (<a href='../109stream-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>) @@ -1707,7 +1707,7 @@ if ('onhashchange' in window) { <span id="L1780" class="LineNr"> 1780 </span> <span class="subxComment"># convert</span> <span id="L1781" class="LineNr"> 1781 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L1782" class="LineNr"> 1782 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1783" class="Folded"> 1783 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1783" class="Folded"> 1783 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1789" class="LineNr"> 1789 </span> <span class="subxComment"># check output</span> <span id="L1790" class="LineNr"> 1790 </span> (<a href='../109stream-equal.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#L1766'>test-convert-return-with-duplicate-values-2</a>/0"</span>) <span id="L1791" class="LineNr"> 1791 </span> (<a href='../109stream-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>) @@ -1759,7 +1759,7 @@ if ('onhashchange' in window) { <span id="L1837" class="LineNr"> 1837 </span> 89/<- %edx 4/r32/esp <span id="L1838" class="LineNr"> 1838 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1839" class="LineNr"> 1839 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1840" class="Folded"> 1840 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1840" class="Folded"> 1840 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1846" class="LineNr"> 1846 </span> <span class="subxComment"># check output</span> <span id="L1847" class="LineNr"> 1847 </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#L1813'>test-stmt-with-unknown-var</a>: output should be empty"</span>) <span id="L1848" class="LineNr"> 1848 </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#L1813'>test-stmt-with-unknown-var</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1798,7 +1798,7 @@ if ('onhashchange' in window) { <span id="L1881" class="LineNr"> 1881 </span> 89/<- %edx 4/r32/esp <span id="L1882" class="LineNr"> 1882 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1883" class="LineNr"> 1883 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1884" class="Folded"> 1884 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1884" class="Folded"> 1884 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1890" class="LineNr"> 1890 </span> <span class="subxComment"># check output</span> <span id="L1891" class="LineNr"> 1891 </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#L1857'>test-stmt-with-invalid-identifier</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: invalid identifier '1'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1857'>test-stmt-with-invalid-identifier</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1837,7 +1837,7 @@ if ('onhashchange' in window) { <span id="L1925" class="LineNr"> 1925 </span> 89/<- %edx 4/r32/esp <span id="L1926" class="LineNr"> 1926 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L1927" class="LineNr"> 1927 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1928" class="Folded"> 1928 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1928" class="Folded"> 1928 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1934" class="LineNr"> 1934 </span> <span class="subxComment"># check output</span> <span id="L1935" class="LineNr"> 1935 </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#L1901'>test-stmt-with-deref-var</a>: output should be empty"</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#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#L1901'>test-stmt-with-deref-var</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -1867,7 +1867,7 @@ if ('onhashchange' in window) { <span id="L1960" class="LineNr"> 1960 </span> <span class="subxComment"># convert</span> <span id="L1961" class="LineNr"> 1961 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L1962" class="LineNr"> 1962 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1963" class="Folded"> 1963 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1963" class="Folded"> 1963 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L1969" class="LineNr"> 1969 </span> <span class="subxComment"># check output</span> <span id="L1970" class="LineNr"> 1970 </span> (<a href='../109stream-equal.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#L1945'>test-convert-function-with-literal-arg</a>/0"</span>) <span id="L1971" class="LineNr"> 1971 </span> (<a href='../109stream-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>) @@ -1910,7 +1910,7 @@ if ('onhashchange' in window) { <span id="L2008" class="LineNr"> 2008 </span> <span class="subxComment"># convert</span> <span id="L2009" class="LineNr"> 2009 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L2010" class="LineNr"> 2010 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2011" class="Folded"> 2011 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2011" class="Folded"> 2011 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2017" class="LineNr"> 2017 </span> <span class="subxComment"># check output</span> <span id="L2018" class="LineNr"> 2018 </span> (<a href='../109stream-equal.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#L1993'>test-convert-function-with-literal-arg-2</a>/0"</span>) <span id="L2019" class="LineNr"> 2019 </span> (<a href='../109stream-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>) @@ -1957,7 +1957,7 @@ if ('onhashchange' in window) { <span id="L2060" class="LineNr"> 2060 </span> <span class="subxComment"># convert</span> <span id="L2061" class="LineNr"> 2061 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L2062" class="LineNr"> 2062 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2063" class="Folded"> 2063 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2063" class="Folded"> 2063 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2069" class="LineNr"> 2069 </span> <span class="subxComment"># check output</span> <span id="L2070" class="LineNr"> 2070 </span> (<a href='../109stream-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#L2041'>test-convert-function-call-with-literal-arg</a>/0"</span>) <span id="L2071" class="LineNr"> 2071 </span> (<a href='../109stream-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>) @@ -2063,7 +2063,7 @@ if ('onhashchange' in window) { <span id="L2171" class="LineNr"> 2171 </span> <span class="subxComment"># convert</span> <span id="L2172" class="LineNr"> 2172 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L2173" class="LineNr"> 2173 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2174" class="Folded"> 2174 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2174" class="Folded"> 2174 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2180" class="LineNr"> 2180 </span> <span class="subxComment"># check output</span> <span id="L2181" class="LineNr"> 2181 </span> (<a href='../109stream-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#L2156'>test-convert-function-call-with-signature</a>/0"</span>) <span id="L2182" class="LineNr"> 2182 </span> (<a href='../109stream-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>) @@ -2104,7 +2104,7 @@ if ('onhashchange' in window) { <span id="L2217" class="LineNr"> 2217 </span> <span class="subxComment"># convert</span> <span id="L2218" class="LineNr"> 2218 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L2219" class="LineNr"> 2219 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2220" class="Folded"> 2220 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2220" class="Folded"> 2220 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2226" class="LineNr"> 2226 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2203'>test-convert-function-with-local-var-in-mem</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem/1"</span>) @@ -2153,7 +2153,7 @@ if ('onhashchange' in window) { <span id="L2271" class="LineNr"> 2271 </span> 89/<- %edx 4/r32/esp <span id="L2272" class="LineNr"> 2272 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L2273" class="LineNr"> 2273 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2274" class="Folded"> 2274 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2274" class="Folded"> 2274 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2280" class="LineNr"> 2280 </span> <span class="subxComment"># check output</span> <span id="L2281" class="LineNr"> 2281 </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#L2247'>test-convert-invalid-literal</a>: output should be empty"</span>) <span id="L2282" class="LineNr"> 2282 </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#L2247'>test-convert-invalid-literal</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -2193,7 +2193,7 @@ if ('onhashchange' in window) { <span id="L2316" class="LineNr"> 2316 </span> 89/<- %edx 4/r32/esp <span id="L2317" class="LineNr"> 2317 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L2318" class="LineNr"> 2318 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2319" class="Folded"> 2319 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2319" class="Folded"> 2319 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2325" class="LineNr"> 2325 </span> <span class="subxComment"># check output</span> <span id="L2326" class="LineNr"> 2326 </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="L2327" class="LineNr"> 2327 </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>) @@ -2222,7 +2222,7 @@ if ('onhashchange' in window) { <span id="L2350" class="LineNr"> 2350 </span> <span class="subxComment"># convert</span> <span id="L2351" class="LineNr"> 2351 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L2352" class="LineNr"> 2352 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2353" class="Folded"> 2353 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2353" class="Folded"> 2353 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2359" class="LineNr"> 2359 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2336'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-compound-type-in-mem/1"</span>) @@ -2261,7 +2261,7 @@ if ('onhashchange' in window) { <span id="L2394" class="LineNr"> 2394 </span> <span class="subxComment"># convert</span> <span id="L2395" class="LineNr"> 2395 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L2396" class="LineNr"> 2396 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2397" class="Folded"> 2397 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2397" class="Folded"> 2397 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2403" class="LineNr"> 2403 </span> <span class="subxComment"># check output</span> <span id="L2404" class="LineNr"> 2404 </span> (<a href='../109stream-equal.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#L2380'>test-convert-function-with-local-var-in-reg</a>/0"</span>) <span id="L2405" class="LineNr"> 2405 </span> (<a href='../109stream-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>) @@ -2312,7 +2312,7 @@ if ('onhashchange' in window) { <span id="L2450" class="LineNr"> 2450 </span> 89/<- %edx 4/r32/esp <span id="L2451" class="LineNr"> 2451 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L2452" class="LineNr"> 2452 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2453" class="Folded"> 2453 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2453" class="Folded"> 2453 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2459" class="LineNr"> 2459 </span> <span class="subxComment"># check output</span> <span id="L2460" class="LineNr"> 2460 </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#L2425'>test-float-var-in-wrong-register</a>: output should be empty"</span>) <span id="L2461" class="LineNr"> 2461 </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#L2425'>test-float-var-in-wrong-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -2351,7 +2351,7 @@ if ('onhashchange' in window) { <span id="L2494" class="LineNr"> 2494 </span> 89/<- %edx 4/r32/esp <span id="L2495" class="LineNr"> 2495 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L2496" class="LineNr"> 2496 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2497" class="Folded"> 2497 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2497" class="Folded"> 2497 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2503" class="LineNr"> 2503 </span> <span class="subxComment"># check output</span> <span id="L2504" class="LineNr"> 2504 </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#L2470'>test-non-float-var-in-wrong-register</a>: output should be empty"</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#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#L2470'>test-non-float-var-in-wrong-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -2380,7 +2380,7 @@ if ('onhashchange' in window) { <span id="L2528" class="LineNr"> 2528 </span> <span class="subxComment"># convert</span> <span id="L2529" class="LineNr"> 2529 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L2530" class="LineNr"> 2530 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2531" class="Folded"> 2531 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2531" class="Folded"> 2531 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2537" class="LineNr"> 2537 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2514'>test-convert-function-with-allocate</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-allocate/1"</span>) @@ -2430,7 +2430,7 @@ if ('onhashchange' in window) { <span id="L2583" class="LineNr"> 2583 </span> 89/<- %edx 4/r32/esp <span id="L2584" class="LineNr"> 2584 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L2585" class="LineNr"> 2585 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2586" class="Folded"> 2586 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2586" class="Folded"> 2586 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2592" class="LineNr"> 2592 </span> <span class="subxComment"># check output</span> <span id="L2593" class="LineNr"> 2593 </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#L2559'>test-initializer-in-hex</a>: output should be empty"</span>) <span id="L2594" class="LineNr"> 2594 </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#L2559'>test-initializer-in-hex</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -2460,7 +2460,7 @@ if ('onhashchange' in window) { <span id="L2618" class="LineNr"> 2618 </span> <span class="subxComment"># convert</span> <span id="L2619" class="LineNr"> 2619 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L2620" class="LineNr"> 2620 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2621" class="Folded"> 2621 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2621" class="Folded"> 2621 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2627" class="LineNr"> 2627 </span> <span class="subxComment"># check output</span> <span id="L2628" class="LineNr"> 2628 </span> (<a href='../109stream-equal.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#L2603'>test-convert-function-with-second-local-var-in-same-reg</a>/0"</span>) <span id="L2629" class="LineNr"> 2629 </span> (<a href='../109stream-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>) @@ -2513,7 +2513,7 @@ if ('onhashchange' in window) { <span id="L2676" class="LineNr"> 2676 </span> 89/<- %edx 4/r32/esp <span id="L2677" class="LineNr"> 2677 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L2678" class="LineNr"> 2678 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2679" class="Folded"> 2679 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2679" class="Folded"> 2679 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2685" class="LineNr"> 2685 </span> <span class="subxComment"># check output</span> <span id="L2686" class="LineNr"> 2686 </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#L2650'>test-read-clobbered-reg-var</a>: output should be empty"</span>) <span id="L2687" class="LineNr"> 2687 </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#L2650'>test-read-clobbered-reg-var</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -2554,7 +2554,7 @@ if ('onhashchange' in window) { <span id="L2722" class="LineNr"> 2722 </span> 89/<- %edx 4/r32/esp <span id="L2723" class="LineNr"> 2723 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L2724" class="LineNr"> 2724 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2725" class="Folded"> 2725 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2725" class="Folded"> 2725 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2731" class="LineNr"> 2731 </span> <span class="subxComment"># no errors</span> <span id="L2732" class="LineNr"> 2732 </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#L2696'>test-overlapping-int-fp-registers</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L2733" class="LineNr"> 2733 </span> <span class="subxComment"># don't bother checking the generated code</span> @@ -2585,7 +2585,7 @@ if ('onhashchange' in window) { <span id="L2758" class="LineNr"> 2758 </span> <span class="subxComment"># convert</span> <span id="L2759" class="LineNr"> 2759 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L2760" class="LineNr"> 2760 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2761" class="Folded"> 2761 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2761" class="Folded"> 2761 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2767" class="LineNr"> 2767 </span> <span class="subxComment"># check output</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">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2740'>test-convert-function-call</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call/1"</span>) @@ -2645,7 +2645,7 @@ if ('onhashchange' in window) { <span id="L2823" class="LineNr"> 2823 </span> <span class="subxComment"># convert</span> <span id="L2824" class="LineNr"> 2824 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L2825" class="LineNr"> 2825 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2826" class="Folded"> 2826 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2826" class="Folded"> 2826 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2832" class="LineNr"> 2832 </span> <span class="subxComment"># check output</span> <span id="L2833" class="LineNr"> 2833 </span> (<a href='../109stream-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#L2807'>test-convert-function-call-with-inout-with-compound-type</a>/0"</span>) <span id="L2834" class="LineNr"> 2834 </span> (<a href='../109stream-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>) @@ -2705,7 +2705,7 @@ if ('onhashchange' in window) { <span id="L2888" class="LineNr"> 2888 </span> 89/<- %edx 4/r32/esp <span id="L2889" class="LineNr"> 2889 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L2890" class="LineNr"> 2890 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2891" class="Folded"> 2891 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2891" class="Folded"> 2891 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2897" class="LineNr"> 2897 </span> <span class="subxComment"># no error; types matched</span> <span id="L2898" class="LineNr"> 2898 </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#L2861'>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="L2899" class="LineNr"> 2899 </span> <span class="subxComment"># don't bother checking the generated code; that's in the test 'test-local-clobbered-by-fn-output' below</span> @@ -2745,7 +2745,7 @@ if ('onhashchange' in window) { <span id="L2933" class="LineNr"> 2933 </span> 89/<- %edx 4/r32/esp <span id="L2934" class="LineNr"> 2934 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L2935" class="LineNr"> 2935 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2936" class="Folded"> 2936 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2936" class="Folded"> 2936 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2942" class="LineNr"> 2942 </span> <span class="subxComment"># check output</span> <span id="L2943" class="LineNr"> 2943 </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#L2906'>test-convert-function-call-with-incorrect-inout-type</a>: output should be empty"</span>) <span id="L2944" class="LineNr"> 2944 </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#L2906'>test-convert-function-call-with-incorrect-inout-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -2786,7 +2786,7 @@ if ('onhashchange' in window) { <span id="L2979" class="LineNr"> 2979 </span> 89/<- %edx 4/r32/esp <span id="L2980" class="LineNr"> 2980 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L2981" class="LineNr"> 2981 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2982" class="Folded"> 2982 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2982" class="Folded"> 2982 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L2988" class="LineNr"> 2988 </span> <span class="subxComment"># check output</span> <span id="L2989" class="LineNr"> 2989 </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#L2952'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: output should be empty"</span>) <span id="L2990" class="LineNr"> 2990 </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#L2952'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -2827,7 +2827,7 @@ if ('onhashchange' in window) { <span id="L3025" class="LineNr"> 3025 </span> 89/<- %edx 4/r32/esp <span id="L3026" class="LineNr"> 3026 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3027" class="LineNr"> 3027 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3028" class="Folded"> 3028 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3028" class="Folded"> 3028 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3034" class="LineNr"> 3034 </span> <span class="subxComment"># no errors</span> <span id="L3035" class="LineNr"> 3035 </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#L2997'>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="L3036" class="LineNr"> 3036 </span> <span class="subxComment"># don't bother checking the generated code</span> @@ -2867,7 +2867,7 @@ if ('onhashchange' in window) { <span id="L3070" class="LineNr"> 3070 </span> 89/<- %edx 4/r32/esp <span id="L3071" class="LineNr"> 3071 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3072" class="LineNr"> 3072 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3073" class="Folded"> 3073 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3073" class="Folded"> 3073 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3079" class="LineNr"> 3079 </span> <span class="subxComment"># no errors</span> <span id="L3080" class="LineNr"> 3080 </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#L3043'>test-type-parameter-matches-rest-of-type</a>: <a href='../114error.subx.html#L9'>error</a> stream should be empty"</span>) <span id="L3081" class="LineNr"> 3081 </span> <span class="subxComment"># don't bother checking the generated code</span> @@ -2908,7 +2908,7 @@ if ('onhashchange' in window) { <span id="L3116" class="LineNr"> 3116 </span> 89/<- %edx 4/r32/esp <span id="L3117" class="LineNr"> 3117 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3118" class="LineNr"> 3118 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3119" class="Folded"> 3119 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3119" class="Folded"> 3119 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3125" class="LineNr"> 3125 </span> <span class="subxComment"># check output</span> <span id="L3126" class="LineNr"> 3126 </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#L3088'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: output should be empty"</span>) <span id="L3127" class="LineNr"> 3127 </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#L3088'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -2947,7 +2947,7 @@ if ('onhashchange' in window) { <span id="L3160" class="LineNr"> 3160 </span> 89/<- %edx 4/r32/esp <span id="L3161" class="LineNr"> 3161 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3162" class="LineNr"> 3162 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3163" class="Folded"> 3163 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3163" class="Folded"> 3163 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3169" class="LineNr"> 3169 </span> <span class="subxComment"># check output</span> <span id="L3170" class="LineNr"> 3170 </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#L3134'>test-convert-function-call-with-too-few-inouts</a>: output should be empty"</span>) <span id="L3171" class="LineNr"> 3171 </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#L3134'>test-convert-function-call-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -2988,7 +2988,7 @@ if ('onhashchange' in window) { <span id="L3206" class="LineNr"> 3206 </span> 89/<- %edx 4/r32/esp <span id="L3207" class="LineNr"> 3207 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3208" class="LineNr"> 3208 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3209" class="Folded"> 3209 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3209" class="Folded"> 3209 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3215" class="LineNr"> 3215 </span> <span class="subxComment"># check output</span> <span id="L3216" class="LineNr"> 3216 </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#L3179'>test-convert-function-call-with-too-many-inouts</a>: output should be empty"</span>) <span id="L3217" class="LineNr"> 3217 </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#L3179'>test-convert-function-call-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -3028,7 +3028,7 @@ if ('onhashchange' in window) { <span id="L3251" class="LineNr"> 3251 </span> 89/<- %edx 4/r32/esp <span id="L3252" class="LineNr"> 3252 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3253" class="LineNr"> 3253 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3254" class="Folded"> 3254 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3254" class="Folded"> 3254 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3260" class="LineNr"> 3260 </span> <span class="subxComment"># check output</span> <span id="L3261" class="LineNr"> 3261 </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#L3225'>test-convert-function-call-with-incorrect-output-type</a>: output should be empty"</span>) <span id="L3262" class="LineNr"> 3262 </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#L3225'>test-convert-function-call-with-incorrect-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -3068,7 +3068,7 @@ if ('onhashchange' in window) { <span id="L3296" class="LineNr"> 3296 </span> 89/<- %edx 4/r32/esp <span id="L3297" class="LineNr"> 3297 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3298" class="LineNr"> 3298 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3299" class="Folded"> 3299 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3299" class="Folded"> 3299 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3305" class="LineNr"> 3305 </span> <span class="subxComment"># check output</span> <span id="L3306" class="LineNr"> 3306 </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#L3270'>test-convert-function-call-with-too-few-outputs</a>: output should be empty"</span>) <span id="L3307" class="LineNr"> 3307 </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#L3270'>test-convert-function-call-with-too-few-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -3108,7 +3108,7 @@ if ('onhashchange' in window) { <span id="L3341" class="LineNr"> 3341 </span> 89/<- %edx 4/r32/esp <span id="L3342" class="LineNr"> 3342 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3343" class="LineNr"> 3343 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3344" class="Folded"> 3344 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3344" class="Folded"> 3344 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3350" class="LineNr"> 3350 </span> <span class="subxComment"># check output</span> <span id="L3351" class="LineNr"> 3351 </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#L3315'>test-convert-function-call-with-too-many-outputs</a>: output should be empty"</span>) <span id="L3352" class="LineNr"> 3352 </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#L3315'>test-convert-function-call-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -3149,7 +3149,7 @@ if ('onhashchange' in window) { <span id="L3387" class="LineNr"> 3387 </span> 89/<- %edx 4/r32/esp <span id="L3388" class="LineNr"> 3388 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3389" class="LineNr"> 3389 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3390" class="Folded"> 3390 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3390" class="Folded"> 3390 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3396" class="LineNr"> 3396 </span> <span class="subxComment"># check output</span> <span id="L3397" class="LineNr"> 3397 </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#L3360'>test-convert-function-call-with-missing-output-register</a>: output should be empty"</span>) <span id="L3398" class="LineNr"> 3398 </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#L3360'>test-convert-function-call-with-missing-output-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -3189,7 +3189,7 @@ if ('onhashchange' in window) { <span id="L3432" class="LineNr"> 3432 </span> 89/<- %edx 4/r32/esp <span id="L3433" class="LineNr"> 3433 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3434" class="LineNr"> 3434 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3435" class="Folded"> 3435 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3435" class="Folded"> 3435 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3441" class="LineNr"> 3441 </span> <span class="subxComment"># check output</span> <span id="L3442" class="LineNr"> 3442 </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#L3406'>test-convert-function-call-with-incorrect-output-register</a>: output should be empty"</span>) <span id="L3443" class="LineNr"> 3443 </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#L3406'>test-convert-function-call-with-incorrect-output-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -3217,7 +3217,7 @@ if ('onhashchange' in window) { <span id="L3465" class="LineNr"> 3465 </span> <span class="subxComment"># convert</span> <span id="L3466" class="LineNr"> 3466 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L3467" class="LineNr"> 3467 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3468" class="Folded"> 3468 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3468" class="Folded"> 3468 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3474" class="LineNr"> 3474 </span> <span class="subxComment"># check output</span> <span id="L3475" class="LineNr"> 3475 </span> (<a href='../109stream-equal.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#L3451'>test-convert-function-with-local-var-dereferenced</a>/0"</span>) <span id="L3476" class="LineNr"> 3476 </span> (<a href='../109stream-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>) @@ -3268,7 +3268,7 @@ if ('onhashchange' in window) { <span id="L3521" class="LineNr"> 3521 </span> 89/<- %edx 4/r32/esp <span id="L3522" class="LineNr"> 3522 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3523" class="LineNr"> 3523 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3524" class="Folded"> 3524 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3524" class="Folded"> 3524 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3530" class="LineNr"> 3530 </span> <span class="subxComment"># check output</span> <span id="L3531" class="LineNr"> 3531 </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#L3496'>test-dereference-of-var-on-stack</a>: output should be empty"</span>) <span id="L3532" class="LineNr"> 3532 </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#L3496'>test-dereference-of-var-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -3301,7 +3301,7 @@ if ('onhashchange' in window) { <span id="L3559" class="LineNr"> 3559 </span> <span class="subxComment"># convert</span> <span id="L3560" class="LineNr"> 3560 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L3561" class="LineNr"> 3561 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3562" class="Folded"> 3562 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3562" class="Folded"> 3562 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3568" class="LineNr"> 3568 </span> <span class="subxComment"># check output</span> <span id="L3569" class="LineNr"> 3569 </span> (<a href='../109stream-equal.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#L3541'>test-convert-function-with-byte-operations</a>/0"</span>) <span id="L3570" class="LineNr"> 3570 </span> (<a href='../109stream-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>) @@ -3360,7 +3360,7 @@ if ('onhashchange' in window) { <span id="L3623" class="LineNr"> 3623 </span> 89/<- %edx 4/r32/esp <span id="L3624" class="LineNr"> 3624 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3625" class="LineNr"> 3625 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3626" class="Folded"> 3626 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3626" class="Folded"> 3626 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3632" class="LineNr"> 3632 </span> <span class="subxComment"># check output</span> <span id="L3633" class="LineNr"> 3633 </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#L3599'>test-byte-values-on-stack</a>: output should be empty"</span>) <span id="L3634" class="LineNr"> 3634 </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#L3599'>test-byte-values-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -3400,7 +3400,7 @@ if ('onhashchange' in window) { <span id="L3668" class="LineNr"> 3668 </span> 89/<- %edx 4/r32/esp <span id="L3669" class="LineNr"> 3669 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3670" class="LineNr"> 3670 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3671" class="Folded"> 3671 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3671" class="Folded"> 3671 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3677" class="LineNr"> 3677 </span> <span class="subxComment"># check output</span> <span id="L3678" class="LineNr"> 3678 </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#L3644'>test-byte-values-in-unsupported-registers</a>: output should be empty"</span>) <span id="L3679" class="LineNr"> 3679 </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#L3644'>test-byte-values-in-unsupported-registers</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -3430,7 +3430,7 @@ if ('onhashchange' in window) { <span id="L3703" class="LineNr"> 3703 </span> <span class="subxComment"># convert</span> <span id="L3704" class="LineNr"> 3704 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L3705" class="LineNr"> 3705 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3706" class="Folded"> 3706 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3706" class="Folded"> 3706 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3712" class="LineNr"> 3712 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/0"</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">" # . prologue"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/1"</span>) @@ -3470,7 +3470,7 @@ if ('onhashchange' in window) { <span id="L3748" class="LineNr"> 3748 </span> <span class="subxComment"># convert</span> <span id="L3749" class="LineNr"> 3749 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L3750" class="LineNr"> 3750 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3751" class="Folded"> 3751 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3751" class="Folded"> 3751 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3757" class="LineNr"> 3757 </span> <span class="subxComment"># check output</span> <span id="L3758" class="LineNr"> 3758 </span> (<a href='../109stream-equal.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#L3734'>test-convert-compare-register-with-literal</a>/0"</span>) <span id="L3759" class="LineNr"> 3759 </span> (<a href='../109stream-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>) @@ -3520,7 +3520,7 @@ if ('onhashchange' in window) { <span id="L3803" class="LineNr"> 3803 </span> 89/<- %edx 4/r32/esp <span id="L3804" class="LineNr"> 3804 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L3805" class="LineNr"> 3805 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3806" class="Folded"> 3806 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3806" class="Folded"> 3806 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3812" class="LineNr"> 3812 </span> <span class="subxComment"># check output</span> <span id="L3813" class="LineNr"> 3813 </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#L3779'>test-unknown-variable</a>: output should be empty"</span>) <span id="L3814" class="LineNr"> 3814 </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#L3779'>test-unknown-variable</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -3551,7 +3551,7 @@ if ('onhashchange' in window) { <span id="L3839" class="LineNr"> 3839 </span> <span class="subxComment"># convert</span> <span id="L3840" class="LineNr"> 3840 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L3841" class="LineNr"> 3841 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3842" class="Folded"> 3842 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3842" class="Folded"> 3842 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3848" class="LineNr"> 3848 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3823'>test-convert-function-with-local-var-in-block</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-block/1"</span>) @@ -3597,7 +3597,7 @@ if ('onhashchange' in window) { <span id="L3890" class="LineNr"> 3890 </span> <span class="subxComment"># convert</span> <span id="L3891" class="LineNr"> 3891 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L3892" class="LineNr"> 3892 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3893" class="Folded"> 3893 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3893" class="Folded"> 3893 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3899" class="LineNr"> 3899 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3873'>test-convert-function-with-local-var-in-mem-after-block</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem-after-block/1"</span>) @@ -3644,7 +3644,7 @@ if ('onhashchange' in window) { <span id="L3942" class="LineNr"> 3942 </span> <span class="subxComment"># convert</span> <span id="L3943" class="LineNr"> 3943 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L3944" class="LineNr"> 3944 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3945" class="Folded"> 3945 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3945" class="Folded"> 3945 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L3951" class="LineNr"> 3951 </span> <span class="subxComment"># check output</span> <span id="L3952" class="LineNr"> 3952 </span> (<a href='../109stream-equal.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#L3926'>test-convert-function-with-local-var-in-named-block</a>/0"</span>) <span id="L3953" class="LineNr"> 3953 </span> (<a href='../109stream-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>) @@ -3699,7 +3699,7 @@ if ('onhashchange' in window) { <span id="L4002" class="LineNr"> 4002 </span> 89/<- %edx 4/r32/esp <span id="L4003" class="LineNr"> 4003 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L4004" class="LineNr"> 4004 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L4005" class="Folded"> 4005 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4005" class="Folded"> 4005 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-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#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#L3976'>test-unknown-variable-in-named-block</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L3976'>test-unknown-variable-in-named-block</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -3727,7 +3727,7 @@ if ('onhashchange' in window) { <span id="L4035" class="LineNr"> 4035 </span> <span class="subxComment"># convert</span> <span id="L4036" class="LineNr"> 4036 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4037" class="LineNr"> 4037 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4038" class="Folded"> 4038 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4038" class="Folded"> 4038 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4044" class="LineNr"> 4044 </span> <span class="subxComment"># check output</span> <span id="L4045" class="LineNr"> 4045 </span> (<a href='../109stream-equal.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#L4022'>test-always-shadow-outermost-reg-vars-in-function</a>/0"</span>) <span id="L4046" class="LineNr"> 4046 </span> (<a href='../109stream-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>) @@ -3769,7 +3769,7 @@ if ('onhashchange' in window) { <span id="L4082" class="LineNr"> 4082 </span> <span class="subxComment"># convert</span> <span id="L4083" class="LineNr"> 4083 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4084" class="LineNr"> 4084 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4085" class="Folded"> 4085 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4085" class="Folded"> 4085 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4091" class="LineNr"> 4091 </span> <span class="subxComment"># check output</span> <span id="L4092" class="LineNr"> 4092 </span> (<a href='../109stream-equal.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#L4065'>test-shadow-local</a>/0"</span>) <span id="L4093" class="LineNr"> 4093 </span> (<a href='../109stream-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>) @@ -3819,7 +3819,7 @@ if ('onhashchange' in window) { <span id="L4137" class="LineNr"> 4137 </span> <span class="subxComment"># convert</span> <span id="L4138" class="LineNr"> 4138 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4139" class="LineNr"> 4139 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4140" class="Folded"> 4140 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4140" class="Folded"> 4140 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4146" class="LineNr"> 4146 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4120'>test-shadow-name</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-name/1"</span>) @@ -3870,7 +3870,7 @@ if ('onhashchange' in window) { <span id="L4193" class="LineNr"> 4193 </span> <span class="subxComment"># convert</span> <span id="L4194" class="LineNr"> 4194 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4195" class="LineNr"> 4195 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4196" class="Folded"> 4196 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4196" class="Folded"> 4196 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4202" class="LineNr"> 4202 </span> <span class="subxComment"># check output</span> <span id="L4203" class="LineNr"> 4203 </span> (<a href='../109stream-equal.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#L4175'>test-shadow-name-2</a>/0"</span>) <span id="L4204" class="LineNr"> 4204 </span> (<a href='../109stream-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>) @@ -3921,7 +3921,7 @@ if ('onhashchange' in window) { <span id="L4249" class="LineNr"> 4249 </span> <span class="subxComment"># convert</span> <span id="L4250" class="LineNr"> 4250 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4251" class="LineNr"> 4251 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4252" class="Folded"> 4252 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4252" class="Folded"> 4252 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4258" class="LineNr"> 4258 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4234'>test-do-not-spill-same-register-in-block</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-do-not-spill-same-register-in-block/1"</span>) @@ -3963,7 +3963,7 @@ if ('onhashchange' in window) { <span id="L4296" class="LineNr"> 4296 </span> <span class="subxComment"># convert</span> <span id="L4297" class="LineNr"> 4297 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4298" class="LineNr"> 4298 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4299" class="Folded"> 4299 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4299" class="Folded"> 4299 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4305" class="LineNr"> 4305 </span> <span class="subxComment"># check output</span> <span id="L4306" class="LineNr"> 4306 </span> (<a href='../109stream-equal.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#L4281'>test-spill-different-register-in-block</a>/0"</span>) <span id="L4307" class="LineNr"> 4307 </span> (<a href='../109stream-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>) @@ -4010,7 +4010,7 @@ if ('onhashchange' in window) { <span id="L4348" class="LineNr"> 4348 </span> <span class="subxComment"># convert</span> <span id="L4349" class="LineNr"> 4349 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4350" class="LineNr"> 4350 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4351" class="Folded"> 4351 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4351" class="Folded"> 4351 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4357" class="LineNr"> 4357 </span> <span class="subxComment"># check output</span> <span id="L4358" class="LineNr"> 4358 </span> (<a href='../109stream-equal.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#L4330'>test-convert-function-with-branches-in-block</a>/0"</span>) <span id="L4359" class="LineNr"> 4359 </span> (<a href='../109stream-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>) @@ -4064,7 +4064,7 @@ if ('onhashchange' in window) { <span id="L4407" class="LineNr"> 4407 </span> <span class="subxComment"># convert</span> <span id="L4408" class="LineNr"> 4408 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4409" class="LineNr"> 4409 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4410" class="Folded"> 4410 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4410" class="Folded"> 4410 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4416" class="LineNr"> 4416 </span> <span class="subxComment"># check output</span> <span id="L4417" class="LineNr"> 4417 </span> (<a href='../109stream-equal.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#L4330'>test-convert-function-with-branches-in-block</a>/0"</span>) <span id="L4418" class="LineNr"> 4418 </span> (<a href='../109stream-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>) @@ -4118,7 +4118,7 @@ if ('onhashchange' in window) { <span id="L4466" class="LineNr"> 4466 </span> <span class="subxComment"># convert</span> <span id="L4467" class="LineNr"> 4467 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4468" class="LineNr"> 4468 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4469" class="Folded"> 4469 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4469" class="Folded"> 4469 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4475" class="LineNr"> 4475 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4448'>test-convert-function-with-branches-in-named-block</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-named-block/1"</span>) @@ -4172,7 +4172,7 @@ if ('onhashchange' in window) { <span id="L4525" class="LineNr"> 4525 </span> <span class="subxComment"># convert</span> <span id="L4526" class="LineNr"> 4526 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4527" class="LineNr"> 4527 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4528" class="Folded"> 4528 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4528" class="Folded"> 4528 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4534" class="LineNr"> 4534 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4507'>test-convert-function-with-var-in-nested-block</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-var-in-nested-block/1"</span>) @@ -4224,7 +4224,7 @@ if ('onhashchange' in window) { <span id="L4582" class="LineNr"> 4582 </span> <span class="subxComment"># convert</span> <span id="L4583" class="LineNr"> 4583 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4584" class="LineNr"> 4584 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4585" class="Folded"> 4585 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4585" class="Folded"> 4585 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4591" class="LineNr"> 4591 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4563'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-multiple-vars-in-nested-blocks/1"</span>) @@ -4280,7 +4280,7 @@ if ('onhashchange' in window) { <span id="L4643" class="LineNr"> 4643 </span> <span class="subxComment"># convert</span> <span id="L4644" class="LineNr"> 4644 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4645" class="LineNr"> 4645 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4646" class="Folded"> 4646 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4646" class="Folded"> 4646 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4652" class="LineNr"> 4652 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4623'>test-convert-function-with-branches-and-local-vars</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-local-vars/1"</span>) @@ -4334,7 +4334,7 @@ if ('onhashchange' in window) { <span id="L4702" class="LineNr"> 4702 </span> <span class="subxComment"># convert</span> <span id="L4703" class="LineNr"> 4703 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4704" class="LineNr"> 4704 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4705" class="Folded"> 4705 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4705" class="Folded"> 4705 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4711" class="LineNr"> 4711 </span> <span class="subxComment"># check output</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:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4682'>test-convert-function-with-conditional-loops-and-local-vars</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-conditional-loops-and-local-vars/1"</span>) @@ -4388,7 +4388,7 @@ if ('onhashchange' in window) { <span id="L4761" class="LineNr"> 4761 </span> <span class="subxComment"># convert</span> <span id="L4762" class="LineNr"> 4762 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4763" class="LineNr"> 4763 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4764" class="Folded"> 4764 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4764" class="Folded"> 4764 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4770" class="LineNr"> 4770 </span> <span class="subxComment"># check output</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:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4741'>test-convert-function-with-unconditional-loops-and-local-vars</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-loops-and-local-vars/1"</span>) @@ -4436,7 +4436,7 @@ if ('onhashchange' in window) { <span id="L4814" class="LineNr"> 4814 </span> <span class="subxComment"># convert</span> <span id="L4815" class="LineNr"> 4815 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4816" class="LineNr"> 4816 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4817" class="Folded"> 4817 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4817" class="Folded"> 4817 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4823" class="LineNr"> 4823 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4796'>test-convert-function-with-branches-and-loops-and-local-vars</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-loops-and-local-vars/1"</span>) @@ -4492,7 +4492,7 @@ if ('onhashchange' in window) { <span id="L4875" class="LineNr"> 4875 </span> <span class="subxComment"># convert</span> <span id="L4876" class="LineNr"> 4876 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4877" class="LineNr"> 4877 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4878" class="Folded"> 4878 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4878" class="Folded"> 4878 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4884" class="LineNr"> 4884 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4854'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars/1"</span>) @@ -4553,7 +4553,7 @@ if ('onhashchange' in window) { <span id="L4941" class="LineNr"> 4941 </span> <span class="subxComment"># convert</span> <span id="L4942" class="LineNr"> 4942 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L4943" class="LineNr"> 4943 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4944" class="Folded"> 4944 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4944" class="Folded"> 4944 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L4950" class="LineNr"> 4950 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4922'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2/1"</span>) @@ -4609,7 +4609,7 @@ if ('onhashchange' in window) { <span id="L5002" class="LineNr"> 5002 </span> <span class="subxComment"># convert</span> <span id="L5003" class="LineNr"> 5003 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5004" class="LineNr"> 5004 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5005" class="Folded"> 5005 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5005" class="Folded"> 5005 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5011" class="LineNr"> 5011 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4983'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/0"</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#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>) @@ -4661,7 +4661,7 @@ if ('onhashchange' in window) { <span id="L5059" class="LineNr"> 5059 </span> <span class="subxComment"># convert</span> <span id="L5060" class="LineNr"> 5060 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5061" class="LineNr"> 5061 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5062" class="Folded"> 5062 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5062" class="Folded"> 5062 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5068" class="LineNr"> 5068 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5041'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4/1"</span>) @@ -4716,7 +4716,7 @@ if ('onhashchange' in window) { <span id="L5119" class="LineNr"> 5119 </span> <span class="subxComment"># convert</span> <span id="L5120" class="LineNr"> 5120 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5121" class="LineNr"> 5121 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5122" class="Folded"> 5122 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5122" class="Folded"> 5122 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5128" class="LineNr"> 5128 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5099'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-break-and-local-vars/1"</span>) @@ -4772,7 +4772,7 @@ if ('onhashchange' in window) { <span id="L5180" class="LineNr"> 5180 </span> <span class="subxComment"># convert</span> <span id="L5181" class="LineNr"> 5181 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5182" class="LineNr"> 5182 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5183" class="Folded"> 5183 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5183" class="Folded"> 5183 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5189" class="LineNr"> 5189 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5160'>test-convert-function-with-unconditional-break-and-local-vars</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-break-and-local-vars/1"</span>) @@ -4826,7 +4826,7 @@ if ('onhashchange' in window) { <span id="L5239" class="LineNr"> 5239 </span> <span class="subxComment"># convert</span> <span id="L5240" class="LineNr"> 5240 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5241" class="LineNr"> 5241 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5242" class="Folded"> 5242 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5242" class="Folded"> 5242 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5248" class="LineNr"> 5248 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5219'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-loop-and-local-vars/1"</span>) @@ -4875,7 +4875,7 @@ if ('onhashchange' in window) { <span id="L5293" class="LineNr"> 5293 </span> <span class="subxComment"># convert</span> <span id="L5294" class="LineNr"> 5294 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5295" class="LineNr"> 5295 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5296" class="Folded"> 5296 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5296" class="Folded"> 5296 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5302" class="LineNr"> 5302 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5280'>test-convert-function-with-local-array-var-in-mem</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-array-var-in-mem/1"</span>) @@ -4927,7 +4927,7 @@ if ('onhashchange' in window) { <span id="L5350" class="LineNr"> 5350 </span> 89/<- %edx 4/r32/esp <span id="L5351" class="LineNr"> 5351 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L5352" class="LineNr"> 5352 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L5353" class="Folded"> 5353 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5353" class="Folded"> 5353 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5359" class="LineNr"> 5359 </span> <span class="subxComment"># check output</span> <span id="L5360" class="LineNr"> 5360 </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#L5326'>test-array-size-in-hex</a>: output should be empty"</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#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#L5326'>test-array-size-in-hex</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -4956,7 +4956,7 @@ if ('onhashchange' in window) { <span id="L5384" class="LineNr"> 5384 </span> <span class="subxComment"># convert</span> <span id="L5385" class="LineNr"> 5385 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5386" class="LineNr"> 5386 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5387" class="Folded"> 5387 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5387" class="Folded"> 5387 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5393" class="LineNr"> 5393 </span> <span class="subxComment"># check output</span> <span id="L5394" class="LineNr"> 5394 </span> (<a href='../109stream-equal.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#L5370'>test-convert-function-with-populate</a>/0"</span>) <span id="L5395" class="LineNr"> 5395 </span> (<a href='../109stream-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>) @@ -4996,7 +4996,7 @@ if ('onhashchange' in window) { <span id="L5429" class="LineNr"> 5429 </span> <span class="subxComment"># convert</span> <span id="L5430" class="LineNr"> 5430 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5431" class="LineNr"> 5431 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5432" class="Folded"> 5432 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5432" class="Folded"> 5432 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5438" class="LineNr"> 5438 </span> <span class="subxComment"># check output</span> <span id="L5439" class="LineNr"> 5439 </span> (<a href='../109stream-equal.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#L5416'>test-convert-function-with-local-array-of-bytes-in-mem</a>/0"</span>) <span id="L5440" class="LineNr"> 5440 </span> (<a href='../109stream-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>) @@ -5038,7 +5038,7 @@ if ('onhashchange' in window) { <span id="L5476" class="LineNr"> 5476 </span> <span class="subxComment"># convert</span> <span id="L5477" class="LineNr"> 5477 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5478" class="LineNr"> 5478 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5479" class="Folded"> 5479 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5479" class="Folded"> 5479 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5485" class="LineNr"> 5485 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5462'>test-convert-address</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-address/1"</span>) @@ -5079,7 +5079,7 @@ if ('onhashchange' in window) { <span id="L5522" class="LineNr"> 5522 </span> <span class="subxComment"># convert</span> <span id="L5523" class="LineNr"> 5523 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5524" class="LineNr"> 5524 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5525" class="Folded"> 5525 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5525" class="Folded"> 5525 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5531" class="LineNr"> 5531 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5508'>test-convert-floating-point-convert</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-convert/1"</span>) @@ -5124,7 +5124,7 @@ if ('onhashchange' in window) { <span id="L5572" class="LineNr"> 5572 </span> <span class="subxComment"># convert</span> <span id="L5573" class="LineNr"> 5573 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5574" class="LineNr"> 5574 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5575" class="Folded"> 5575 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5575" class="Folded"> 5575 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5581" class="LineNr"> 5581 </span> <span class="subxComment"># check output</span> <span id="L5582" class="LineNr"> 5582 </span> (<a href='../109stream-equal.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#L5557'>test-convert-floating-point-convert-2</a>/0"</span>) <span id="L5583" class="LineNr"> 5583 </span> (<a href='../109stream-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>) @@ -5192,7 +5192,7 @@ if ('onhashchange' in window) { <span id="L5645" class="LineNr"> 5645 </span> <span class="subxComment"># convert</span> <span id="L5646" class="LineNr"> 5646 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5647" class="LineNr"> 5647 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5648" class="Folded"> 5648 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5648" class="Folded"> 5648 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5654" class="LineNr"> 5654 </span> <span class="subxComment"># check output</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">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5608'>test-convert-floating-point-operation</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-operation/1"</span>) @@ -5264,7 +5264,7 @@ if ('onhashchange' in window) { <span id="L5722" class="LineNr"> 5722 </span> <span class="subxComment"># convert</span> <span id="L5723" class="LineNr"> 5723 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5724" class="LineNr"> 5724 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5725" class="Folded"> 5725 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5725" class="Folded"> 5725 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5731" class="LineNr"> 5731 </span> <span class="subxComment"># check output</span> <span id="L5732" class="LineNr"> 5732 </span> (<a href='../109stream-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#L5706'>test-convert-floating-point-dereferenced</a>/0"</span>) <span id="L5733" class="LineNr"> 5733 </span> (<a href='../109stream-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>) @@ -5311,7 +5311,7 @@ if ('onhashchange' in window) { <span id="L5774" class="LineNr"> 5774 </span> <span class="subxComment"># convert</span> <span id="L5775" class="LineNr"> 5775 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5776" class="LineNr"> 5776 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5777" class="Folded"> 5777 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5777" class="Folded"> 5777 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5783" class="LineNr"> 5783 </span> <span class="subxComment"># check output</span> <span id="L5784" class="LineNr"> 5784 </span> (<a href='../109stream-equal.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#L5760'>test-convert-length-of-array</a>/0"</span>) <span id="L5785" class="LineNr"> 5785 </span> (<a href='../109stream-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>) @@ -5353,7 +5353,7 @@ if ('onhashchange' in window) { <span id="L5821" class="LineNr"> 5821 </span> <span class="subxComment"># convert</span> <span id="L5822" class="LineNr"> 5822 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5823" class="LineNr"> 5823 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5824" class="Folded"> 5824 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5824" class="Folded"> 5824 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5830" class="LineNr"> 5830 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5807'>test-convert-length-of-array-of-bytes</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-bytes/1"</span>) @@ -5393,7 +5393,7 @@ if ('onhashchange' in window) { <span id="L5866" class="LineNr"> 5866 </span> <span class="subxComment"># convert</span> <span id="L5867" class="LineNr"> 5867 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5868" class="LineNr"> 5868 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5869" class="Folded"> 5869 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5869" class="Folded"> 5869 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5875" class="LineNr"> 5875 </span> <span class="subxComment"># check output</span> <span id="L5876" class="LineNr"> 5876 </span> (<a href='../109stream-equal.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#L5852'>test-convert-length-of-array-on-stack</a>/0"</span>) <span id="L5877" class="LineNr"> 5877 </span> (<a href='../109stream-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>) @@ -5448,8 +5448,8 @@ if ('onhashchange' in window) { <span id="L5926" class="LineNr"> 5926 </span> 89/<- %edx 4/r32/esp <span id="L5927" class="LineNr"> 5927 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L5928" class="LineNr"> 5928 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L5929" class="Folded"> 5929 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5935" class="Folded"> 5935 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5929" class="Folded"> 5929 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5935" class="Folded"> 5935 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5941" class="LineNr"> 5941 </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#L5901'>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="L5942" class="LineNr"> 5942 </span> <span class="subxComment"># check output</span> <span id="L5943" class="LineNr"> 5943 </span> (<a href='../109stream-equal.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#L5901'>test-reg-var-def-with-read-of-same-register</a>/0"</span>) @@ -5492,7 +5492,7 @@ if ('onhashchange' in window) { <span id="L5980" class="LineNr"> 5980 </span> <span class="subxComment"># convert</span> <span id="L5981" class="LineNr"> 5981 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L5982" class="LineNr"> 5982 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5983" class="Folded"> 5983 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5983" class="Folded"> 5983 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L5989" class="LineNr"> 5989 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5965'>test-convert-index-into-array</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array/1"</span>) @@ -5537,7 +5537,7 @@ if ('onhashchange' in window) { <span id="L6030" class="LineNr"> 6030 </span> <span class="subxComment"># convert</span> <span id="L6031" class="LineNr"> 6031 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6032" class="LineNr"> 6032 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6033" class="Folded"> 6033 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6033" class="Folded"> 6033 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6039" class="LineNr"> 6039 </span> <span class="subxComment"># check output</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">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-index-into-array-of-bytes</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/1"</span>) @@ -5581,7 +5581,7 @@ if ('onhashchange' in window) { <span id="L6079" class="LineNr"> 6079 </span> <span class="subxComment"># convert</span> <span id="L6080" class="LineNr"> 6080 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6081" class="LineNr"> 6081 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6082" class="Folded"> 6082 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6082" class="Folded"> 6082 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6088" class="LineNr"> 6088 </span> <span class="subxComment"># check output</span> <span id="L6089" class="LineNr"> 6089 </span> (<a href='../109stream-equal.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#L6065'>test-convert-index-into-array-with-literal</a>/0"</span>) <span id="L6090" class="LineNr"> 6090 </span> (<a href='../109stream-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>) @@ -5623,7 +5623,7 @@ if ('onhashchange' in window) { <span id="L6126" class="LineNr"> 6126 </span> <span class="subxComment"># convert</span> <span id="L6127" class="LineNr"> 6127 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6128" class="LineNr"> 6128 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6129" class="Folded"> 6129 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6129" class="Folded"> 6129 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6135" class="LineNr"> 6135 </span> <span class="subxComment"># check output</span> <span id="L6136" class="LineNr"> 6136 </span> (<a href='../109stream-equal.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#L6112'>test-convert-index-into-array-of-bytes-with-literal</a>/0"</span>) <span id="L6137" class="LineNr"> 6137 </span> (<a href='../109stream-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>) @@ -5666,7 +5666,7 @@ if ('onhashchange' in window) { <span id="L6174" class="LineNr"> 6174 </span> <span class="subxComment"># convert</span> <span id="L6175" class="LineNr"> 6175 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6176" class="LineNr"> 6176 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6177" class="Folded"> 6177 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6177" class="Folded"> 6177 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6183" class="LineNr"> 6183 </span> <span class="subxComment"># check output</span> <span id="L6184" class="LineNr"> 6184 </span> (<a href='../109stream-equal.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#L6159'>test-convert-index-into-array-on-stack</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/1"</span>) @@ -5716,7 +5716,7 @@ if ('onhashchange' in window) { <span id="L6229" class="LineNr"> 6229 </span> <span class="subxComment"># convert</span> <span id="L6230" class="LineNr"> 6230 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6231" class="LineNr"> 6231 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6232" class="Folded"> 6232 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6232" class="Folded"> 6232 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6238" class="LineNr"> 6238 </span> <span class="subxComment"># check output</span> <span id="L6239" class="LineNr"> 6239 </span> (<a href='../109stream-equal.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#L6215'>test-convert-index-into-array-on-stack-with-literal</a>/0"</span>) <span id="L6240" class="LineNr"> 6240 </span> (<a href='../109stream-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>) @@ -5765,7 +5765,7 @@ if ('onhashchange' in window) { <span id="L6283" class="LineNr"> 6283 </span> <span class="subxComment"># convert</span> <span id="L6284" class="LineNr"> 6284 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6285" class="LineNr"> 6285 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6286" class="Folded"> 6286 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6286" class="Folded"> 6286 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6292" class="LineNr"> 6292 </span> <span class="subxComment"># check output</span> <span id="L6293" class="LineNr"> 6293 </span> (<a href='../109stream-equal.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#L6269'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/0"</span>) <span id="L6294" class="LineNr"> 6294 </span> (<a href='../109stream-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>) @@ -5816,7 +5816,7 @@ if ('onhashchange' in window) { <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#L423'>_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#L423'>_test-output-buffered-file</a>) -<span id="L6342" class="Folded"> 6342 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6323'>test-convert-index-into-array-using-offset</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/1"</span>) @@ -5863,7 +5863,7 @@ if ('onhashchange' in window) { <span id="L6391" class="LineNr"> 6391 </span> <span class="subxComment"># convert</span> <span id="L6392" class="LineNr"> 6392 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6393" class="LineNr"> 6393 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6394" class="Folded"> 6394 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6394" class="Folded"> 6394 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6400" class="LineNr"> 6400 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6375'>test-convert-index-into-array-of-bytes-using-offset</a>/0"</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">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/1"</span>) @@ -5910,7 +5910,7 @@ if ('onhashchange' in window) { <span id="L6443" class="LineNr"> 6443 </span> <span class="subxComment"># convert</span> <span id="L6444" class="LineNr"> 6444 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6445" class="LineNr"> 6445 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6446" class="Folded"> 6446 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6446" class="Folded"> 6446 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6452" class="LineNr"> 6452 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6427'>test-convert-index-into-array-using-offset-on-stack</a>/0"</span>) <span id="L6454" class="LineNr"> 6454 </span> (<a href='../109stream-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>) @@ -5958,7 +5958,7 @@ if ('onhashchange' in window) { <span id="L6496" class="LineNr"> 6496 </span> <span class="subxComment"># convert</span> <span id="L6497" class="LineNr"> 6497 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6498" class="LineNr"> 6498 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6499" class="Folded"> 6499 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6499" class="Folded"> 6499 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6505" class="LineNr"> 6505 </span> <span class="subxComment"># check output</span> <span id="L6506" class="LineNr"> 6506 </span> (<a href='../109stream-equal.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#L6480'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/0"</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#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>) @@ -6009,7 +6009,7 @@ if ('onhashchange' in window) { <span id="L6552" class="LineNr"> 6552 </span> <span class="subxComment"># convert</span> <span id="L6553" class="LineNr"> 6553 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6554" class="LineNr"> 6554 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6555" class="Folded"> 6555 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6555" class="Folded"> 6555 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6561" class="LineNr"> 6561 </span> <span class="subxComment"># check output</span> <span id="L6562" class="LineNr"> 6562 </span> (<a href='../109stream-equal.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#L6533'>test-convert-function-and-type-definition</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/1"</span>) @@ -6062,7 +6062,7 @@ if ('onhashchange' in window) { <span id="L6610" class="LineNr"> 6610 </span> 89/<- %edx 4/r32/esp <span id="L6611" class="LineNr"> 6611 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L6612" class="LineNr"> 6612 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L6613" class="Folded"> 6613 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6613" class="Folded"> 6613 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6619" class="LineNr"> 6619 </span> <span class="subxComment"># check output</span> <span id="L6620" class="LineNr"> 6620 </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#L6586'>test-type-definition-with-array</a>: output should be empty"</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#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#L6586'>test-type-definition-with-array</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -6101,7 +6101,7 @@ if ('onhashchange' in window) { <span id="L6654" class="LineNr"> 6654 </span> 89/<- %edx 4/r32/esp <span id="L6655" class="LineNr"> 6655 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L6656" class="LineNr"> 6656 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L6657" class="Folded"> 6657 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6657" class="Folded"> 6657 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6663" class="LineNr"> 6663 </span> <span class="subxComment"># check output</span> <span id="L6664" class="LineNr"> 6664 </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#L6630'>test-type-definition-with-addr</a>: output should be empty"</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#L436'>_test-error-stream</a> <span class="Constant">"type t: 'addr' elements not allowed"</span> <span class="Constant">"F - <a href='mu.subx.html#L6630'>test-type-definition-with-addr</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -6133,7 +6133,7 @@ if ('onhashchange' in window) { <span id="L6691" class="LineNr"> 6691 </span> <span class="subxComment"># convert</span> <span id="L6692" class="LineNr"> 6692 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6693" class="LineNr"> 6693 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6694" class="Folded"> 6694 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6694" class="Folded"> 6694 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6700" class="LineNr"> 6700 </span> <span class="subxComment"># check output</span> <span id="L6701" class="LineNr"> 6701 </span> (<a href='../109stream-equal.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#L6674'>test-convert-function-with-local-var-with-user-defined-type</a>/0"</span>) <span id="L6702" class="LineNr"> 6702 </span> (<a href='../109stream-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>) @@ -6177,7 +6177,7 @@ if ('onhashchange' in window) { <span id="L6740" class="LineNr"> 6740 </span> <span class="subxComment"># convert</span> <span id="L6741" class="LineNr"> 6741 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6742" class="LineNr"> 6742 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6743" class="Folded"> 6743 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6743" class="Folded"> 6743 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6749" class="LineNr"> 6749 </span> <span class="subxComment"># check output</span> <span id="L6750" class="LineNr"> 6750 </span> (<a href='../109stream-equal.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#L6721'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/0"</span>) <span id="L6751" class="LineNr"> 6751 </span> (<a href='../109stream-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>) @@ -6221,7 +6221,7 @@ if ('onhashchange' in window) { <span id="L6789" class="LineNr"> 6789 </span> <span class="subxComment"># convert</span> <span id="L6790" class="LineNr"> 6790 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6791" class="LineNr"> 6791 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6792" class="Folded"> 6792 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6792" class="Folded"> 6792 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6798" class="LineNr"> 6798 </span> <span class="subxComment"># check output</span> <span id="L6799" class="LineNr"> 6799 </span> (<a href='../109stream-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#L6769'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) <span id="L6800" class="LineNr"> 6800 </span> (<a href='../109stream-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>) @@ -6278,7 +6278,7 @@ if ('onhashchange' in window) { <span id="L6851" class="LineNr"> 6851 </span> <span class="subxComment"># convert</span> <span id="L6852" class="LineNr"> 6852 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6853" class="LineNr"> 6853 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6854" class="Folded"> 6854 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6854" class="Folded"> 6854 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6860" class="LineNr"> 6860 </span> <span class="subxComment"># check output</span> <span id="L6861" class="LineNr"> 6861 </span> (<a href='../109stream-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#L6769'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) <span id="L6862" class="LineNr"> 6862 </span> (<a href='../109stream-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>) @@ -6339,7 +6339,7 @@ if ('onhashchange' in window) { <span id="L6917" class="LineNr"> 6917 </span> <span class="subxComment"># convert</span> <span id="L6918" class="LineNr"> 6918 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6919" class="LineNr"> 6919 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6920" class="Folded"> 6920 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6920" class="Folded"> 6920 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6926" class="LineNr"> 6926 </span> <span class="subxComment"># check output</span> <span id="L6927" class="LineNr"> 6927 </span> (<a href='../109stream-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#L6895'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/0"</span>) <span id="L6928" class="LineNr"> 6928 </span> (<a href='../109stream-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>) @@ -6405,7 +6405,7 @@ if ('onhashchange' in window) { <span id="L6988" class="LineNr"> 6988 </span> <span class="subxComment"># convert</span> <span id="L6989" class="LineNr"> 6989 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L6990" class="LineNr"> 6990 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6991" class="Folded"> 6991 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6991" class="Folded"> 6991 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L6997" class="LineNr"> 6997 </span> <span class="subxComment"># check output</span> <span id="L6998" class="LineNr"> 6998 </span> (<a href='../109stream-equal.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#L6970'>test-convert-get-on-local-variable</a>/0"</span>) <span id="L6999" class="LineNr"> 6999 </span> (<a href='../109stream-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>) @@ -6455,7 +6455,7 @@ if ('onhashchange' in window) { <span id="L7043" class="LineNr"> 7043 </span> <span class="subxComment"># convert</span> <span id="L7044" class="LineNr"> 7044 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L7045" class="LineNr"> 7045 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7046" class="Folded"> 7046 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7046" class="Folded"> 7046 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7052" class="LineNr"> 7052 </span> <span class="subxComment"># check output</span> <span id="L7053" class="LineNr"> 7053 </span> (<a href='../109stream-equal.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#L7026'>test-convert-get-on-function-argument</a>/0"</span>) <span id="L7054" class="LineNr"> 7054 </span> (<a href='../109stream-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>) @@ -6500,7 +6500,7 @@ if ('onhashchange' in window) { <span id="L7093" class="LineNr"> 7093 </span> <span class="subxComment"># convert</span> <span id="L7094" class="LineNr"> 7094 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L7095" class="LineNr"> 7095 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7096" class="Folded"> 7096 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7096" class="Folded"> 7096 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7102" class="LineNr"> 7102 </span> <span class="subxComment"># check output</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:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7076'>test-convert-get-on-function-argument-with-known-type</a>/0"</span>) <span id="L7104" class="LineNr"> 7104 </span> (<a href='../109stream-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>) @@ -6553,7 +6553,7 @@ if ('onhashchange' in window) { <span id="L7151" class="LineNr"> 7151 </span> 89/<- %edx 4/r32/esp <span id="L7152" class="LineNr"> 7152 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7153" class="LineNr"> 7153 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7154" class="Folded"> 7154 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7154" class="Folded"> 7154 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-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#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#L7126'>test-add-with-too-many-inouts</a>: output should be empty"</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#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#L7126'>test-add-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -6593,7 +6593,7 @@ if ('onhashchange' in window) { <span id="L7196" class="LineNr"> 7196 </span> 89/<- %edx 4/r32/esp <span id="L7197" class="LineNr"> 7197 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7198" class="LineNr"> 7198 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7199" class="Folded"> 7199 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7199" class="Folded"> 7199 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7205" class="LineNr"> 7205 </span> <span class="subxComment"># check output</span> <span id="L7206" class="LineNr"> 7206 </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#L7171'>test-add-with-too-many-inouts-2</a>: output should be empty"</span>) <span id="L7207" class="LineNr"> 7207 </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#L7171'>test-add-with-too-many-inouts-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -6635,7 +6635,7 @@ if ('onhashchange' in window) { <span id="L7243" class="LineNr"> 7243 </span> 89/<- %edx 4/r32/esp <span id="L7244" class="LineNr"> 7244 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7245" class="LineNr"> 7245 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7246" class="Folded"> 7246 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7246" class="Folded"> 7246 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7252" class="LineNr"> 7252 </span> <span class="subxComment"># check output</span> <span id="L7253" class="LineNr"> 7253 </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#L7216'>test-add-with-too-many-outputs</a>: output should be empty"</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#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#L7216'>test-add-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -6675,7 +6675,7 @@ if ('onhashchange' in window) { <span id="L7288" class="LineNr"> 7288 </span> 89/<- %edx 4/r32/esp <span id="L7289" class="LineNr"> 7289 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7290" class="LineNr"> 7290 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7291" class="Folded"> 7291 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7291" class="Folded"> 7291 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7297" class="LineNr"> 7297 </span> <span class="subxComment"># check output</span> <span id="L7298" class="LineNr"> 7298 </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#L7263'>test-add-with-non-number</a>: output should be empty"</span>) <span id="L7299" class="LineNr"> 7299 </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#L7263'>test-add-with-non-number</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -6737,7 +6737,7 @@ if ('onhashchange' in window) { <span id="L7355" class="LineNr"> 7355 </span> 89/<- %edx 4/r32/esp <span id="L7356" class="LineNr"> 7356 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7357" class="LineNr"> 7357 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7358" class="Folded"> 7358 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7358" class="Folded"> 7358 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7364" class="LineNr"> 7364 </span> <span class="subxComment"># check output</span> <span id="L7365" class="LineNr"> 7365 </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#L7331'>test-copy-with-no-inout</a>: output should be empty"</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#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#L7331'>test-copy-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -6776,7 +6776,7 @@ if ('onhashchange' in window) { <span id="L7399" class="LineNr"> 7399 </span> 89/<- %edx 4/r32/esp <span id="L7400" class="LineNr"> 7400 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7401" class="LineNr"> 7401 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7402" class="Folded"> 7402 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7402" class="Folded"> 7402 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7408" class="LineNr"> 7408 </span> <span class="subxComment"># check output</span> <span id="L7409" class="LineNr"> 7409 </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#L7375'>test-copy-with-multiple-inouts</a>: output should be empty"</span>) <span id="L7410" class="LineNr"> 7410 </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#L7375'>test-copy-with-multiple-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -6815,7 +6815,7 @@ if ('onhashchange' in window) { <span id="L7443" class="LineNr"> 7443 </span> 89/<- %edx 4/r32/esp <span id="L7444" class="LineNr"> 7444 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7445" class="LineNr"> 7445 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7446" class="Folded"> 7446 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7446" class="Folded"> 7446 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7452" class="LineNr"> 7452 </span> <span class="subxComment"># check output</span> <span id="L7453" class="LineNr"> 7453 </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#L7419'>test-copy-with-no-output</a>: output should be empty"</span>) <span id="L7454" class="LineNr"> 7454 </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#L7419'>test-copy-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -6856,7 +6856,7 @@ if ('onhashchange' in window) { <span id="L7489" class="LineNr"> 7489 </span> 89/<- %edx 4/r32/esp <span id="L7490" class="LineNr"> 7490 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7491" class="LineNr"> 7491 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7492" class="Folded"> 7492 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7492" class="Folded"> 7492 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7498" class="LineNr"> 7498 </span> <span class="subxComment"># check output</span> <span id="L7499" class="LineNr"> 7499 </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#L7463'>test-copy-with-multiple-outputs</a>: output should be empty"</span>) <span id="L7500" class="LineNr"> 7500 </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#L7463'>test-copy-with-multiple-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -6896,7 +6896,7 @@ if ('onhashchange' in window) { <span id="L7534" class="LineNr"> 7534 </span> 89/<- %edx 4/r32/esp <span id="L7535" class="LineNr"> 7535 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7536" class="LineNr"> 7536 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7537" class="Folded"> 7537 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7537" class="Folded"> 7537 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7543" class="LineNr"> 7543 </span> <span class="subxComment"># check output</span> <span id="L7544" class="LineNr"> 7544 </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#L7509'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) <span id="L7545" class="LineNr"> 7545 </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#L7509'>test-copy-invalid-value-to-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -6924,7 +6924,7 @@ if ('onhashchange' in window) { <span id="L7567" class="LineNr"> 7567 </span> <span class="subxComment"># convert</span> <span id="L7568" class="LineNr"> 7568 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L7569" class="LineNr"> 7569 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7570" class="Folded"> 7570 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7570" class="Folded"> 7570 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7576" class="LineNr"> 7576 </span> <span class="subxComment"># no errors</span> <span id="L7577" class="LineNr"> 7577 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L7578" class="LineNr"> 7578 </span> 89/<- %esp 5/r32/ebp @@ -6959,7 +6959,7 @@ if ('onhashchange' in window) { <span id="L7607" class="LineNr"> 7607 </span> 89/<- %edx 4/r32/esp <span id="L7608" class="LineNr"> 7608 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7609" class="LineNr"> 7609 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7610" class="Folded"> 7610 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7610" class="Folded"> 7610 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7616" class="LineNr"> 7616 </span> <span class="subxComment"># check output</span> <span id="L7617" class="LineNr"> 7617 </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#L7509'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) <span id="L7618" class="LineNr"> 7618 </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#L7509'>test-copy-invalid-value-to-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -6987,7 +6987,7 @@ if ('onhashchange' in window) { <span id="L7640" class="LineNr"> 7640 </span> <span class="subxComment"># convert</span> <span id="L7641" class="LineNr"> 7641 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L7642" class="LineNr"> 7642 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7643" class="Folded"> 7643 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7643" class="Folded"> 7643 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7649" class="LineNr"> 7649 </span> <span class="subxComment"># no errors</span> <span id="L7650" class="LineNr"> 7650 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L7651" class="LineNr"> 7651 </span> 89/<- %esp 5/r32/ebp @@ -7011,7 +7011,7 @@ if ('onhashchange' in window) { <span id="L7669" class="LineNr"> 7669 </span> <span class="subxComment"># convert</span> <span id="L7670" class="LineNr"> 7670 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L7671" class="LineNr"> 7671 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7672" class="Folded"> 7672 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7672" class="Folded"> 7672 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7678" class="LineNr"> 7678 </span> <span class="subxComment"># not bothering checking output</span> <span id="L7679" class="LineNr"> 7679 </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#L7655'>test-copy-deref-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L7680" class="LineNr"> 7680 </span> <span class="subxS1Comment"># . epilogue</span> @@ -7046,7 +7046,7 @@ if ('onhashchange' in window) { <span id="L7709" class="LineNr"> 7709 </span> 89/<- %edx 4/r32/esp <span id="L7710" class="LineNr"> 7710 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7711" class="LineNr"> 7711 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7712" class="Folded"> 7712 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7712" class="Folded"> 7712 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7718" class="LineNr"> 7718 </span> <span class="subxComment"># check output</span> <span id="L7719" class="LineNr"> 7719 </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#L7684'>test-copy-to-non-register</a>: output should be empty"</span>) <span id="L7720" class="LineNr"> 7720 </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#L7684'>test-copy-to-non-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7086,7 +7086,7 @@ if ('onhashchange' in window) { <span id="L7754" class="LineNr"> 7754 </span> 89/<- %edx 4/r32/esp <span id="L7755" class="LineNr"> 7755 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7756" class="LineNr"> 7756 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7757" class="Folded"> 7757 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7757" class="Folded"> 7757 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7763" class="LineNr"> 7763 </span> <span class="subxComment"># check output</span> <span id="L7764" class="LineNr"> 7764 </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#L7729'>test-copy-non-scalar</a>: output should be empty"</span>) <span id="L7765" class="LineNr"> 7765 </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#L7729'>test-copy-non-scalar</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7125,7 +7125,7 @@ if ('onhashchange' in window) { <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#L423'>_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#L462'>_test-error-buffered-file</a>) -<span id="L7801" class="Folded"> 7801 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<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#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7774'>test-copy-to-with-no-inout</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#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#L7774'>test-copy-to-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7165,7 +7165,7 @@ if ('onhashchange' in window) { <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#L423'>_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#L462'>_test-error-buffered-file</a>) -<span id="L7846" class="Folded"> 7846 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<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#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7818'>test-copy-to-with-no-input</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#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#L7818'>test-copy-to-with-no-input</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7205,7 +7205,7 @@ if ('onhashchange' in window) { <span id="L7888" class="LineNr"> 7888 </span> 89/<- %edx 4/r32/esp <span id="L7889" class="LineNr"> 7889 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7890" class="LineNr"> 7890 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7891" class="Folded"> 7891 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7891" class="Folded"> 7891 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7897" class="LineNr"> 7897 </span> <span class="subxComment"># check output</span> <span id="L7898" class="LineNr"> 7898 </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#L7863'>test-copy-to-with-no-register</a>: output should be empty"</span>) <span id="L7899" class="LineNr"> 7899 </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#L7863'>test-copy-to-with-no-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7245,7 +7245,7 @@ if ('onhashchange' in window) { <span id="L7933" class="LineNr"> 7933 </span> 89/<- %edx 4/r32/esp <span id="L7934" class="LineNr"> 7934 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7935" class="LineNr"> 7935 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7936" class="Folded"> 7936 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7936" class="Folded"> 7936 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7942" class="LineNr"> 7942 </span> <span class="subxComment"># check output</span> <span id="L7943" class="LineNr"> 7943 </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#L7908'>test-copy-to-with-too-many-inouts</a>: output should be empty"</span>) <span id="L7944" class="LineNr"> 7944 </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#L7908'>test-copy-to-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7286,7 +7286,7 @@ if ('onhashchange' in window) { <span id="L7979" class="LineNr"> 7979 </span> 89/<- %edx 4/r32/esp <span id="L7980" class="LineNr"> 7980 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L7981" class="LineNr"> 7981 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7982" class="Folded"> 7982 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7982" class="Folded"> 7982 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L7988" class="LineNr"> 7988 </span> <span class="subxComment"># check output</span> <span id="L7989" class="LineNr"> 7989 </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#L7953'>test-copy-to-with-output</a>: output should be empty"</span>) <span id="L7990" class="LineNr"> 7990 </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#L7953'>test-copy-to-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7327,7 +7327,7 @@ if ('onhashchange' in window) { <span id="L8025" class="LineNr"> 8025 </span> 89/<- %edx 4/r32/esp <span id="L8026" class="LineNr"> 8026 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8027" class="LineNr"> 8027 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8028" class="Folded"> 8028 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8028" class="Folded"> 8028 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8034" class="LineNr"> 8034 </span> <span class="subxComment"># check output</span> <span id="L8035" class="LineNr"> 8035 </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#L7999'>test-copy-to-invalid-value-to-address</a>: output should be empty"</span>) <span id="L8036" class="LineNr"> 8036 </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#L7999'>test-copy-to-invalid-value-to-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7357,7 +7357,7 @@ if ('onhashchange' in window) { <span id="L8060" class="LineNr"> 8060 </span> <span class="subxComment"># convert</span> <span id="L8061" class="LineNr"> 8061 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L8062" class="LineNr"> 8062 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8063" class="Folded"> 8063 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8063" class="Folded"> 8063 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8069" class="LineNr"> 8069 </span> <span class="subxComment"># not bothering checking output</span> <span id="L8070" class="LineNr"> 8070 </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#L8045'>test-copy-to-deref-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L8071" class="LineNr"> 8071 </span> <span class="subxS1Comment"># . epilogue</span> @@ -7393,7 +7393,7 @@ if ('onhashchange' in window) { <span id="L8101" class="LineNr"> 8101 </span> 89/<- %edx 4/r32/esp <span id="L8102" class="LineNr"> 8102 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8103" class="LineNr"> 8103 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8104" class="Folded"> 8104 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8104" class="Folded"> 8104 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8110" class="LineNr"> 8110 </span> <span class="subxComment"># check output</span> <span id="L8111" class="LineNr"> 8111 </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#L8075'>test-copy-to-non-scalar</a>: output should be empty"</span>) <span id="L8112" class="LineNr"> 8112 </span><span class="CommentedCode">#? (check-next-stream-line-equal _test-error-stream "fn foo: stmt copy-to: 'x' is too large to copy" "F - test-copy-to-non-scalar: error message")</span> @@ -7434,7 +7434,7 @@ if ('onhashchange' in window) { <span id="L8147" class="LineNr"> 8147 </span> 89/<- %edx 4/r32/esp <span id="L8148" class="LineNr"> 8148 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8149" class="LineNr"> 8149 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8150" class="Folded"> 8150 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8150" class="Folded"> 8150 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8156" class="LineNr"> 8156 </span> <span class="subxComment"># check output</span> <span id="L8157" class="LineNr"> 8157 </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#L8122'>test-compare-with-no-inout</a>: output should be empty"</span>) <span id="L8158" class="LineNr"> 8158 </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#L8122'>test-compare-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7474,7 +7474,7 @@ if ('onhashchange' in window) { <span id="L8192" class="LineNr"> 8192 </span> 89/<- %edx 4/r32/esp <span id="L8193" class="LineNr"> 8193 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8194" class="LineNr"> 8194 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8195" class="Folded"> 8195 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8195" class="Folded"> 8195 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8201" class="LineNr"> 8201 </span> <span class="subxComment"># check output</span> <span id="L8202" class="LineNr"> 8202 </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#L8167'>test-compare-with-no-input</a>: output should be empty"</span>) <span id="L8203" class="LineNr"> 8203 </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#L8167'>test-compare-with-no-input</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7514,7 +7514,7 @@ if ('onhashchange' in window) { <span id="L8237" class="LineNr"> 8237 </span> 89/<- %edx 4/r32/esp <span id="L8238" class="LineNr"> 8238 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8239" class="LineNr"> 8239 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8240" class="Folded"> 8240 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8240" class="Folded"> 8240 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8246" class="LineNr"> 8246 </span> <span class="subxComment"># check output</span> <span id="L8247" class="LineNr"> 8247 </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#L8212'>test-compare-with-too-many-inouts</a>: output should be empty"</span>) <span id="L8248" class="LineNr"> 8248 </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#L8212'>test-compare-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7555,7 +7555,7 @@ if ('onhashchange' in window) { <span id="L8283" class="LineNr"> 8283 </span> 89/<- %edx 4/r32/esp <span id="L8284" class="LineNr"> 8284 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8285" class="LineNr"> 8285 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8286" class="Folded"> 8286 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8286" class="Folded"> 8286 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8292" class="LineNr"> 8292 </span> <span class="subxComment"># check output</span> <span id="L8293" class="LineNr"> 8293 </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#L8257'>test-compare-with-output</a>: output should be empty"</span>) <span id="L8294" class="LineNr"> 8294 </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#L8257'>test-compare-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7596,7 +7596,7 @@ if ('onhashchange' in window) { <span id="L8329" class="LineNr"> 8329 </span> 89/<- %edx 4/r32/esp <span id="L8330" class="LineNr"> 8330 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8331" class="LineNr"> 8331 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8332" class="Folded"> 8332 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8332" class="Folded"> 8332 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8338" class="LineNr"> 8338 </span> <span class="subxComment"># check output</span> <span id="L8339" class="LineNr"> 8339 </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#L8303'>test-compare-invalid-value-to-address</a>: output should be empty"</span>) <span id="L8340" class="LineNr"> 8340 </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#L8303'>test-compare-invalid-value-to-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7626,7 +7626,7 @@ if ('onhashchange' in window) { <span id="L8364" class="LineNr"> 8364 </span> <span class="subxComment"># convert</span> <span id="L8365" class="LineNr"> 8365 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L8366" class="LineNr"> 8366 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8367" class="Folded"> 8367 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8367" class="Folded"> 8367 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8373" class="LineNr"> 8373 </span> <span class="subxComment"># not bothering checking output</span> <span id="L8374" class="LineNr"> 8374 </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#L8349'>test-compare-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L8375" class="LineNr"> 8375 </span> <span class="subxS1Comment"># . epilogue</span> @@ -7651,7 +7651,7 @@ if ('onhashchange' in window) { <span id="L8394" class="LineNr"> 8394 </span> <span class="subxComment"># convert</span> <span id="L8395" class="LineNr"> 8395 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L8396" class="LineNr"> 8396 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8397" class="Folded"> 8397 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8397" class="Folded"> 8397 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8403" class="LineNr"> 8403 </span> <span class="subxComment"># not bothering checking output</span> <span id="L8404" class="LineNr"> 8404 </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#L8379'>test-compare-deref-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L8405" class="LineNr"> 8405 </span> <span class="subxS1Comment"># . epilogue</span> @@ -7686,7 +7686,7 @@ if ('onhashchange' in window) { <span id="L8434" class="LineNr"> 8434 </span> 89/<- %edx 4/r32/esp <span id="L8435" class="LineNr"> 8435 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8436" class="LineNr"> 8436 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8437" class="Folded"> 8437 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8437" class="Folded"> 8437 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8443" class="LineNr"> 8443 </span> <span class="subxComment"># check output</span> <span id="L8444" class="LineNr"> 8444 </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#L8409'>test-compare-two-vars-in-memory</a>: output should be empty"</span>) <span id="L8445" class="LineNr"> 8445 </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#L8409'>test-compare-two-vars-in-memory</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7727,7 +7727,7 @@ if ('onhashchange' in window) { <span id="L8480" class="LineNr"> 8480 </span> 89/<- %edx 4/r32/esp <span id="L8481" class="LineNr"> 8481 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8482" class="LineNr"> 8482 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8483" class="Folded"> 8483 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8483" class="Folded"> 8483 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8489" class="LineNr"> 8489 </span> <span class="subxComment"># check output</span> <span id="L8490" class="LineNr"> 8490 </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#L8454'>test-compare-non-scalar</a>: output should be empty"</span>) <span id="L8491" class="LineNr"> 8491 </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> @@ -7767,7 +7767,7 @@ if ('onhashchange' in window) { <span id="L8525" class="LineNr"> 8525 </span> 89/<- %edx 4/r32/esp <span id="L8526" class="LineNr"> 8526 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8527" class="LineNr"> 8527 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8528" class="Folded"> 8528 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8528" class="Folded"> 8528 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8534" class="LineNr"> 8534 </span> <span class="subxComment"># check output</span> <span id="L8535" class="LineNr"> 8535 </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#L8501'>test-address-with-no-inout</a>: output should be empty"</span>) <span id="L8536" class="LineNr"> 8536 </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#L8501'>test-address-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7806,7 +7806,7 @@ if ('onhashchange' in window) { <span id="L8569" class="LineNr"> 8569 </span> 89/<- %edx 4/r32/esp <span id="L8570" class="LineNr"> 8570 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8571" class="LineNr"> 8571 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8572" class="Folded"> 8572 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8572" class="Folded"> 8572 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8578" class="LineNr"> 8578 </span> <span class="subxComment"># check output</span> <span id="L8579" class="LineNr"> 8579 </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#L8545'>test-address-with-multiple-inouts</a>: output should be empty"</span>) <span id="L8580" class="LineNr"> 8580 </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#L8545'>test-address-with-multiple-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7845,7 +7845,7 @@ if ('onhashchange' in window) { <span id="L8613" class="LineNr"> 8613 </span> 89/<- %edx 4/r32/esp <span id="L8614" class="LineNr"> 8614 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8615" class="LineNr"> 8615 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8616" class="Folded"> 8616 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8616" class="Folded"> 8616 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8622" class="LineNr"> 8622 </span> <span class="subxComment"># check output</span> <span id="L8623" class="LineNr"> 8623 </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#L8589'>test-address-with-no-output</a>: output should be empty"</span>) <span id="L8624" class="LineNr"> 8624 </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#L8589'>test-address-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7886,7 +7886,7 @@ if ('onhashchange' in window) { <span id="L8659" class="LineNr"> 8659 </span> 89/<- %edx 4/r32/esp <span id="L8660" class="LineNr"> 8660 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8661" class="LineNr"> 8661 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8662" class="Folded"> 8662 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8662" class="Folded"> 8662 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8668" class="LineNr"> 8668 </span> <span class="subxComment"># check output</span> <span id="L8669" class="LineNr"> 8669 </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#L8633'>test-address-with-multiple-outputs</a>: output should be empty"</span>) <span id="L8670" class="LineNr"> 8670 </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#L8633'>test-address-with-multiple-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7916,7 +7916,7 @@ if ('onhashchange' in window) { <span id="L8694" class="LineNr"> 8694 </span> <span class="subxComment"># convert</span> <span id="L8695" class="LineNr"> 8695 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L8696" class="LineNr"> 8696 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8697" class="Folded"> 8697 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8697" class="Folded"> 8697 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8703" class="LineNr"> 8703 </span> <span class="subxComment"># not bothering checking output</span> <span id="L8704" class="LineNr"> 8704 </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#L8680'>test-address-of-deref</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L8705" class="LineNr"> 8705 </span> <span class="subxS1Comment"># . epilogue</span> @@ -7951,7 +7951,7 @@ if ('onhashchange' in window) { <span id="L8734" class="LineNr"> 8734 </span> 89/<- %edx 4/r32/esp <span id="L8735" class="LineNr"> 8735 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8736" class="LineNr"> 8736 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8737" class="Folded"> 8737 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8737" class="Folded"> 8737 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8743" class="LineNr"> 8743 </span> <span class="subxComment"># check output</span> <span id="L8744" class="LineNr"> 8744 </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#L8709'>test-address-to-non-register</a>: output should be empty"</span>) <span id="L8745" class="LineNr"> 8745 </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#L8709'>test-address-to-non-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -7991,7 +7991,7 @@ if ('onhashchange' in window) { <span id="L8779" class="LineNr"> 8779 </span> 89/<- %edx 4/r32/esp <span id="L8780" class="LineNr"> 8780 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8781" class="LineNr"> 8781 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8782" class="Folded"> 8782 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8782" class="Folded"> 8782 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8788" class="LineNr"> 8788 </span> <span class="subxComment"># check output</span> <span id="L8789" class="LineNr"> 8789 </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#L8754'>test-address-with-wrong-type</a>: output should be empty"</span>) <span id="L8790" class="LineNr"> 8790 </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#L8754'>test-address-with-wrong-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8020,7 +8020,7 @@ if ('onhashchange' in window) { <span id="L8813" class="LineNr"> 8813 </span> <span class="subxComment"># convert</span> <span id="L8814" class="LineNr"> 8814 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L8815" class="LineNr"> 8815 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8816" class="Folded"> 8816 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<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"># no error</span> <span id="L8823" class="LineNr"> 8823 </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#L8799'>test-address-with-right-type-for-array</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L8824" class="LineNr"> 8824 </span> <span class="subxComment"># don't bother checking output</span> @@ -8046,7 +8046,7 @@ if ('onhashchange' in window) { <span id="L8844" class="LineNr"> 8844 </span> <span class="subxComment"># convert</span> <span id="L8845" class="LineNr"> 8845 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L8846" class="LineNr"> 8846 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8847" class="Folded"> 8847 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8847" class="Folded"> 8847 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8853" class="LineNr"> 8853 </span> <span class="subxComment"># no error</span> <span id="L8854" class="LineNr"> 8854 </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#L8830'>test-address-with-right-type-for-stream</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L8855" class="LineNr"> 8855 </span> <span class="subxComment"># don't bother checking output</span> @@ -8086,7 +8086,7 @@ if ('onhashchange' in window) { <span id="L8889" class="LineNr"> 8889 </span> 89/<- %edx 4/r32/esp <span id="L8890" class="LineNr"> 8890 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8891" class="LineNr"> 8891 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8892" class="Folded"> 8892 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8892" class="Folded"> 8892 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8898" class="LineNr"> 8898 </span> <span class="subxComment"># check output</span> <span id="L8899" class="LineNr"> 8899 </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#L8861'>test-get-with-wrong-field</a>: output should be empty"</span>) <span id="L8900" class="LineNr"> 8900 </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#L8861'>test-get-with-wrong-field</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8126,7 +8126,7 @@ if ('onhashchange' in window) { <span id="L8934" class="LineNr"> 8934 </span> 89/<- %edx 4/r32/esp <span id="L8935" class="LineNr"> 8935 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8936" class="LineNr"> 8936 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8937" class="Folded"> 8937 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8937" class="Folded"> 8937 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8943" class="LineNr"> 8943 </span> <span class="subxComment"># check output</span> <span id="L8944" class="LineNr"> 8944 </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#L8909'>test-get-with-wrong-base-type</a>: output should be empty"</span>) <span id="L8945" class="LineNr"> 8945 </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#L8909'>test-get-with-wrong-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8169,7 +8169,7 @@ if ('onhashchange' in window) { <span id="L8982" class="LineNr"> 8982 </span> 89/<- %edx 4/r32/esp <span id="L8983" class="LineNr"> 8983 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L8984" class="LineNr"> 8984 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8985" class="Folded"> 8985 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8985" class="Folded"> 8985 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L8991" class="LineNr"> 8991 </span> <span class="subxComment"># check output</span> <span id="L8992" class="LineNr"> 8992 </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#L8954'>test-get-with-wrong-base-type-2</a>: output should be empty"</span>) <span id="L8993" class="LineNr"> 8993 </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#L8954'>test-get-with-wrong-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8209,7 +8209,7 @@ if ('onhashchange' in window) { <span id="L9027" class="LineNr"> 9027 </span> 89/<- %edx 4/r32/esp <span id="L9028" class="LineNr"> 9028 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L9029" class="LineNr"> 9029 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9030" class="Folded"> 9030 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9030" class="Folded"> 9030 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9036" class="LineNr"> 9036 </span> <span class="subxComment"># check output</span> <span id="L9037" class="LineNr"> 9037 </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#L9002'>test-get-with-wrong-base-type-3</a>: output should be empty"</span>) <span id="L9038" class="LineNr"> 9038 </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#L9002'>test-get-with-wrong-base-type-3</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8253,7 +8253,7 @@ if ('onhashchange' in window) { <span id="L9076" class="LineNr"> 9076 </span> 89/<- %edx 4/r32/esp <span id="L9077" class="LineNr"> 9077 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L9078" class="LineNr"> 9078 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9079" class="Folded"> 9079 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9079" class="Folded"> 9079 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9085" class="LineNr"> 9085 </span> <span class="subxComment"># check output</span> <span id="L9086" class="LineNr"> 9086 </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#L9047'>test-get-with-wrong-offset-type</a>: output should be empty"</span>) <span id="L9087" class="LineNr"> 9087 </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#L9047'>test-get-with-wrong-offset-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8297,7 +8297,7 @@ if ('onhashchange' in window) { <span id="L9125" class="LineNr"> 9125 </span> 89/<- %edx 4/r32/esp <span id="L9126" class="LineNr"> 9126 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L9127" class="LineNr"> 9127 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9128" class="Folded"> 9128 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9128" class="Folded"> 9128 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9134" class="LineNr"> 9134 </span> <span class="subxComment"># check output</span> <span id="L9135" class="LineNr"> 9135 </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#L9096'>test-get-with-wrong-output-type</a>: output should be empty"</span>) <span id="L9136" class="LineNr"> 9136 </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#L9096'>test-get-with-wrong-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8340,7 +8340,7 @@ if ('onhashchange' in window) { <span id="L9173" class="LineNr"> 9173 </span> 89/<- %edx 4/r32/esp <span id="L9174" class="LineNr"> 9174 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L9175" class="LineNr"> 9175 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9176" class="Folded"> 9176 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9176" class="Folded"> 9176 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9182" class="LineNr"> 9182 </span> <span class="subxComment"># check output</span> <span id="L9183" class="LineNr"> 9183 </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#L9145'>test-get-with-wrong-output-type-2</a>: output should be empty"</span>) <span id="L9184" class="LineNr"> 9184 </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#L9145'>test-get-with-wrong-output-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8383,7 +8383,7 @@ if ('onhashchange' in window) { <span id="L9221" class="LineNr"> 9221 </span> 89/<- %edx 4/r32/esp <span id="L9222" class="LineNr"> 9222 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L9223" class="LineNr"> 9223 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9224" class="Folded"> 9224 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9224" class="Folded"> 9224 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9230" class="LineNr"> 9230 </span> <span class="subxComment"># check output</span> <span id="L9231" class="LineNr"> 9231 </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#L9193'>test-get-with-wrong-output-type-3</a>: output should be empty"</span>) <span id="L9232" class="LineNr"> 9232 </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#L9193'>test-get-with-wrong-output-type-3</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8426,7 +8426,7 @@ if ('onhashchange' in window) { <span id="L9269" class="LineNr"> 9269 </span> 89/<- %edx 4/r32/esp <span id="L9270" class="LineNr"> 9270 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L9271" class="LineNr"> 9271 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9272" class="Folded"> 9272 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9272" class="Folded"> 9272 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9278" class="LineNr"> 9278 </span> <span class="subxComment"># check output</span> <span id="L9279" class="LineNr"> 9279 </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#L9241'>test-get-with-wrong-output-type-4</a>: output should be empty"</span>) <span id="L9280" class="LineNr"> 9280 </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#L9241'>test-get-with-wrong-output-type-4</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8495,7 +8495,7 @@ if ('onhashchange' in window) { <span id="L9343" class="LineNr"> 9343 </span> 89/<- %edx 4/r32/esp <span id="L9344" class="LineNr"> 9344 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L9345" class="LineNr"> 9345 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9346" class="Folded"> 9346 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9346" class="Folded"> 9346 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9352" class="LineNr"> 9352 </span> <span class="subxComment"># check output</span> <span id="L9353" class="LineNr"> 9353 </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#L9315'>test-get-with-too-few-inouts</a>: output should be empty"</span>) <span id="L9354" class="LineNr"> 9354 </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#L9315'>test-get-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8538,7 +8538,7 @@ if ('onhashchange' in window) { <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#L423'>_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#L462'>_test-error-buffered-file</a>) -<span id="L9394" class="Folded"> 9394 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<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#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9363'>test-get-with-too-many-inouts</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#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#L9363'>test-get-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8581,7 +8581,7 @@ if ('onhashchange' in window) { <span id="L9439" class="LineNr"> 9439 </span> 89/<- %edx 4/r32/esp <span id="L9440" class="LineNr"> 9440 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L9441" class="LineNr"> 9441 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9442" class="Folded"> 9442 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9442" class="Folded"> 9442 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9448" class="LineNr"> 9448 </span> <span class="subxComment"># check output</span> <span id="L9449" class="LineNr"> 9449 </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#L9411'>test-get-with-no-output</a>: output should be empty"</span>) <span id="L9450" class="LineNr"> 9450 </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#L9411'>test-get-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8626,7 +8626,7 @@ if ('onhashchange' in window) { <span id="L9489" class="LineNr"> 9489 </span> 89/<- %edx 4/r32/esp <span id="L9490" class="LineNr"> 9490 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L9491" class="LineNr"> 9491 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9492" class="Folded"> 9492 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9492" class="Folded"> 9492 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9498" class="LineNr"> 9498 </span> <span class="subxComment"># check output</span> <span id="L9499" class="LineNr"> 9499 </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#L9459'>test-get-with-too-many-outputs</a>: output should be empty"</span>) <span id="L9500" class="LineNr"> 9500 </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#L9459'>test-get-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8660,7 +8660,7 @@ if ('onhashchange' in window) { <span id="L9528" class="LineNr"> 9528 </span> <span class="subxComment"># convert</span> <span id="L9529" class="LineNr"> 9529 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L9530" class="LineNr"> 9530 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9531" class="Folded"> 9531 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9531" class="Folded"> 9531 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-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#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#L9509'>test-convert-array-of-user-defined-types</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/1"</span>) @@ -8709,7 +8709,7 @@ if ('onhashchange' in window) { <span id="L9582" class="LineNr"> 9582 </span> <span class="subxComment"># convert</span> <span id="L9583" class="LineNr"> 9583 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L9584" class="LineNr"> 9584 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9585" class="Folded"> 9585 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9585" class="Folded"> 9585 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9591" class="LineNr"> 9591 </span> <span class="subxComment"># check output</span> <span id="L9592" class="LineNr"> 9592 </span> (<a href='../109stream-equal.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#L9563'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/0"</span>) <span id="L9593" class="LineNr"> 9593 </span> (<a href='../109stream-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>) @@ -8765,7 +8765,7 @@ if ('onhashchange' in window) { <span id="L9643" class="LineNr"> 9643 </span> <span class="subxComment"># convert</span> <span id="L9644" class="LineNr"> 9644 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L9645" class="LineNr"> 9645 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9646" class="Folded"> 9646 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9646" class="Folded"> 9646 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9652" class="LineNr"> 9652 </span> <span class="subxComment"># check output</span> <span id="L9653" class="LineNr"> 9653 </span> (<a href='../109stream-equal.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#L9624'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/0"</span>) <span id="L9654" class="LineNr"> 9654 </span> (<a href='../109stream-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>) @@ -8826,7 +8826,7 @@ if ('onhashchange' in window) { <span id="L9709" class="LineNr"> 9709 </span> <span class="subxComment"># convert</span> <span id="L9710" class="LineNr"> 9710 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L9711" class="LineNr"> 9711 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9712" class="Folded"> 9712 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9712" class="Folded"> 9712 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9718" class="LineNr"> 9718 </span> <span class="subxComment"># check output</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#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L9690'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/0"</span>) <span id="L9720" class="LineNr"> 9720 </span> (<a href='../109stream-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>) @@ -8887,7 +8887,7 @@ if ('onhashchange' in window) { <span id="L9775" class="LineNr"> 9775 </span> <span class="subxComment"># convert</span> <span id="L9776" class="LineNr"> 9776 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L9777" class="LineNr"> 9777 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9778" class="Folded"> 9778 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9778" class="Folded"> 9778 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9784" class="LineNr"> 9784 </span> <span class="subxComment"># check output</span> <span id="L9785" class="LineNr"> 9785 </span> (<a href='../109stream-equal.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#L9756'>test-convert-length-of-array-of-user-defined-types</a>/0"</span>) <span id="L9786" class="LineNr"> 9786 </span> (<a href='../109stream-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>) @@ -8950,7 +8950,7 @@ if ('onhashchange' in window) { <span id="L9843" class="LineNr"> 9843 </span> 89/<- %edx 4/r32/esp <span id="L9844" class="LineNr"> 9844 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L9845" class="LineNr"> 9845 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9846" class="Folded"> 9846 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9846" class="Folded"> 9846 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9852" class="LineNr"> 9852 </span> <span class="subxComment"># check output</span> <span id="L9853" class="LineNr"> 9853 </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#L9818'>test-index-with-non-array-atom-base-type</a>: output should be empty"</span>) <span id="L9854" class="LineNr"> 9854 </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#L9818'>test-index-with-non-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -8990,7 +8990,7 @@ if ('onhashchange' in window) { <span id="L9888" class="LineNr"> 9888 </span> 89/<- %edx 4/r32/esp <span id="L9889" class="LineNr"> 9889 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L9890" class="LineNr"> 9890 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9891" class="Folded"> 9891 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9891" class="Folded"> 9891 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9897" class="LineNr"> 9897 </span> <span class="subxComment"># check output</span> <span id="L9898" class="LineNr"> 9898 </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#L9863'>test-index-with-non-array-compound-base-type</a>: output should be empty"</span>) <span id="L9899" class="LineNr"> 9899 </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#L9863'>test-index-with-non-array-compound-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9030,7 +9030,7 @@ if ('onhashchange' in window) { <span id="L9933" class="LineNr"> 9933 </span> 89/<- %edx 4/r32/esp <span id="L9934" class="LineNr"> 9934 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L9935" class="LineNr"> 9935 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9936" class="Folded"> 9936 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9936" class="Folded"> 9936 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9942" class="LineNr"> 9942 </span> <span class="subxComment"># check output</span> <span id="L9943" class="LineNr"> 9943 </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#L9908'>test-index-with-non-array-compound-base-type-2</a>: output should be empty"</span>) <span id="L9944" class="LineNr"> 9944 </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#L9908'>test-index-with-non-array-compound-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9070,7 +9070,7 @@ if ('onhashchange' in window) { <span id="L9978" class="LineNr"> 9978 </span> 89/<- %edx 4/r32/esp <span id="L9979" class="LineNr"> 9979 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L9980" class="LineNr"> 9980 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9981" class="Folded"> 9981 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9981" class="Folded"> 9981 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L9987" class="LineNr"> 9987 </span> <span class="subxComment"># check output</span> <span id="L9988" class="LineNr"> 9988 </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#L9953'>test-index-with-array-atom-base-type</a>: output should be empty"</span>) <span id="L9989" class="LineNr"> 9989 </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#L9953'>test-index-with-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9110,7 +9110,7 @@ if ('onhashchange' in window) { <span id="L10023" class="LineNr">10023 </span> 89/<- %edx 4/r32/esp <span id="L10024" class="LineNr">10024 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10025" class="LineNr">10025 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10026" class="Folded">10026 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10026" class="Folded">10026 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10032" class="LineNr">10032 </span> <span class="subxComment"># check output</span> <span id="L10033" class="LineNr">10033 </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#L9998'>test-index-with-addr-base-on-stack</a>: output should be empty"</span>) <span id="L10034" class="LineNr">10034 </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#L9998'>test-index-with-addr-base-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9151,7 +9151,7 @@ if ('onhashchange' in window) { <span id="L10069" class="LineNr">10069 </span> 89/<- %edx 4/r32/esp <span id="L10070" class="LineNr">10070 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10071" class="LineNr">10071 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10072" class="Folded">10072 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10072" class="Folded">10072 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10078" class="LineNr">10078 </span> <span class="subxComment"># check output</span> <span id="L10079" class="LineNr">10079 </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#L10043'>test-index-with-wrong-index-type</a>: output should be empty"</span>) <span id="L10080" class="LineNr">10080 </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#L10043'>test-index-with-wrong-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9192,7 +9192,7 @@ if ('onhashchange' in window) { <span id="L10115" class="LineNr">10115 </span> 89/<- %edx 4/r32/esp <span id="L10116" class="LineNr">10116 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10117" class="LineNr">10117 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10118" class="Folded">10118 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10118" class="Folded">10118 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10124" class="LineNr">10124 </span> <span class="subxComment"># check output</span> <span id="L10125" class="LineNr">10125 </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#L10089'>test-index-with-offset-atom-index-type</a>: output should be empty"</span>) <span id="L10126" class="LineNr">10126 </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#L10089'>test-index-with-offset-atom-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9233,7 +9233,7 @@ if ('onhashchange' in window) { <span id="L10161" class="LineNr">10161 </span> 89/<- %edx 4/r32/esp <span id="L10162" class="LineNr">10162 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10163" class="LineNr">10163 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10164" class="Folded">10164 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10164" class="Folded">10164 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10170" class="LineNr">10170 </span> <span class="subxComment"># check output</span> <span id="L10171" class="LineNr">10171 </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#L10135'>test-index-with-offset-on-stack</a>: output should be empty"</span>) <span id="L10172" class="LineNr">10172 </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#L10135'>test-index-with-offset-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9279,7 +9279,7 @@ if ('onhashchange' in window) { <span id="L10212" class="LineNr">10212 </span> 89/<- %edx 4/r32/esp <span id="L10213" class="LineNr">10213 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10214" class="LineNr">10214 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10215" class="Folded">10215 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10215" class="Folded">10215 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10221" class="LineNr">10221 </span> <span class="subxComment"># check output</span> <span id="L10222" class="LineNr">10222 </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#L10181'>test-index-needs-offset-type</a>: output should be empty"</span>) <span id="L10223" class="LineNr">10223 </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#L10181'>test-index-needs-offset-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9319,7 +9319,7 @@ if ('onhashchange' in window) { <span id="L10257" class="LineNr">10257 </span> 89/<- %edx 4/r32/esp <span id="L10258" class="LineNr">10258 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10259" class="LineNr">10259 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10260" class="Folded">10260 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10260" class="Folded">10260 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10266" class="LineNr">10266 </span> <span class="subxComment"># check output</span> <span id="L10267" class="LineNr">10267 </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#L10232'>test-index-with-output-not-address</a>: output should be empty"</span>) <span id="L10268" class="LineNr">10268 </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#L10232'>test-index-with-output-not-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9359,7 +9359,7 @@ if ('onhashchange' in window) { <span id="L10302" class="LineNr">10302 </span> 89/<- %edx 4/r32/esp <span id="L10303" class="LineNr">10303 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10304" class="LineNr">10304 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10305" class="Folded">10305 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10305" class="Folded">10305 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10311" class="LineNr">10311 </span> <span class="subxComment"># check output</span> <span id="L10312" class="LineNr">10312 </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#L10277'>test-index-with-output-not-address-2</a>: output should be empty"</span>) <span id="L10313" class="LineNr">10313 </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#L10277'>test-index-with-output-not-address-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9399,7 +9399,7 @@ if ('onhashchange' in window) { <span id="L10347" class="LineNr">10347 </span> 89/<- %edx 4/r32/esp <span id="L10348" class="LineNr">10348 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10349" class="LineNr">10349 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10350" class="Folded">10350 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10350" class="Folded">10350 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10356" class="LineNr">10356 </span> <span class="subxComment"># check output</span> <span id="L10357" class="LineNr">10357 </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#L10322'>test-index-with-wrong-output-type</a>: output should be empty"</span>) <span id="L10358" class="LineNr">10358 </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#L10322'>test-index-with-wrong-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9439,7 +9439,7 @@ if ('onhashchange' in window) { <span id="L10392" class="LineNr">10392 </span> 89/<- %edx 4/r32/esp <span id="L10393" class="LineNr">10393 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10394" class="LineNr">10394 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10395" class="Folded">10395 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10395" class="Folded">10395 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10401" class="LineNr">10401 </span> <span class="subxComment"># check output</span> <span id="L10402" class="LineNr">10402 </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#L10367'>test-index-with-wrong-output-compound-type</a>: output should be empty"</span>) <span id="L10403" class="LineNr">10403 </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#L10367'>test-index-with-wrong-output-compound-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9478,7 +9478,7 @@ if ('onhashchange' in window) { <span id="L10436" class="LineNr">10436 </span> 89/<- %edx 4/r32/esp <span id="L10437" class="LineNr">10437 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10438" class="LineNr">10438 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10439" class="Folded">10439 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10439" class="Folded">10439 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10445" class="LineNr">10445 </span> <span class="subxComment"># check output</span> <span id="L10446" class="LineNr">10446 </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#L10412'>test-index-with-no-inouts</a>: output should be empty"</span>) <span id="L10447" class="LineNr">10447 </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#L10412'>test-index-with-no-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9518,7 +9518,7 @@ if ('onhashchange' in window) { <span id="L10481" class="LineNr">10481 </span> 89/<- %edx 4/r32/esp <span id="L10482" class="LineNr">10482 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10483" class="LineNr">10483 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10484" class="Folded">10484 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10484" class="Folded">10484 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10490" class="LineNr">10490 </span> <span class="subxComment"># check output</span> <span id="L10491" class="LineNr">10491 </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#L10456'>test-index-with-too-few-inouts</a>: output should be empty"</span>) <span id="L10492" class="LineNr">10492 </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#L10456'>test-index-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9558,7 +9558,7 @@ if ('onhashchange' in window) { <span id="L10526" class="LineNr">10526 </span> 89/<- %edx 4/r32/esp <span id="L10527" class="LineNr">10527 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10528" class="LineNr">10528 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10529" class="Folded">10529 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10529" class="Folded">10529 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10535" class="LineNr">10535 </span> <span class="subxComment"># check output</span> <span id="L10536" class="LineNr">10536 </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#L10501'>test-index-with-too-many-inouts</a>: output should be empty"</span>) <span id="L10537" class="LineNr">10537 </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#L10501'>test-index-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9598,7 +9598,7 @@ if ('onhashchange' in window) { <span id="L10571" class="LineNr">10571 </span> 89/<- %edx 4/r32/esp <span id="L10572" class="LineNr">10572 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10573" class="LineNr">10573 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10574" class="Folded">10574 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10574" class="Folded">10574 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10580" class="LineNr">10580 </span> <span class="subxComment"># check output</span> <span id="L10581" class="LineNr">10581 </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#L10546'>test-index-with-no-output</a>: output should be empty"</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#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#L10546'>test-index-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9640,7 +9640,7 @@ if ('onhashchange' in window) { <span id="L10618" class="LineNr">10618 </span> 89/<- %edx 4/r32/esp <span id="L10619" class="LineNr">10619 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10620" class="LineNr">10620 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10621" class="Folded">10621 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10621" class="Folded">10621 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10627" class="LineNr">10627 </span> <span class="subxComment"># check output</span> <span id="L10628" class="LineNr">10628 </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#L10591'>test-index-with-too-many-outputs</a>: output should be empty"</span>) <span id="L10629" class="LineNr">10629 </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#L10591'>test-index-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9680,7 +9680,7 @@ if ('onhashchange' in window) { <span id="L10663" class="LineNr">10663 </span> 89/<- %edx 4/r32/esp <span id="L10664" class="LineNr">10664 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10665" class="LineNr">10665 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10666" class="Folded">10666 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10666" class="Folded">10666 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10672" class="LineNr">10672 </span> <span class="subxComment"># check output</span> <span id="L10673" class="LineNr">10673 </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#L10638'>test-compute-offset-with-non-array-atom-base-type</a>: output should be empty"</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#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#L10638'>test-compute-offset-with-non-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9720,7 +9720,7 @@ if ('onhashchange' in window) { <span id="L10708" class="LineNr">10708 </span> 89/<- %edx 4/r32/esp <span id="L10709" class="LineNr">10709 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10710" class="LineNr">10710 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10711" class="Folded">10711 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10711" class="Folded">10711 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10717" class="LineNr">10717 </span> <span class="subxComment"># check output</span> <span id="L10718" class="LineNr">10718 </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#L10683'>test-compute-offset-with-non-array-compound-base-type</a>: output should be empty"</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#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#L10683'>test-compute-offset-with-non-array-compound-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9760,7 +9760,7 @@ if ('onhashchange' in window) { <span id="L10753" class="LineNr">10753 </span> 89/<- %edx 4/r32/esp <span id="L10754" class="LineNr">10754 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10755" class="LineNr">10755 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10756" class="Folded">10756 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10756" class="Folded">10756 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10762" class="LineNr">10762 </span> <span class="subxComment"># check output</span> <span id="L10763" class="LineNr">10763 </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#L10728'>test-compute-offset-with-non-array-compound-base-type-2</a>: output should be empty"</span>) <span id="L10764" class="LineNr">10764 </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#L10728'>test-compute-offset-with-non-array-compound-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9800,7 +9800,7 @@ if ('onhashchange' in window) { <span id="L10798" class="LineNr">10798 </span> 89/<- %edx 4/r32/esp <span id="L10799" class="LineNr">10799 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10800" class="LineNr">10800 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10801" class="Folded">10801 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10801" class="Folded">10801 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10807" class="LineNr">10807 </span> <span class="subxComment"># check output</span> <span id="L10808" class="LineNr">10808 </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#L10773'>test-compute-offset-with-array-atom-base-type</a>: output should be empty"</span>) <span id="L10809" class="LineNr">10809 </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#L10773'>test-compute-offset-with-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9841,7 +9841,7 @@ if ('onhashchange' in window) { <span id="L10844" class="LineNr">10844 </span> 89/<- %edx 4/r32/esp <span id="L10845" class="LineNr">10845 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10846" class="LineNr">10846 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10847" class="Folded">10847 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10847" class="Folded">10847 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10853" class="LineNr">10853 </span> <span class="subxComment"># check output</span> <span id="L10854" class="LineNr">10854 </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#L10818'>test-compute-offset-with-wrong-index-type</a>: output should be empty"</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#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#L10818'>test-compute-offset-with-wrong-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9881,7 +9881,7 @@ if ('onhashchange' in window) { <span id="L10889" class="LineNr">10889 </span> 89/<- %edx 4/r32/esp <span id="L10890" class="LineNr">10890 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10891" class="LineNr">10891 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10892" class="Folded">10892 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10892" class="Folded">10892 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10898" class="LineNr">10898 </span> <span class="subxComment"># check output</span> <span id="L10899" class="LineNr">10899 </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#L10864'>test-compute-offset-with-output-not-offset</a>: output should be empty"</span>) <span id="L10900" class="LineNr">10900 </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#L10864'>test-compute-offset-with-output-not-offset</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9921,7 +9921,7 @@ if ('onhashchange' in window) { <span id="L10934" class="LineNr">10934 </span> 89/<- %edx 4/r32/esp <span id="L10935" class="LineNr">10935 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10936" class="LineNr">10936 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10937" class="Folded">10937 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10937" class="Folded">10937 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10943" class="LineNr">10943 </span> <span class="subxComment"># check output</span> <span id="L10944" class="LineNr">10944 </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#L10909'>test-compute-offset-with-output-not-address-2</a>: output should be empty"</span>) <span id="L10945" class="LineNr">10945 </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#L10909'>test-compute-offset-with-output-not-address-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -9961,7 +9961,7 @@ if ('onhashchange' in window) { <span id="L10979" class="LineNr">10979 </span> 89/<- %edx 4/r32/esp <span id="L10980" class="LineNr">10980 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L10981" class="LineNr">10981 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10982" class="Folded">10982 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10982" class="Folded">10982 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L10988" class="LineNr">10988 </span> <span class="subxComment"># check output</span> <span id="L10989" class="LineNr">10989 </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#L10954'>test-compute-offset-with-wrong-output-type</a>: output should be empty"</span>) <span id="L10990" class="LineNr">10990 </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#L10954'>test-compute-offset-with-wrong-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10001,7 +10001,7 @@ if ('onhashchange' in window) { <span id="L11024" class="LineNr">11024 </span> 89/<- %edx 4/r32/esp <span id="L11025" class="LineNr">11025 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11026" class="LineNr">11026 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11027" class="Folded">11027 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11027" class="Folded">11027 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11033" class="LineNr">11033 </span> <span class="subxComment"># check output</span> <span id="L11034" class="LineNr">11034 </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#L10999'>test-compute-offset-with-wrong-output-compound-type</a>: output should be empty"</span>) <span id="L11035" class="LineNr">11035 </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#L10999'>test-compute-offset-with-wrong-output-compound-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10040,7 +10040,7 @@ if ('onhashchange' in window) { <span id="L11068" class="LineNr">11068 </span> 89/<- %edx 4/r32/esp <span id="L11069" class="LineNr">11069 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11070" class="LineNr">11070 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11071" class="Folded">11071 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11071" class="Folded">11071 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11077" class="LineNr">11077 </span> <span class="subxComment"># check output</span> <span id="L11078" class="LineNr">11078 </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#L11044'>test-compute-offset-with-no-inouts</a>: output should be empty"</span>) <span id="L11079" class="LineNr">11079 </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#L11044'>test-compute-offset-with-no-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10080,7 +10080,7 @@ if ('onhashchange' in window) { <span id="L11113" class="LineNr">11113 </span> 89/<- %edx 4/r32/esp <span id="L11114" class="LineNr">11114 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11115" class="LineNr">11115 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11116" class="Folded">11116 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11116" class="Folded">11116 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11122" class="LineNr">11122 </span> <span class="subxComment"># check output</span> <span id="L11123" class="LineNr">11123 </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#L11088'>test-compute-offset-with-too-few-inouts</a>: output should be empty"</span>) <span id="L11124" class="LineNr">11124 </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#L11088'>test-compute-offset-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10120,7 +10120,7 @@ if ('onhashchange' in window) { <span id="L11158" class="LineNr">11158 </span> 89/<- %edx 4/r32/esp <span id="L11159" class="LineNr">11159 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11160" class="LineNr">11160 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11161" class="Folded">11161 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11161" class="Folded">11161 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11167" class="LineNr">11167 </span> <span class="subxComment"># check output</span> <span id="L11168" class="LineNr">11168 </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#L11133'>test-compute-offset-with-too-many-inouts</a>: output should be empty"</span>) <span id="L11169" class="LineNr">11169 </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#L11133'>test-compute-offset-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10160,7 +10160,7 @@ if ('onhashchange' in window) { <span id="L11203" class="LineNr">11203 </span> 89/<- %edx 4/r32/esp <span id="L11204" class="LineNr">11204 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11205" class="LineNr">11205 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11206" class="Folded">11206 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11206" class="Folded">11206 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11212" class="LineNr">11212 </span> <span class="subxComment"># check output</span> <span id="L11213" class="LineNr">11213 </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#L11178'>test-compute-offset-with-no-output</a>: output should be empty"</span>) <span id="L11214" class="LineNr">11214 </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#L11178'>test-compute-offset-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10202,7 +10202,7 @@ if ('onhashchange' in window) { <span id="L11250" class="LineNr">11250 </span> 89/<- %edx 4/r32/esp <span id="L11251" class="LineNr">11251 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11252" class="LineNr">11252 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11253" class="Folded">11253 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11253" class="Folded">11253 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11259" class="LineNr">11259 </span> <span class="subxComment"># check output</span> <span id="L11260" class="LineNr">11260 </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#L11223'>test-compute-offset-with-too-many-outputs</a>: output should be empty"</span>) <span id="L11261" class="LineNr">11261 </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#L11223'>test-compute-offset-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10236,7 +10236,7 @@ if ('onhashchange' in window) { <span id="L11289" class="LineNr">11289 </span> 89/<- %edx 4/r32/esp <span id="L11290" class="LineNr">11290 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11291" class="LineNr">11291 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11292" class="Folded">11292 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11292" class="Folded">11292 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11298" class="LineNr">11298 </span> <span class="subxComment"># check output</span> <span id="L11299" class="LineNr">11299 </span> (<a href='../109stream-equal.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#L11270'>test-convert-read-from-stream</a>/0"</span>) <span id="L11300" class="LineNr">11300 </span> (<a href='../109stream-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>) @@ -10284,7 +10284,7 @@ if ('onhashchange' in window) { <span id="L11342" class="LineNr">11342 </span> 89/<- %edx 4/r32/esp <span id="L11343" class="LineNr">11343 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11344" class="LineNr">11344 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11345" class="Folded">11345 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11345" class="Folded">11345 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11351" class="LineNr">11351 </span> <span class="subxComment"># check output</span> <span id="L11352" class="LineNr">11352 </span> (<a href='../109stream-equal.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#L11323'>test-convert-read-from-stream-with-correct-payload-size</a>/0"</span>) <span id="L11353" class="LineNr">11353 </span> (<a href='../109stream-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>) @@ -10338,7 +10338,7 @@ if ('onhashchange' in window) { <span id="L11401" class="LineNr">11401 </span> 89/<- %edx 4/r32/esp <span id="L11402" class="LineNr">11402 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11403" class="LineNr">11403 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11404" class="Folded">11404 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11404" class="Folded">11404 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11410" class="LineNr">11410 </span> <span class="subxComment"># check output</span> <span id="L11411" class="LineNr">11411 </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#L11376'>test-read-from-stream-with-non-stream-atom-base-type</a>: output should be empty"</span>) <span id="L11412" class="LineNr">11412 </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#L11376'>test-read-from-stream-with-non-stream-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10378,7 +10378,7 @@ if ('onhashchange' in window) { <span id="L11446" class="LineNr">11446 </span> 89/<- %edx 4/r32/esp <span id="L11447" class="LineNr">11447 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11448" class="LineNr">11448 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11449" class="Folded">11449 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11449" class="Folded">11449 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11455" class="LineNr">11455 </span> <span class="subxComment"># check output</span> <span id="L11456" class="LineNr">11456 </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#L11421'>test-read-from-stream-with-non-stream-compound-base-type</a>: output should be empty"</span>) <span id="L11457" class="LineNr">11457 </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#L11421'>test-read-from-stream-with-non-stream-compound-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10418,7 +10418,7 @@ if ('onhashchange' in window) { <span id="L11491" class="LineNr">11491 </span> 89/<- %edx 4/r32/esp <span id="L11492" class="LineNr">11492 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11493" class="LineNr">11493 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11494" class="Folded">11494 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11494" class="Folded">11494 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11500" class="LineNr">11500 </span> <span class="subxComment"># check output</span> <span id="L11501" class="LineNr">11501 </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#L11466'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: output should be empty"</span>) <span id="L11502" class="LineNr">11502 </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#L11466'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10458,7 +10458,7 @@ if ('onhashchange' in window) { <span id="L11536" class="LineNr">11536 </span> 89/<- %edx 4/r32/esp <span id="L11537" class="LineNr">11537 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11538" class="LineNr">11538 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11539" class="Folded">11539 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11539" class="Folded">11539 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11545" class="LineNr">11545 </span> <span class="subxComment"># check output</span> <span id="L11546" class="LineNr">11546 </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#L11511'>test-read-from-stream-with-stream-atom-base-type</a>: output should be empty"</span>) <span id="L11547" class="LineNr">11547 </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#L11511'>test-read-from-stream-with-stream-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10499,7 +10499,7 @@ if ('onhashchange' in window) { <span id="L11582" class="LineNr">11582 </span> 89/<- %edx 4/r32/esp <span id="L11583" class="LineNr">11583 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11584" class="LineNr">11584 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11585" class="Folded">11585 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11585" class="Folded">11585 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11591" class="LineNr">11591 </span> <span class="subxComment"># check output</span> <span id="L11592" class="LineNr">11592 </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#L11556'>test-read-from-stream-with-wrong-index-type</a>: output should be empty"</span>) <span id="L11593" class="LineNr">11593 </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#L11556'>test-read-from-stream-with-wrong-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10538,7 +10538,7 @@ if ('onhashchange' in window) { <span id="L11626" class="LineNr">11626 </span> 89/<- %edx 4/r32/esp <span id="L11627" class="LineNr">11627 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11628" class="LineNr">11628 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11629" class="Folded">11629 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11629" class="Folded">11629 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11635" class="LineNr">11635 </span> <span class="subxComment"># check output</span> <span id="L11636" class="LineNr">11636 </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#L11602'>test-read-from-stream-with-no-inouts</a>: output should be empty"</span>) <span id="L11637" class="LineNr">11637 </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#L11602'>test-read-from-stream-with-no-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10578,7 +10578,7 @@ if ('onhashchange' in window) { <span id="L11671" class="LineNr">11671 </span> 89/<- %edx 4/r32/esp <span id="L11672" class="LineNr">11672 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11673" class="LineNr">11673 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11674" class="Folded">11674 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11674" class="Folded">11674 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11680" class="LineNr">11680 </span> <span class="subxComment"># check output</span> <span id="L11681" class="LineNr">11681 </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#L11646'>test-read-from-stream-with-too-few-inouts</a>: output should be empty"</span>) <span id="L11682" class="LineNr">11682 </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#L11646'>test-read-from-stream-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10619,7 +10619,7 @@ if ('onhashchange' in window) { <span id="L11717" class="LineNr">11717 </span> 89/<- %edx 4/r32/esp <span id="L11718" class="LineNr">11718 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11719" class="LineNr">11719 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11720" class="Folded">11720 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11720" class="Folded">11720 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11726" class="LineNr">11726 </span> <span class="subxComment"># check output</span> <span id="L11727" class="LineNr">11727 </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#L11691'>test-read-from-stream-with-too-many-inouts</a>: output should be empty"</span>) <span id="L11728" class="LineNr">11728 </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#L11691'>test-read-from-stream-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10660,7 +10660,7 @@ if ('onhashchange' in window) { <span id="L11763" class="LineNr">11763 </span> 89/<- %edx 4/r32/esp <span id="L11764" class="LineNr">11764 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11765" class="LineNr">11765 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11766" class="Folded">11766 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11766" class="Folded">11766 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11772" class="LineNr">11772 </span> <span class="subxComment"># check output</span> <span id="L11773" class="LineNr">11773 </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#L11737'>test-read-from-stream-with-output</a>: output should be empty"</span>) <span id="L11774" class="LineNr">11774 </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#L11737'>test-read-from-stream-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10694,7 +10694,7 @@ if ('onhashchange' in window) { <span id="L11802" class="LineNr">11802 </span> 89/<- %edx 4/r32/esp <span id="L11803" class="LineNr">11803 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11804" class="LineNr">11804 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11805" class="Folded">11805 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11805" class="Folded">11805 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11811" class="LineNr">11811 </span> <span class="subxComment"># check output</span> <span id="L11812" class="LineNr">11812 </span> (<a href='../109stream-equal.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#L11783'>test-convert-write-to-stream</a>/0"</span>) <span id="L11813" class="LineNr">11813 </span> (<a href='../109stream-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>) @@ -10742,7 +10742,7 @@ if ('onhashchange' in window) { <span id="L11855" class="LineNr">11855 </span> 89/<- %edx 4/r32/esp <span id="L11856" class="LineNr">11856 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11857" class="LineNr">11857 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11858" class="Folded">11858 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11858" class="Folded">11858 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11864" class="LineNr">11864 </span> <span class="subxComment"># check output</span> <span id="L11865" class="LineNr">11865 </span> (<a href='../109stream-equal.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#L11836'>test-convert-write-to-stream-with-correct-payload-size</a>/0"</span>) <span id="L11866" class="LineNr">11866 </span> (<a href='../109stream-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>) @@ -10796,7 +10796,7 @@ if ('onhashchange' in window) { <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#L423'>_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#L462'>_test-error-buffered-file</a>) -<span id="L11917" class="Folded">11917 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<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#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11889'>test-write-to-stream-with-non-stream-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#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#L11889'>test-write-to-stream-with-non-stream-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10836,7 +10836,7 @@ if ('onhashchange' in window) { <span id="L11959" class="LineNr">11959 </span> 89/<- %edx 4/r32/esp <span id="L11960" class="LineNr">11960 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L11961" class="LineNr">11961 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11962" class="Folded">11962 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11962" class="Folded">11962 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L11968" class="LineNr">11968 </span> <span class="subxComment"># check output</span> <span id="L11969" class="LineNr">11969 </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#L11934'>test-write-to-stream-with-non-stream-compound-base-type</a>: output should be empty"</span>) <span id="L11970" class="LineNr">11970 </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#L11934'>test-write-to-stream-with-non-stream-compound-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10876,7 +10876,7 @@ if ('onhashchange' in window) { <span id="L12004" class="LineNr">12004 </span> 89/<- %edx 4/r32/esp <span id="L12005" class="LineNr">12005 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12006" class="LineNr">12006 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12007" class="Folded">12007 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12007" class="Folded">12007 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12013" class="LineNr">12013 </span> <span class="subxComment"># check output</span> <span id="L12014" class="LineNr">12014 </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#L11979'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: output should be empty"</span>) <span id="L12015" class="LineNr">12015 </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#L11979'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10916,7 +10916,7 @@ if ('onhashchange' in window) { <span id="L12049" class="LineNr">12049 </span> 89/<- %edx 4/r32/esp <span id="L12050" class="LineNr">12050 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12051" class="LineNr">12051 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12052" class="Folded">12052 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12052" class="Folded">12052 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12058" class="LineNr">12058 </span> <span class="subxComment"># check output</span> <span id="L12059" class="LineNr">12059 </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#L12024'>test-write-to-stream-with-stream-atom-base-type</a>: output should be empty"</span>) <span id="L12060" class="LineNr">12060 </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#L12024'>test-write-to-stream-with-stream-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10957,7 +10957,7 @@ if ('onhashchange' in window) { <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#L423'>_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#L462'>_test-error-buffered-file</a>) -<span id="L12098" class="Folded">12098 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<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#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12069'>test-write-to-stream-with-wrong-index-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#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#L12069'>test-write-to-stream-with-wrong-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -10996,7 +10996,7 @@ if ('onhashchange' in window) { <span id="L12139" class="LineNr">12139 </span> 89/<- %edx 4/r32/esp <span id="L12140" class="LineNr">12140 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12141" class="LineNr">12141 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12142" class="Folded">12142 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12142" class="Folded">12142 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12148" class="LineNr">12148 </span> <span class="subxComment"># check output</span> <span id="L12149" class="LineNr">12149 </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#L12115'>test-write-to-stream-with-no-inouts</a>: output should be empty"</span>) <span id="L12150" class="LineNr">12150 </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#L12115'>test-write-to-stream-with-no-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11036,7 +11036,7 @@ if ('onhashchange' in window) { <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#L423'>_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#L462'>_test-error-buffered-file</a>) -<span id="L12187" class="Folded">12187 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<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#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12159'>test-write-to-stream-with-too-few-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#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#L12159'>test-write-to-stream-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11077,7 +11077,7 @@ if ('onhashchange' in window) { <span id="L12230" class="LineNr">12230 </span> 89/<- %edx 4/r32/esp <span id="L12231" class="LineNr">12231 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12232" class="LineNr">12232 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12233" class="Folded">12233 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12233" class="Folded">12233 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12239" class="LineNr">12239 </span> <span class="subxComment"># check output</span> <span id="L12240" class="LineNr">12240 </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#L12204'>test-write-to-stream-with-too-many-inouts</a>: output should be empty"</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#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#L12204'>test-write-to-stream-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11118,7 +11118,7 @@ if ('onhashchange' in window) { <span id="L12276" class="LineNr">12276 </span> 89/<- %edx 4/r32/esp <span id="L12277" class="LineNr">12277 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12278" class="LineNr">12278 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12279" class="Folded">12279 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12279" class="Folded">12279 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12285" class="LineNr">12285 </span> <span class="subxComment"># check output</span> <span id="L12286" class="LineNr">12286 </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#L12250'>test-write-to-stream-with-output</a>: output should be empty"</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#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#L12250'>test-write-to-stream-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11158,7 +11158,7 @@ if ('onhashchange' in window) { <span id="L12321" class="LineNr">12321 </span> 89/<- %edx 4/r32/esp <span id="L12322" class="LineNr">12322 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12323" class="LineNr">12323 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12324" class="Folded">12324 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12324" class="Folded">12324 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12330" class="LineNr">12330 </span> <span class="subxComment"># check output</span> <span id="L12331" class="LineNr">12331 </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#L12296'>test-length-with-non-array-atom-base-type</a>: output should be empty"</span>) <span id="L12332" class="LineNr">12332 </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#L12296'>test-length-with-non-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11198,7 +11198,7 @@ if ('onhashchange' in window) { <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#L423'>_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#L462'>_test-error-buffered-file</a>) -<span id="L12369" class="Folded">12369 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<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#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12341'>test-length-with-non-array-compound-base-type</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#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#L12341'>test-length-with-non-array-compound-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11238,7 +11238,7 @@ if ('onhashchange' in window) { <span id="L12411" class="LineNr">12411 </span> 89/<- %edx 4/r32/esp <span id="L12412" class="LineNr">12412 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12413" class="LineNr">12413 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12414" class="Folded">12414 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12414" class="Folded">12414 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12420" class="LineNr">12420 </span> <span class="subxComment"># check output</span> <span id="L12421" class="LineNr">12421 </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#L12386'>test-length-with-non-array-compound-base-type-2</a>: output should be empty"</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#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#L12386'>test-length-with-non-array-compound-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11278,7 +11278,7 @@ if ('onhashchange' in window) { <span id="L12456" class="LineNr">12456 </span> 89/<- %edx 4/r32/esp <span id="L12457" class="LineNr">12457 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12458" class="LineNr">12458 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12459" class="Folded">12459 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12459" class="Folded">12459 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12465" class="LineNr">12465 </span> <span class="subxComment"># check output</span> <span id="L12466" class="LineNr">12466 </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#L12431'>test-length-with-array-atom-base-type</a>: output should be empty"</span>) <span id="L12467" class="LineNr">12467 </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#L12431'>test-length-with-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11318,7 +11318,7 @@ if ('onhashchange' in window) { <span id="L12501" class="LineNr">12501 </span> 89/<- %edx 4/r32/esp <span id="L12502" class="LineNr">12502 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12503" class="LineNr">12503 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12504" class="Folded">12504 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12504" class="Folded">12504 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12510" class="LineNr">12510 </span> <span class="subxComment"># check output</span> <span id="L12511" class="LineNr">12511 </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#L12476'>test-length-with-addr-base-on-stack</a>: output should be empty"</span>) <span id="L12512" class="LineNr">12512 </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#L12476'>test-length-with-addr-base-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11358,7 +11358,7 @@ if ('onhashchange' in window) { <span id="L12546" class="LineNr">12546 </span> 89/<- %edx 4/r32/esp <span id="L12547" class="LineNr">12547 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12548" class="LineNr">12548 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12549" class="Folded">12549 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12549" class="Folded">12549 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12555" class="LineNr">12555 </span> <span class="subxComment"># check output</span> <span id="L12556" class="LineNr">12556 </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#L12521'>test-length-with-wrong-output-type</a>: output should be empty"</span>) <span id="L12557" class="LineNr">12557 </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#L12521'>test-length-with-wrong-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11398,7 +11398,7 @@ if ('onhashchange' in window) { <span id="L12591" class="LineNr">12591 </span> 89/<- %edx 4/r32/esp <span id="L12592" class="LineNr">12592 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12593" class="LineNr">12593 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12594" class="Folded">12594 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12594" class="Folded">12594 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12600" class="LineNr">12600 </span> <span class="subxComment"># check output</span> <span id="L12601" class="LineNr">12601 </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#L12566'>test-length-with-wrong-output-compound-type</a>: output should be empty"</span>) <span id="L12602" class="LineNr">12602 </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#L12566'>test-length-with-wrong-output-compound-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11437,7 +11437,7 @@ if ('onhashchange' in window) { <span id="L12635" class="LineNr">12635 </span> 89/<- %edx 4/r32/esp <span id="L12636" class="LineNr">12636 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12637" class="LineNr">12637 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12638" class="Folded">12638 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12638" class="Folded">12638 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12644" class="LineNr">12644 </span> <span class="subxComment"># check output</span> <span id="L12645" class="LineNr">12645 </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#L12611'>test-length-with-no-inouts</a>: output should be empty"</span>) <span id="L12646" class="LineNr">12646 </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#L12611'>test-length-with-no-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11477,7 +11477,7 @@ if ('onhashchange' in window) { <span id="L12680" class="LineNr">12680 </span> 89/<- %edx 4/r32/esp <span id="L12681" class="LineNr">12681 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12682" class="LineNr">12682 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12683" class="Folded">12683 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12683" class="Folded">12683 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12689" class="LineNr">12689 </span> <span class="subxComment"># check output</span> <span id="L12690" class="LineNr">12690 </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#L12655'>test-length-with-too-many-inouts</a>: output should be empty"</span>) <span id="L12691" class="LineNr">12691 </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#L12655'>test-length-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11517,7 +11517,7 @@ if ('onhashchange' in window) { <span id="L12725" class="LineNr">12725 </span> 89/<- %edx 4/r32/esp <span id="L12726" class="LineNr">12726 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12727" class="LineNr">12727 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12728" class="Folded">12728 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12728" class="Folded">12728 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12734" class="LineNr">12734 </span> <span class="subxComment"># check output</span> <span id="L12735" class="LineNr">12735 </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#L12700'>test-length-with-no-output</a>: output should be empty"</span>) <span id="L12736" class="LineNr">12736 </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#L12700'>test-length-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11559,7 +11559,7 @@ if ('onhashchange' in window) { <span id="L12772" class="LineNr">12772 </span> 89/<- %edx 4/r32/esp <span id="L12773" class="LineNr">12773 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L12774" class="LineNr">12774 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12775" class="Folded">12775 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12775" class="Folded">12775 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12781" class="LineNr">12781 </span> <span class="subxComment"># check output</span> <span id="L12782" class="LineNr">12782 </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#L12745'>test-length-with-too-many-outputs</a>: output should be empty"</span>) <span id="L12783" class="LineNr">12783 </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#L12745'>test-length-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11589,7 +11589,7 @@ if ('onhashchange' in window) { <span id="L12807" class="LineNr">12807 </span> <span class="subxComment"># convert</span> <span id="L12808" class="LineNr">12808 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L12809" class="LineNr">12809 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12810" class="Folded">12810 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12810" class="Folded">12810 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12816" class="LineNr">12816 </span> <span class="subxComment"># check output</span> <span id="L12817" class="LineNr">12817 </span> (<a href='../109stream-equal.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#L12792'>test-convert-function-with-return-register-and-local</a>/0"</span>) <span id="L12818" class="LineNr">12818 </span> (<a href='../109stream-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>) @@ -11634,7 +11634,7 @@ if ('onhashchange' in window) { <span id="L12857" class="LineNr">12857 </span> <span class="subxComment"># convert</span> <span id="L12858" class="LineNr">12858 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L12859" class="LineNr">12859 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12860" class="Folded">12860 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12860" class="Folded">12860 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12866" class="LineNr">12866 </span> <span class="subxComment"># check output</span> <span id="L12867" class="LineNr">12867 </span> (<a href='../109stream-equal.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#L12842'>test-convert-function-with-return-register-and-local-2</a>/0"</span>) <span id="L12868" class="LineNr">12868 </span> (<a href='../109stream-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>) @@ -11680,7 +11680,7 @@ if ('onhashchange' in window) { <span id="L12908" class="LineNr">12908 </span> <span class="subxComment"># convert</span> <span id="L12909" class="LineNr">12909 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L12910" class="LineNr">12910 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12911" class="Folded">12911 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12911" class="Folded">12911 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12917" class="LineNr">12917 </span> <span class="subxComment"># check output</span> <span id="L12918" class="LineNr">12918 </span> (<a href='../109stream-equal.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#L12892'>test-convert-function-with-return-float-register-and-local</a>/0"</span>) <span id="L12919" class="LineNr">12919 </span> (<a href='../109stream-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>) @@ -11737,7 +11737,7 @@ if ('onhashchange' in window) { <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> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) <span id="L12972" class="LineNr">12972 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12973" class="Folded">12973 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12973" class="Folded">12973 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L12979" class="LineNr">12979 </span> <span class="subxComment"># check output</span> <span id="L12980" class="LineNr">12980 </span> (<a href='../109stream-equal.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#L12949'>test-convert-function-with-return-and-local-vars</a>/0"</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#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-and-local-vars/1"</span>) @@ -11800,7 +11800,7 @@ if ('onhashchange' in window) { <span id="L13038" class="LineNr">13038 </span> 89/<- %edx 4/r32/esp <span id="L13039" class="LineNr">13039 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13040" class="LineNr">13040 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13041" class="Folded">13041 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13041" class="Folded">13041 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13047" class="LineNr">13047 </span> <span class="subxComment"># check output</span> <span id="L13048" class="LineNr">13048 </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#L13014'>test-copy-object-with-no-inout</a>: output should be empty"</span>) <span id="L13049" class="LineNr">13049 </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#L13014'>test-copy-object-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11840,7 +11840,7 @@ if ('onhashchange' in window) { <span id="L13083" class="LineNr">13083 </span> 89/<- %edx 4/r32/esp <span id="L13084" class="LineNr">13084 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13085" class="LineNr">13085 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13086" class="Folded">13086 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13086" class="Folded">13086 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13092" class="LineNr">13092 </span> <span class="subxComment"># check output</span> <span id="L13093" class="LineNr">13093 </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#L13058'>test-copy-object-with-no-input</a>: output should be empty"</span>) <span id="L13094" class="LineNr">13094 </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#L13058'>test-copy-object-with-no-input</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11880,7 +11880,7 @@ if ('onhashchange' in window) { <span id="L13128" class="LineNr">13128 </span> 89/<- %edx 4/r32/esp <span id="L13129" class="LineNr">13129 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13130" class="LineNr">13130 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13131" class="Folded">13131 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13131" class="Folded">13131 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13137" class="LineNr">13137 </span> <span class="subxComment"># check output</span> <span id="L13138" class="LineNr">13138 </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#L13103'>test-copy-object-with-too-many-inouts</a>: output should be empty"</span>) <span id="L13139" class="LineNr">13139 </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#L13103'>test-copy-object-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11921,7 +11921,7 @@ if ('onhashchange' in window) { <span id="L13174" class="LineNr">13174 </span> 89/<- %edx 4/r32/esp <span id="L13175" class="LineNr">13175 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13176" class="LineNr">13176 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13177" class="Folded">13177 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13177" class="Folded">13177 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13183" class="LineNr">13183 </span> <span class="subxComment"># check output</span> <span id="L13184" class="LineNr">13184 </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#L13148'>test-copy-object-with-output</a>: output should be empty"</span>) <span id="L13185" class="LineNr">13185 </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#L13148'>test-copy-object-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -11951,7 +11951,7 @@ if ('onhashchange' in window) { <span id="L13209" class="LineNr">13209 </span> <span class="subxComment"># convert</span> <span id="L13210" class="LineNr">13210 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L13211" class="LineNr">13211 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13212" class="Folded">13212 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13212" class="Folded">13212 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13218" class="LineNr">13218 </span> <span class="subxComment"># not bothering checking output</span> <span id="L13219" class="LineNr">13219 </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#L13194'>test-copy-object-deref-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L13220" class="LineNr">13220 </span> <span class="subxS1Comment"># . epilogue</span> @@ -11987,7 +11987,7 @@ if ('onhashchange' in window) { <span id="L13250" class="LineNr">13250 </span> 89/<- %edx 4/r32/esp <span id="L13251" class="LineNr">13251 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13252" class="LineNr">13252 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13253" class="Folded">13253 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13253" class="Folded">13253 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13259" class="LineNr">13259 </span> <span class="subxComment"># check output</span> <span id="L13260" class="LineNr">13260 </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#L13224'>test-copy-object-non-addr</a>: output should be empty"</span>) <span id="L13261" class="LineNr">13261 </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#L13224'>test-copy-object-non-addr</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12028,7 +12028,7 @@ if ('onhashchange' in window) { <span id="L13296" class="LineNr">13296 </span> 89/<- %edx 4/r32/esp <span id="L13297" class="LineNr">13297 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13298" class="LineNr">13298 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13299" class="Folded">13299 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13299" class="Folded">13299 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13305" class="LineNr">13305 </span> <span class="subxComment"># check output</span> <span id="L13306" class="LineNr">13306 </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#L13270'>test-copy-object-non-equal</a>: output should be empty"</span>) <span id="L13307" class="LineNr">13307 </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#L13270'>test-copy-object-non-equal</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12067,7 +12067,7 @@ if ('onhashchange' in window) { <span id="L13340" class="LineNr">13340 </span> 89/<- %edx 4/r32/esp <span id="L13341" class="LineNr">13341 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13342" class="LineNr">13342 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13343" class="Folded">13343 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13343" class="Folded">13343 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13349" class="LineNr">13349 </span> <span class="subxComment"># check output</span> <span id="L13350" class="LineNr">13350 </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#L13316'>test-allocate-with-no-inout</a>: output should be empty"</span>) <span id="L13351" class="LineNr">13351 </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#L13316'>test-allocate-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12107,7 +12107,7 @@ if ('onhashchange' in window) { <span id="L13385" class="LineNr">13385 </span> 89/<- %edx 4/r32/esp <span id="L13386" class="LineNr">13386 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13387" class="LineNr">13387 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13388" class="Folded">13388 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13388" class="Folded">13388 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13394" class="LineNr">13394 </span> <span class="subxComment"># check output</span> <span id="L13395" class="LineNr">13395 </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#L13360'>test-allocate-with-too-many-inouts</a>: output should be empty"</span>) <span id="L13396" class="LineNr">13396 </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#L13360'>test-allocate-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12148,7 +12148,7 @@ if ('onhashchange' in window) { <span id="L13431" class="LineNr">13431 </span> 89/<- %edx 4/r32/esp <span id="L13432" class="LineNr">13432 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13433" class="LineNr">13433 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13434" class="Folded">13434 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13434" class="Folded">13434 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13440" class="LineNr">13440 </span> <span class="subxComment"># check output</span> <span id="L13441" class="LineNr">13441 </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#L13405'>test-allocate-with-output</a>: output should be empty"</span>) <span id="L13442" class="LineNr">13442 </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#L13405'>test-allocate-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12188,7 +12188,7 @@ if ('onhashchange' in window) { <span id="L13476" class="LineNr">13476 </span> 89/<- %edx 4/r32/esp <span id="L13477" class="LineNr">13477 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13478" class="LineNr">13478 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13479" class="Folded">13479 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13479" class="Folded">13479 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13485" class="LineNr">13485 </span> <span class="subxComment"># check output</span> <span id="L13486" class="LineNr">13486 </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#L13451'>test-allocate-non-addr</a>: output must be empty"</span>) <span id="L13487" class="LineNr">13487 </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#L13451'>test-allocate-non-addr</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12228,7 +12228,7 @@ if ('onhashchange' in window) { <span id="L13521" class="LineNr">13521 </span> 89/<- %edx 4/r32/esp <span id="L13522" class="LineNr">13522 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13523" class="LineNr">13523 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13524" class="Folded">13524 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13524" class="Folded">13524 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13530" class="LineNr">13530 </span> <span class="subxComment"># check output</span> <span id="L13531" class="LineNr">13531 </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#L13496'>test-allocate-non-addr-handle</a>: output should be empty"</span>) <span id="L13532" class="LineNr">13532 </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#L13496'>test-allocate-non-addr-handle</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12257,7 +12257,7 @@ if ('onhashchange' in window) { <span id="L13555" class="LineNr">13555 </span> <span class="subxComment"># convert</span> <span id="L13556" class="LineNr">13556 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L13557" class="LineNr">13557 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13558" class="Folded">13558 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13558" class="Folded">13558 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13564" class="LineNr">13564 </span> <span class="subxComment"># not bothering checking output</span> <span id="L13565" class="LineNr">13565 </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#L13541'>test-allocate-deref-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L13566" class="LineNr">13566 </span> <span class="subxS1Comment"># . epilogue</span> @@ -12291,7 +12291,7 @@ if ('onhashchange' in window) { <span id="L13594" class="LineNr">13594 </span> 89/<- %edx 4/r32/esp <span id="L13595" class="LineNr">13595 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13596" class="LineNr">13596 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13597" class="Folded">13597 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13597" class="Folded">13597 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13603" class="LineNr">13603 </span> <span class="subxComment"># check output</span> <span id="L13604" class="LineNr">13604 </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#L13570'>test-populate-with-no-inout</a>: output should be empty"</span>) <span id="L13605" class="LineNr">13605 </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#L13570'>test-populate-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12331,7 +12331,7 @@ if ('onhashchange' in window) { <span id="L13639" class="LineNr">13639 </span> 89/<- %edx 4/r32/esp <span id="L13640" class="LineNr">13640 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13641" class="LineNr">13641 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13642" class="Folded">13642 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13642" class="Folded">13642 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13648" class="LineNr">13648 </span> <span class="subxComment"># check output</span> <span id="L13649" class="LineNr">13649 </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#L13614'>test-populate-with-too-many-inouts</a>: output should be empty"</span>) <span id="L13650" class="LineNr">13650 </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#L13614'>test-populate-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12372,7 +12372,7 @@ if ('onhashchange' in window) { <span id="L13685" class="LineNr">13685 </span> 89/<- %edx 4/r32/esp <span id="L13686" class="LineNr">13686 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13687" class="LineNr">13687 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13688" class="Folded">13688 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13688" class="Folded">13688 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13694" class="LineNr">13694 </span> <span class="subxComment"># check output</span> <span id="L13695" class="LineNr">13695 </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#L13659'>test-populate-with-output</a>: output should be empty"</span>) <span id="L13696" class="LineNr">13696 </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#L13659'>test-populate-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12412,7 +12412,7 @@ if ('onhashchange' in window) { <span id="L13730" class="LineNr">13730 </span> 89/<- %edx 4/r32/esp <span id="L13731" class="LineNr">13731 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13732" class="LineNr">13732 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13733" class="Folded">13733 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13733" class="Folded">13733 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13739" class="LineNr">13739 </span> <span class="subxComment"># check output</span> <span id="L13740" class="LineNr">13740 </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#L13705'>test-populate-non-addr</a>: output must be empty"</span>) <span id="L13741" class="LineNr">13741 </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#L13705'>test-populate-non-addr</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12452,7 +12452,7 @@ if ('onhashchange' in window) { <span id="L13775" class="LineNr">13775 </span> 89/<- %edx 4/r32/esp <span id="L13776" class="LineNr">13776 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13777" class="LineNr">13777 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13778" class="Folded">13778 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13778" class="Folded">13778 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13784" class="LineNr">13784 </span> <span class="subxComment"># check output</span> <span id="L13785" class="LineNr">13785 </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#L13750'>test-populate-non-addr-handle</a>: output should be empty"</span>) <span id="L13786" class="LineNr">13786 </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#L13750'>test-populate-non-addr-handle</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12492,7 +12492,7 @@ if ('onhashchange' in window) { <span id="L13820" class="LineNr">13820 </span> 89/<- %edx 4/r32/esp <span id="L13821" class="LineNr">13821 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13822" class="LineNr">13822 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13823" class="Folded">13823 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13823" class="Folded">13823 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13829" class="LineNr">13829 </span> <span class="subxComment"># check output</span> <span id="L13830" class="LineNr">13830 </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#L13795'>test-populate-non-addr-handle-array</a>: output should be empty"</span>) <span id="L13831" class="LineNr">13831 </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#L13795'>test-populate-non-addr-handle-array</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12521,7 +12521,7 @@ if ('onhashchange' in window) { <span id="L13854" class="LineNr">13854 </span> <span class="subxComment"># convert</span> <span id="L13855" class="LineNr">13855 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L13856" class="LineNr">13856 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13857" class="Folded">13857 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13857" class="Folded">13857 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13863" class="LineNr">13863 </span> <span class="subxComment"># not bothering checking output</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#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13840'>test-populate-deref-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L13865" class="LineNr">13865 </span> <span class="subxS1Comment"># . epilogue</span> @@ -12555,7 +12555,7 @@ if ('onhashchange' in window) { <span id="L13893" class="LineNr">13893 </span> 89/<- %edx 4/r32/esp <span id="L13894" class="LineNr">13894 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13895" class="LineNr">13895 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13896" class="Folded">13896 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13896" class="Folded">13896 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13902" class="LineNr">13902 </span> <span class="subxComment"># check output</span> <span id="L13903" class="LineNr">13903 </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#L13869'>test-populate-stream-with-no-inout</a>: output should be empty"</span>) <span id="L13904" class="LineNr">13904 </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#L13869'>test-populate-stream-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12595,7 +12595,7 @@ if ('onhashchange' in window) { <span id="L13938" class="LineNr">13938 </span> 89/<- %edx 4/r32/esp <span id="L13939" class="LineNr">13939 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13940" class="LineNr">13940 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13941" class="Folded">13941 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13941" class="Folded">13941 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13947" class="LineNr">13947 </span> <span class="subxComment"># check output</span> <span id="L13948" class="LineNr">13948 </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#L13913'>test-populate-stream-with-too-many-inouts</a>: output should be empty"</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#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#L13913'>test-populate-stream-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12636,7 +12636,7 @@ if ('onhashchange' in window) { <span id="L13984" class="LineNr">13984 </span> 89/<- %edx 4/r32/esp <span id="L13985" class="LineNr">13985 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L13986" class="LineNr">13986 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13987" class="Folded">13987 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13987" class="Folded">13987 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L13993" class="LineNr">13993 </span> <span class="subxComment"># check output</span> <span id="L13994" class="LineNr">13994 </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#L13958'>test-populate-stream-with-output</a>: output should be empty"</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#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#L13958'>test-populate-stream-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12676,7 +12676,7 @@ if ('onhashchange' in window) { <span id="L14029" class="LineNr">14029 </span> 89/<- %edx 4/r32/esp <span id="L14030" class="LineNr">14030 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L14031" class="LineNr">14031 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14032" class="Folded">14032 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14032" class="Folded">14032 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L14038" class="LineNr">14038 </span> <span class="subxComment"># check output</span> <span id="L14039" class="LineNr">14039 </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#L14004'>test-populate-stream-non-addr</a>: output must be empty"</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#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#L14004'>test-populate-stream-non-addr</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12716,7 +12716,7 @@ if ('onhashchange' in window) { <span id="L14074" class="LineNr">14074 </span> 89/<- %edx 4/r32/esp <span id="L14075" class="LineNr">14075 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L14076" class="LineNr">14076 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14077" class="Folded">14077 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14077" class="Folded">14077 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L14083" class="LineNr">14083 </span> <span class="subxComment"># check output</span> <span id="L14084" class="LineNr">14084 </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#L14049'>test-populate-stream-non-addr-handle</a>: output should be empty"</span>) <span id="L14085" class="LineNr">14085 </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#L14049'>test-populate-stream-non-addr-handle</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12756,7 +12756,7 @@ if ('onhashchange' in window) { <span id="L14119" class="LineNr">14119 </span> 89/<- %edx 4/r32/esp <span id="L14120" class="LineNr">14120 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) <span id="L14121" class="LineNr">14121 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14122" class="Folded">14122 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14122" class="Folded">14122 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L14128" class="LineNr">14128 </span> <span class="subxComment"># check output</span> <span id="L14129" class="LineNr">14129 </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#L14094'>test-populate-stream-non-addr-handle-stream</a>: output should be empty"</span>) <span id="L14130" class="LineNr">14130 </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#L14094'>test-populate-stream-non-addr-handle-stream</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) @@ -12785,21659 +12785,22246 @@ if ('onhashchange' in window) { <span id="L14153" class="LineNr">14153 </span> <span class="subxComment"># convert</span> <span id="L14154" class="LineNr">14154 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L14155" class="LineNr">14155 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14156" class="Folded">14156 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ---------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14156" class="Folded">14156 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L14162" class="LineNr">14162 </span> <span class="subxComment"># not bothering checking output</span> <span id="L14163" class="LineNr">14163 </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#L14139'>test-populate-stream-deref-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) <span id="L14164" class="LineNr">14164 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L14165" class="LineNr">14165 </span> 5d/pop-to-ebp <span id="L14166" class="LineNr">14166 </span> c3/return <span id="L14167" class="LineNr">14167 </span> -<span id="L14168" class="LineNr">14168 </span><span class="subxComment">#######################################################</span> -<span id="L14169" class="LineNr">14169 </span><span class="subxComment"># Parsing</span> -<span id="L14170" class="LineNr">14170 </span><span class="subxComment">#######################################################</span> -<span id="L14171" class="LineNr">14171 </span> -<span id="L14172" class="LineNr">14172 </span>== data -<span id="L14173" class="LineNr">14173 </span> -<span id="L14174" class="LineNr">14174 </span><span class="subxComment"># Global state added to each var record when parsing a function</span> -<span id="L14175" class="LineNr">14175 </span><span class="SpecialChar">Next-block-index</span>: <span class="subxComment"># (addr int)</span> -<span id="L14176" class="LineNr">14176 </span> 1/imm32 -<span id="L14177" class="LineNr">14177 </span> -<span id="L14178" class="LineNr">14178 </span><span class="SpecialChar">Curr-block-depth</span>: <span class="subxComment"># (addr int)</span> -<span id="L14179" class="LineNr">14179 </span> 1/imm32 -<span id="L14180" class="LineNr">14180 </span> -<span id="L14181" class="LineNr">14181 </span>== code -<span id="L14182" class="LineNr">14182 </span> -<span id="L14183" class="LineNr">14183 </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="L14184" class="LineNr">14184 </span> <span class="subxComment"># pseudocode</span> -<span id="L14185" class="LineNr">14185 </span> <span class="subxComment"># var curr-function: (addr handle function) = Program->functions</span> -<span id="L14186" class="LineNr">14186 </span> <span class="subxComment"># var curr-signature: (addr handle function) = Program->signatures</span> -<span id="L14187" class="LineNr">14187 </span> <span class="subxComment"># var curr-type: (addr handle typeinfo) = Program->types</span> -<span id="L14188" class="LineNr">14188 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L14189" class="LineNr">14189 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L14190" class="LineNr">14190 </span> <span class="subxComment"># while true # line loop</span> -<span id="L14191" class="LineNr">14191 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L14192" class="LineNr">14192 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L14193" class="LineNr">14193 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L14194" class="LineNr">14194 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L14195" class="LineNr">14195 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L14196" class="LineNr">14196 </span> <span class="subxComment"># continue</span> -<span id="L14197" class="LineNr">14197 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> -<span id="L14198" class="LineNr">14198 </span> <span class="subxComment"># continue # end of line</span> -<span id="L14199" class="LineNr">14199 </span> <span class="subxComment"># else if slice-equal?(word-slice, "fn")</span> -<span id="L14200" class="LineNr">14200 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> -<span id="L14201" class="LineNr">14201 </span> <span class="subxComment"># var vars: (stack live-var 256)</span> -<span id="L14202" class="LineNr">14202 </span> <span class="subxComment"># populate-mu-function-header(line, new-function, vars)</span> -<span id="L14203" class="LineNr">14203 </span> <span class="subxComment"># populate-mu-function-body(in, new-function, vars)</span> -<span id="L14204" class="LineNr">14204 </span> <span class="subxComment"># assert(vars->top == 0)</span> -<span id="L14205" class="LineNr">14205 </span> <span class="subxComment"># *curr-function = new-function</span> -<span id="L14206" class="LineNr">14206 </span> <span class="subxComment"># curr-function = &new-function->next</span> -<span id="L14207" class="LineNr">14207 </span> <span class="subxComment"># else if slice-equal?(word-slice, "sig")</span> -<span id="L14208" class="LineNr">14208 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> -<span id="L14209" class="LineNr">14209 </span> <span class="subxComment"># populate-mu-function-signature(line, new-function)</span> -<span id="L14210" class="LineNr">14210 </span> <span class="subxComment"># *curr-signature = new-function</span> -<span id="L14211" class="LineNr">14211 </span> <span class="subxComment"># curr-signature = &new-function->next</span> -<span id="L14212" class="LineNr">14212 </span> <span class="subxComment"># else if slice-equal?(word-slice, "type")</span> -<span id="L14213" class="LineNr">14213 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L14214" class="LineNr">14214 </span> <span class="subxComment"># type-id = pos-or-insert-slice(Type-id, word-slice)</span> -<span id="L14215" class="LineNr">14215 </span> <span class="subxComment"># var new-type: (handle typeinfo) = find-or-create-typeinfo(type-id)</span> -<span id="L14216" class="LineNr">14216 </span> <span class="subxComment"># assert(next-word(line) == "{")</span> -<span id="L14217" class="LineNr">14217 </span> <span class="subxComment"># populate-mu-type(in, new-type)</span> -<span id="L14218" class="LineNr">14218 </span> <span class="subxComment"># else</span> -<span id="L14219" class="LineNr">14219 </span> <span class="subxComment"># abort()</span> -<span id="L14220" class="LineNr">14220 </span> <span class="subxComment">#</span> -<span id="L14221" class="LineNr">14221 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14222" class="LineNr">14222 </span> 55/push-ebp -<span id="L14223" class="LineNr">14223 </span> 89/<- %ebp 4/r32/esp -<span id="L14224" class="LineNr">14224 </span> <span class="subxComment"># var curr-signature: (addr handle function) at *(ebp-4)</span> -<span id="L14225" class="LineNr">14225 </span> 68/push <a href='mu.subx.html#L249'>_Program-signatures</a>/imm32 -<span id="L14226" class="LineNr">14226 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14227" class="LineNr">14227 </span> 50/push-eax -<span id="L14228" class="LineNr">14228 </span> 51/push-ecx -<span id="L14229" class="LineNr">14229 </span> 52/push-edx -<span id="L14230" class="LineNr">14230 </span> 53/push-ebx -<span id="L14231" class="LineNr">14231 </span> 56/push-esi -<span id="L14232" class="LineNr">14232 </span> 57/push-edi -<span id="L14233" class="LineNr">14233 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L14234" class="LineNr">14234 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L14235" class="LineNr">14235 </span> 68/push 0x200/imm32/size -<span id="L14236" class="LineNr">14236 </span> 68/push 0/imm32/read -<span id="L14237" class="LineNr">14237 </span> 68/push 0/imm32/write -<span id="L14238" class="LineNr">14238 </span> 89/<- %ecx 4/r32/esp -<span id="L14239" class="LineNr">14239 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L14240" class="LineNr">14240 </span> 68/push 0/imm32/end -<span id="L14241" class="LineNr">14241 </span> 68/push 0/imm32/start -<span id="L14242" class="LineNr">14242 </span> 89/<- %edx 4/r32/esp -<span id="L14243" class="LineNr">14243 </span> <span class="subxComment"># var curr-function/edi: (addr handle function)</span> -<span id="L14244" class="LineNr">14244 </span> bf/copy-to-edi <a href='mu.subx.html#L241'>_Program-functions</a>/imm32 -<span id="L14245" class="LineNr">14245 </span> <span class="subxComment"># var vars/ebx: (stack live-var 256)</span> -<span id="L14246" class="LineNr">14246 </span> 81 5/subop/subtract %esp 0xc00/imm32 -<span id="L14247" class="LineNr">14247 </span> 68/push 0xc00/imm32/size -<span id="L14248" class="LineNr">14248 </span> 68/push 0/imm32/top -<span id="L14249" class="LineNr">14249 </span> 89/<- %ebx 4/r32/esp -<span id="L14250" class="LineNr">14250 </span> { -<span id="L14251" class="LineNr">14251 </span><span class="Constant">$parse-mu:line-loop</span>: -<span id="L14252" class="LineNr">14252 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L14253" class="LineNr">14253 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L14254" class="LineNr">14254 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L14255" class="LineNr">14255 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L14256" class="LineNr">14256 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14257" class="Folded">14257 </span><span class="Folded">+-- 6 lines: #? # dump line ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14263" class="LineNr">14263 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> %ecx %edx) -<span id="L14264" class="LineNr">14264 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L14265" class="LineNr">14265 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L14266" class="LineNr">14266 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14267" class="LineNr">14267 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L14268" class="LineNr">14268 </span> <span class="subxComment"># if (*word-slice->start == "#") continue</span> -<span id="L14269" class="LineNr">14269 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L14270" class="LineNr">14270 </span> 8b/-> *edx 0/r32/eax -<span id="L14271" class="LineNr">14271 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L14272" class="LineNr">14272 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L14273" class="LineNr">14273 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L14274" class="LineNr">14274 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L14275" class="LineNr">14275 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 -<span id="L14276" class="LineNr">14276 </span> <span class="subxComment"># if (slice-equal?(word-slice, "fn")) parse a function</span> -<span id="L14277" class="LineNr">14277 </span> { -<span id="L14278" class="LineNr">14278 </span><span class="Constant">$parse-mu:fn</span>: -<span id="L14279" class="LineNr">14279 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"fn"</span>) <span class="subxComment"># => eax</span> -<span id="L14280" class="LineNr">14280 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14281" class="LineNr">14281 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14282" class="LineNr">14282 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> -<span id="L14283" class="LineNr">14283 </span> 68/push 0/imm32 -<span id="L14284" class="LineNr">14284 </span> 68/push 0/imm32 -<span id="L14285" class="LineNr">14285 </span> 89/<- %esi 4/r32/esp -<span id="L14286" class="LineNr">14286 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> -<span id="L14287" class="LineNr">14287 </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="L14288" class="LineNr">14288 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> -<span id="L14289" class="LineNr">14289 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L14290" class="LineNr">14290 </span> <span class="subxComment"># initialize vars</span> -<span id="L14291" class="LineNr">14291 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ebx) -<span id="L14292" class="LineNr">14292 </span> <span class="subxComment">#</span> -<span id="L14293" class="LineNr">14293 </span> (<a href='mu.subx.html#L14432'>populate-mu-function-header</a> %ecx %eax %ebx *(ebp+0xc) *(ebp+0x10)) -<span id="L14294" class="LineNr">14294 </span> (<a href='mu.subx.html#L16549'>populate-mu-function-body</a> *(ebp+8) %eax %ebx *(ebp+0xc) *(ebp+0x10)) -<span id="L14295" class="LineNr">14295 </span> <span class="subxComment"># *curr-function = new-function</span> -<span id="L14296" class="LineNr">14296 </span> 8b/-> *esi 0/r32/eax -<span id="L14297" class="LineNr">14297 </span> 89/<- *edi 0/r32/eax -<span id="L14298" class="LineNr">14298 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L14299" class="LineNr">14299 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L14300" class="LineNr">14300 </span> <span class="subxComment"># curr-function = &new-function->next</span> -<span id="L14301" class="LineNr">14301 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> -<span id="L14302" class="LineNr">14302 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L14303" class="LineNr">14303 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> -<span id="L14304" class="LineNr">14304 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> -<span id="L14305" class="LineNr">14305 </span> <span class="subxComment"># reclaim new-function</span> -<span id="L14306" class="LineNr">14306 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14307" class="LineNr">14307 </span> <span class="subxComment">#</span> -<span id="L14308" class="LineNr">14308 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L14309" class="LineNr">14309 </span> } -<span id="L14310" class="LineNr">14310 </span> <span class="subxComment"># if (slice-equal?(word-slice, "sig")) parse a function signature</span> -<span id="L14311" class="LineNr">14311 </span> <span class="subxComment"># Function signatures are for providing types to SubX functions.</span> -<span id="L14312" class="LineNr">14312 </span> { -<span id="L14313" class="LineNr">14313 </span><span class="Constant">$parse-mu:sig</span>: -<span id="L14314" class="LineNr">14314 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"sig"</span>) <span class="subxComment"># => eax</span> -<span id="L14315" class="LineNr">14315 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14316" class="LineNr">14316 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14317" class="LineNr">14317 </span> <span class="subxComment"># edi = curr-function</span> -<span id="L14318" class="LineNr">14318 </span> 57/push-edi -<span id="L14319" class="LineNr">14319 </span> 8b/-> *(ebp-4) 7/r32/edi -<span id="L14320" class="LineNr">14320 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> -<span id="L14321" class="LineNr">14321 </span> 68/push 0/imm32 -<span id="L14322" class="LineNr">14322 </span> 68/push 0/imm32 -<span id="L14323" class="LineNr">14323 </span> 89/<- %esi 4/r32/esp -<span id="L14324" class="LineNr">14324 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> -<span id="L14325" class="LineNr">14325 </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="L14326" class="LineNr">14326 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> -<span id="L14327" class="LineNr">14327 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L14328" class="LineNr">14328 </span> <span class="subxComment">#</span> -<span id="L14329" class="LineNr">14329 </span> (<a href='mu.subx.html#L14752'>populate-mu-function-signature</a> %ecx %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L14330" class="LineNr">14330 </span> <span class="subxComment"># *curr-signature = new-function</span> -<span id="L14331" class="LineNr">14331 </span> 8b/-> *esi 0/r32/eax -<span id="L14332" class="LineNr">14332 </span> 89/<- *edi 0/r32/eax -<span id="L14333" class="LineNr">14333 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L14334" class="LineNr">14334 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L14335" class="LineNr">14335 </span> <span class="subxComment"># curr-signature = &new-function->next</span> -<span id="L14336" class="LineNr">14336 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> -<span id="L14337" class="LineNr">14337 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L14338" class="LineNr">14338 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> -<span id="L14339" class="LineNr">14339 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> -<span id="L14340" class="LineNr">14340 </span> <span class="subxComment"># reclaim new-function</span> -<span id="L14341" class="LineNr">14341 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14342" class="LineNr">14342 </span> <span class="subxComment"># save curr-function</span> -<span id="L14343" class="LineNr">14343 </span> 89/<- *(ebp-4) 7/r32/edi -<span id="L14344" class="LineNr">14344 </span> <span class="subxComment"># restore edi</span> -<span id="L14345" class="LineNr">14345 </span> 5f/pop-to-edi -<span id="L14346" class="LineNr">14346 </span> <span class="subxComment">#</span> -<span id="L14347" class="LineNr">14347 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L14348" class="LineNr">14348 </span> } -<span id="L14349" class="LineNr">14349 </span> <span class="subxComment"># if (slice-equal?(word-slice, "type")) parse a type (struct/record) definition</span> -<span id="L14350" class="LineNr">14350 </span> { -<span id="L14351" class="LineNr">14351 </span><span class="Constant">$parse-mu:type</span>: -<span id="L14352" class="LineNr">14352 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"type"</span>) <span class="subxComment"># => eax</span> -<span id="L14353" class="LineNr">14353 </span> 3d/compare-eax-and 0/imm32 -<span id="L14354" class="LineNr">14354 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L14355" class="LineNr">14355 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> %ecx %edx) -<span id="L14356" class="LineNr">14356 </span> <span class="subxComment"># var type-id/eax: int</span> -<span id="L14357" class="LineNr">14357 </span> (<a href='mu.subx.html#L15937'>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="L14358" class="LineNr">14358 </span> <span class="subxComment"># spill</span> -<span id="L14359" class="LineNr">14359 </span> 51/push-ecx -<span id="L14360" class="LineNr">14360 </span> <span class="subxComment"># var new-type/ecx: (handle typeinfo)</span> -<span id="L14361" class="LineNr">14361 </span> 68/push 0/imm32 -<span id="L14362" class="LineNr">14362 </span> 68/push 0/imm32 -<span id="L14363" class="LineNr">14363 </span> 89/<- %ecx 4/r32/esp -<span id="L14364" class="LineNr">14364 </span> (<a href='mu.subx.html#L18723'>find-or-create-typeinfo</a> %eax %ecx) -<span id="L14365" class="LineNr">14365 </span> <span class="subxComment">#</span> -<span id="L14366" class="LineNr">14366 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L14367" class="LineNr">14367 </span> <span class="subxComment"># TODO: ensure that 'line' has nothing else but '{'</span> -<span id="L14368" class="LineNr">14368 </span><span class="CommentedCode">#? (dump-typeinfos "=== aaa\n")</span> -<span id="L14369" class="LineNr">14369 </span> (<a href='mu.subx.html#L18957'>populate-mu-type</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L14370" class="LineNr">14370 </span><span class="CommentedCode">#? (dump-typeinfos "=== zzz\n")</span> -<span id="L14371" class="LineNr">14371 </span> <span class="subxComment"># reclaim new-type</span> -<span id="L14372" class="LineNr">14372 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14373" class="LineNr">14373 </span> <span class="subxComment"># restore</span> -<span id="L14374" class="LineNr">14374 </span> 59/pop-to-ecx -<span id="L14375" class="LineNr">14375 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L14376" class="LineNr">14376 </span> } -<span id="L14377" class="LineNr">14377 </span> <span class="subxComment"># otherwise abort</span> -<span id="L14378" class="LineNr">14378 </span> e9/jump $parse-mu:error1/disp32 -<span id="L14379" class="LineNr">14379 </span> } <span class="subxComment"># end line loop</span> -<span id="L14380" class="LineNr">14380 </span><span class="Constant">$parse-mu:end</span>: -<span id="L14381" class="LineNr">14381 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L14382" class="LineNr">14382 </span> 81 0/subop/add %esp 0x20c/imm32 <span class="subxComment"># line</span> -<span id="L14383" class="LineNr">14383 </span> 81 0/subop/add %esp 0xc08/imm32 <span class="subxComment"># vars</span> -<span id="L14384" class="LineNr">14384 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14385" class="LineNr">14385 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14386" class="LineNr">14386 </span> 5f/pop-to-edi -<span id="L14387" class="LineNr">14387 </span> 5e/pop-to-esi -<span id="L14388" class="LineNr">14388 </span> 5b/pop-to-ebx -<span id="L14389" class="LineNr">14389 </span> 5a/pop-to-edx -<span id="L14390" class="LineNr">14390 </span> 59/pop-to-ecx -<span id="L14391" class="LineNr">14391 </span> 58/pop-to-eax -<span id="L14392" class="LineNr">14392 </span> <span class="subxS1Comment"># . reclaim local</span> -<span id="L14393" class="LineNr">14393 </span> 81 0/subop/add %esp 4/imm32 -<span id="L14394" class="LineNr">14394 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14395" class="LineNr">14395 </span> 89/<- %esp 5/r32/ebp -<span id="L14396" class="LineNr">14396 </span> 5d/pop-to-ebp -<span id="L14397" class="LineNr">14397 </span> c3/return -<span id="L14398" class="LineNr">14398 </span> -<span id="L14399" class="LineNr">14399 </span><span class="Constant">$parse-mu:error1</span>: -<span id="L14400" class="LineNr">14400 </span> <span class="subxComment"># error("unexpected top-level command: " word-slice "\n")</span> -<span id="L14401" class="LineNr">14401 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"unexpected top-level command: "</span>) -<span id="L14402" class="LineNr">14402 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) %edx) -<span id="L14403" class="LineNr">14403 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"\n"</span>) -<span id="L14404" class="LineNr">14404 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L14405" class="LineNr">14405 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L14406" class="LineNr">14406 </span> <span class="subxComment"># never gets here</span> -<span id="L14407" class="LineNr">14407 </span> -<span id="L14408" class="LineNr">14408 </span><span class="Constant">$parse-mu:error2</span>: -<span id="L14409" class="LineNr">14409 </span> <span class="subxComment"># error(vars->top " vars not reclaimed after fn '" new-function->name "'\n")</span> -<span id="L14410" class="LineNr">14410 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) *ebx) -<span id="L14411" class="LineNr">14411 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">" vars not reclaimed after fn '"</span>) -<span id="L14412" class="LineNr">14412 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *eax) <span class="subxComment"># Function-name</span> -<span id="L14413" class="LineNr">14413 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"'\n"</span>) -<span id="L14414" class="LineNr">14414 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L14415" class="LineNr">14415 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L14416" class="LineNr">14416 </span> <span class="subxComment"># never gets here</span> -<span id="L14417" class="LineNr">14417 </span> -<span id="L14418" class="LineNr">14418 </span><span class="subxComment"># scenarios considered:</span> -<span id="L14419" class="LineNr">14419 </span><span class="subxComment"># ✗ fn foo # no block</span> -<span id="L14420" class="LineNr">14420 </span><span class="subxComment"># ✓ fn foo {</span> -<span id="L14421" class="LineNr">14421 </span><span class="subxComment"># ✗ fn foo { {</span> -<span id="L14422" class="LineNr">14422 </span><span class="subxComment"># ✗ fn foo { }</span> -<span id="L14423" class="LineNr">14423 </span><span class="subxComment"># ✗ fn foo { } {</span> -<span id="L14424" class="LineNr">14424 </span><span class="subxComment"># ✗ fn foo x {</span> -<span id="L14425" class="LineNr">14425 </span><span class="subxComment"># ✗ fn foo x: {</span> -<span id="L14426" class="LineNr">14426 </span><span class="subxComment"># ✓ fn foo x: int {</span> -<span id="L14427" class="LineNr">14427 </span><span class="subxComment"># ✓ fn foo x: int {</span> -<span id="L14428" class="LineNr">14428 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int {</span> -<span id="L14429" class="LineNr">14429 </span><span class="subxComment"># TODO:</span> -<span id="L14430" class="LineNr">14430 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> -<span id="L14431" class="LineNr">14431 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> -<span id="L14432" class="LineNr">14432 </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="L14433" class="LineNr">14433 </span> <span class="subxComment"># pseudocode:</span> -<span id="L14434" class="LineNr">14434 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L14435" class="LineNr">14435 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> -<span id="L14436" class="LineNr">14436 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L14437" class="LineNr">14437 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L14438" class="LineNr">14438 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> -<span id="L14439" class="LineNr">14439 </span> <span class="subxComment"># ## inouts</span> -<span id="L14440" class="LineNr">14440 </span> <span class="subxComment"># while true</span> -<span id="L14441" class="LineNr">14441 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L14442" class="LineNr">14442 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L14443" class="LineNr">14443 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> -<span id="L14444" class="LineNr">14444 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L14445" class="LineNr">14445 </span> <span class="subxComment"># assert(word-slice != '}')</span> -<span id="L14446" class="LineNr">14446 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L14447" class="LineNr">14447 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L14448" class="LineNr">14448 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> -<span id="L14449" class="LineNr">14449 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L14450" class="LineNr">14450 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L14451" class="LineNr">14451 </span> <span class="subxComment"># ## outputs</span> -<span id="L14452" class="LineNr">14452 </span> <span class="subxComment"># while true</span> -<span id="L14453" class="LineNr">14453 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L14454" class="LineNr">14454 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L14455" class="LineNr">14455 </span> <span class="subxComment"># if (word-slice == '{') break</span> -<span id="L14456" class="LineNr">14456 </span> <span class="subxComment"># assert(word-slice not in '}' '->')</span> -<span id="L14457" class="LineNr">14457 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L14458" class="LineNr">14458 </span> <span class="subxComment"># assert(v->register != null)</span> -<span id="L14459" class="LineNr">14459 </span> <span class="subxComment"># assert(v->name == "_")</span> -<span id="L14460" class="LineNr">14460 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L14461" class="LineNr">14461 </span> <span class="subxComment"># done:</span> -<span id="L14462" class="LineNr">14462 </span> <span class="subxComment">#</span> -<span id="L14463" class="LineNr">14463 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14464" class="LineNr">14464 </span> 55/push-ebp -<span id="L14465" class="LineNr">14465 </span> 89/<- %ebp 4/r32/esp -<span id="L14466" class="LineNr">14466 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14467" class="LineNr">14467 </span> 50/push-eax -<span id="L14468" class="LineNr">14468 </span> 51/push-ecx -<span id="L14469" class="LineNr">14469 </span> 52/push-edx -<span id="L14470" class="LineNr">14470 </span> 53/push-ebx -<span id="L14471" class="LineNr">14471 </span> 57/push-edi -<span id="L14472" class="LineNr">14472 </span> <span class="subxComment"># edi = out</span> -<span id="L14473" class="LineNr">14473 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L14474" class="LineNr">14474 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L14475" class="LineNr">14475 </span> 68/push 0/imm32/end -<span id="L14476" class="LineNr">14476 </span> 68/push 0/imm32/start -<span id="L14477" class="LineNr">14477 </span> 89/<- %ecx 4/r32/esp -<span id="L14478" class="LineNr">14478 </span> <span class="subxComment"># var v/ebx: (handle var)</span> +<span id="L14168" class="LineNr">14168 </span><span class="subxTest">test-convert-with-no-inout</span>: +<span id="L14169" class="LineNr">14169 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14170" class="LineNr">14170 </span> 55/push-ebp +<span id="L14171" class="LineNr">14171 </span> 89/<- %ebp 4/r32/esp +<span id="L14172" class="LineNr">14172 </span> <span class="subxComment"># setup</span> +<span id="L14173" class="LineNr">14173 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14174" class="LineNr">14174 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14175" class="LineNr">14175 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L14176" class="LineNr">14176 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14177" class="LineNr">14177 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L14178" class="LineNr">14178 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14179" class="LineNr">14179 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14180" class="LineNr">14180 </span> 68/push 0/imm32 +<span id="L14181" class="LineNr">14181 </span> 68/push 0/imm32 +<span id="L14182" class="LineNr">14182 </span> 89/<- %edx 4/r32/esp +<span id="L14183" class="LineNr">14183 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14184" class="LineNr">14184 </span> <span class="subxComment">#</span> +<span id="L14185" class="LineNr">14185 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14186" class="LineNr">14186 </span> (<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="L14187" class="LineNr">14187 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14188" class="LineNr">14188 </span> <span class="subxComment"># convert</span> +<span id="L14189" class="LineNr">14189 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L14190" class="LineNr">14190 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14191" class="LineNr">14191 </span> <span class="subxComment"># restore ed</span> +<span id="L14192" class="LineNr">14192 </span> 89/<- %edx 4/r32/esp +<span id="L14193" class="LineNr">14193 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L14194" class="LineNr">14194 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) +<span id="L14195" class="Folded">14195 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14201" class="LineNr">14201 </span> <span class="subxComment"># check output</span> +<span id="L14202" class="LineNr">14202 </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#L14168'>test-convert-with-no-inout</a>: output should be empty"</span>) +<span id="L14203" class="LineNr">14203 </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#L14168'>test-convert-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L14204" class="LineNr">14204 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14205" class="LineNr">14205 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14168'>test-convert-with-no-inout</a>: exit status"</span>) +<span id="L14206" class="LineNr">14206 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14207" class="LineNr">14207 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14208" class="LineNr">14208 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14209" class="LineNr">14209 </span> 5d/pop-to-ebp +<span id="L14210" class="LineNr">14210 </span> c3/return +<span id="L14211" class="LineNr">14211 </span> +<span id="L14212" class="LineNr">14212 </span><span class="subxTest">test-convert-with-multiple-inouts</span>: +<span id="L14213" class="LineNr">14213 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14214" class="LineNr">14214 </span> 55/push-ebp +<span id="L14215" class="LineNr">14215 </span> 89/<- %ebp 4/r32/esp +<span id="L14216" class="LineNr">14216 </span> <span class="subxComment"># setup</span> +<span id="L14217" class="LineNr">14217 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14218" class="LineNr">14218 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14219" class="LineNr">14219 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L14220" class="LineNr">14220 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14221" class="LineNr">14221 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L14222" class="LineNr">14222 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14223" class="LineNr">14223 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14224" class="LineNr">14224 </span> 68/push 0/imm32 +<span id="L14225" class="LineNr">14225 </span> 68/push 0/imm32 +<span id="L14226" class="LineNr">14226 </span> 89/<- %edx 4/r32/esp +<span id="L14227" class="LineNr">14227 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14228" class="LineNr">14228 </span> <span class="subxComment">#</span> +<span id="L14229" class="LineNr">14229 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14230" class="LineNr">14230 </span> (<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="L14231" class="LineNr">14231 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14232" class="LineNr">14232 </span> <span class="subxComment"># convert</span> +<span id="L14233" class="LineNr">14233 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L14234" class="LineNr">14234 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14235" class="LineNr">14235 </span> <span class="subxComment"># restore ed</span> +<span id="L14236" class="LineNr">14236 </span> 89/<- %edx 4/r32/esp +<span id="L14237" class="LineNr">14237 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L14238" class="LineNr">14238 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) +<span id="L14239" class="Folded">14239 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14245" class="LineNr">14245 </span> <span class="subxComment"># check output</span> +<span id="L14246" class="LineNr">14246 </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#L14212'>test-convert-with-multiple-inouts</a>: output should be empty"</span>) +<span id="L14247" class="LineNr">14247 </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#L14212'>test-convert-with-multiple-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L14248" class="LineNr">14248 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14249" class="LineNr">14249 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14212'>test-convert-with-multiple-inouts</a>: exit status"</span>) +<span id="L14250" class="LineNr">14250 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14251" class="LineNr">14251 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14252" class="LineNr">14252 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14253" class="LineNr">14253 </span> 5d/pop-to-ebp +<span id="L14254" class="LineNr">14254 </span> c3/return +<span id="L14255" class="LineNr">14255 </span> +<span id="L14256" class="LineNr">14256 </span><span class="subxTest">test-convert-with-no-output</span>: +<span id="L14257" class="LineNr">14257 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14258" class="LineNr">14258 </span> 55/push-ebp +<span id="L14259" class="LineNr">14259 </span> 89/<- %ebp 4/r32/esp +<span id="L14260" class="LineNr">14260 </span> <span class="subxComment"># setup</span> +<span id="L14261" class="LineNr">14261 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14262" class="LineNr">14262 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14263" class="LineNr">14263 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L14264" class="LineNr">14264 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14265" class="LineNr">14265 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L14266" class="LineNr">14266 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14267" class="LineNr">14267 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14268" class="LineNr">14268 </span> 68/push 0/imm32 +<span id="L14269" class="LineNr">14269 </span> 68/push 0/imm32 +<span id="L14270" class="LineNr">14270 </span> 89/<- %edx 4/r32/esp +<span id="L14271" class="LineNr">14271 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14272" class="LineNr">14272 </span> <span class="subxComment">#</span> +<span id="L14273" class="LineNr">14273 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14274" class="LineNr">14274 </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="L14275" class="LineNr">14275 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14276" class="LineNr">14276 </span> <span class="subxComment"># convert</span> +<span id="L14277" class="LineNr">14277 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L14278" class="LineNr">14278 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14279" class="LineNr">14279 </span> <span class="subxComment"># restore ed</span> +<span id="L14280" class="LineNr">14280 </span> 89/<- %edx 4/r32/esp +<span id="L14281" class="LineNr">14281 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L14282" class="LineNr">14282 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) +<span id="L14283" class="Folded">14283 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14289" class="LineNr">14289 </span> <span class="subxComment"># check output</span> +<span id="L14290" class="LineNr">14290 </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#L14256'>test-convert-with-no-output</a>: output should be empty"</span>) +<span id="L14291" class="LineNr">14291 </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#L14256'>test-convert-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L14292" class="LineNr">14292 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14293" class="LineNr">14293 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14256'>test-convert-with-no-output</a>: exit status"</span>) +<span id="L14294" class="LineNr">14294 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14295" class="LineNr">14295 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14296" class="LineNr">14296 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14297" class="LineNr">14297 </span> 5d/pop-to-ebp +<span id="L14298" class="LineNr">14298 </span> c3/return +<span id="L14299" class="LineNr">14299 </span> +<span id="L14300" class="LineNr">14300 </span><span class="subxTest">test-convert-with-multiple-outputs</span>: +<span id="L14301" class="LineNr">14301 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14302" class="LineNr">14302 </span> 55/push-ebp +<span id="L14303" class="LineNr">14303 </span> 89/<- %ebp 4/r32/esp +<span id="L14304" class="LineNr">14304 </span> <span class="subxComment"># setup</span> +<span id="L14305" class="LineNr">14305 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14306" class="LineNr">14306 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14307" class="LineNr">14307 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L14308" class="LineNr">14308 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14309" class="LineNr">14309 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L14310" class="LineNr">14310 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14311" class="LineNr">14311 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14312" class="LineNr">14312 </span> 68/push 0/imm32 +<span id="L14313" class="LineNr">14313 </span> 68/push 0/imm32 +<span id="L14314" class="LineNr">14314 </span> 89/<- %edx 4/r32/esp +<span id="L14315" class="LineNr">14315 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14316" class="LineNr">14316 </span> <span class="subxComment">#</span> +<span id="L14317" class="LineNr">14317 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14318" class="LineNr">14318 </span> (<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="L14319" class="LineNr">14319 </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="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">" x, y <- convert 0\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">"}\n"</span>) +<span id="L14322" class="LineNr">14322 </span> <span class="subxComment"># convert</span> +<span id="L14323" class="LineNr">14323 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L14324" class="LineNr">14324 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14325" class="LineNr">14325 </span> <span class="subxComment"># restore ed</span> +<span id="L14326" class="LineNr">14326 </span> 89/<- %edx 4/r32/esp +<span id="L14327" class="LineNr">14327 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L14328" class="LineNr">14328 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) +<span id="L14329" class="Folded">14329 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14335" class="LineNr">14335 </span> <span class="subxComment"># check output</span> +<span id="L14336" class="LineNr">14336 </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#L14300'>test-convert-with-multiple-outputs</a>: output should be empty"</span>) +<span id="L14337" class="LineNr">14337 </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#L14300'>test-convert-with-multiple-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L14338" class="LineNr">14338 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14339" class="LineNr">14339 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14300'>test-convert-with-multiple-outputs</a>: exit status"</span>) +<span id="L14340" class="LineNr">14340 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14341" class="LineNr">14341 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14342" class="LineNr">14342 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14343" class="LineNr">14343 </span> 5d/pop-to-ebp +<span id="L14344" class="LineNr">14344 </span> c3/return +<span id="L14345" class="LineNr">14345 </span> +<span id="L14346" class="LineNr">14346 </span><span class="subxTest">test-convert-deref-address</span>: +<span id="L14347" class="LineNr">14347 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14348" class="LineNr">14348 </span> 55/push-ebp +<span id="L14349" class="LineNr">14349 </span> 89/<- %ebp 4/r32/esp +<span id="L14350" class="LineNr">14350 </span> <span class="subxComment"># setup</span> +<span id="L14351" class="LineNr">14351 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14352" class="LineNr">14352 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14353" class="LineNr">14353 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L14354" class="LineNr">14354 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14355" class="LineNr">14355 </span> <span class="subxComment">#</span> +<span id="L14356" class="LineNr">14356 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14357" class="LineNr">14357 </span> (<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="L14358" class="LineNr">14358 </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="L14359" class="LineNr">14359 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14360" class="LineNr">14360 </span> <span class="subxComment"># convert</span> +<span id="L14361" class="LineNr">14361 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L14362" class="LineNr">14362 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L14363" class="Folded">14363 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14369" class="LineNr">14369 </span> <span class="subxComment"># not bothering checking output</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#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14346'>test-convert-deref-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L14371" class="LineNr">14371 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14372" class="LineNr">14372 </span> 5d/pop-to-ebp +<span id="L14373" class="LineNr">14373 </span> c3/return +<span id="L14374" class="LineNr">14374 </span> +<span id="L14375" class="LineNr">14375 </span><span class="subxTest">test-convert-to-non-register</span>: +<span id="L14376" class="LineNr">14376 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14377" class="LineNr">14377 </span> 55/push-ebp +<span id="L14378" class="LineNr">14378 </span> 89/<- %ebp 4/r32/esp +<span id="L14379" class="LineNr">14379 </span> <span class="subxComment"># setup</span> +<span id="L14380" class="LineNr">14380 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14381" class="LineNr">14381 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14382" class="LineNr">14382 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L14383" class="LineNr">14383 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14384" class="LineNr">14384 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L14385" class="LineNr">14385 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14386" class="LineNr">14386 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14387" class="LineNr">14387 </span> 68/push 0/imm32 +<span id="L14388" class="LineNr">14388 </span> 68/push 0/imm32 +<span id="L14389" class="LineNr">14389 </span> 89/<- %edx 4/r32/esp +<span id="L14390" class="LineNr">14390 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14391" class="LineNr">14391 </span> <span class="subxComment">#</span> +<span id="L14392" class="LineNr">14392 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14393" class="LineNr">14393 </span> (<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="L14394" class="LineNr">14394 </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="L14395" class="LineNr">14395 </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="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">"}\n"</span>) +<span id="L14397" class="LineNr">14397 </span> <span class="subxComment"># convert</span> +<span id="L14398" class="LineNr">14398 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L14399" class="LineNr">14399 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14400" class="LineNr">14400 </span> <span class="subxComment"># restore ed</span> +<span id="L14401" class="LineNr">14401 </span> 89/<- %edx 4/r32/esp +<span id="L14402" class="LineNr">14402 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L14403" class="LineNr">14403 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) +<span id="L14404" class="Folded">14404 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14410" class="LineNr">14410 </span> <span class="subxComment"># check output</span> +<span id="L14411" class="LineNr">14411 </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#L14375'>test-convert-to-non-register</a>: output should be empty"</span>) +<span id="L14412" class="LineNr">14412 </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#L14375'>test-convert-to-non-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L14413" class="LineNr">14413 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14414" class="LineNr">14414 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14375'>test-convert-to-non-register</a>: exit status"</span>) +<span id="L14415" class="LineNr">14415 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14416" class="LineNr">14416 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14417" class="LineNr">14417 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14418" class="LineNr">14418 </span> 5d/pop-to-ebp +<span id="L14419" class="LineNr">14419 </span> c3/return +<span id="L14420" class="LineNr">14420 </span> +<span id="L14421" class="LineNr">14421 </span><span class="subxTest">test-convert-invalid-inout-type</span>: +<span id="L14422" class="LineNr">14422 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14423" class="LineNr">14423 </span> 55/push-ebp +<span id="L14424" class="LineNr">14424 </span> 89/<- %ebp 4/r32/esp +<span id="L14425" class="LineNr">14425 </span> <span class="subxComment"># setup</span> +<span id="L14426" class="LineNr">14426 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14427" class="LineNr">14427 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14428" class="LineNr">14428 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L14429" class="LineNr">14429 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14430" class="LineNr">14430 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L14431" class="LineNr">14431 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14432" class="LineNr">14432 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14433" class="LineNr">14433 </span> 68/push 0/imm32 +<span id="L14434" class="LineNr">14434 </span> 68/push 0/imm32 +<span id="L14435" class="LineNr">14435 </span> 89/<- %edx 4/r32/esp +<span id="L14436" class="LineNr">14436 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14437" class="LineNr">14437 </span> <span class="subxComment">#</span> +<span id="L14438" class="LineNr">14438 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14439" class="LineNr">14439 </span> (<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="L14440" class="LineNr">14440 </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="L14441" class="LineNr">14441 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14442" class="LineNr">14442 </span> <span class="subxComment"># convert</span> +<span id="L14443" class="LineNr">14443 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L14444" class="LineNr">14444 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14445" class="LineNr">14445 </span> <span class="subxComment"># restore ed</span> +<span id="L14446" class="LineNr">14446 </span> 89/<- %edx 4/r32/esp +<span id="L14447" class="LineNr">14447 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L14448" class="LineNr">14448 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) +<span id="L14449" class="Folded">14449 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14455" class="LineNr">14455 </span> <span class="subxComment"># check output</span> +<span id="L14456" class="LineNr">14456 </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#L14421'>test-convert-invalid-inout-type</a>: output should be empty"</span>) +<span id="L14457" class="LineNr">14457 </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#L14421'>test-convert-invalid-inout-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L14458" class="LineNr">14458 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14459" class="LineNr">14459 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14421'>test-convert-invalid-inout-type</a>: exit status"</span>) +<span id="L14460" class="LineNr">14460 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14461" class="LineNr">14461 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14462" class="LineNr">14462 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14463" class="LineNr">14463 </span> 5d/pop-to-ebp +<span id="L14464" class="LineNr">14464 </span> c3/return +<span id="L14465" class="LineNr">14465 </span> +<span id="L14466" class="LineNr">14466 </span><span class="subxTest">test-convert-invalid-output-type</span>: +<span id="L14467" class="LineNr">14467 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14468" class="LineNr">14468 </span> 55/push-ebp +<span id="L14469" class="LineNr">14469 </span> 89/<- %ebp 4/r32/esp +<span id="L14470" class="LineNr">14470 </span> <span class="subxComment"># setup</span> +<span id="L14471" class="LineNr">14471 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14472" class="LineNr">14472 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14473" class="LineNr">14473 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L14474" class="LineNr">14474 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14475" class="LineNr">14475 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L14476" class="LineNr">14476 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14477" class="LineNr">14477 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14478" class="LineNr">14478 </span> 68/push 0/imm32 <span id="L14479" class="LineNr">14479 </span> 68/push 0/imm32 -<span id="L14480" class="LineNr">14480 </span> 68/push 0/imm32 -<span id="L14481" class="LineNr">14481 </span> 89/<- %ebx 4/r32/esp -<span id="L14482" class="LineNr">14482 </span> <span class="subxComment"># read function name</span> -<span id="L14483" class="LineNr">14483 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L14484" class="LineNr">14484 </span> <span class="subxComment"># error checking</span> -<span id="L14485" class="LineNr">14485 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L14486" class="LineNr">14486 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14487" class="LineNr">14487 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14488" class="LineNr">14488 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L14489" class="LineNr">14489 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L14490" class="LineNr">14490 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L14491" class="LineNr">14491 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14492" class="LineNr">14492 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L14493" class="LineNr">14493 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L14494" class="LineNr">14494 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L14495" class="LineNr">14495 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14496" class="LineNr">14496 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L14497" class="LineNr">14497 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L14498" class="LineNr">14498 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L14499" class="LineNr">14499 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14500" class="LineNr">14500 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L14501" class="LineNr">14501 </span> <span class="subxComment"># if word-slice already defined, abort</span> -<span id="L14502" class="LineNr">14502 </span> (<a href='mu.subx.html#L15104'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14503" class="LineNr">14503 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14504" class="LineNr">14504 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-duplicate/disp32 -<span id="L14505" class="LineNr">14505 </span> <span class="subxComment">#</span> -<span id="L14506" class="LineNr">14506 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> -<span id="L14507" class="LineNr">14507 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14508" class="LineNr">14508 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-break/disp32 -<span id="L14509" class="LineNr">14509 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> -<span id="L14510" class="LineNr">14510 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14511" class="LineNr">14511 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-loop/disp32 -<span id="L14512" class="LineNr">14512 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> -<span id="L14513" class="LineNr">14513 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14514" class="LineNr">14514 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-lookup/disp32 -<span id="L14515" class="LineNr">14515 </span> <span class="subxComment"># save function name</span> -<span id="L14516" class="LineNr">14516 </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="L14517" class="LineNr">14517 </span> <span class="subxComment"># save function inouts</span> -<span id="L14518" class="LineNr">14518 </span> { -<span id="L14519" class="LineNr">14519 </span><span class="Constant">$populate-mu-function-header:check-for-inout</span>: -<span id="L14520" class="LineNr">14520 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L14521" class="LineNr">14521 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L14522" class="LineNr">14522 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14523" class="LineNr">14523 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14524" class="LineNr">14524 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L14525" class="LineNr">14525 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> -<span id="L14526" class="LineNr">14526 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L14527" class="LineNr">14527 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14528" class="LineNr">14528 </span> 0f 85/jump-if-!= $populate-mu-function-header:done/disp32 -<span id="L14529" class="LineNr">14529 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L14530" class="LineNr">14530 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L14531" class="LineNr">14531 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14532" class="LineNr">14532 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L14533" class="LineNr">14533 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L14534" class="LineNr">14534 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L14535" class="LineNr">14535 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14536" class="LineNr">14536 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L14537" class="LineNr">14537 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L14538" class="LineNr">14538 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14539" class="LineNr">14539 </span> (<a href='mu.subx.html#L15411'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L14540" class="LineNr">14540 </span> <span class="subxComment"># if (v->register != null) abort</span> -<span id="L14541" class="LineNr">14541 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L14542" class="LineNr">14542 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14543" class="LineNr">14543 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L14544" class="LineNr">14544 </span> 0f 85/jump-if-!= $populate-mu-function-header:error2/disp32 -<span id="L14545" class="LineNr">14545 </span> <span class="subxComment"># if function name is not "main"</span> -<span id="L14546" class="LineNr">14546 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> -<span id="L14547" class="LineNr">14547 </span> { -<span id="L14548" class="LineNr">14548 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14549" class="LineNr">14549 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> -<span id="L14550" class="LineNr">14550 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14551" class="LineNr">14551 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L14552" class="LineNr">14552 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14553" class="LineNr">14553 </span> (<a href='mu.subx.html#L15050'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L14554" class="LineNr">14554 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14555" class="LineNr">14555 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-nested-addr-inout/disp32 -<span id="L14556" class="LineNr">14556 </span> } -<span id="L14557" class="LineNr">14557 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> -<span id="L14558" class="LineNr">14558 </span> <span class="subxComment">#</span> -<span id="L14559" class="LineNr">14559 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L14560" class="LineNr">14560 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> -<span id="L14561" class="LineNr">14561 </span> (<a href='mu.subx.html#L18492'>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="L14562" class="LineNr">14562 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L14563" class="LineNr">14563 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *ebx) -<span id="L14564" class="LineNr">14564 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebx+4)) -<span id="L14565" class="LineNr">14565 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L14566" class="LineNr">14566 </span> <span class="subxComment">#</span> -<span id="L14567" class="LineNr">14567 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L14568" class="LineNr">14568 </span> } -<span id="L14569" class="LineNr">14569 </span> <span class="subxComment"># save function outputs</span> -<span id="L14570" class="LineNr">14570 </span> { -<span id="L14571" class="LineNr">14571 </span><span class="Constant">$populate-mu-function-header:check-for-out</span>: -<span id="L14572" class="LineNr">14572 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L14573" class="LineNr">14573 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L14574" class="LineNr">14574 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14575" class="LineNr">14575 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14576" class="LineNr">14576 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L14577" class="LineNr">14577 </span> <span class="subxComment"># if (word-slice == '{') break</span> -<span id="L14578" class="LineNr">14578 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L14579" class="LineNr">14579 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14580" class="LineNr">14580 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L14581" class="LineNr">14581 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L14582" class="LineNr">14582 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L14583" class="LineNr">14583 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14584" class="LineNr">14584 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L14585" class="LineNr">14585 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L14586" class="LineNr">14586 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L14587" class="LineNr">14587 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14588" class="LineNr">14588 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L14589" class="LineNr">14589 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L14590" class="LineNr">14590 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14591" class="LineNr">14591 </span> (<a href='mu.subx.html#L15411'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L14592" class="LineNr">14592 </span> <span class="subxComment"># assert(var->register != null)</span> -<span id="L14593" class="LineNr">14593 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L14594" class="LineNr">14594 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14595" class="LineNr">14595 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L14596" class="LineNr">14596 </span> 0f 84/jump-if-= $populate-mu-function-header:error3/disp32 -<span id="L14597" class="LineNr">14597 </span> <span class="subxComment"># if (var->name != "_") abort</span> -<span id="L14598" class="LineNr">14598 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14599" class="LineNr">14599 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> -<span id="L14600" class="LineNr">14600 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14601" class="LineNr">14601 </span> 0f 84/jump-if-= $populate-mu-function-header:error4/disp32 -<span id="L14602" class="LineNr">14602 </span> <span class="subxComment"># if v->type is an addr, abort</span> -<span id="L14603" class="LineNr">14603 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14604" class="LineNr">14604 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L14605" class="LineNr">14605 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L14606" class="LineNr">14606 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14607" class="LineNr">14607 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-addr-output/disp32 -<span id="L14608" class="LineNr">14608 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L14609" class="LineNr">14609 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> -<span id="L14610" class="LineNr">14610 </span> (<a href='mu.subx.html#L18492'>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="L14611" class="LineNr">14611 </span> <span class="subxComment">#</span> -<span id="L14612" class="LineNr">14612 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L14613" class="LineNr">14613 </span> } -<span id="L14614" class="LineNr">14614 </span><span class="Constant">$populate-mu-function-header:done</span>: -<span id="L14615" class="LineNr">14615 </span> (<a href='mu.subx.html#L16861'>check-no-tokens-left</a> *(ebp+8)) -<span id="L14616" class="LineNr">14616 </span><span class="Constant">$populate-mu-function-header:end</span>: -<span id="L14617" class="LineNr">14617 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L14618" class="LineNr">14618 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L14619" class="LineNr">14619 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14620" class="LineNr">14620 </span> 5f/pop-to-edi -<span id="L14621" class="LineNr">14621 </span> 5b/pop-to-ebx -<span id="L14622" class="LineNr">14622 </span> 5a/pop-to-edx -<span id="L14623" class="LineNr">14623 </span> 59/pop-to-ecx -<span id="L14624" class="LineNr">14624 </span> 58/pop-to-eax -<span id="L14625" class="LineNr">14625 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14626" class="LineNr">14626 </span> 89/<- %esp 5/r32/ebp -<span id="L14627" class="LineNr">14627 </span> 5d/pop-to-ebp -<span id="L14628" class="LineNr">14628 </span> c3/return -<span id="L14629" class="LineNr">14629 </span> -<span id="L14630" class="LineNr">14630 </span><span class="Constant">$populate-mu-function-header:error1</span>: -<span id="L14631" class="LineNr">14631 </span> <span class="subxComment"># error("function header not in form 'fn <name> {'")</span> -<span id="L14632" class="LineNr">14632 </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="L14633" class="LineNr">14633 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14634" class="LineNr">14634 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L14635" class="LineNr">14635 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) -<span id="L14636" class="LineNr">14636 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L14637" class="LineNr">14637 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14638" class="LineNr">14638 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14639" class="LineNr">14639 </span> <span class="subxComment"># never gets here</span> -<span id="L14640" class="LineNr">14640 </span> -<span id="L14641" class="LineNr">14641 </span><span class="Constant">$populate-mu-function-header:error2</span>: -<span id="L14642" class="LineNr">14642 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> -<span id="L14643" class="LineNr">14643 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14644" class="LineNr">14644 </span> 50/push-eax -<span id="L14645" class="LineNr">14645 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14646" class="LineNr">14646 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14647" class="LineNr">14647 </span> 58/pop-to-eax -<span id="L14648" class="LineNr">14648 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function inout '"</span>) -<span id="L14649" class="LineNr">14649 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14650" class="LineNr">14650 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14651" class="LineNr">14651 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' cannot be in a register"</span>) -<span id="L14652" class="LineNr">14652 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14653" class="LineNr">14653 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14654" class="LineNr">14654 </span> <span class="subxComment"># never gets here</span> -<span id="L14655" class="LineNr">14655 </span> -<span id="L14656" class="LineNr">14656 </span><span class="Constant">$populate-mu-function-header:error3</span>: -<span id="L14657" class="LineNr">14657 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> -<span id="L14658" class="LineNr">14658 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14659" class="LineNr">14659 </span> 50/push-eax -<span id="L14660" class="LineNr">14660 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14661" class="LineNr">14661 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14662" class="LineNr">14662 </span> 58/pop-to-eax -<span id="L14663" class="LineNr">14663 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function output '"</span>) -<span id="L14664" class="LineNr">14664 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14665" class="LineNr">14665 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14666" class="LineNr">14666 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14667" class="LineNr">14667 </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="L14668" class="LineNr">14668 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L14669" class="LineNr">14669 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) -<span id="L14670" class="LineNr">14670 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L14671" class="LineNr">14671 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14672" class="LineNr">14672 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14673" class="LineNr">14673 </span> <span class="subxComment"># never gets here</span> -<span id="L14674" class="LineNr">14674 </span> -<span id="L14675" class="LineNr">14675 </span><span class="Constant">$populate-mu-function-header:error4</span>: -<span id="L14676" class="LineNr">14676 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> -<span id="L14677" class="LineNr">14677 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14678" class="LineNr">14678 </span> 50/push-eax -<span id="L14679" class="LineNr">14679 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14680" class="LineNr">14680 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14681" class="LineNr">14681 </span> 58/pop-to-eax -<span id="L14682" class="LineNr">14682 </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="L14683" class="LineNr">14683 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14684" class="LineNr">14684 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14685" class="LineNr">14685 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14686" class="LineNr">14686 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' in the header to '_'\n"</span>) -<span id="L14687" class="LineNr">14687 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14688" class="LineNr">14688 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14689" class="LineNr">14689 </span> <span class="subxComment"># never gets here</span> -<span id="L14690" class="LineNr">14690 </span> -<span id="L14691" class="LineNr">14691 </span><span class="Constant">$populate-mu-function-header:error-duplicate</span>: -<span id="L14692" class="LineNr">14692 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14693" class="LineNr">14693 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) -<span id="L14694" class="LineNr">14694 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">" defined more than once\n"</span>) -<span id="L14695" class="LineNr">14695 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14696" class="LineNr">14696 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14697" class="LineNr">14697 </span> <span class="subxComment"># never gets here</span> -<span id="L14698" class="LineNr">14698 </span> -<span id="L14699" class="LineNr">14699 </span><span class="Constant">$populate-mu-function-header:error-break</span>: -<span id="L14700" class="LineNr">14700 </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="L14701" class="LineNr">14701 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14702" class="LineNr">14702 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14703" class="LineNr">14703 </span> <span class="subxComment"># never gets here</span> -<span id="L14704" class="LineNr">14704 </span> -<span id="L14705" class="LineNr">14705 </span><span class="Constant">$populate-mu-function-header:error-loop</span>: -<span id="L14706" class="LineNr">14706 </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="L14707" class="LineNr">14707 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14708" class="LineNr">14708 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14709" class="LineNr">14709 </span> <span class="subxComment"># never gets here</span> -<span id="L14710" class="LineNr">14710 </span> -<span id="L14711" class="LineNr">14711 </span><span class="Constant">$populate-mu-function-header:error-lookup</span>: -<span id="L14712" class="LineNr">14712 </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="L14713" class="LineNr">14713 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14714" class="LineNr">14714 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14715" class="LineNr">14715 </span> <span class="subxComment"># never gets here</span> -<span id="L14716" class="LineNr">14716 </span> -<span id="L14717" class="LineNr">14717 </span><span class="Constant">$populate-mu-function-header:error-addr-output</span>: -<span id="L14718" class="LineNr">14718 </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="L14719" class="LineNr">14719 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14720" class="LineNr">14720 </span> 50/push-eax -<span id="L14721" class="LineNr">14721 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14722" class="LineNr">14722 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14723" class="LineNr">14723 </span> 58/pop-to-eax -<span id="L14724" class="LineNr">14724 </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="L14725" class="LineNr">14725 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14726" class="LineNr">14726 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14727" class="LineNr">14727 </span> <span class="subxComment"># never gets here</span> -<span id="L14728" class="LineNr">14728 </span> -<span id="L14729" class="LineNr">14729 </span><span class="Constant">$populate-mu-function-header:error-nested-addr-inout</span>: -<span id="L14730" class="LineNr">14730 </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="L14731" class="LineNr">14731 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L14732" class="LineNr">14732 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14733" class="LineNr">14733 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14734" class="LineNr">14734 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": inout '"</span>) -<span id="L14735" class="LineNr">14735 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14736" class="LineNr">14736 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14737" class="LineNr">14737 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L14738" class="LineNr">14738 </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="L14739" class="LineNr">14739 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L14740" class="LineNr">14740 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L14741" class="LineNr">14741 </span> <span class="subxComment"># never gets here</span> -<span id="L14742" class="LineNr">14742 </span> -<span id="L14743" class="LineNr">14743 </span><span class="subxComment"># scenarios considered:</span> -<span id="L14744" class="LineNr">14744 </span><span class="subxComment"># ✓ fn foo</span> -<span id="L14745" class="LineNr">14745 </span><span class="subxComment"># ✗ fn foo {</span> -<span id="L14746" class="LineNr">14746 </span><span class="subxComment"># ✓ fn foo x</span> -<span id="L14747" class="LineNr">14747 </span><span class="subxComment"># ✓ fn foo x: int</span> -<span id="L14748" class="LineNr">14748 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int</span> -<span id="L14749" class="LineNr">14749 </span><span class="subxComment"># TODO:</span> -<span id="L14750" class="LineNr">14750 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> -<span id="L14751" class="LineNr">14751 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> -<span id="L14752" class="LineNr">14752 </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="L14753" class="LineNr">14753 </span> <span class="subxComment"># pseudocode:</span> -<span id="L14754" class="LineNr">14754 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L14755" class="LineNr">14755 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> -<span id="L14756" class="LineNr">14756 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L14757" class="LineNr">14757 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> -<span id="L14758" class="LineNr">14758 </span> <span class="subxComment"># ## inouts</span> -<span id="L14759" class="LineNr">14759 </span> <span class="subxComment"># while true</span> -<span id="L14760" class="LineNr">14760 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L14761" class="LineNr">14761 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L14762" class="LineNr">14762 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L14763" class="LineNr">14763 </span> <span class="subxComment"># assert(word-slice not in '{' '}')</span> -<span id="L14764" class="LineNr">14764 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L14765" class="LineNr">14765 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L14766" class="LineNr">14766 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> -<span id="L14767" class="LineNr">14767 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L14768" class="LineNr">14768 </span> <span class="subxComment"># ## outputs</span> -<span id="L14769" class="LineNr">14769 </span> <span class="subxComment"># while true</span> -<span id="L14770" class="LineNr">14770 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L14771" class="LineNr">14771 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L14772" class="LineNr">14772 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L14773" class="LineNr">14773 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L14774" class="LineNr">14774 </span> <span class="subxComment"># assert(v->register != null)</span> -<span id="L14775" class="LineNr">14775 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L14776" class="LineNr">14776 </span> <span class="subxComment">#</span> -<span id="L14777" class="LineNr">14777 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14778" class="LineNr">14778 </span> 55/push-ebp -<span id="L14779" class="LineNr">14779 </span> 89/<- %ebp 4/r32/esp -<span id="L14780" class="LineNr">14780 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L14781" class="LineNr">14781 </span> 50/push-eax -<span id="L14782" class="LineNr">14782 </span> 51/push-ecx -<span id="L14783" class="LineNr">14783 </span> 52/push-edx -<span id="L14784" class="LineNr">14784 </span> 53/push-ebx -<span id="L14785" class="LineNr">14785 </span> 57/push-edi -<span id="L14786" class="LineNr">14786 </span> <span class="subxComment"># edi = out</span> -<span id="L14787" class="LineNr">14787 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L14788" class="LineNr">14788 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L14789" class="LineNr">14789 </span> 68/push 0/imm32/end -<span id="L14790" class="LineNr">14790 </span> 68/push 0/imm32/start -<span id="L14791" class="LineNr">14791 </span> 89/<- %ecx 4/r32/esp -<span id="L14792" class="LineNr">14792 </span> <span class="subxComment"># var v/ebx: (handle var)</span> -<span id="L14793" class="LineNr">14793 </span> 68/push 0/imm32 -<span id="L14794" class="LineNr">14794 </span> 68/push 0/imm32 -<span id="L14795" class="LineNr">14795 </span> 89/<- %ebx 4/r32/esp -<span id="L14796" class="LineNr">14796 </span> <span class="subxComment"># read function name</span> -<span id="L14797" class="LineNr">14797 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L14798" class="LineNr">14798 </span> <span class="subxComment"># error checking</span> -<span id="L14799" class="LineNr">14799 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L14800" class="LineNr">14800 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L14801" class="LineNr">14801 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14802" class="LineNr">14802 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L14803" class="LineNr">14803 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L14804" class="LineNr">14804 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L14805" class="LineNr">14805 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14806" class="LineNr">14806 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L14807" class="LineNr">14807 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L14808" class="LineNr">14808 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L14809" class="LineNr">14809 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14810" class="LineNr">14810 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L14811" class="LineNr">14811 </span> <span class="subxComment"># if word-slice already defined, abort</span> -<span id="L14812" class="LineNr">14812 </span> (<a href='mu.subx.html#L15104'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14813" class="LineNr">14813 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14814" class="LineNr">14814 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-duplicate/disp32 -<span id="L14815" class="LineNr">14815 </span> <span class="subxComment">#</span> -<span id="L14816" class="LineNr">14816 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> -<span id="L14817" class="LineNr">14817 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14818" class="LineNr">14818 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-break/disp32 -<span id="L14819" class="LineNr">14819 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> -<span id="L14820" class="LineNr">14820 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14821" class="LineNr">14821 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-loop/disp32 -<span id="L14822" class="LineNr">14822 </span> <span class="subxComment"># save function name</span> -<span id="L14823" class="LineNr">14823 </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="L14824" class="LineNr">14824 </span> <span class="subxComment"># save function inouts</span> -<span id="L14825" class="LineNr">14825 </span> { -<span id="L14826" class="LineNr">14826 </span><span class="Constant">$populate-mu-function-signature:check-for-inout</span>: -<span id="L14827" class="LineNr">14827 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L14828" class="LineNr">14828 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14829" class="LineNr">14829 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14830" class="LineNr">14830 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L14831" class="LineNr">14831 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L14832" class="LineNr">14832 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L14833" class="LineNr">14833 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14834" class="LineNr">14834 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L14835" class="LineNr">14835 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L14836" class="LineNr">14836 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L14837" class="LineNr">14837 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14838" class="LineNr">14838 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L14839" class="LineNr">14839 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L14840" class="LineNr">14840 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L14841" class="LineNr">14841 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14842" class="LineNr">14842 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L14843" class="LineNr">14843 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L14844" class="LineNr">14844 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14845" class="LineNr">14845 </span> (<a href='mu.subx.html#L15411'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L14846" class="LineNr">14846 </span> <span class="subxComment"># if (v->register != null) abort</span> -<span id="L14847" class="LineNr">14847 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L14848" class="LineNr">14848 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14849" class="LineNr">14849 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L14850" class="LineNr">14850 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 -<span id="L14851" class="LineNr">14851 </span> <span class="subxComment"># if function name is not "main"</span> -<span id="L14852" class="LineNr">14852 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> -<span id="L14853" class="LineNr">14853 </span> { -<span id="L14854" class="LineNr">14854 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14855" class="LineNr">14855 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> -<span id="L14856" class="LineNr">14856 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14857" class="LineNr">14857 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L14858" class="LineNr">14858 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14859" class="LineNr">14859 </span> (<a href='mu.subx.html#L15050'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L14860" class="LineNr">14860 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14861" class="LineNr">14861 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-nested-addr-inout/disp32 -<span id="L14862" class="LineNr">14862 </span> } -<span id="L14863" class="LineNr">14863 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L14864" class="LineNr">14864 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L14865" class="LineNr">14865 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14866" class="LineNr">14866 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L14867" class="LineNr">14867 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 -<span id="L14868" class="LineNr">14868 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> -<span id="L14869" class="LineNr">14869 </span> <span class="subxComment">#</span> -<span id="L14870" class="LineNr">14870 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L14871" class="LineNr">14871 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> -<span id="L14872" class="LineNr">14872 </span> (<a href='mu.subx.html#L18492'>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="L14873" class="LineNr">14873 </span> <span class="subxComment">#</span> -<span id="L14874" class="LineNr">14874 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L14875" class="LineNr">14875 </span> } -<span id="L14876" class="LineNr">14876 </span> <span class="subxComment"># save function outputs</span> -<span id="L14877" class="LineNr">14877 </span> { -<span id="L14878" class="LineNr">14878 </span><span class="Constant">$populate-mu-function-signature:check-for-out</span>: -<span id="L14879" class="LineNr">14879 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L14880" class="LineNr">14880 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L14881" class="LineNr">14881 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14882" class="LineNr">14882 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L14883" class="LineNr">14883 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L14884" class="LineNr">14884 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L14885" class="LineNr">14885 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14886" class="LineNr">14886 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L14887" class="LineNr">14887 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L14888" class="LineNr">14888 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L14889" class="LineNr">14889 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14890" class="LineNr">14890 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L14891" class="LineNr">14891 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L14892" class="LineNr">14892 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L14893" class="LineNr">14893 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14894" class="LineNr">14894 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L14895" class="LineNr">14895 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L14896" class="LineNr">14896 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14897" class="LineNr">14897 </span> (<a href='mu.subx.html#L15411'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L14898" class="LineNr">14898 </span> <span class="subxComment"># assert(var->register != null)</span> -<span id="L14899" class="LineNr">14899 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L14900" class="LineNr">14900 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14901" class="LineNr">14901 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L14902" class="LineNr">14902 </span> 0f 84/jump-if-= $populate-mu-function-signature:error3/disp32 -<span id="L14903" class="LineNr">14903 </span> <span class="subxComment"># if (var->name != "_") abort</span> -<span id="L14904" class="LineNr">14904 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14905" class="LineNr">14905 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> -<span id="L14906" class="LineNr">14906 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14907" class="LineNr">14907 </span> 0f 84/jump-if-= $populate-mu-function-signature:error4/disp32 -<span id="L14908" class="LineNr">14908 </span> <span class="subxComment"># if function name is not "lookup"</span> -<span id="L14909" class="LineNr">14909 </span> <span class="subxComment"># and v->type is an addr, abort</span> -<span id="L14910" class="LineNr">14910 </span> { -<span id="L14911" class="LineNr">14911 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14912" class="LineNr">14912 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> -<span id="L14913" class="LineNr">14913 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14914" class="LineNr">14914 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L14915" class="LineNr">14915 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14916" class="LineNr">14916 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L14917" class="LineNr">14917 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L14918" class="LineNr">14918 </span> 3d/compare-eax-and 0/imm32/false -<span id="L14919" class="LineNr">14919 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-addr-output/disp32 -<span id="L14920" class="LineNr">14920 </span> } -<span id="L14921" class="LineNr">14921 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L14922" class="LineNr">14922 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> -<span id="L14923" class="LineNr">14923 </span> (<a href='mu.subx.html#L18492'>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="L14924" class="LineNr">14924 </span> <span class="subxComment">#</span> -<span id="L14925" class="LineNr">14925 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L14926" class="LineNr">14926 </span> } -<span id="L14927" class="LineNr">14927 </span><span class="Constant">$populate-mu-function-signature:done</span>: -<span id="L14928" class="LineNr">14928 </span> (<a href='mu.subx.html#L16861'>check-no-tokens-left</a> *(ebp+8)) -<span id="L14929" class="LineNr">14929 </span><span class="Constant">$populate-mu-function-signature:end</span>: -<span id="L14930" class="LineNr">14930 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L14931" class="LineNr">14931 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L14932" class="LineNr">14932 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L14933" class="LineNr">14933 </span> 5f/pop-to-edi -<span id="L14934" class="LineNr">14934 </span> 5b/pop-to-ebx -<span id="L14935" class="LineNr">14935 </span> 5a/pop-to-edx -<span id="L14936" class="LineNr">14936 </span> 59/pop-to-ecx -<span id="L14937" class="LineNr">14937 </span> 58/pop-to-eax -<span id="L14938" class="LineNr">14938 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14939" class="LineNr">14939 </span> 89/<- %esp 5/r32/ebp -<span id="L14940" class="LineNr">14940 </span> 5d/pop-to-ebp -<span id="L14941" class="LineNr">14941 </span> c3/return -<span id="L14942" class="LineNr">14942 </span> -<span id="L14943" class="LineNr">14943 </span><span class="Constant">$populate-mu-function-signature:error1</span>: -<span id="L14944" class="LineNr">14944 </span> <span class="subxComment"># error("function signature not in form 'fn <name> {'")</span> -<span id="L14945" class="LineNr">14945 </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="L14946" class="LineNr">14946 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14947" class="LineNr">14947 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L14948" class="LineNr">14948 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) -<span id="L14949" class="LineNr">14949 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L14950" class="LineNr">14950 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14951" class="LineNr">14951 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14952" class="LineNr">14952 </span> <span class="subxComment"># never gets here</span> -<span id="L14953" class="LineNr">14953 </span> -<span id="L14954" class="LineNr">14954 </span><span class="Constant">$populate-mu-function-signature:error2</span>: -<span id="L14955" class="LineNr">14955 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> -<span id="L14956" class="LineNr">14956 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14957" class="LineNr">14957 </span> 50/push-eax -<span id="L14958" class="LineNr">14958 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14959" class="LineNr">14959 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14960" class="LineNr">14960 </span> 58/pop-to-eax -<span id="L14961" class="LineNr">14961 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function inout '"</span>) -<span id="L14962" class="LineNr">14962 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14963" class="LineNr">14963 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14964" class="LineNr">14964 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot be in a register"</span>) -<span id="L14965" class="LineNr">14965 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14966" class="LineNr">14966 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14967" class="LineNr">14967 </span> <span class="subxComment"># never gets here</span> -<span id="L14968" class="LineNr">14968 </span> -<span id="L14969" class="LineNr">14969 </span><span class="Constant">$populate-mu-function-signature:error3</span>: -<span id="L14970" class="LineNr">14970 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> -<span id="L14971" class="LineNr">14971 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14972" class="LineNr">14972 </span> 50/push-eax -<span id="L14973" class="LineNr">14973 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14974" class="LineNr">14974 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14975" class="LineNr">14975 </span> 58/pop-to-eax -<span id="L14976" class="LineNr">14976 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function output '"</span>) -<span id="L14977" class="LineNr">14977 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14978" class="LineNr">14978 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14979" class="LineNr">14979 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14980" class="LineNr">14980 </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="L14981" class="LineNr">14981 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L14982" class="LineNr">14982 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) -<span id="L14983" class="LineNr">14983 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L14984" class="LineNr">14984 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L14985" class="LineNr">14985 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L14986" class="LineNr">14986 </span> <span class="subxComment"># never gets here</span> -<span id="L14987" class="LineNr">14987 </span> -<span id="L14988" class="LineNr">14988 </span><span class="Constant">$populate-mu-function-signature:error4</span>: -<span id="L14989" class="LineNr">14989 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> -<span id="L14990" class="LineNr">14990 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L14991" class="LineNr">14991 </span> 50/push-eax -<span id="L14992" class="LineNr">14992 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L14993" class="LineNr">14993 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14994" class="LineNr">14994 </span> 58/pop-to-eax -<span id="L14995" class="LineNr">14995 </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="L14996" class="LineNr">14996 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L14997" class="LineNr">14997 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L14998" class="LineNr">14998 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L14999" class="LineNr">14999 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' in the header to '_'\n"</span>) -<span id="L15000" class="LineNr">15000 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L15001" class="LineNr">15001 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L15002" class="LineNr">15002 </span> <span class="subxComment"># never gets here</span> -<span id="L15003" class="LineNr">15003 </span> -<span id="L15004" class="LineNr">15004 </span><span class="Constant">$populate-mu-function-signature:error-duplicate</span>: -<span id="L15005" class="LineNr">15005 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L15006" class="LineNr">15006 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x10) %ecx) -<span id="L15007" class="LineNr">15007 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">" defined more than once\n"</span>) -<span id="L15008" class="LineNr">15008 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L15009" class="LineNr">15009 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L15010" class="LineNr">15010 </span> <span class="subxComment"># never gets here</span> -<span id="L15011" class="LineNr">15011 </span> -<span id="L15012" class="LineNr">15012 </span><span class="Constant">$populate-mu-function-signature:error-break</span>: -<span id="L15013" class="LineNr">15013 </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="L15014" class="LineNr">15014 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L15015" class="LineNr">15015 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L15016" class="LineNr">15016 </span> <span class="subxComment"># never gets here</span> -<span id="L15017" class="LineNr">15017 </span> -<span id="L15018" class="LineNr">15018 </span><span class="Constant">$populate-mu-function-signature:error-loop</span>: -<span id="L15019" class="LineNr">15019 </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="L15020" class="LineNr">15020 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L15021" class="LineNr">15021 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L15022" class="LineNr">15022 </span> <span class="subxComment"># never gets here</span> -<span id="L15023" class="LineNr">15023 </span> -<span id="L15024" class="LineNr">15024 </span><span class="Constant">$populate-mu-function-signature:error-addr-output</span>: -<span id="L15025" class="LineNr">15025 </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="L15026" class="LineNr">15026 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L15027" class="LineNr">15027 </span> 50/push-eax -<span id="L15028" class="LineNr">15028 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L15029" class="LineNr">15029 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L15030" class="LineNr">15030 </span> 58/pop-to-eax -<span id="L15031" class="LineNr">15031 </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="L15032" class="LineNr">15032 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L15033" class="LineNr">15033 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L15034" class="LineNr">15034 </span> <span class="subxComment"># never gets here</span> -<span id="L15035" class="LineNr">15035 </span> -<span id="L15036" class="LineNr">15036 </span><span class="Constant">$populate-mu-function-signature:error-nested-addr-inout</span>: -<span id="L15037" class="LineNr">15037 </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="L15038" class="LineNr">15038 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L15039" class="LineNr">15039 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L15040" class="LineNr">15040 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L15041" class="LineNr">15041 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": inout '"</span>) -<span id="L15042" class="LineNr">15042 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L15043" class="LineNr">15043 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15044" class="LineNr">15044 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L15045" class="LineNr">15045 </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="L15046" class="LineNr">15046 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L15047" class="LineNr">15047 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L15048" class="LineNr">15048 </span> <span class="subxComment"># never gets here</span> -<span id="L15049" class="LineNr">15049 </span> -<span id="L15050" class="LineNr">15050 </span><span class="subxFunction">addr-payload-contains-addr?</span>: <span class="subxComment"># v: (addr var) -> result/eax: boolean</span> -<span id="L15051" class="LineNr">15051 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15052" class="LineNr">15052 </span> 55/push-ebp -<span id="L15053" class="LineNr">15053 </span> 89/<- %ebp 4/r32/esp -<span id="L15054" class="LineNr">15054 </span> <span class="subxComment"># var t/eax: (addr type-tree) = v->type</span> -<span id="L15055" class="LineNr">15055 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L15056" class="LineNr">15056 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L15057" class="LineNr">15057 </span> <span class="subxComment"># if t->right contains addr, return true</span> -<span id="L15058" class="LineNr">15058 </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="L15059" class="LineNr">15059 </span> (<a href='mu.subx.html#L15067'>type-tree-contains?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L15060" class="LineNr">15060 </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="L15061" class="LineNr">15061 </span><span class="Constant">$addr-payload-contains-addr?:end</span>: -<span id="L15062" class="LineNr">15062 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15063" class="LineNr">15063 </span> 89/<- %esp 5/r32/ebp -<span id="L15064" class="LineNr">15064 </span> 5d/pop-to-ebp -<span id="L15065" class="LineNr">15065 </span> c3/return -<span id="L15066" class="LineNr">15066 </span> -<span id="L15067" class="LineNr">15067 </span><span class="subxFunction">type-tree-contains?</span>: <span class="subxComment"># t: (addr type-tree), n: type-id -> result/eax: boolean</span> -<span id="L15068" class="LineNr">15068 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15069" class="LineNr">15069 </span> 55/push-ebp -<span id="L15070" class="LineNr">15070 </span> 89/<- %ebp 4/r32/esp -<span id="L15071" class="LineNr">15071 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15072" class="LineNr">15072 </span> 51/push-ecx -<span id="L15073" class="LineNr">15073 </span> <span class="subxComment"># if t is null, return false</span> -<span id="L15074" class="LineNr">15074 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L15075" class="LineNr">15075 </span> 3d/compare-eax-and 0/imm32 -<span id="L15076" class="LineNr">15076 </span> 0f 84/jump-if-= $type-tree-contains?:end/disp32 <span class="subxComment"># eax changes type</span> -<span id="L15077" class="LineNr">15077 </span> <span class="subxComment"># if t is an atom, return (t->value == n)</span> -<span id="L15078" class="LineNr">15078 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L15079" class="LineNr">15079 </span> { -<span id="L15080" class="LineNr">15080 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15081" class="LineNr">15081 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L15082" class="LineNr">15082 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> -<span id="L15083" class="LineNr">15083 </span> 0f 94/set-if-= %al -<span id="L15084" class="LineNr">15084 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L15085" class="LineNr">15085 </span> eb/jump $type-tree-contains?:end/disp8 -<span id="L15086" class="LineNr">15086 </span> } -<span id="L15087" class="LineNr">15087 </span> <span class="subxComment"># if t->left contains n, return true</span> -<span id="L15088" class="LineNr">15088 </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="L15089" class="LineNr">15089 </span> (<a href='mu.subx.html#L15067'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L15090" class="LineNr">15090 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15091" class="LineNr">15091 </span> 75/jump-if-!= $type-tree-contains?:end/disp8 -<span id="L15092" class="LineNr">15092 </span> <span class="subxComment"># otherwise return whether t->right contains n</span> -<span id="L15093" class="LineNr">15093 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L15094" class="LineNr">15094 </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="L15095" class="LineNr">15095 </span> (<a href='mu.subx.html#L15067'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L15096" class="LineNr">15096 </span><span class="Constant">$type-tree-contains?:end</span>: -<span id="L15097" class="LineNr">15097 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15098" class="LineNr">15098 </span> 59/pop-to-ecx -<span id="L15099" class="LineNr">15099 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15100" class="LineNr">15100 </span> 89/<- %esp 5/r32/ebp -<span id="L15101" class="LineNr">15101 </span> 5d/pop-to-ebp -<span id="L15102" class="LineNr">15102 </span> c3/return -<span id="L15103" class="LineNr">15103 </span> -<span id="L15104" class="LineNr">15104 </span><span class="subxFunction">function-exists?</span>: <span class="subxComment"># s: (addr slice) -> result/eax: boolean</span> -<span id="L15105" class="LineNr">15105 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15106" class="LineNr">15106 </span> 55/push-ebp -<span id="L15107" class="LineNr">15107 </span> 89/<- %ebp 4/r32/esp -<span id="L15108" class="LineNr">15108 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15109" class="LineNr">15109 </span> 51/push-ecx -<span id="L15110" class="LineNr">15110 </span> <span class="subxComment"># var curr/ecx: (addr function) = functions</span> -<span id="L15111" class="LineNr">15111 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L15112" class="LineNr">15112 </span> 89/<- %ecx 0/r32/eax -<span id="L15113" class="LineNr">15113 </span> { -<span id="L15114" class="LineNr">15114 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L15115" class="LineNr">15115 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L15116" class="LineNr">15116 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15117" class="LineNr">15117 </span> <span class="subxComment"># if (curr->name == s) return true</span> -<span id="L15118" class="LineNr">15118 </span> { -<span id="L15119" class="LineNr">15119 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L15120" class="LineNr">15120 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> -<span id="L15121" class="LineNr">15121 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15122" class="LineNr">15122 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15123" class="LineNr">15123 </span> b8/copy-to-eax 1/imm32/true -<span id="L15124" class="LineNr">15124 </span> e9/jump $function-exists?:end/disp32 -<span id="L15125" class="LineNr">15125 </span> } -<span id="L15126" class="LineNr">15126 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L15127" class="LineNr">15127 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L15128" class="LineNr">15128 </span> 89/<- %ecx 0/r32/eax -<span id="L15129" class="LineNr">15129 </span> <span class="subxComment">#</span> -<span id="L15130" class="LineNr">15130 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L15131" class="LineNr">15131 </span> } -<span id="L15132" class="LineNr">15132 </span> <span class="subxComment"># var curr/ecx: (addr function) = signatures</span> -<span id="L15133" class="LineNr">15133 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> -<span id="L15134" class="LineNr">15134 </span> 89/<- %ecx 0/r32/eax -<span id="L15135" class="LineNr">15135 </span> { -<span id="L15136" class="LineNr">15136 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L15137" class="LineNr">15137 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L15138" class="LineNr">15138 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15139" class="LineNr">15139 </span> <span class="subxComment"># if (curr->name == s) return true</span> -<span id="L15140" class="LineNr">15140 </span> { -<span id="L15141" class="LineNr">15141 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L15142" class="LineNr">15142 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> -<span id="L15143" class="LineNr">15143 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15144" class="LineNr">15144 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15145" class="LineNr">15145 </span> b8/copy-to-eax 1/imm32/true -<span id="L15146" class="LineNr">15146 </span> eb/jump $function-exists?:end/disp8 -<span id="L15147" class="LineNr">15147 </span> } -<span id="L15148" class="LineNr">15148 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L15149" class="LineNr">15149 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L15150" class="LineNr">15150 </span> 89/<- %ecx 0/r32/eax -<span id="L15151" class="LineNr">15151 </span> <span class="subxComment">#</span> -<span id="L15152" class="LineNr">15152 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L15153" class="LineNr">15153 </span> } -<span id="L15154" class="LineNr">15154 </span> <span class="subxComment"># return false</span> -<span id="L15155" class="LineNr">15155 </span> b8/copy-to-eax 0/imm32/false -<span id="L15156" class="LineNr">15156 </span><span class="Constant">$function-exists?:end</span>: -<span id="L15157" class="LineNr">15157 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15158" class="LineNr">15158 </span> 59/pop-to-ecx -<span id="L15159" class="LineNr">15159 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15160" class="LineNr">15160 </span> 89/<- %esp 5/r32/ebp -<span id="L15161" class="LineNr">15161 </span> 5d/pop-to-ebp -<span id="L15162" class="LineNr">15162 </span> c3/return -<span id="L15163" class="LineNr">15163 </span> -<span id="L15164" class="LineNr">15164 </span><span class="subxTest">test-function-header-with-arg</span>: -<span id="L15165" class="LineNr">15165 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15166" class="LineNr">15166 </span> 55/push-ebp -<span id="L15167" class="LineNr">15167 </span> 89/<- %ebp 4/r32/esp -<span id="L15168" class="LineNr">15168 </span> <span class="subxComment"># setup</span> -<span id="L15169" class="LineNr">15169 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L15170" class="LineNr">15170 </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="L15171" class="LineNr">15171 </span> c7 0/subop/copy *_Program-functions 0/imm32 -<span id="L15172" class="LineNr">15172 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 -<span id="L15173" class="LineNr">15173 </span> c7 0/subop/copy *_Program-types 0/imm32 -<span id="L15174" class="LineNr">15174 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 -<span id="L15175" class="LineNr">15175 </span> c7 0/subop/copy *_Program-signatures 0/imm32 -<span id="L15176" class="LineNr">15176 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 -<span id="L15177" class="LineNr">15177 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15178" class="LineNr">15178 </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="L15179" class="LineNr">15179 </span> <span class="subxComment"># var result/ecx: function</span> -<span id="L15180" class="LineNr">15180 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp -<span id="L15181" class="LineNr">15181 </span> 89/<- %ecx 4/r32/esp -<span id="L15182" class="LineNr">15182 </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="L15183" class="LineNr">15183 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L15184" class="LineNr">15184 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L15185" class="LineNr">15185 </span> 68/push 0xc0/imm32/size -<span id="L15186" class="LineNr">15186 </span> 68/push 0/imm32/top -<span id="L15187" class="LineNr">15187 </span> 89/<- %ebx 4/r32/esp -<span id="L15188" class="LineNr">15188 </span> <span class="subxComment"># convert</span> -<span id="L15189" class="LineNr">15189 </span> (<a href='mu.subx.html#L14432'>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="L15190" class="LineNr">15190 </span> <span class="subxComment"># check result->name</span> -<span id="L15191" class="LineNr">15191 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L15192" class="LineNr">15192 </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#L15164'>test-function-header-with-arg</a>/name"</span>) -<span id="L15193" class="LineNr">15193 </span> <span class="subxComment"># var v/edx: (addr var) = result->inouts->value</span> -<span id="L15194" class="LineNr">15194 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L15195" class="LineNr">15195 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L15196" class="LineNr">15196 </span> 89/<- %edx 0/r32/eax -<span id="L15197" class="LineNr">15197 </span> <span class="subxComment"># check v->name</span> -<span id="L15198" class="LineNr">15198 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15199" class="LineNr">15199 </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#L15164'>test-function-header-with-arg</a>/inout:0"</span>) -<span id="L15200" class="LineNr">15200 </span> <span class="subxComment"># check v->type</span> -<span id="L15201" class="LineNr">15201 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L15202" class="LineNr">15202 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15164'>test-function-header-with-arg</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15203" class="LineNr">15203 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15164'>test-function-header-with-arg</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L15204" class="LineNr">15204 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15164'>test-function-header-with-arg</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L15205" class="LineNr">15205 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15206" class="LineNr">15206 </span> 89/<- %esp 5/r32/ebp -<span id="L15207" class="LineNr">15207 </span> 5d/pop-to-ebp -<span id="L15208" class="LineNr">15208 </span> c3/return -<span id="L15209" class="LineNr">15209 </span> -<span id="L15210" class="LineNr">15210 </span><span class="subxTest">test-function-header-with-multiple-args</span>: -<span id="L15211" class="LineNr">15211 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15212" class="LineNr">15212 </span> 55/push-ebp -<span id="L15213" class="LineNr">15213 </span> 89/<- %ebp 4/r32/esp -<span id="L15214" class="LineNr">15214 </span> <span class="subxComment"># setup</span> -<span id="L15215" class="LineNr">15215 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L15216" class="LineNr">15216 </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="L15217" class="LineNr">15217 </span> c7 0/subop/copy *_Program-functions 0/imm32 -<span id="L15218" class="LineNr">15218 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 -<span id="L15219" class="LineNr">15219 </span> c7 0/subop/copy *_Program-types 0/imm32 -<span id="L15220" class="LineNr">15220 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 -<span id="L15221" class="LineNr">15221 </span> c7 0/subop/copy *_Program-signatures 0/imm32 -<span id="L15222" class="LineNr">15222 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 -<span id="L15223" class="LineNr">15223 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15224" class="LineNr">15224 </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="L15225" class="LineNr">15225 </span> <span class="subxComment"># result/ecx: function</span> -<span id="L15226" class="LineNr">15226 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp -<span id="L15227" class="LineNr">15227 </span> 89/<- %ecx 4/r32/esp -<span id="L15228" class="LineNr">15228 </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="L15229" class="LineNr">15229 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L15230" class="LineNr">15230 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L15231" class="LineNr">15231 </span> 68/push 0xc0/imm32/size -<span id="L15232" class="LineNr">15232 </span> 68/push 0/imm32/top -<span id="L15233" class="LineNr">15233 </span> 89/<- %ebx 4/r32/esp -<span id="L15234" class="LineNr">15234 </span> <span class="subxComment"># convert</span> -<span id="L15235" class="LineNr">15235 </span> (<a href='mu.subx.html#L14432'>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="L15236" class="LineNr">15236 </span> <span class="subxComment"># check result->name</span> -<span id="L15237" class="LineNr">15237 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L15238" class="LineNr">15238 </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#L15210'>test-function-header-with-multiple-args</a>/name"</span>) -<span id="L15239" class="LineNr">15239 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> -<span id="L15240" class="LineNr">15240 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L15241" class="LineNr">15241 </span> 89/<- %edx 0/r32/eax -<span id="L15242" class="LineNr">15242 </span><span class="Constant">$test-function-header-with-multiple-args:inout0</span>: -<span id="L15243" class="LineNr">15243 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> -<span id="L15244" class="LineNr">15244 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L15245" class="LineNr">15245 </span> 89/<- %ebx 0/r32/eax -<span id="L15246" class="LineNr">15246 </span> <span class="subxComment"># check v->name</span> -<span id="L15247" class="LineNr">15247 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15248" class="LineNr">15248 </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#L15210'>test-function-header-with-multiple-args</a>/inout:0"</span>) <span class="subxComment"># Var-name</span> -<span id="L15249" class="LineNr">15249 </span> <span class="subxComment"># check v->type</span> -<span id="L15250" class="LineNr">15250 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L15251" class="LineNr">15251 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15210'>test-function-header-with-multiple-args</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15252" class="LineNr">15252 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15210'>test-function-header-with-multiple-args</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L15253" class="LineNr">15253 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15210'>test-function-header-with-multiple-args</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L15254" class="LineNr">15254 </span><span class="Constant">$test-function-header-with-multiple-args:inout1</span>: -<span id="L15255" class="LineNr">15255 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L15256" class="LineNr">15256 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L15257" class="LineNr">15257 </span> 89/<- %edx 0/r32/eax -<span id="L15258" class="LineNr">15258 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L15259" class="LineNr">15259 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L15260" class="LineNr">15260 </span> 89/<- %ebx 0/r32/eax -<span id="L15261" class="LineNr">15261 </span> <span class="subxComment"># check v->name</span> -<span id="L15262" class="LineNr">15262 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15263" class="LineNr">15263 </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#L15210'>test-function-header-with-multiple-args</a>/inout:1"</span>) <span class="subxComment"># Var-name</span> -<span id="L15264" class="LineNr">15264 </span> <span class="subxComment"># check v->type</span> -<span id="L15265" class="LineNr">15265 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L15266" class="LineNr">15266 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15210'>test-function-header-with-multiple-args</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15267" class="LineNr">15267 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15210'>test-function-header-with-multiple-args</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L15268" class="LineNr">15268 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15210'>test-function-header-with-multiple-args</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L15269" class="LineNr">15269 </span><span class="Constant">$test-function-header-with-multiple-args:inout2</span>: -<span id="L15270" class="LineNr">15270 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L15271" class="LineNr">15271 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L15272" class="LineNr">15272 </span> 89/<- %edx 0/r32/eax -<span id="L15273" class="LineNr">15273 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L15274" class="LineNr">15274 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L15275" class="LineNr">15275 </span> 89/<- %ebx 0/r32/eax -<span id="L15276" class="LineNr">15276 </span> <span class="subxComment"># check v->name</span> -<span id="L15277" class="LineNr">15277 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15278" class="LineNr">15278 </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#L15210'>test-function-header-with-multiple-args</a>/inout:2"</span>) <span class="subxComment"># Var-name</span> -<span id="L15279" class="LineNr">15279 </span> <span class="subxComment"># check v->type</span> -<span id="L15280" class="LineNr">15280 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L15281" class="LineNr">15281 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15210'>test-function-header-with-multiple-args</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15282" class="LineNr">15282 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15210'>test-function-header-with-multiple-args</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L15283" class="LineNr">15283 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15210'>test-function-header-with-multiple-args</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L15284" class="LineNr">15284 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15285" class="LineNr">15285 </span> 89/<- %esp 5/r32/ebp -<span id="L15286" class="LineNr">15286 </span> 5d/pop-to-ebp -<span id="L15287" class="LineNr">15287 </span> c3/return -<span id="L15288" class="LineNr">15288 </span> -<span id="L15289" class="LineNr">15289 </span><span class="subxTest">test-function-header-with-multiple-args-and-outputs</span>: -<span id="L15290" class="LineNr">15290 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15291" class="LineNr">15291 </span> 55/push-ebp -<span id="L15292" class="LineNr">15292 </span> 89/<- %ebp 4/r32/esp -<span id="L15293" class="LineNr">15293 </span> <span class="subxComment"># setup</span> -<span id="L15294" class="LineNr">15294 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L15295" class="LineNr">15295 </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="L15296" class="LineNr">15296 </span> c7 0/subop/copy *_Program-functions 0/imm32 -<span id="L15297" class="LineNr">15297 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 -<span id="L15298" class="LineNr">15298 </span> c7 0/subop/copy *_Program-types 0/imm32 -<span id="L15299" class="LineNr">15299 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 -<span id="L15300" class="LineNr">15300 </span> c7 0/subop/copy *_Program-signatures 0/imm32 -<span id="L15301" class="LineNr">15301 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 -<span id="L15302" class="LineNr">15302 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15303" class="LineNr">15303 </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="L15304" class="LineNr">15304 </span> <span class="subxComment"># result/ecx: function</span> -<span id="L15305" class="LineNr">15305 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp -<span id="L15306" class="LineNr">15306 </span> 89/<- %ecx 4/r32/esp -<span id="L15307" class="LineNr">15307 </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="L15308" class="LineNr">15308 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L15309" class="LineNr">15309 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L15310" class="LineNr">15310 </span> 68/push 0xc0/imm32/size -<span id="L15311" class="LineNr">15311 </span> 68/push 0/imm32/top -<span id="L15312" class="LineNr">15312 </span> 89/<- %ebx 4/r32/esp -<span id="L15313" class="LineNr">15313 </span> <span class="subxComment"># convert</span> -<span id="L15314" class="LineNr">15314 </span> (<a href='mu.subx.html#L14432'>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="L15315" class="LineNr">15315 </span> <span class="subxComment"># check result->name</span> -<span id="L15316" class="LineNr">15316 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L15317" class="LineNr">15317 </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#L15289'>test-function-header-with-multiple-args-and-outputs</a>/name"</span>) -<span id="L15318" class="LineNr">15318 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> -<span id="L15319" class="LineNr">15319 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L15320" class="LineNr">15320 </span> 89/<- %edx 0/r32/eax -<span id="L15321" class="LineNr">15321 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout0</span>: -<span id="L15322" class="LineNr">15322 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> -<span id="L15323" class="LineNr">15323 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L15324" class="LineNr">15324 </span> 89/<- %ebx 0/r32/eax -<span id="L15325" class="LineNr">15325 </span> <span class="subxComment"># check v->name</span> -<span id="L15326" class="LineNr">15326 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15327" class="LineNr">15327 </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#L15289'>test-function-header-with-multiple-args-and-outputs</a>/inout:0"</span>) -<span id="L15328" class="LineNr">15328 </span> <span class="subxComment"># check v->type</span> -<span id="L15329" class="LineNr">15329 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L15330" class="LineNr">15330 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15331" class="LineNr">15331 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L15332" class="LineNr">15332 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L15333" class="LineNr">15333 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout1</span>: -<span id="L15334" class="LineNr">15334 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L15335" class="LineNr">15335 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L15336" class="LineNr">15336 </span> 89/<- %edx 0/r32/eax -<span id="L15337" class="LineNr">15337 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L15338" class="LineNr">15338 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L15339" class="LineNr">15339 </span> 89/<- %ebx 0/r32/eax -<span id="L15340" class="LineNr">15340 </span> <span class="subxComment"># check v->name</span> -<span id="L15341" class="LineNr">15341 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15342" class="LineNr">15342 </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#L15289'>test-function-header-with-multiple-args-and-outputs</a>/inout:1"</span>) -<span id="L15343" class="LineNr">15343 </span> <span class="subxComment"># check v->type</span> -<span id="L15344" class="LineNr">15344 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L15345" class="LineNr">15345 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15346" class="LineNr">15346 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L15347" class="LineNr">15347 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L15348" class="LineNr">15348 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout2</span>: -<span id="L15349" class="LineNr">15349 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L15350" class="LineNr">15350 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L15351" class="LineNr">15351 </span> 89/<- %edx 0/r32/eax -<span id="L15352" class="LineNr">15352 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L15353" class="LineNr">15353 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L15354" class="LineNr">15354 </span> 89/<- %ebx 0/r32/eax -<span id="L15355" class="LineNr">15355 </span> <span class="subxComment"># check v->name</span> -<span id="L15356" class="LineNr">15356 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15357" class="LineNr">15357 </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#L15289'>test-function-header-with-multiple-args-and-outputs</a>/inout:2"</span>) -<span id="L15358" class="LineNr">15358 </span> <span class="subxComment"># check v->type</span> -<span id="L15359" class="LineNr">15359 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L15360" class="LineNr">15360 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15361" class="LineNr">15361 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L15362" class="LineNr">15362 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L15363" class="LineNr">15363 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out0</span>: -<span id="L15364" class="LineNr">15364 </span> <span class="subxComment"># var outputs/edx: (addr list var) = lookup(result->outputs)</span> -<span id="L15365" class="LineNr">15365 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L15366" class="LineNr">15366 </span> 89/<- %edx 0/r32/eax -<span id="L15367" class="LineNr">15367 </span> <span class="subxComment"># v = lookup(outputs->value)</span> -<span id="L15368" class="LineNr">15368 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L15369" class="LineNr">15369 </span> 89/<- %ebx 0/r32/eax -<span id="L15370" class="LineNr">15370 </span> <span class="subxComment"># check v->name</span> -<span id="L15371" class="LineNr">15371 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15372" class="LineNr">15372 </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#L15289'>test-function-header-with-multiple-args-and-outputs</a>/output:0"</span>) -<span id="L15373" class="LineNr">15373 </span> <span class="subxComment"># check v->register</span> -<span id="L15374" class="LineNr">15374 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L15375" class="LineNr">15375 </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#L15289'>test-function-header-with-multiple-args-and-outputs</a>/output:0/register"</span>) -<span id="L15376" class="LineNr">15376 </span> <span class="subxComment"># check v->type</span> -<span id="L15377" class="LineNr">15377 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L15378" class="LineNr">15378 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15379" class="LineNr">15379 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L15380" class="LineNr">15380 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L15381" class="LineNr">15381 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out1</span>: -<span id="L15382" class="LineNr">15382 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> -<span id="L15383" class="LineNr">15383 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L15384" class="LineNr">15384 </span> 89/<- %edx 0/r32/eax -<span id="L15385" class="LineNr">15385 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L15386" class="LineNr">15386 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L15387" class="LineNr">15387 </span> 89/<- %ebx 0/r32/eax -<span id="L15388" class="LineNr">15388 </span> <span class="subxComment"># check v->name</span> -<span id="L15389" class="LineNr">15389 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15390" class="LineNr">15390 </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#L15289'>test-function-header-with-multiple-args-and-outputs</a>/output:1"</span>) -<span id="L15391" class="LineNr">15391 </span> <span class="subxComment"># check v->register</span> -<span id="L15392" class="LineNr">15392 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L15393" class="LineNr">15393 </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#L15289'>test-function-header-with-multiple-args-and-outputs</a>/output:1/register"</span>) -<span id="L15394" class="LineNr">15394 </span> <span class="subxComment"># check v->type</span> -<span id="L15395" class="LineNr">15395 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L15396" class="LineNr">15396 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15397" class="LineNr">15397 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L15398" class="LineNr">15398 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0c) 0 <span class="Constant">"F - <a href='mu.subx.html#L15289'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L15399" class="LineNr">15399 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15400" class="LineNr">15400 </span> 89/<- %esp 5/r32/ebp -<span id="L15401" class="LineNr">15401 </span> 5d/pop-to-ebp -<span id="L15402" class="LineNr">15402 </span> c3/return -<span id="L15403" class="LineNr">15403 </span> -<span id="L15404" class="LineNr">15404 </span><span class="subxComment"># format for variables with types</span> -<span id="L15405" class="LineNr">15405 </span><span class="subxComment"># x: int</span> -<span id="L15406" class="LineNr">15406 </span><span class="subxComment"># x: int,</span> -<span id="L15407" class="LineNr">15407 </span><span class="subxComment"># x/eax: int</span> -<span id="L15408" class="LineNr">15408 </span><span class="subxComment"># x/eax: int,</span> -<span id="L15409" class="LineNr">15409 </span><span class="subxComment"># ignores at most one trailing comma</span> -<span id="L15410" class="LineNr">15410 </span><span class="subxComment"># WARNING: modifies name</span> -<span id="L15411" class="LineNr">15411 </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="L15412" class="LineNr">15412 </span> <span class="subxComment"># pseudocode:</span> -<span id="L15413" class="LineNr">15413 </span> <span class="subxComment"># var s: slice</span> -<span id="L15414" class="LineNr">15414 </span> <span class="subxComment"># if (!slice-ends-with(name, ":"))</span> -<span id="L15415" class="LineNr">15415 </span> <span class="subxComment"># abort</span> -<span id="L15416" class="LineNr">15416 </span> <span class="subxComment"># --name->end to skip ':'</span> -<span id="L15417" class="LineNr">15417 </span> <span class="subxComment"># next-token-from-slice(name->start, name->end, '/', s)</span> -<span id="L15418" class="LineNr">15418 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> -<span id="L15419" class="LineNr">15419 </span> <span class="subxComment"># ## register</span> -<span id="L15420" class="LineNr">15420 </span> <span class="subxComment"># next-token-from-slice(s->end, name->end, '/', s)</span> -<span id="L15421" class="LineNr">15421 </span> <span class="subxComment"># if (!slice-empty?(s))</span> -<span id="L15422" class="LineNr">15422 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> -<span id="L15423" class="LineNr">15423 </span> <span class="subxComment"># ## type</span> -<span id="L15424" class="LineNr">15424 </span> <span class="subxComment"># var type: (handle type-tree) = parse-type(first-line)</span> -<span id="L15425" class="LineNr">15425 </span> <span class="subxComment"># out->type = type</span> -<span id="L15426" class="LineNr">15426 </span> <span class="subxComment">#</span> -<span id="L15427" class="LineNr">15427 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15428" class="LineNr">15428 </span> 55/push-ebp -<span id="L15429" class="LineNr">15429 </span> 89/<- %ebp 4/r32/esp -<span id="L15430" class="LineNr">15430 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15431" class="LineNr">15431 </span> 50/push-eax -<span id="L15432" class="LineNr">15432 </span> 51/push-ecx -<span id="L15433" class="LineNr">15433 </span> 52/push-edx -<span id="L15434" class="LineNr">15434 </span> 53/push-ebx -<span id="L15435" class="LineNr">15435 </span> 56/push-esi -<span id="L15436" class="LineNr">15436 </span> 57/push-edi -<span id="L15437" class="LineNr">15437 </span> <span class="subxComment"># esi = name</span> -<span id="L15438" class="LineNr">15438 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L15439" class="LineNr">15439 </span> <span class="subxComment"># if (!slice-ends-with?(name, ":")) abort</span> -<span id="L15440" class="LineNr">15440 </span> 8b/-> *(esi+4) 1/r32/ecx <span class="subxComment"># Slice-end</span> -<span id="L15441" class="LineNr">15441 </span> 49/decrement-ecx -<span id="L15442" class="LineNr">15442 </span> 8a/copy-byte *ecx 1/r32/CL -<span id="L15443" class="LineNr">15443 </span> 81 4/subop/and %ecx 0xff/imm32 -<span id="L15444" class="LineNr">15444 </span> 81 7/subop/compare %ecx 0x3a/imm32/colon -<span id="L15445" class="LineNr">15445 </span> 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 -<span id="L15446" class="LineNr">15446 </span> <span class="subxComment"># --name->end to skip ':'</span> -<span id="L15447" class="LineNr">15447 </span> ff 1/subop/decrement *(esi+4) -<span id="L15448" class="LineNr">15448 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L15449" class="LineNr">15449 </span> 68/push 0/imm32/end -<span id="L15450" class="LineNr">15450 </span> 68/push 0/imm32/start -<span id="L15451" class="LineNr">15451 </span> 89/<- %ecx 4/r32/esp -<span id="L15452" class="LineNr">15452 </span><span class="Constant">$parse-var-with-type:parse-name</span>: -<span id="L15453" class="LineNr">15453 </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="L15454" class="LineNr">15454 </span><span class="Constant">$parse-var-with-type:create-var</span>: -<span id="L15455" class="LineNr">15455 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> -<span id="L15456" class="LineNr">15456 </span> (<a href='mu.subx.html#L18415'>new-var-from-slice</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0x10)) -<span id="L15457" class="LineNr">15457 </span> <span class="subxComment"># save out->register</span> -<span id="L15458" class="LineNr">15458 </span><span class="Constant">$parse-var-with-type:save-register</span>: -<span id="L15459" class="LineNr">15459 </span> <span class="subxS1Comment"># . var out-addr/edi: (addr var) = lookup(*out)</span> -<span id="L15460" class="LineNr">15460 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L15461" class="LineNr">15461 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L15462" class="LineNr">15462 </span> 89/<- %edi 0/r32/eax -<span id="L15463" class="LineNr">15463 </span> <span class="subxS1Comment"># . s = next-token(...)</span> -<span id="L15464" class="LineNr">15464 </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="L15465" class="LineNr">15465 </span> <span class="subxS1Comment"># . if (!slice-empty?(s)) out->register = slice-to-string(s)</span> -<span id="L15466" class="LineNr">15466 </span> { -<span id="L15467" class="LineNr">15467 </span><span class="Constant">$parse-var-with-type:write-register</span>: -<span id="L15468" class="LineNr">15468 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L15469" class="LineNr">15469 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15470" class="LineNr">15470 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15471" class="LineNr">15471 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> -<span id="L15472" class="LineNr">15472 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Var-register</span> -<span id="L15473" class="LineNr">15473 </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="L15474" class="LineNr">15474 </span> } -<span id="L15475" class="LineNr">15475 </span><span class="Constant">$parse-var-with-type:save-type</span>: -<span id="L15476" class="LineNr">15476 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L15477" class="LineNr">15477 </span> (<a href='mu.subx.html#L15565'>parse-type</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L15478" class="LineNr">15478 </span><span class="Constant">$parse-var-with-type:check-register</span>: -<span id="L15479" class="LineNr">15479 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L15480" class="LineNr">15480 </span> 3d/compare-eax-and 0/imm32 -<span id="L15481" class="LineNr">15481 </span> 74/jump-if-= $parse-var-with-type:end/disp8 -<span id="L15482" class="LineNr">15482 </span> (<a href='mu.subx.html#L15550'>is-float-register?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L15483" class="LineNr">15483 </span> { -<span id="L15484" class="LineNr">15484 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15485" class="LineNr">15485 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15486" class="LineNr">15486 </span> <span class="subxComment"># var is in a float register; ensure type is float</span> -<span id="L15487" class="LineNr">15487 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L15488" class="LineNr">15488 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> -<span id="L15489" class="LineNr">15489 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15490" class="LineNr">15490 </span> 0f 84/jump-if-= $parse-var-with-type:error-non-float-in-floating-point-register/disp32 -<span id="L15491" class="LineNr">15491 </span> eb/jump $parse-var-with-type:end/disp8 -<span id="L15492" class="LineNr">15492 </span> } -<span id="L15493" class="LineNr">15493 </span> <span class="subxComment"># var is not in a float register; ensure type is not float</span> -<span id="L15494" class="LineNr">15494 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L15495" class="LineNr">15495 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> -<span id="L15496" class="LineNr">15496 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15497" class="LineNr">15497 </span> 0f 85/jump-if-!= $parse-var-with-type:error-float-in-integer-register/disp32 -<span id="L15498" class="LineNr">15498 </span><span class="Constant">$parse-var-with-type:end</span>: -<span id="L15499" class="LineNr">15499 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L15500" class="LineNr">15500 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15501" class="LineNr">15501 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15502" class="LineNr">15502 </span> 5f/pop-to-edi -<span id="L15503" class="LineNr">15503 </span> 5e/pop-to-esi -<span id="L15504" class="LineNr">15504 </span> 5b/pop-to-ebx -<span id="L15505" class="LineNr">15505 </span> 5a/pop-to-edx -<span id="L15506" class="LineNr">15506 </span> 59/pop-to-ecx -<span id="L15507" class="LineNr">15507 </span> 58/pop-to-eax -<span id="L15508" class="LineNr">15508 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15509" class="LineNr">15509 </span> 89/<- %esp 5/r32/ebp -<span id="L15510" class="LineNr">15510 </span> 5d/pop-to-ebp -<span id="L15511" class="LineNr">15511 </span> c3/return -<span id="L15512" class="LineNr">15512 </span> -<span id="L15513" class="LineNr">15513 </span><span class="Constant">$parse-var-with-type:abort</span>: -<span id="L15514" class="LineNr">15514 </span> <span class="subxComment"># error("fn " fn ": var should have form 'name: type' in '" line "'\n")</span> -<span id="L15515" class="LineNr">15515 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L15516" class="LineNr">15516 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) -<span id="L15517" class="LineNr">15517 </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="L15518" class="LineNr">15518 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L15519" class="LineNr">15519 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L15520" class="LineNr">15520 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L15521" class="LineNr">15521 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L15522" class="LineNr">15522 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L15523" class="LineNr">15523 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L15524" class="LineNr">15524 </span> <span class="subxComment"># never gets here</span> -<span id="L15525" class="LineNr">15525 </span> -<span id="L15526" class="LineNr">15526 </span><span class="Constant">$parse-var-with-type:error-float-in-integer-register</span>: -<span id="L15527" class="LineNr">15527 </span> <span class="subxComment"># error("fn " fn ": float var '" var "' should be in a floating-point register\n")</span> -<span id="L15528" class="LineNr">15528 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L15529" class="LineNr">15529 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) -<span id="L15530" class="LineNr">15530 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": float var '"</span>) -<span id="L15531" class="LineNr">15531 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15532" class="LineNr">15532 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L15533" class="LineNr">15533 </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="L15534" class="LineNr">15534 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L15535" class="LineNr">15535 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L15536" class="LineNr">15536 </span> <span class="subxComment"># never gets here</span> -<span id="L15537" class="LineNr">15537 </span> -<span id="L15538" class="LineNr">15538 </span><span class="Constant">$parse-var-with-type:error-non-float-in-floating-point-register</span>: -<span id="L15539" class="LineNr">15539 </span> <span class="subxComment"># error("fn " fn ": non-float var '" var "' should be in an integer register\n")</span> -<span id="L15540" class="LineNr">15540 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L15541" class="LineNr">15541 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) -<span id="L15542" class="LineNr">15542 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": non-float var '"</span>) -<span id="L15543" class="LineNr">15543 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15544" class="LineNr">15544 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L15545" class="LineNr">15545 </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="L15546" class="LineNr">15546 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L15547" class="LineNr">15547 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L15548" class="LineNr">15548 </span> <span class="subxComment"># never gets here</span> -<span id="L15549" class="LineNr">15549 </span> -<span id="L15550" class="LineNr">15550 </span><span class="subxFunction">is-float-register?</span>: <span class="subxComment"># r: (addr array byte) -> result/eax: boolean</span> -<span id="L15551" class="LineNr">15551 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15552" class="LineNr">15552 </span> 55/push-ebp -<span id="L15553" class="LineNr">15553 </span> 89/<- %ebp 4/r32/esp -<span id="L15554" class="LineNr">15554 </span> <span class="subxComment">#</span> -<span id="L15555" class="LineNr">15555 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L17886'>Mu-registers-unique</a></span> *(ebp+8) 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> -<span id="L15556" class="LineNr">15556 </span> 81 7/subop/compare *eax 8/imm32/start-of-floating-point-registers -<span id="L15557" class="LineNr">15557 </span> 0f 9d/set-if->= %al -<span id="L15558" class="LineNr">15558 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L15559" class="LineNr">15559 </span><span class="Constant">$is-float-register?:end</span>: -<span id="L15560" class="LineNr">15560 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15561" class="LineNr">15561 </span> 89/<- %esp 5/r32/ebp -<span id="L15562" class="LineNr">15562 </span> 5d/pop-to-ebp -<span id="L15563" class="LineNr">15563 </span> c3/return -<span id="L15564" class="LineNr">15564 </span> -<span id="L15565" class="LineNr">15565 </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="L15566" class="LineNr">15566 </span> <span class="subxComment"># pseudocode:</span> -<span id="L15567" class="LineNr">15567 </span> <span class="subxComment"># var s: slice = next-mu-token(in)</span> -<span id="L15568" class="LineNr">15568 </span> <span class="subxComment"># assert s != ""</span> -<span id="L15569" class="LineNr">15569 </span> <span class="subxComment"># assert s != "->"</span> -<span id="L15570" class="LineNr">15570 </span> <span class="subxComment"># assert s != "{"</span> -<span id="L15571" class="LineNr">15571 </span> <span class="subxComment"># assert s != "}"</span> -<span id="L15572" class="LineNr">15572 </span> <span class="subxComment"># if s == ")"</span> -<span id="L15573" class="LineNr">15573 </span> <span class="subxComment"># return</span> -<span id="L15574" class="LineNr">15574 </span> <span class="subxComment"># out = allocate(Type-tree)</span> -<span id="L15575" class="LineNr">15575 </span> <span class="subxComment"># if s != "("</span> -<span id="L15576" class="LineNr">15576 </span> <span class="subxComment"># HACK: if s is an int, parse and return it</span> -<span id="L15577" class="LineNr">15577 </span> <span class="subxComment"># out->is-atom? = true</span> -<span id="L15578" class="LineNr">15578 </span> <span class="subxComment"># if (s[0] == "_")</span> -<span id="L15579" class="LineNr">15579 </span> <span class="subxComment"># out->value = type-parameter</span> -<span id="L15580" class="LineNr">15580 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> -<span id="L15581" class="LineNr">15581 </span> <span class="subxComment"># else</span> -<span id="L15582" class="LineNr">15582 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> -<span id="L15583" class="LineNr">15583 </span> <span class="subxComment"># return</span> -<span id="L15584" class="LineNr">15584 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> -<span id="L15585" class="LineNr">15585 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L15586" class="LineNr">15586 </span> <span class="subxComment">#</span> -<span id="L15587" class="LineNr">15587 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15588" class="LineNr">15588 </span> 55/push-ebp -<span id="L15589" class="LineNr">15589 </span> 89/<- %ebp 4/r32/esp -<span id="L15590" class="LineNr">15590 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15591" class="LineNr">15591 </span> 50/push-eax -<span id="L15592" class="LineNr">15592 </span> 51/push-ecx -<span id="L15593" class="LineNr">15593 </span> 52/push-edx -<span id="L15594" class="LineNr">15594 </span> <span class="subxComment"># clear out</span> -<span id="L15595" class="LineNr">15595 </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="L15596" class="LineNr">15596 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L15597" class="LineNr">15597 </span> 68/push 0/imm32 -<span id="L15598" class="LineNr">15598 </span> 68/push 0/imm32 -<span id="L15599" class="LineNr">15599 </span> 89/<- %ecx 4/r32/esp -<span id="L15600" class="LineNr">15600 </span> <span class="subxComment"># s = next-mu-token(in)</span> -<span id="L15601" class="LineNr">15601 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L15602" class="LineNr">15602 </span><span class="CommentedCode">#? (write-buffered Stderr "tok: ")</span> -<span id="L15603" class="LineNr">15603 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> -<span id="L15604" class="LineNr">15604 </span><span class="CommentedCode">#? (write-buffered Stderr "$\n")</span> -<span id="L15605" class="LineNr">15605 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L15606" class="LineNr">15606 </span> <span class="subxComment"># assert s != ""</span> -<span id="L15607" class="LineNr">15607 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">""</span>) <span class="subxComment"># => eax</span> -<span id="L15608" class="LineNr">15608 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15609" class="LineNr">15609 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L15610" class="LineNr">15610 </span> <span class="subxComment"># assert s != "{"</span> -<span id="L15611" class="LineNr">15611 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L15612" class="LineNr">15612 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15613" class="LineNr">15613 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L15614" class="LineNr">15614 </span> <span class="subxComment"># assert s != "}"</span> -<span id="L15615" class="LineNr">15615 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L15616" class="LineNr">15616 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15617" class="LineNr">15617 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L15618" class="LineNr">15618 </span> <span class="subxComment"># assert s != "->"</span> -<span id="L15619" class="LineNr">15619 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L15620" class="LineNr">15620 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15621" class="LineNr">15621 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L15622" class="LineNr">15622 </span> <span class="subxComment"># if (s == ")") return</span> -<span id="L15623" class="LineNr">15623 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">")"</span>) <span class="subxComment"># => eax</span> -<span id="L15624" class="LineNr">15624 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15625" class="LineNr">15625 </span> 0f 85/jump-if-!= $parse-type:end/disp32 -<span id="L15626" class="LineNr">15626 </span> <span class="subxComment"># out = new tree</span> -<span id="L15627" class="LineNr">15627 </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="L15628" class="LineNr">15628 </span> <span class="subxComment"># var out-addr/edx: (addr type-tree) = lookup(*out)</span> -<span id="L15629" class="LineNr">15629 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L15630" class="LineNr">15630 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L15631" class="LineNr">15631 </span> 89/<- %edx 0/r32/eax -<span id="L15632" class="LineNr">15632 </span> { -<span id="L15633" class="LineNr">15633 </span> <span class="subxComment"># if (s != "(") break</span> -<span id="L15634" class="LineNr">15634 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"("</span>) <span class="subxComment"># => eax</span> -<span id="L15635" class="LineNr">15635 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15636" class="LineNr">15636 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L15637" class="LineNr">15637 </span> <span class="subxComment"># if s is a number, store it in the type's size field</span> -<span id="L15638" class="LineNr">15638 </span> { -<span id="L15639" class="LineNr">15639 </span><span class="Constant">$parse-type:check-for-int</span>: -<span id="L15640" class="LineNr">15640 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> -<span id="L15641" class="LineNr">15641 </span> 8b/-> *ecx 0/r32/eax -<span id="L15642" class="LineNr">15642 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L15643" class="LineNr">15643 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L15644" class="LineNr">15644 </span> <span class="subxComment"># TODO: raise an error on `var x: (array int a)`</span> -<span id="L15645" class="LineNr">15645 </span> (<a href='../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L15646" class="LineNr">15646 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15647" class="LineNr">15647 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15648" class="LineNr">15648 </span> <span class="subxComment">#</span> -<span id="L15649" class="LineNr">15649 </span> (<a href='../118parse-hex-int.subx.html#L9'>is-hex-int?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L15650" class="LineNr">15650 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15651" class="LineNr">15651 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15652" class="LineNr">15652 </span><span class="Constant">$parse-type:int</span>: -<span id="L15653" class="LineNr">15653 </span> (<a href='mu.subx.html#L18277'>check-mu-hex-int</a> %ecx *(ebp+0x14) *(ebp+0x18)) -<span id="L15654" class="LineNr">15654 </span> (<a href='../118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L15655" class="LineNr">15655 </span> c7 0/subop/copy *(edx+4) 9/imm32/type-id-array-capacity <span class="subxComment"># Type-tree-value</span> -<span id="L15656" class="LineNr">15656 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-value-size</span> -<span id="L15657" class="LineNr">15657 </span> e9/jump $parse-type:end/disp32 -<span id="L15658" class="LineNr">15658 </span> } -<span id="L15659" class="LineNr">15659 </span><span class="Constant">$parse-type:atom</span>: -<span id="L15660" class="LineNr">15660 </span> <span class="subxComment"># out->is-atom? = true</span> -<span id="L15661" class="LineNr">15661 </span> c7 0/subop/copy *edx 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L15662" class="LineNr">15662 </span> { -<span id="L15663" class="LineNr">15663 </span><span class="Constant">$parse-type:check-for-type-parameter</span>: -<span id="L15664" class="LineNr">15664 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> -<span id="L15665" class="LineNr">15665 </span> 8b/-> *ecx 0/r32/eax -<span id="L15666" class="LineNr">15666 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L15667" class="LineNr">15667 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L15668" class="LineNr">15668 </span> <span class="subxComment"># if (tmp != '_') break</span> -<span id="L15669" class="LineNr">15669 </span> 3d/compare-eax-and 0x5f/imm32/_ -<span id="L15670" class="LineNr">15670 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15671" class="LineNr">15671 </span><span class="Constant">$parse-type:type-parameter</span>: -<span id="L15672" class="LineNr">15672 </span> <span class="subxComment"># out->value = type-parameter</span> -<span id="L15673" class="LineNr">15673 </span> c7 0/subop/copy *(edx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L15674" class="LineNr">15674 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> -<span id="L15675" class="LineNr">15675 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-parameter-name</span> -<span id="L15676" class="LineNr">15676 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> *(ebp+8) %ecx %eax) -<span id="L15677" class="LineNr">15677 </span> e9/jump $parse-type:end/disp32 -<span id="L15678" class="LineNr">15678 </span> } -<span id="L15679" class="LineNr">15679 </span><span class="Constant">$parse-type:non-type-parameter</span>: -<span id="L15680" class="LineNr">15680 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> -<span id="L15681" class="LineNr">15681 </span> (<a href='mu.subx.html#L15937'>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="L15682" class="LineNr">15682 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L15683" class="LineNr">15683 </span> e9/jump $parse-type:end/disp32 -<span id="L15684" class="LineNr">15684 </span> } -<span id="L15685" class="LineNr">15685 </span><span class="Constant">$parse-type:non-atom</span>: -<span id="L15686" class="LineNr">15686 </span> <span class="subxComment"># otherwise s == "("</span> -<span id="L15687" class="LineNr">15687 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> -<span id="L15688" class="LineNr">15688 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L15689" class="LineNr">15689 </span> (<a href='mu.subx.html#L15565'>parse-type</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L15690" class="LineNr">15690 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L15691" class="LineNr">15691 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> -<span id="L15692" class="LineNr">15692 </span> (<a href='mu.subx.html#L15714'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L15693" class="LineNr">15693 </span><span class="Constant">$parse-type:end</span>: -<span id="L15694" class="LineNr">15694 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L15695" class="LineNr">15695 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15696" class="LineNr">15696 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15697" class="LineNr">15697 </span> 5a/pop-to-edx -<span id="L15698" class="LineNr">15698 </span> 59/pop-to-ecx -<span id="L15699" class="LineNr">15699 </span> 58/pop-to-eax -<span id="L15700" class="LineNr">15700 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15701" class="LineNr">15701 </span> 89/<- %esp 5/r32/ebp -<span id="L15702" class="LineNr">15702 </span> 5d/pop-to-ebp -<span id="L15703" class="LineNr">15703 </span> c3/return -<span id="L15704" class="LineNr">15704 </span> -<span id="L15705" class="LineNr">15705 </span><span class="Constant">$parse-type:abort</span>: -<span id="L15706" class="LineNr">15706 </span> <span class="subxComment"># error("unexpected token when parsing type: '" s "'\n")</span> -<span id="L15707" class="LineNr">15707 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"unexpected token when parsing type: '"</span>) -<span id="L15708" class="LineNr">15708 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) -<span id="L15709" class="LineNr">15709 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L15710" class="LineNr">15710 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L15711" class="LineNr">15711 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L15712" class="LineNr">15712 </span> <span class="subxComment"># never gets here</span> -<span id="L15713" class="LineNr">15713 </span> -<span id="L15714" class="LineNr">15714 </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="L15715" class="LineNr">15715 </span> <span class="subxComment"># pseudocode:</span> -<span id="L15716" class="LineNr">15716 </span> <span class="subxComment"># var tmp: (handle type-tree) = parse-type(ad, in)</span> -<span id="L15717" class="LineNr">15717 </span> <span class="subxComment"># if tmp == 0</span> -<span id="L15718" class="LineNr">15718 </span> <span class="subxComment"># return 0</span> -<span id="L15719" class="LineNr">15719 </span> <span class="subxComment"># out = allocate(Type-tree)</span> -<span id="L15720" class="LineNr">15720 </span> <span class="subxComment"># out->left = tmp</span> -<span id="L15721" class="LineNr">15721 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L15722" class="LineNr">15722 </span> <span class="subxComment">#</span> +<span id="L14480" class="LineNr">14480 </span> 89/<- %edx 4/r32/esp +<span id="L14481" class="LineNr">14481 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14482" class="LineNr">14482 </span> <span class="subxComment">#</span> +<span id="L14483" class="LineNr">14483 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14484" class="LineNr">14484 </span> (<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="L14485" class="LineNr">14485 </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="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">"}\n"</span>) +<span id="L14487" class="LineNr">14487 </span> <span class="subxComment"># convert</span> +<span id="L14488" class="LineNr">14488 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L14489" class="LineNr">14489 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14490" class="LineNr">14490 </span> <span class="subxComment"># restore ed</span> +<span id="L14491" class="LineNr">14491 </span> 89/<- %edx 4/r32/esp +<span id="L14492" class="LineNr">14492 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L14493" class="LineNr">14493 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) +<span id="L14494" class="Folded">14494 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14500" class="LineNr">14500 </span> <span class="subxComment"># check output</span> +<span id="L14501" class="LineNr">14501 </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#L14466'>test-convert-invalid-output-type</a>: output should be empty"</span>) +<span id="L14502" class="LineNr">14502 </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#L14466'>test-convert-invalid-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L14503" class="LineNr">14503 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14504" class="LineNr">14504 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14466'>test-convert-invalid-output-type</a>: exit status"</span>) +<span id="L14505" class="LineNr">14505 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14506" class="LineNr">14506 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14507" class="LineNr">14507 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14508" class="LineNr">14508 </span> 5d/pop-to-ebp +<span id="L14509" class="LineNr">14509 </span> c3/return +<span id="L14510" class="LineNr">14510 </span> +<span id="L14511" class="LineNr">14511 </span><span class="subxTest">test-convert-int-to-int</span>: +<span id="L14512" class="LineNr">14512 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14513" class="LineNr">14513 </span> 55/push-ebp +<span id="L14514" class="LineNr">14514 </span> 89/<- %ebp 4/r32/esp +<span id="L14515" class="LineNr">14515 </span> <span class="subxComment"># setup</span> +<span id="L14516" class="LineNr">14516 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14517" class="LineNr">14517 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14518" class="LineNr">14518 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L14519" class="LineNr">14519 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14520" class="LineNr">14520 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L14521" class="LineNr">14521 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14522" class="LineNr">14522 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14523" class="LineNr">14523 </span> 68/push 0/imm32 +<span id="L14524" class="LineNr">14524 </span> 68/push 0/imm32 +<span id="L14525" class="LineNr">14525 </span> 89/<- %edx 4/r32/esp +<span id="L14526" class="LineNr">14526 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14527" class="LineNr">14527 </span> <span class="subxComment">#</span> +<span id="L14528" class="LineNr">14528 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14529" class="LineNr">14529 </span> (<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="L14530" class="LineNr">14530 </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="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">"}\n"</span>) +<span id="L14532" class="LineNr">14532 </span> <span class="subxComment"># convert</span> +<span id="L14533" class="LineNr">14533 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L14534" class="LineNr">14534 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14535" class="LineNr">14535 </span> <span class="subxComment"># restore ed</span> +<span id="L14536" class="LineNr">14536 </span> 89/<- %edx 4/r32/esp +<span id="L14537" class="LineNr">14537 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L14538" class="LineNr">14538 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) +<span id="L14539" class="Folded">14539 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14545" class="LineNr">14545 </span> <span class="subxComment"># check output</span> +<span id="L14546" class="LineNr">14546 </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#L14511'>test-convert-int-to-int</a>: output should be empty"</span>) +<span id="L14547" class="LineNr">14547 </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#L14511'>test-convert-int-to-int</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L14548" class="LineNr">14548 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14549" class="LineNr">14549 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14511'>test-convert-int-to-int</a>: exit status"</span>) +<span id="L14550" class="LineNr">14550 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14551" class="LineNr">14551 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14552" class="LineNr">14552 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14553" class="LineNr">14553 </span> 5d/pop-to-ebp +<span id="L14554" class="LineNr">14554 </span> c3/return +<span id="L14555" class="LineNr">14555 </span> +<span id="L14556" class="LineNr">14556 </span><span class="subxTest">test-convert-float-to-float</span>: +<span id="L14557" class="LineNr">14557 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14558" class="LineNr">14558 </span> 55/push-ebp +<span id="L14559" class="LineNr">14559 </span> 89/<- %ebp 4/r32/esp +<span id="L14560" class="LineNr">14560 </span> <span class="subxComment"># setup</span> +<span id="L14561" class="LineNr">14561 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14562" class="LineNr">14562 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14563" class="LineNr">14563 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L14564" class="LineNr">14564 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14565" class="LineNr">14565 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) +<span id="L14566" class="LineNr">14566 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14567" class="LineNr">14567 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14568" class="LineNr">14568 </span> 68/push 0/imm32 +<span id="L14569" class="LineNr">14569 </span> 68/push 0/imm32 +<span id="L14570" class="LineNr">14570 </span> 89/<- %edx 4/r32/esp +<span id="L14571" class="LineNr">14571 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14572" class="LineNr">14572 </span> <span class="subxComment">#</span> +<span id="L14573" class="LineNr">14573 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14574" class="LineNr">14574 </span> (<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="L14575" class="LineNr">14575 </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="L14576" class="LineNr">14576 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14577" class="LineNr">14577 </span> <span class="subxComment"># convert</span> +<span id="L14578" class="LineNr">14578 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <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="L14579" class="LineNr">14579 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14580" class="LineNr">14580 </span> <span class="subxComment"># restore ed</span> +<span id="L14581" class="LineNr">14581 </span> 89/<- %edx 4/r32/esp +<span id="L14582" class="LineNr">14582 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L14583" class="LineNr">14583 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) +<span id="L14584" class="Folded">14584 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14590" class="LineNr">14590 </span> <span class="subxComment"># check output</span> +<span id="L14591" class="LineNr">14591 </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#L14556'>test-convert-float-to-float</a>: output should be empty"</span>) +<span id="L14592" class="LineNr">14592 </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#L14556'>test-convert-float-to-float</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) +<span id="L14593" class="LineNr">14593 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14594" class="LineNr">14594 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14556'>test-convert-float-to-float</a>: exit status"</span>) +<span id="L14595" class="LineNr">14595 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14596" class="LineNr">14596 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14597" class="LineNr">14597 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14598" class="LineNr">14598 </span> 5d/pop-to-ebp +<span id="L14599" class="LineNr">14599 </span> c3/return +<span id="L14600" class="LineNr">14600 </span> +<span id="L14601" class="LineNr">14601 </span><span class="subxComment">#######################################################</span> +<span id="L14602" class="LineNr">14602 </span><span class="subxComment"># Parsing</span> +<span id="L14603" class="LineNr">14603 </span><span class="subxComment">#######################################################</span> +<span id="L14604" class="LineNr">14604 </span> +<span id="L14605" class="LineNr">14605 </span>== data +<span id="L14606" class="LineNr">14606 </span> +<span id="L14607" class="LineNr">14607 </span><span class="subxComment"># Global state added to each var record when parsing a function</span> +<span id="L14608" class="LineNr">14608 </span><span class="SpecialChar">Next-block-index</span>: <span class="subxComment"># (addr int)</span> +<span id="L14609" class="LineNr">14609 </span> 1/imm32 +<span id="L14610" class="LineNr">14610 </span> +<span id="L14611" class="LineNr">14611 </span><span class="SpecialChar">Curr-block-depth</span>: <span class="subxComment"># (addr int)</span> +<span id="L14612" class="LineNr">14612 </span> 1/imm32 +<span id="L14613" class="LineNr">14613 </span> +<span id="L14614" class="LineNr">14614 </span>== code +<span id="L14615" class="LineNr">14615 </span> +<span id="L14616" class="LineNr">14616 </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="L14617" class="LineNr">14617 </span> <span class="subxComment"># pseudocode</span> +<span id="L14618" class="LineNr">14618 </span> <span class="subxComment"># var curr-function: (addr handle function) = Program->functions</span> +<span id="L14619" class="LineNr">14619 </span> <span class="subxComment"># var curr-signature: (addr handle function) = Program->signatures</span> +<span id="L14620" class="LineNr">14620 </span> <span class="subxComment"># var curr-type: (addr handle typeinfo) = Program->types</span> +<span id="L14621" class="LineNr">14621 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L14622" class="LineNr">14622 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L14623" class="LineNr">14623 </span> <span class="subxComment"># while true # line loop</span> +<span id="L14624" class="LineNr">14624 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L14625" class="LineNr">14625 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L14626" class="LineNr">14626 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L14627" class="LineNr">14627 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L14628" class="LineNr">14628 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L14629" class="LineNr">14629 </span> <span class="subxComment"># continue</span> +<span id="L14630" class="LineNr">14630 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L14631" class="LineNr">14631 </span> <span class="subxComment"># continue # end of line</span> +<span id="L14632" class="LineNr">14632 </span> <span class="subxComment"># else if slice-equal?(word-slice, "fn")</span> +<span id="L14633" class="LineNr">14633 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> +<span id="L14634" class="LineNr">14634 </span> <span class="subxComment"># var vars: (stack live-var 256)</span> +<span id="L14635" class="LineNr">14635 </span> <span class="subxComment"># populate-mu-function-header(line, new-function, vars)</span> +<span id="L14636" class="LineNr">14636 </span> <span class="subxComment"># populate-mu-function-body(in, new-function, vars)</span> +<span id="L14637" class="LineNr">14637 </span> <span class="subxComment"># assert(vars->top == 0)</span> +<span id="L14638" class="LineNr">14638 </span> <span class="subxComment"># *curr-function = new-function</span> +<span id="L14639" class="LineNr">14639 </span> <span class="subxComment"># curr-function = &new-function->next</span> +<span id="L14640" class="LineNr">14640 </span> <span class="subxComment"># else if slice-equal?(word-slice, "sig")</span> +<span id="L14641" class="LineNr">14641 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> +<span id="L14642" class="LineNr">14642 </span> <span class="subxComment"># populate-mu-function-signature(line, new-function)</span> +<span id="L14643" class="LineNr">14643 </span> <span class="subxComment"># *curr-signature = new-function</span> +<span id="L14644" class="LineNr">14644 </span> <span class="subxComment"># curr-signature = &new-function->next</span> +<span id="L14645" class="LineNr">14645 </span> <span class="subxComment"># else if slice-equal?(word-slice, "type")</span> +<span id="L14646" class="LineNr">14646 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L14647" class="LineNr">14647 </span> <span class="subxComment"># type-id = pos-or-insert-slice(Type-id, word-slice)</span> +<span id="L14648" class="LineNr">14648 </span> <span class="subxComment"># var new-type: (handle typeinfo) = find-or-create-typeinfo(type-id)</span> +<span id="L14649" class="LineNr">14649 </span> <span class="subxComment"># assert(next-word(line) == "{")</span> +<span id="L14650" class="LineNr">14650 </span> <span class="subxComment"># populate-mu-type(in, new-type)</span> +<span id="L14651" class="LineNr">14651 </span> <span class="subxComment"># else</span> +<span id="L14652" class="LineNr">14652 </span> <span class="subxComment"># abort()</span> +<span id="L14653" class="LineNr">14653 </span> <span class="subxComment">#</span> +<span id="L14654" class="LineNr">14654 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14655" class="LineNr">14655 </span> 55/push-ebp +<span id="L14656" class="LineNr">14656 </span> 89/<- %ebp 4/r32/esp +<span id="L14657" class="LineNr">14657 </span> <span class="subxComment"># var curr-signature: (addr handle function) at *(ebp-4)</span> +<span id="L14658" class="LineNr">14658 </span> 68/push <a href='mu.subx.html#L249'>_Program-signatures</a>/imm32 +<span id="L14659" class="LineNr">14659 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14660" class="LineNr">14660 </span> 50/push-eax +<span id="L14661" class="LineNr">14661 </span> 51/push-ecx +<span id="L14662" class="LineNr">14662 </span> 52/push-edx +<span id="L14663" class="LineNr">14663 </span> 53/push-ebx +<span id="L14664" class="LineNr">14664 </span> 56/push-esi +<span id="L14665" class="LineNr">14665 </span> 57/push-edi +<span id="L14666" class="LineNr">14666 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L14667" class="LineNr">14667 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L14668" class="LineNr">14668 </span> 68/push 0x200/imm32/size +<span id="L14669" class="LineNr">14669 </span> 68/push 0/imm32/read +<span id="L14670" class="LineNr">14670 </span> 68/push 0/imm32/write +<span id="L14671" class="LineNr">14671 </span> 89/<- %ecx 4/r32/esp +<span id="L14672" class="LineNr">14672 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L14673" class="LineNr">14673 </span> 68/push 0/imm32/end +<span id="L14674" class="LineNr">14674 </span> 68/push 0/imm32/start +<span id="L14675" class="LineNr">14675 </span> 89/<- %edx 4/r32/esp +<span id="L14676" class="LineNr">14676 </span> <span class="subxComment"># var curr-function/edi: (addr handle function)</span> +<span id="L14677" class="LineNr">14677 </span> bf/copy-to-edi <a href='mu.subx.html#L241'>_Program-functions</a>/imm32 +<span id="L14678" class="LineNr">14678 </span> <span class="subxComment"># var vars/ebx: (stack live-var 256)</span> +<span id="L14679" class="LineNr">14679 </span> 81 5/subop/subtract %esp 0xc00/imm32 +<span id="L14680" class="LineNr">14680 </span> 68/push 0xc00/imm32/size +<span id="L14681" class="LineNr">14681 </span> 68/push 0/imm32/top +<span id="L14682" class="LineNr">14682 </span> 89/<- %ebx 4/r32/esp +<span id="L14683" class="LineNr">14683 </span> { +<span id="L14684" class="LineNr">14684 </span><span class="Constant">$parse-mu:line-loop</span>: +<span id="L14685" class="LineNr">14685 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L14686" class="LineNr">14686 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L14687" class="LineNr">14687 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L14688" class="LineNr">14688 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L14689" class="LineNr">14689 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14690" class="Folded">14690 </span><span class="Folded">+-- 6 lines: #? # dump line ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14696" class="LineNr">14696 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> %ecx %edx) +<span id="L14697" class="LineNr">14697 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L14698" class="LineNr">14698 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L14699" class="LineNr">14699 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14700" class="LineNr">14700 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L14701" class="LineNr">14701 </span> <span class="subxComment"># if (*word-slice->start == "#") continue</span> +<span id="L14702" class="LineNr">14702 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L14703" class="LineNr">14703 </span> 8b/-> *edx 0/r32/eax +<span id="L14704" class="LineNr">14704 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L14705" class="LineNr">14705 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L14706" class="LineNr">14706 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L14707" class="LineNr">14707 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L14708" class="LineNr">14708 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 +<span id="L14709" class="LineNr">14709 </span> <span class="subxComment"># if (slice-equal?(word-slice, "fn")) parse a function</span> +<span id="L14710" class="LineNr">14710 </span> { +<span id="L14711" class="LineNr">14711 </span><span class="Constant">$parse-mu:fn</span>: +<span id="L14712" class="LineNr">14712 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"fn"</span>) <span class="subxComment"># => eax</span> +<span id="L14713" class="LineNr">14713 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14714" class="LineNr">14714 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14715" class="LineNr">14715 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> +<span id="L14716" class="LineNr">14716 </span> 68/push 0/imm32 +<span id="L14717" class="LineNr">14717 </span> 68/push 0/imm32 +<span id="L14718" class="LineNr">14718 </span> 89/<- %esi 4/r32/esp +<span id="L14719" class="LineNr">14719 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> +<span id="L14720" class="LineNr">14720 </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="L14721" class="LineNr">14721 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> +<span id="L14722" class="LineNr">14722 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L14723" class="LineNr">14723 </span> <span class="subxComment"># initialize vars</span> +<span id="L14724" class="LineNr">14724 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ebx) +<span id="L14725" class="LineNr">14725 </span> <span class="subxComment">#</span> +<span id="L14726" class="LineNr">14726 </span> (<a href='mu.subx.html#L14865'>populate-mu-function-header</a> %ecx %eax %ebx *(ebp+0xc) *(ebp+0x10)) +<span id="L14727" class="LineNr">14727 </span> (<a href='mu.subx.html#L16982'>populate-mu-function-body</a> *(ebp+8) %eax %ebx *(ebp+0xc) *(ebp+0x10)) +<span id="L14728" class="LineNr">14728 </span> <span class="subxComment"># *curr-function = new-function</span> +<span id="L14729" class="LineNr">14729 </span> 8b/-> *esi 0/r32/eax +<span id="L14730" class="LineNr">14730 </span> 89/<- *edi 0/r32/eax +<span id="L14731" class="LineNr">14731 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L14732" class="LineNr">14732 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L14733" class="LineNr">14733 </span> <span class="subxComment"># curr-function = &new-function->next</span> +<span id="L14734" class="LineNr">14734 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> +<span id="L14735" class="LineNr">14735 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L14736" class="LineNr">14736 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> +<span id="L14737" class="LineNr">14737 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> +<span id="L14738" class="LineNr">14738 </span> <span class="subxComment"># reclaim new-function</span> +<span id="L14739" class="LineNr">14739 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14740" class="LineNr">14740 </span> <span class="subxComment">#</span> +<span id="L14741" class="LineNr">14741 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L14742" class="LineNr">14742 </span> } +<span id="L14743" class="LineNr">14743 </span> <span class="subxComment"># if (slice-equal?(word-slice, "sig")) parse a function signature</span> +<span id="L14744" class="LineNr">14744 </span> <span class="subxComment"># Function signatures are for providing types to SubX functions.</span> +<span id="L14745" class="LineNr">14745 </span> { +<span id="L14746" class="LineNr">14746 </span><span class="Constant">$parse-mu:sig</span>: +<span id="L14747" class="LineNr">14747 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"sig"</span>) <span class="subxComment"># => eax</span> +<span id="L14748" class="LineNr">14748 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14749" class="LineNr">14749 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14750" class="LineNr">14750 </span> <span class="subxComment"># edi = curr-function</span> +<span id="L14751" class="LineNr">14751 </span> 57/push-edi +<span id="L14752" class="LineNr">14752 </span> 8b/-> *(ebp-4) 7/r32/edi +<span id="L14753" class="LineNr">14753 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> +<span id="L14754" class="LineNr">14754 </span> 68/push 0/imm32 +<span id="L14755" class="LineNr">14755 </span> 68/push 0/imm32 +<span id="L14756" class="LineNr">14756 </span> 89/<- %esi 4/r32/esp +<span id="L14757" class="LineNr">14757 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> +<span id="L14758" class="LineNr">14758 </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="L14759" class="LineNr">14759 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> +<span id="L14760" class="LineNr">14760 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L14761" class="LineNr">14761 </span> <span class="subxComment">#</span> +<span id="L14762" class="LineNr">14762 </span> (<a href='mu.subx.html#L15185'>populate-mu-function-signature</a> %ecx %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L14763" class="LineNr">14763 </span> <span class="subxComment"># *curr-signature = new-function</span> +<span id="L14764" class="LineNr">14764 </span> 8b/-> *esi 0/r32/eax +<span id="L14765" class="LineNr">14765 </span> 89/<- *edi 0/r32/eax +<span id="L14766" class="LineNr">14766 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L14767" class="LineNr">14767 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L14768" class="LineNr">14768 </span> <span class="subxComment"># curr-signature = &new-function->next</span> +<span id="L14769" class="LineNr">14769 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> +<span id="L14770" class="LineNr">14770 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L14771" class="LineNr">14771 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> +<span id="L14772" class="LineNr">14772 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> +<span id="L14773" class="LineNr">14773 </span> <span class="subxComment"># reclaim new-function</span> +<span id="L14774" class="LineNr">14774 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14775" class="LineNr">14775 </span> <span class="subxComment"># save curr-function</span> +<span id="L14776" class="LineNr">14776 </span> 89/<- *(ebp-4) 7/r32/edi +<span id="L14777" class="LineNr">14777 </span> <span class="subxComment"># restore edi</span> +<span id="L14778" class="LineNr">14778 </span> 5f/pop-to-edi +<span id="L14779" class="LineNr">14779 </span> <span class="subxComment">#</span> +<span id="L14780" class="LineNr">14780 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L14781" class="LineNr">14781 </span> } +<span id="L14782" class="LineNr">14782 </span> <span class="subxComment"># if (slice-equal?(word-slice, "type")) parse a type (struct/record) definition</span> +<span id="L14783" class="LineNr">14783 </span> { +<span id="L14784" class="LineNr">14784 </span><span class="Constant">$parse-mu:type</span>: +<span id="L14785" class="LineNr">14785 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"type"</span>) <span class="subxComment"># => eax</span> +<span id="L14786" class="LineNr">14786 </span> 3d/compare-eax-and 0/imm32 +<span id="L14787" class="LineNr">14787 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L14788" class="LineNr">14788 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> %ecx %edx) +<span id="L14789" class="LineNr">14789 </span> <span class="subxComment"># var type-id/eax: int</span> +<span id="L14790" class="LineNr">14790 </span> (<a href='mu.subx.html#L16370'>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="L14791" class="LineNr">14791 </span> <span class="subxComment"># spill</span> +<span id="L14792" class="LineNr">14792 </span> 51/push-ecx +<span id="L14793" class="LineNr">14793 </span> <span class="subxComment"># var new-type/ecx: (handle typeinfo)</span> +<span id="L14794" class="LineNr">14794 </span> 68/push 0/imm32 +<span id="L14795" class="LineNr">14795 </span> 68/push 0/imm32 +<span id="L14796" class="LineNr">14796 </span> 89/<- %ecx 4/r32/esp +<span id="L14797" class="LineNr">14797 </span> (<a href='mu.subx.html#L19156'>find-or-create-typeinfo</a> %eax %ecx) +<span id="L14798" class="LineNr">14798 </span> <span class="subxComment">#</span> +<span id="L14799" class="LineNr">14799 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L14800" class="LineNr">14800 </span> <span class="subxComment"># TODO: ensure that 'line' has nothing else but '{'</span> +<span id="L14801" class="LineNr">14801 </span><span class="CommentedCode">#? (dump-typeinfos "=== aaa\n")</span> +<span id="L14802" class="LineNr">14802 </span> (<a href='mu.subx.html#L19390'>populate-mu-type</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L14803" class="LineNr">14803 </span><span class="CommentedCode">#? (dump-typeinfos "=== zzz\n")</span> +<span id="L14804" class="LineNr">14804 </span> <span class="subxComment"># reclaim new-type</span> +<span id="L14805" class="LineNr">14805 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14806" class="LineNr">14806 </span> <span class="subxComment"># restore</span> +<span id="L14807" class="LineNr">14807 </span> 59/pop-to-ecx +<span id="L14808" class="LineNr">14808 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L14809" class="LineNr">14809 </span> } +<span id="L14810" class="LineNr">14810 </span> <span class="subxComment"># otherwise abort</span> +<span id="L14811" class="LineNr">14811 </span> e9/jump $parse-mu:error1/disp32 +<span id="L14812" class="LineNr">14812 </span> } <span class="subxComment"># end line loop</span> +<span id="L14813" class="LineNr">14813 </span><span class="Constant">$parse-mu:end</span>: +<span id="L14814" class="LineNr">14814 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L14815" class="LineNr">14815 </span> 81 0/subop/add %esp 0x20c/imm32 <span class="subxComment"># line</span> +<span id="L14816" class="LineNr">14816 </span> 81 0/subop/add %esp 0xc08/imm32 <span class="subxComment"># vars</span> +<span id="L14817" class="LineNr">14817 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14818" class="LineNr">14818 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L14819" class="LineNr">14819 </span> 5f/pop-to-edi +<span id="L14820" class="LineNr">14820 </span> 5e/pop-to-esi +<span id="L14821" class="LineNr">14821 </span> 5b/pop-to-ebx +<span id="L14822" class="LineNr">14822 </span> 5a/pop-to-edx +<span id="L14823" class="LineNr">14823 </span> 59/pop-to-ecx +<span id="L14824" class="LineNr">14824 </span> 58/pop-to-eax +<span id="L14825" class="LineNr">14825 </span> <span class="subxS1Comment"># . reclaim local</span> +<span id="L14826" class="LineNr">14826 </span> 81 0/subop/add %esp 4/imm32 +<span id="L14827" class="LineNr">14827 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14828" class="LineNr">14828 </span> 89/<- %esp 5/r32/ebp +<span id="L14829" class="LineNr">14829 </span> 5d/pop-to-ebp +<span id="L14830" class="LineNr">14830 </span> c3/return +<span id="L14831" class="LineNr">14831 </span> +<span id="L14832" class="LineNr">14832 </span><span class="Constant">$parse-mu:error1</span>: +<span id="L14833" class="LineNr">14833 </span> <span class="subxComment"># error("unexpected top-level command: " word-slice "\n")</span> +<span id="L14834" class="LineNr">14834 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"unexpected top-level command: "</span>) +<span id="L14835" class="LineNr">14835 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) %edx) +<span id="L14836" class="LineNr">14836 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"\n"</span>) +<span id="L14837" class="LineNr">14837 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L14838" class="LineNr">14838 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L14839" class="LineNr">14839 </span> <span class="subxComment"># never gets here</span> +<span id="L14840" class="LineNr">14840 </span> +<span id="L14841" class="LineNr">14841 </span><span class="Constant">$parse-mu:error2</span>: +<span id="L14842" class="LineNr">14842 </span> <span class="subxComment"># error(vars->top " vars not reclaimed after fn '" new-function->name "'\n")</span> +<span id="L14843" class="LineNr">14843 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) *ebx) +<span id="L14844" class="LineNr">14844 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">" vars not reclaimed after fn '"</span>) +<span id="L14845" class="LineNr">14845 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *eax) <span class="subxComment"># Function-name</span> +<span id="L14846" class="LineNr">14846 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"'\n"</span>) +<span id="L14847" class="LineNr">14847 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L14848" class="LineNr">14848 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L14849" class="LineNr">14849 </span> <span class="subxComment"># never gets here</span> +<span id="L14850" class="LineNr">14850 </span> +<span id="L14851" class="LineNr">14851 </span><span class="subxComment"># scenarios considered:</span> +<span id="L14852" class="LineNr">14852 </span><span class="subxComment"># ✗ fn foo # no block</span> +<span id="L14853" class="LineNr">14853 </span><span class="subxComment"># ✓ fn foo {</span> +<span id="L14854" class="LineNr">14854 </span><span class="subxComment"># ✗ fn foo { {</span> +<span id="L14855" class="LineNr">14855 </span><span class="subxComment"># ✗ fn foo { }</span> +<span id="L14856" class="LineNr">14856 </span><span class="subxComment"># ✗ fn foo { } {</span> +<span id="L14857" class="LineNr">14857 </span><span class="subxComment"># ✗ fn foo x {</span> +<span id="L14858" class="LineNr">14858 </span><span class="subxComment"># ✗ fn foo x: {</span> +<span id="L14859" class="LineNr">14859 </span><span class="subxComment"># ✓ fn foo x: int {</span> +<span id="L14860" class="LineNr">14860 </span><span class="subxComment"># ✓ fn foo x: int {</span> +<span id="L14861" class="LineNr">14861 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int {</span> +<span id="L14862" class="LineNr">14862 </span><span class="subxComment"># TODO:</span> +<span id="L14863" class="LineNr">14863 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> +<span id="L14864" class="LineNr">14864 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> +<span id="L14865" class="LineNr">14865 </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="L14866" class="LineNr">14866 </span> <span class="subxComment"># pseudocode:</span> +<span id="L14867" class="LineNr">14867 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L14868" class="LineNr">14868 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> +<span id="L14869" class="LineNr">14869 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L14870" class="LineNr">14870 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L14871" class="LineNr">14871 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> +<span id="L14872" class="LineNr">14872 </span> <span class="subxComment"># ## inouts</span> +<span id="L14873" class="LineNr">14873 </span> <span class="subxComment"># while true</span> +<span id="L14874" class="LineNr">14874 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L14875" class="LineNr">14875 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L14876" class="LineNr">14876 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> +<span id="L14877" class="LineNr">14877 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L14878" class="LineNr">14878 </span> <span class="subxComment"># assert(word-slice != '}')</span> +<span id="L14879" class="LineNr">14879 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L14880" class="LineNr">14880 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L14881" class="LineNr">14881 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> +<span id="L14882" class="LineNr">14882 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L14883" class="LineNr">14883 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L14884" class="LineNr">14884 </span> <span class="subxComment"># ## outputs</span> +<span id="L14885" class="LineNr">14885 </span> <span class="subxComment"># while true</span> +<span id="L14886" class="LineNr">14886 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L14887" class="LineNr">14887 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L14888" class="LineNr">14888 </span> <span class="subxComment"># if (word-slice == '{') break</span> +<span id="L14889" class="LineNr">14889 </span> <span class="subxComment"># assert(word-slice not in '}' '->')</span> +<span id="L14890" class="LineNr">14890 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L14891" class="LineNr">14891 </span> <span class="subxComment"># assert(v->register != null)</span> +<span id="L14892" class="LineNr">14892 </span> <span class="subxComment"># assert(v->name == "_")</span> +<span id="L14893" class="LineNr">14893 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L14894" class="LineNr">14894 </span> <span class="subxComment"># done:</span> +<span id="L14895" class="LineNr">14895 </span> <span class="subxComment">#</span> +<span id="L14896" class="LineNr">14896 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14897" class="LineNr">14897 </span> 55/push-ebp +<span id="L14898" class="LineNr">14898 </span> 89/<- %ebp 4/r32/esp +<span id="L14899" class="LineNr">14899 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L14900" class="LineNr">14900 </span> 50/push-eax +<span id="L14901" class="LineNr">14901 </span> 51/push-ecx +<span id="L14902" class="LineNr">14902 </span> 52/push-edx +<span id="L14903" class="LineNr">14903 </span> 53/push-ebx +<span id="L14904" class="LineNr">14904 </span> 57/push-edi +<span id="L14905" class="LineNr">14905 </span> <span class="subxComment"># edi = out</span> +<span id="L14906" class="LineNr">14906 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L14907" class="LineNr">14907 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L14908" class="LineNr">14908 </span> 68/push 0/imm32/end +<span id="L14909" class="LineNr">14909 </span> 68/push 0/imm32/start +<span id="L14910" class="LineNr">14910 </span> 89/<- %ecx 4/r32/esp +<span id="L14911" class="LineNr">14911 </span> <span class="subxComment"># var v/ebx: (handle var)</span> +<span id="L14912" class="LineNr">14912 </span> 68/push 0/imm32 +<span id="L14913" class="LineNr">14913 </span> 68/push 0/imm32 +<span id="L14914" class="LineNr">14914 </span> 89/<- %ebx 4/r32/esp +<span id="L14915" class="LineNr">14915 </span> <span class="subxComment"># read function name</span> +<span id="L14916" class="LineNr">14916 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L14917" class="LineNr">14917 </span> <span class="subxComment"># error checking</span> +<span id="L14918" class="LineNr">14918 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L14919" class="LineNr">14919 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L14920" class="LineNr">14920 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14921" class="LineNr">14921 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L14922" class="LineNr">14922 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L14923" class="LineNr">14923 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L14924" class="LineNr">14924 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14925" class="LineNr">14925 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L14926" class="LineNr">14926 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L14927" class="LineNr">14927 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L14928" class="LineNr">14928 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14929" class="LineNr">14929 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L14930" class="LineNr">14930 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L14931" class="LineNr">14931 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L14932" class="LineNr">14932 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14933" class="LineNr">14933 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L14934" class="LineNr">14934 </span> <span class="subxComment"># if word-slice already defined, abort</span> +<span id="L14935" class="LineNr">14935 </span> (<a href='mu.subx.html#L15537'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L14936" class="LineNr">14936 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14937" class="LineNr">14937 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-duplicate/disp32 +<span id="L14938" class="LineNr">14938 </span> <span class="subxComment">#</span> +<span id="L14939" class="LineNr">14939 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> +<span id="L14940" class="LineNr">14940 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14941" class="LineNr">14941 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-break/disp32 +<span id="L14942" class="LineNr">14942 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> +<span id="L14943" class="LineNr">14943 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14944" class="LineNr">14944 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-loop/disp32 +<span id="L14945" class="LineNr">14945 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> +<span id="L14946" class="LineNr">14946 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14947" class="LineNr">14947 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-lookup/disp32 +<span id="L14948" class="LineNr">14948 </span> <span class="subxComment"># save function name</span> +<span id="L14949" class="LineNr">14949 </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="L14950" class="LineNr">14950 </span> <span class="subxComment"># save function inouts</span> +<span id="L14951" class="LineNr">14951 </span> { +<span id="L14952" class="LineNr">14952 </span><span class="Constant">$populate-mu-function-header:check-for-inout</span>: +<span id="L14953" class="LineNr">14953 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L14954" class="LineNr">14954 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L14955" class="LineNr">14955 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L14956" class="LineNr">14956 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14957" class="LineNr">14957 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L14958" class="LineNr">14958 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> +<span id="L14959" class="LineNr">14959 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L14960" class="LineNr">14960 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14961" class="LineNr">14961 </span> 0f 85/jump-if-!= $populate-mu-function-header:done/disp32 +<span id="L14962" class="LineNr">14962 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L14963" class="LineNr">14963 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L14964" class="LineNr">14964 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14965" class="LineNr">14965 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L14966" class="LineNr">14966 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L14967" class="LineNr">14967 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L14968" class="LineNr">14968 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14969" class="LineNr">14969 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L14970" class="LineNr">14970 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L14971" class="LineNr">14971 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14972" class="LineNr">14972 </span> (<a href='mu.subx.html#L15844'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L14973" class="LineNr">14973 </span> <span class="subxComment"># if (v->register != null) abort</span> +<span id="L14974" class="LineNr">14974 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L14975" class="LineNr">14975 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L14976" class="LineNr">14976 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L14977" class="LineNr">14977 </span> 0f 85/jump-if-!= $populate-mu-function-header:error2/disp32 +<span id="L14978" class="LineNr">14978 </span> <span class="subxComment"># if function name is not "main"</span> +<span id="L14979" class="LineNr">14979 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> +<span id="L14980" class="LineNr">14980 </span> { +<span id="L14981" class="LineNr">14981 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L14982" class="LineNr">14982 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> +<span id="L14983" class="LineNr">14983 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14984" class="LineNr">14984 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L14985" class="LineNr">14985 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L14986" class="LineNr">14986 </span> (<a href='mu.subx.html#L15483'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L14987" class="LineNr">14987 </span> 3d/compare-eax-and 0/imm32/false +<span id="L14988" class="LineNr">14988 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-nested-addr-inout/disp32 +<span id="L14989" class="LineNr">14989 </span> } +<span id="L14990" class="LineNr">14990 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> +<span id="L14991" class="LineNr">14991 </span> <span class="subxComment">#</span> +<span id="L14992" class="LineNr">14992 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L14993" class="LineNr">14993 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> +<span id="L14994" class="LineNr">14994 </span> (<a href='mu.subx.html#L18925'>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="L14995" class="LineNr">14995 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L14996" class="LineNr">14996 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *ebx) +<span id="L14997" class="LineNr">14997 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebx+4)) +<span id="L14998" class="LineNr">14998 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L14999" class="LineNr">14999 </span> <span class="subxComment">#</span> +<span id="L15000" class="LineNr">15000 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L15001" class="LineNr">15001 </span> } +<span id="L15002" class="LineNr">15002 </span> <span class="subxComment"># save function outputs</span> +<span id="L15003" class="LineNr">15003 </span> { +<span id="L15004" class="LineNr">15004 </span><span class="Constant">$populate-mu-function-header:check-for-out</span>: +<span id="L15005" class="LineNr">15005 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L15006" class="LineNr">15006 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L15007" class="LineNr">15007 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L15008" class="LineNr">15008 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15009" class="LineNr">15009 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L15010" class="LineNr">15010 </span> <span class="subxComment"># if (word-slice == '{') break</span> +<span id="L15011" class="LineNr">15011 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L15012" class="LineNr">15012 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15013" class="LineNr">15013 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L15014" class="LineNr">15014 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L15015" class="LineNr">15015 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L15016" class="LineNr">15016 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15017" class="LineNr">15017 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L15018" class="LineNr">15018 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L15019" class="LineNr">15019 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L15020" class="LineNr">15020 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15021" class="LineNr">15021 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L15022" class="LineNr">15022 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L15023" class="LineNr">15023 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15024" class="LineNr">15024 </span> (<a href='mu.subx.html#L15844'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L15025" class="LineNr">15025 </span> <span class="subxComment"># assert(var->register != null)</span> +<span id="L15026" class="LineNr">15026 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L15027" class="LineNr">15027 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L15028" class="LineNr">15028 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L15029" class="LineNr">15029 </span> 0f 84/jump-if-= $populate-mu-function-header:error3/disp32 +<span id="L15030" class="LineNr">15030 </span> <span class="subxComment"># if (var->name != "_") abort</span> +<span id="L15031" class="LineNr">15031 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15032" class="LineNr">15032 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> +<span id="L15033" class="LineNr">15033 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15034" class="LineNr">15034 </span> 0f 84/jump-if-= $populate-mu-function-header:error4/disp32 +<span id="L15035" class="LineNr">15035 </span> <span class="subxComment"># if v->type is an addr, abort</span> +<span id="L15036" class="LineNr">15036 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L15037" class="LineNr">15037 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15038" class="LineNr">15038 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L15039" class="LineNr">15039 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15040" class="LineNr">15040 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-addr-output/disp32 +<span id="L15041" class="LineNr">15041 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L15042" class="LineNr">15042 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> +<span id="L15043" class="LineNr">15043 </span> (<a href='mu.subx.html#L18925'>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="L15044" class="LineNr">15044 </span> <span class="subxComment">#</span> +<span id="L15045" class="LineNr">15045 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L15046" class="LineNr">15046 </span> } +<span id="L15047" class="LineNr">15047 </span><span class="Constant">$populate-mu-function-header:done</span>: +<span id="L15048" class="LineNr">15048 </span> (<a href='mu.subx.html#L17294'>check-no-tokens-left</a> *(ebp+8)) +<span id="L15049" class="LineNr">15049 </span><span class="Constant">$populate-mu-function-header:end</span>: +<span id="L15050" class="LineNr">15050 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L15051" class="LineNr">15051 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L15052" class="LineNr">15052 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15053" class="LineNr">15053 </span> 5f/pop-to-edi +<span id="L15054" class="LineNr">15054 </span> 5b/pop-to-ebx +<span id="L15055" class="LineNr">15055 </span> 5a/pop-to-edx +<span id="L15056" class="LineNr">15056 </span> 59/pop-to-ecx +<span id="L15057" class="LineNr">15057 </span> 58/pop-to-eax +<span id="L15058" class="LineNr">15058 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15059" class="LineNr">15059 </span> 89/<- %esp 5/r32/ebp +<span id="L15060" class="LineNr">15060 </span> 5d/pop-to-ebp +<span id="L15061" class="LineNr">15061 </span> c3/return +<span id="L15062" class="LineNr">15062 </span> +<span id="L15063" class="LineNr">15063 </span><span class="Constant">$populate-mu-function-header:error1</span>: +<span id="L15064" class="LineNr">15064 </span> <span class="subxComment"># error("function header not in form 'fn <name> {'")</span> +<span id="L15065" class="LineNr">15065 </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="L15066" class="LineNr">15066 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L15067" class="LineNr">15067 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L15068" class="LineNr">15068 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) +<span id="L15069" class="LineNr">15069 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L15070" class="LineNr">15070 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L15071" class="LineNr">15071 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L15072" class="LineNr">15072 </span> <span class="subxComment"># never gets here</span> +<span id="L15073" class="LineNr">15073 </span> +<span id="L15074" class="LineNr">15074 </span><span class="Constant">$populate-mu-function-header:error2</span>: +<span id="L15075" class="LineNr">15075 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> +<span id="L15076" class="LineNr">15076 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L15077" class="LineNr">15077 </span> 50/push-eax +<span id="L15078" class="LineNr">15078 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15079" class="LineNr">15079 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L15080" class="LineNr">15080 </span> 58/pop-to-eax +<span id="L15081" class="LineNr">15081 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function inout '"</span>) +<span id="L15082" class="LineNr">15082 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15083" class="LineNr">15083 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L15084" class="LineNr">15084 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' cannot be in a register"</span>) +<span id="L15085" class="LineNr">15085 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L15086" class="LineNr">15086 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L15087" class="LineNr">15087 </span> <span class="subxComment"># never gets here</span> +<span id="L15088" class="LineNr">15088 </span> +<span id="L15089" class="LineNr">15089 </span><span class="Constant">$populate-mu-function-header:error3</span>: +<span id="L15090" class="LineNr">15090 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> +<span id="L15091" class="LineNr">15091 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L15092" class="LineNr">15092 </span> 50/push-eax +<span id="L15093" class="LineNr">15093 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15094" class="LineNr">15094 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L15095" class="LineNr">15095 </span> 58/pop-to-eax +<span id="L15096" class="LineNr">15096 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function output '"</span>) +<span id="L15097" class="LineNr">15097 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L15098" class="LineNr">15098 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15099" class="LineNr">15099 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L15100" class="LineNr">15100 </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="L15101" class="LineNr">15101 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L15102" class="LineNr">15102 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) +<span id="L15103" class="LineNr">15103 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L15104" class="LineNr">15104 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L15105" class="LineNr">15105 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L15106" class="LineNr">15106 </span> <span class="subxComment"># never gets here</span> +<span id="L15107" class="LineNr">15107 </span> +<span id="L15108" class="LineNr">15108 </span><span class="Constant">$populate-mu-function-header:error4</span>: +<span id="L15109" class="LineNr">15109 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> +<span id="L15110" class="LineNr">15110 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L15111" class="LineNr">15111 </span> 50/push-eax +<span id="L15112" class="LineNr">15112 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15113" class="LineNr">15113 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L15114" class="LineNr">15114 </span> 58/pop-to-eax +<span id="L15115" class="LineNr">15115 </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="L15116" class="LineNr">15116 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L15117" class="LineNr">15117 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15118" class="LineNr">15118 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L15119" class="LineNr">15119 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' in the header to '_'\n"</span>) +<span id="L15120" class="LineNr">15120 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L15121" class="LineNr">15121 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L15122" class="LineNr">15122 </span> <span class="subxComment"># never gets here</span> +<span id="L15123" class="LineNr">15123 </span> +<span id="L15124" class="LineNr">15124 </span><span class="Constant">$populate-mu-function-header:error-duplicate</span>: +<span id="L15125" class="LineNr">15125 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L15126" class="LineNr">15126 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) +<span id="L15127" class="LineNr">15127 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">" defined more than once\n"</span>) +<span id="L15128" class="LineNr">15128 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L15129" class="LineNr">15129 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L15130" class="LineNr">15130 </span> <span class="subxComment"># never gets here</span> +<span id="L15131" class="LineNr">15131 </span> +<span id="L15132" class="LineNr">15132 </span><span class="Constant">$populate-mu-function-header:error-break</span>: +<span id="L15133" class="LineNr">15133 </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="L15134" class="LineNr">15134 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L15135" class="LineNr">15135 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L15136" class="LineNr">15136 </span> <span class="subxComment"># never gets here</span> +<span id="L15137" class="LineNr">15137 </span> +<span id="L15138" class="LineNr">15138 </span><span class="Constant">$populate-mu-function-header:error-loop</span>: +<span id="L15139" class="LineNr">15139 </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="L15140" class="LineNr">15140 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L15141" class="LineNr">15141 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L15142" class="LineNr">15142 </span> <span class="subxComment"># never gets here</span> +<span id="L15143" class="LineNr">15143 </span> +<span id="L15144" class="LineNr">15144 </span><span class="Constant">$populate-mu-function-header:error-lookup</span>: +<span id="L15145" class="LineNr">15145 </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="L15146" class="LineNr">15146 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L15147" class="LineNr">15147 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L15148" class="LineNr">15148 </span> <span class="subxComment"># never gets here</span> +<span id="L15149" class="LineNr">15149 </span> +<span id="L15150" class="LineNr">15150 </span><span class="Constant">$populate-mu-function-header:error-addr-output</span>: +<span id="L15151" class="LineNr">15151 </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="L15152" class="LineNr">15152 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L15153" class="LineNr">15153 </span> 50/push-eax +<span id="L15154" class="LineNr">15154 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15155" class="LineNr">15155 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L15156" class="LineNr">15156 </span> 58/pop-to-eax +<span id="L15157" class="LineNr">15157 </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="L15158" class="LineNr">15158 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L15159" class="LineNr">15159 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L15160" class="LineNr">15160 </span> <span class="subxComment"># never gets here</span> +<span id="L15161" class="LineNr">15161 </span> +<span id="L15162" class="LineNr">15162 </span><span class="Constant">$populate-mu-function-header:error-nested-addr-inout</span>: +<span id="L15163" class="LineNr">15163 </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="L15164" class="LineNr">15164 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L15165" class="LineNr">15165 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15166" class="LineNr">15166 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L15167" class="LineNr">15167 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": inout '"</span>) +<span id="L15168" class="LineNr">15168 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L15169" class="LineNr">15169 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15170" class="LineNr">15170 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L15171" class="LineNr">15171 </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="L15172" class="LineNr">15172 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L15173" class="LineNr">15173 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L15174" class="LineNr">15174 </span> <span class="subxComment"># never gets here</span> +<span id="L15175" class="LineNr">15175 </span> +<span id="L15176" class="LineNr">15176 </span><span class="subxComment"># scenarios considered:</span> +<span id="L15177" class="LineNr">15177 </span><span class="subxComment"># ✓ fn foo</span> +<span id="L15178" class="LineNr">15178 </span><span class="subxComment"># ✗ fn foo {</span> +<span id="L15179" class="LineNr">15179 </span><span class="subxComment"># ✓ fn foo x</span> +<span id="L15180" class="LineNr">15180 </span><span class="subxComment"># ✓ fn foo x: int</span> +<span id="L15181" class="LineNr">15181 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int</span> +<span id="L15182" class="LineNr">15182 </span><span class="subxComment"># TODO:</span> +<span id="L15183" class="LineNr">15183 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> +<span id="L15184" class="LineNr">15184 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> +<span id="L15185" class="LineNr">15185 </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="L15186" class="LineNr">15186 </span> <span class="subxComment"># pseudocode:</span> +<span id="L15187" class="LineNr">15187 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L15188" class="LineNr">15188 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> +<span id="L15189" class="LineNr">15189 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L15190" class="LineNr">15190 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> +<span id="L15191" class="LineNr">15191 </span> <span class="subxComment"># ## inouts</span> +<span id="L15192" class="LineNr">15192 </span> <span class="subxComment"># while true</span> +<span id="L15193" class="LineNr">15193 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L15194" class="LineNr">15194 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L15195" class="LineNr">15195 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L15196" class="LineNr">15196 </span> <span class="subxComment"># assert(word-slice not in '{' '}')</span> +<span id="L15197" class="LineNr">15197 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L15198" class="LineNr">15198 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L15199" class="LineNr">15199 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> +<span id="L15200" class="LineNr">15200 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L15201" class="LineNr">15201 </span> <span class="subxComment"># ## outputs</span> +<span id="L15202" class="LineNr">15202 </span> <span class="subxComment"># while true</span> +<span id="L15203" class="LineNr">15203 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L15204" class="LineNr">15204 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L15205" class="LineNr">15205 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L15206" class="LineNr">15206 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L15207" class="LineNr">15207 </span> <span class="subxComment"># assert(v->register != null)</span> +<span id="L15208" class="LineNr">15208 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L15209" class="LineNr">15209 </span> <span class="subxComment">#</span> +<span id="L15210" class="LineNr">15210 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15211" class="LineNr">15211 </span> 55/push-ebp +<span id="L15212" class="LineNr">15212 </span> 89/<- %ebp 4/r32/esp +<span id="L15213" class="LineNr">15213 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15214" class="LineNr">15214 </span> 50/push-eax +<span id="L15215" class="LineNr">15215 </span> 51/push-ecx +<span id="L15216" class="LineNr">15216 </span> 52/push-edx +<span id="L15217" class="LineNr">15217 </span> 53/push-ebx +<span id="L15218" class="LineNr">15218 </span> 57/push-edi +<span id="L15219" class="LineNr">15219 </span> <span class="subxComment"># edi = out</span> +<span id="L15220" class="LineNr">15220 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L15221" class="LineNr">15221 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L15222" class="LineNr">15222 </span> 68/push 0/imm32/end +<span id="L15223" class="LineNr">15223 </span> 68/push 0/imm32/start +<span id="L15224" class="LineNr">15224 </span> 89/<- %ecx 4/r32/esp +<span id="L15225" class="LineNr">15225 </span> <span class="subxComment"># var v/ebx: (handle var)</span> +<span id="L15226" class="LineNr">15226 </span> 68/push 0/imm32 +<span id="L15227" class="LineNr">15227 </span> 68/push 0/imm32 +<span id="L15228" class="LineNr">15228 </span> 89/<- %ebx 4/r32/esp +<span id="L15229" class="LineNr">15229 </span> <span class="subxComment"># read function name</span> +<span id="L15230" class="LineNr">15230 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L15231" class="LineNr">15231 </span> <span class="subxComment"># error checking</span> +<span id="L15232" class="LineNr">15232 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L15233" class="LineNr">15233 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L15234" class="LineNr">15234 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15235" class="LineNr">15235 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L15236" class="LineNr">15236 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L15237" class="LineNr">15237 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L15238" class="LineNr">15238 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15239" class="LineNr">15239 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L15240" class="LineNr">15240 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L15241" class="LineNr">15241 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L15242" class="LineNr">15242 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15243" class="LineNr">15243 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L15244" class="LineNr">15244 </span> <span class="subxComment"># if word-slice already defined, abort</span> +<span id="L15245" class="LineNr">15245 </span> (<a href='mu.subx.html#L15537'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L15246" class="LineNr">15246 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15247" class="LineNr">15247 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-duplicate/disp32 +<span id="L15248" class="LineNr">15248 </span> <span class="subxComment">#</span> +<span id="L15249" class="LineNr">15249 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> +<span id="L15250" class="LineNr">15250 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15251" class="LineNr">15251 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-break/disp32 +<span id="L15252" class="LineNr">15252 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> +<span id="L15253" class="LineNr">15253 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15254" class="LineNr">15254 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-loop/disp32 +<span id="L15255" class="LineNr">15255 </span> <span class="subxComment"># save function name</span> +<span id="L15256" class="LineNr">15256 </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="L15257" class="LineNr">15257 </span> <span class="subxComment"># save function inouts</span> +<span id="L15258" class="LineNr">15258 </span> { +<span id="L15259" class="LineNr">15259 </span><span class="Constant">$populate-mu-function-signature:check-for-inout</span>: +<span id="L15260" class="LineNr">15260 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L15261" class="LineNr">15261 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L15262" class="LineNr">15262 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15263" class="LineNr">15263 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L15264" class="LineNr">15264 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L15265" class="LineNr">15265 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L15266" class="LineNr">15266 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15267" class="LineNr">15267 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L15268" class="LineNr">15268 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L15269" class="LineNr">15269 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L15270" class="LineNr">15270 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15271" class="LineNr">15271 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L15272" class="LineNr">15272 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L15273" class="LineNr">15273 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L15274" class="LineNr">15274 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15275" class="LineNr">15275 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L15276" class="LineNr">15276 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L15277" class="LineNr">15277 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15278" class="LineNr">15278 </span> (<a href='mu.subx.html#L15844'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L15279" class="LineNr">15279 </span> <span class="subxComment"># if (v->register != null) abort</span> +<span id="L15280" class="LineNr">15280 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L15281" class="LineNr">15281 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L15282" class="LineNr">15282 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L15283" class="LineNr">15283 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 +<span id="L15284" class="LineNr">15284 </span> <span class="subxComment"># if function name is not "main"</span> +<span id="L15285" class="LineNr">15285 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> +<span id="L15286" class="LineNr">15286 </span> { +<span id="L15287" class="LineNr">15287 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15288" class="LineNr">15288 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> +<span id="L15289" class="LineNr">15289 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15290" class="LineNr">15290 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L15291" class="LineNr">15291 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L15292" class="LineNr">15292 </span> (<a href='mu.subx.html#L15483'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L15293" class="LineNr">15293 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15294" class="LineNr">15294 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-nested-addr-inout/disp32 +<span id="L15295" class="LineNr">15295 </span> } +<span id="L15296" class="LineNr">15296 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L15297" class="LineNr">15297 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L15298" class="LineNr">15298 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L15299" class="LineNr">15299 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L15300" class="LineNr">15300 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 +<span id="L15301" class="LineNr">15301 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> +<span id="L15302" class="LineNr">15302 </span> <span class="subxComment">#</span> +<span id="L15303" class="LineNr">15303 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L15304" class="LineNr">15304 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> +<span id="L15305" class="LineNr">15305 </span> (<a href='mu.subx.html#L18925'>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="L15306" class="LineNr">15306 </span> <span class="subxComment">#</span> +<span id="L15307" class="LineNr">15307 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L15308" class="LineNr">15308 </span> } +<span id="L15309" class="LineNr">15309 </span> <span class="subxComment"># save function outputs</span> +<span id="L15310" class="LineNr">15310 </span> { +<span id="L15311" class="LineNr">15311 </span><span class="Constant">$populate-mu-function-signature:check-for-out</span>: +<span id="L15312" class="LineNr">15312 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L15313" class="LineNr">15313 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L15314" class="LineNr">15314 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15315" class="LineNr">15315 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L15316" class="LineNr">15316 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L15317" class="LineNr">15317 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L15318" class="LineNr">15318 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15319" class="LineNr">15319 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L15320" class="LineNr">15320 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L15321" class="LineNr">15321 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L15322" class="LineNr">15322 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15323" class="LineNr">15323 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L15324" class="LineNr">15324 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L15325" class="LineNr">15325 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L15326" class="LineNr">15326 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15327" class="LineNr">15327 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L15328" class="LineNr">15328 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L15329" class="LineNr">15329 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15330" class="LineNr">15330 </span> (<a href='mu.subx.html#L15844'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L15331" class="LineNr">15331 </span> <span class="subxComment"># assert(var->register != null)</span> +<span id="L15332" class="LineNr">15332 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L15333" class="LineNr">15333 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L15334" class="LineNr">15334 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L15335" class="LineNr">15335 </span> 0f 84/jump-if-= $populate-mu-function-signature:error3/disp32 +<span id="L15336" class="LineNr">15336 </span> <span class="subxComment"># if (var->name != "_") abort</span> +<span id="L15337" class="LineNr">15337 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15338" class="LineNr">15338 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> +<span id="L15339" class="LineNr">15339 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15340" class="LineNr">15340 </span> 0f 84/jump-if-= $populate-mu-function-signature:error4/disp32 +<span id="L15341" class="LineNr">15341 </span> <span class="subxComment"># if function name is not "lookup"</span> +<span id="L15342" class="LineNr">15342 </span> <span class="subxComment"># and v->type is an addr, abort</span> +<span id="L15343" class="LineNr">15343 </span> { +<span id="L15344" class="LineNr">15344 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15345" class="LineNr">15345 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> +<span id="L15346" class="LineNr">15346 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15347" class="LineNr">15347 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L15348" class="LineNr">15348 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L15349" class="LineNr">15349 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15350" class="LineNr">15350 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L15351" class="LineNr">15351 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15352" class="LineNr">15352 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-addr-output/disp32 +<span id="L15353" class="LineNr">15353 </span> } +<span id="L15354" class="LineNr">15354 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L15355" class="LineNr">15355 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> +<span id="L15356" class="LineNr">15356 </span> (<a href='mu.subx.html#L18925'>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="L15357" class="LineNr">15357 </span> <span class="subxComment">#</span> +<span id="L15358" class="LineNr">15358 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L15359" class="LineNr">15359 </span> } +<span id="L15360" class="LineNr">15360 </span><span class="Constant">$populate-mu-function-signature:done</span>: +<span id="L15361" class="LineNr">15361 </span> (<a href='mu.subx.html#L17294'>check-no-tokens-left</a> *(ebp+8)) +<span id="L15362" class="LineNr">15362 </span><span class="Constant">$populate-mu-function-signature:end</span>: +<span id="L15363" class="LineNr">15363 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L15364" class="LineNr">15364 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L15365" class="LineNr">15365 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15366" class="LineNr">15366 </span> 5f/pop-to-edi +<span id="L15367" class="LineNr">15367 </span> 5b/pop-to-ebx +<span id="L15368" class="LineNr">15368 </span> 5a/pop-to-edx +<span id="L15369" class="LineNr">15369 </span> 59/pop-to-ecx +<span id="L15370" class="LineNr">15370 </span> 58/pop-to-eax +<span id="L15371" class="LineNr">15371 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15372" class="LineNr">15372 </span> 89/<- %esp 5/r32/ebp +<span id="L15373" class="LineNr">15373 </span> 5d/pop-to-ebp +<span id="L15374" class="LineNr">15374 </span> c3/return +<span id="L15375" class="LineNr">15375 </span> +<span id="L15376" class="LineNr">15376 </span><span class="Constant">$populate-mu-function-signature:error1</span>: +<span id="L15377" class="LineNr">15377 </span> <span class="subxComment"># error("function signature not in form 'fn <name> {'")</span> +<span id="L15378" class="LineNr">15378 </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="L15379" class="LineNr">15379 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L15380" class="LineNr">15380 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L15381" class="LineNr">15381 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) +<span id="L15382" class="LineNr">15382 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L15383" class="LineNr">15383 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L15384" class="LineNr">15384 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L15385" class="LineNr">15385 </span> <span class="subxComment"># never gets here</span> +<span id="L15386" class="LineNr">15386 </span> +<span id="L15387" class="LineNr">15387 </span><span class="Constant">$populate-mu-function-signature:error2</span>: +<span id="L15388" class="LineNr">15388 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> +<span id="L15389" class="LineNr">15389 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L15390" class="LineNr">15390 </span> 50/push-eax +<span id="L15391" class="LineNr">15391 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15392" class="LineNr">15392 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L15393" class="LineNr">15393 </span> 58/pop-to-eax +<span id="L15394" class="LineNr">15394 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function inout '"</span>) +<span id="L15395" class="LineNr">15395 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15396" class="LineNr">15396 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L15397" class="LineNr">15397 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot be in a register"</span>) +<span id="L15398" class="LineNr">15398 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L15399" class="LineNr">15399 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L15400" class="LineNr">15400 </span> <span class="subxComment"># never gets here</span> +<span id="L15401" class="LineNr">15401 </span> +<span id="L15402" class="LineNr">15402 </span><span class="Constant">$populate-mu-function-signature:error3</span>: +<span id="L15403" class="LineNr">15403 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> +<span id="L15404" class="LineNr">15404 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L15405" class="LineNr">15405 </span> 50/push-eax +<span id="L15406" class="LineNr">15406 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15407" class="LineNr">15407 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L15408" class="LineNr">15408 </span> 58/pop-to-eax +<span id="L15409" class="LineNr">15409 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function output '"</span>) +<span id="L15410" class="LineNr">15410 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L15411" class="LineNr">15411 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15412" class="LineNr">15412 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L15413" class="LineNr">15413 </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="L15414" class="LineNr">15414 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L15415" class="LineNr">15415 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) +<span id="L15416" class="LineNr">15416 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L15417" class="LineNr">15417 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L15418" class="LineNr">15418 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L15419" class="LineNr">15419 </span> <span class="subxComment"># never gets here</span> +<span id="L15420" class="LineNr">15420 </span> +<span id="L15421" class="LineNr">15421 </span><span class="Constant">$populate-mu-function-signature:error4</span>: +<span id="L15422" class="LineNr">15422 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> +<span id="L15423" class="LineNr">15423 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L15424" class="LineNr">15424 </span> 50/push-eax +<span id="L15425" class="LineNr">15425 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15426" class="LineNr">15426 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L15427" class="LineNr">15427 </span> 58/pop-to-eax +<span id="L15428" class="LineNr">15428 </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="L15429" class="LineNr">15429 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L15430" class="LineNr">15430 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15431" class="LineNr">15431 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L15432" class="LineNr">15432 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' in the header to '_'\n"</span>) +<span id="L15433" class="LineNr">15433 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L15434" class="LineNr">15434 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L15435" class="LineNr">15435 </span> <span class="subxComment"># never gets here</span> +<span id="L15436" class="LineNr">15436 </span> +<span id="L15437" class="LineNr">15437 </span><span class="Constant">$populate-mu-function-signature:error-duplicate</span>: +<span id="L15438" class="LineNr">15438 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L15439" class="LineNr">15439 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x10) %ecx) +<span id="L15440" class="LineNr">15440 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">" defined more than once\n"</span>) +<span id="L15441" class="LineNr">15441 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L15442" class="LineNr">15442 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L15443" class="LineNr">15443 </span> <span class="subxComment"># never gets here</span> +<span id="L15444" class="LineNr">15444 </span> +<span id="L15445" class="LineNr">15445 </span><span class="Constant">$populate-mu-function-signature:error-break</span>: +<span id="L15446" class="LineNr">15446 </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="L15447" class="LineNr">15447 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L15448" class="LineNr">15448 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L15449" class="LineNr">15449 </span> <span class="subxComment"># never gets here</span> +<span id="L15450" class="LineNr">15450 </span> +<span id="L15451" class="LineNr">15451 </span><span class="Constant">$populate-mu-function-signature:error-loop</span>: +<span id="L15452" class="LineNr">15452 </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="L15453" class="LineNr">15453 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L15454" class="LineNr">15454 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L15455" class="LineNr">15455 </span> <span class="subxComment"># never gets here</span> +<span id="L15456" class="LineNr">15456 </span> +<span id="L15457" class="LineNr">15457 </span><span class="Constant">$populate-mu-function-signature:error-addr-output</span>: +<span id="L15458" class="LineNr">15458 </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="L15459" class="LineNr">15459 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L15460" class="LineNr">15460 </span> 50/push-eax +<span id="L15461" class="LineNr">15461 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15462" class="LineNr">15462 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L15463" class="LineNr">15463 </span> 58/pop-to-eax +<span id="L15464" class="LineNr">15464 </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="L15465" class="LineNr">15465 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L15466" class="LineNr">15466 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L15467" class="LineNr">15467 </span> <span class="subxComment"># never gets here</span> +<span id="L15468" class="LineNr">15468 </span> +<span id="L15469" class="LineNr">15469 </span><span class="Constant">$populate-mu-function-signature:error-nested-addr-inout</span>: +<span id="L15470" class="LineNr">15470 </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="L15471" class="LineNr">15471 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L15472" class="LineNr">15472 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15473" class="LineNr">15473 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L15474" class="LineNr">15474 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": inout '"</span>) +<span id="L15475" class="LineNr">15475 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L15476" class="LineNr">15476 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15477" class="LineNr">15477 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L15478" class="LineNr">15478 </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="L15479" class="LineNr">15479 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L15480" class="LineNr">15480 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L15481" class="LineNr">15481 </span> <span class="subxComment"># never gets here</span> +<span id="L15482" class="LineNr">15482 </span> +<span id="L15483" class="LineNr">15483 </span><span class="subxFunction">addr-payload-contains-addr?</span>: <span class="subxComment"># v: (addr var) -> result/eax: boolean</span> +<span id="L15484" class="LineNr">15484 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15485" class="LineNr">15485 </span> 55/push-ebp +<span id="L15486" class="LineNr">15486 </span> 89/<- %ebp 4/r32/esp +<span id="L15487" class="LineNr">15487 </span> <span class="subxComment"># var t/eax: (addr type-tree) = v->type</span> +<span id="L15488" class="LineNr">15488 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L15489" class="LineNr">15489 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15490" class="LineNr">15490 </span> <span class="subxComment"># if t->right contains addr, return true</span> +<span id="L15491" class="LineNr">15491 </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="L15492" class="LineNr">15492 </span> (<a href='mu.subx.html#L15500'>type-tree-contains?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L15493" class="LineNr">15493 </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="L15494" class="LineNr">15494 </span><span class="Constant">$addr-payload-contains-addr?:end</span>: +<span id="L15495" class="LineNr">15495 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15496" class="LineNr">15496 </span> 89/<- %esp 5/r32/ebp +<span id="L15497" class="LineNr">15497 </span> 5d/pop-to-ebp +<span id="L15498" class="LineNr">15498 </span> c3/return +<span id="L15499" class="LineNr">15499 </span> +<span id="L15500" class="LineNr">15500 </span><span class="subxFunction">type-tree-contains?</span>: <span class="subxComment"># t: (addr type-tree), n: type-id -> result/eax: boolean</span> +<span id="L15501" class="LineNr">15501 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15502" class="LineNr">15502 </span> 55/push-ebp +<span id="L15503" class="LineNr">15503 </span> 89/<- %ebp 4/r32/esp +<span id="L15504" class="LineNr">15504 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15505" class="LineNr">15505 </span> 51/push-ecx +<span id="L15506" class="LineNr">15506 </span> <span class="subxComment"># if t is null, return false</span> +<span id="L15507" class="LineNr">15507 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L15508" class="LineNr">15508 </span> 3d/compare-eax-and 0/imm32 +<span id="L15509" class="LineNr">15509 </span> 0f 84/jump-if-= $type-tree-contains?:end/disp32 <span class="subxComment"># eax changes type</span> +<span id="L15510" class="LineNr">15510 </span> <span class="subxComment"># if t is an atom, return (t->value == n)</span> +<span id="L15511" class="LineNr">15511 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L15512" class="LineNr">15512 </span> { +<span id="L15513" class="LineNr">15513 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15514" class="LineNr">15514 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L15515" class="LineNr">15515 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> +<span id="L15516" class="LineNr">15516 </span> 0f 94/set-if-= %al +<span id="L15517" class="LineNr">15517 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L15518" class="LineNr">15518 </span> eb/jump $type-tree-contains?:end/disp8 +<span id="L15519" class="LineNr">15519 </span> } +<span id="L15520" class="LineNr">15520 </span> <span class="subxComment"># if t->left contains n, return true</span> +<span id="L15521" class="LineNr">15521 </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="L15522" class="LineNr">15522 </span> (<a href='mu.subx.html#L15500'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L15523" class="LineNr">15523 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15524" class="LineNr">15524 </span> 75/jump-if-!= $type-tree-contains?:end/disp8 +<span id="L15525" class="LineNr">15525 </span> <span class="subxComment"># otherwise return whether t->right contains n</span> +<span id="L15526" class="LineNr">15526 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L15527" class="LineNr">15527 </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="L15528" class="LineNr">15528 </span> (<a href='mu.subx.html#L15500'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L15529" class="LineNr">15529 </span><span class="Constant">$type-tree-contains?:end</span>: +<span id="L15530" class="LineNr">15530 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15531" class="LineNr">15531 </span> 59/pop-to-ecx +<span id="L15532" class="LineNr">15532 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15533" class="LineNr">15533 </span> 89/<- %esp 5/r32/ebp +<span id="L15534" class="LineNr">15534 </span> 5d/pop-to-ebp +<span id="L15535" class="LineNr">15535 </span> c3/return +<span id="L15536" class="LineNr">15536 </span> +<span id="L15537" class="LineNr">15537 </span><span class="subxFunction">function-exists?</span>: <span class="subxComment"># s: (addr slice) -> result/eax: boolean</span> +<span id="L15538" class="LineNr">15538 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15539" class="LineNr">15539 </span> 55/push-ebp +<span id="L15540" class="LineNr">15540 </span> 89/<- %ebp 4/r32/esp +<span id="L15541" class="LineNr">15541 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15542" class="LineNr">15542 </span> 51/push-ecx +<span id="L15543" class="LineNr">15543 </span> <span class="subxComment"># var curr/ecx: (addr function) = functions</span> +<span id="L15544" class="LineNr">15544 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L15545" class="LineNr">15545 </span> 89/<- %ecx 0/r32/eax +<span id="L15546" class="LineNr">15546 </span> { +<span id="L15547" class="LineNr">15547 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L15548" class="LineNr">15548 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L15549" class="LineNr">15549 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15550" class="LineNr">15550 </span> <span class="subxComment"># if (curr->name == s) return true</span> +<span id="L15551" class="LineNr">15551 </span> { +<span id="L15552" class="LineNr">15552 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15553" class="LineNr">15553 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> +<span id="L15554" class="LineNr">15554 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15555" class="LineNr">15555 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15556" class="LineNr">15556 </span> b8/copy-to-eax 1/imm32/true +<span id="L15557" class="LineNr">15557 </span> e9/jump $function-exists?:end/disp32 +<span id="L15558" class="LineNr">15558 </span> } +<span id="L15559" class="LineNr">15559 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L15560" class="LineNr">15560 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L15561" class="LineNr">15561 </span> 89/<- %ecx 0/r32/eax +<span id="L15562" class="LineNr">15562 </span> <span class="subxComment">#</span> +<span id="L15563" class="LineNr">15563 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L15564" class="LineNr">15564 </span> } +<span id="L15565" class="LineNr">15565 </span> <span class="subxComment"># var curr/ecx: (addr function) = signatures</span> +<span id="L15566" class="LineNr">15566 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> +<span id="L15567" class="LineNr">15567 </span> 89/<- %ecx 0/r32/eax +<span id="L15568" class="LineNr">15568 </span> { +<span id="L15569" class="LineNr">15569 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L15570" class="LineNr">15570 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L15571" class="LineNr">15571 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15572" class="LineNr">15572 </span> <span class="subxComment"># if (curr->name == s) return true</span> +<span id="L15573" class="LineNr">15573 </span> { +<span id="L15574" class="LineNr">15574 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15575" class="LineNr">15575 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> +<span id="L15576" class="LineNr">15576 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15577" class="LineNr">15577 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15578" class="LineNr">15578 </span> b8/copy-to-eax 1/imm32/true +<span id="L15579" class="LineNr">15579 </span> eb/jump $function-exists?:end/disp8 +<span id="L15580" class="LineNr">15580 </span> } +<span id="L15581" class="LineNr">15581 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L15582" class="LineNr">15582 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L15583" class="LineNr">15583 </span> 89/<- %ecx 0/r32/eax +<span id="L15584" class="LineNr">15584 </span> <span class="subxComment">#</span> +<span id="L15585" class="LineNr">15585 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L15586" class="LineNr">15586 </span> } +<span id="L15587" class="LineNr">15587 </span> <span class="subxComment"># return false</span> +<span id="L15588" class="LineNr">15588 </span> b8/copy-to-eax 0/imm32/false +<span id="L15589" class="LineNr">15589 </span><span class="Constant">$function-exists?:end</span>: +<span id="L15590" class="LineNr">15590 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15591" class="LineNr">15591 </span> 59/pop-to-ecx +<span id="L15592" class="LineNr">15592 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15593" class="LineNr">15593 </span> 89/<- %esp 5/r32/ebp +<span id="L15594" class="LineNr">15594 </span> 5d/pop-to-ebp +<span id="L15595" class="LineNr">15595 </span> c3/return +<span id="L15596" class="LineNr">15596 </span> +<span id="L15597" class="LineNr">15597 </span><span class="subxTest">test-function-header-with-arg</span>: +<span id="L15598" class="LineNr">15598 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15599" class="LineNr">15599 </span> 55/push-ebp +<span id="L15600" class="LineNr">15600 </span> 89/<- %ebp 4/r32/esp +<span id="L15601" class="LineNr">15601 </span> <span class="subxComment"># setup</span> +<span id="L15602" class="LineNr">15602 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L15603" class="LineNr">15603 </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="L15604" class="LineNr">15604 </span> c7 0/subop/copy *_Program-functions 0/imm32 +<span id="L15605" class="LineNr">15605 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 +<span id="L15606" class="LineNr">15606 </span> c7 0/subop/copy *_Program-types 0/imm32 +<span id="L15607" class="LineNr">15607 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 +<span id="L15608" class="LineNr">15608 </span> c7 0/subop/copy *_Program-signatures 0/imm32 +<span id="L15609" class="LineNr">15609 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 +<span id="L15610" class="LineNr">15610 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<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">"foo n: int {\n"</span>) +<span id="L15612" class="LineNr">15612 </span> <span class="subxComment"># var result/ecx: function</span> +<span id="L15613" class="LineNr">15613 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp +<span id="L15614" class="LineNr">15614 </span> 89/<- %ecx 4/r32/esp +<span id="L15615" class="LineNr">15615 </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="L15616" class="LineNr">15616 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L15617" class="LineNr">15617 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L15618" class="LineNr">15618 </span> 68/push 0xc0/imm32/size +<span id="L15619" class="LineNr">15619 </span> 68/push 0/imm32/top +<span id="L15620" class="LineNr">15620 </span> 89/<- %ebx 4/r32/esp +<span id="L15621" class="LineNr">15621 </span> <span class="subxComment"># convert</span> +<span id="L15622" class="LineNr">15622 </span> (<a href='mu.subx.html#L14865'>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="L15623" class="LineNr">15623 </span> <span class="subxComment"># check result->name</span> +<span id="L15624" class="LineNr">15624 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15625" class="LineNr">15625 </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#L15597'>test-function-header-with-arg</a>/name"</span>) +<span id="L15626" class="LineNr">15626 </span> <span class="subxComment"># var v/edx: (addr var) = result->inouts->value</span> +<span id="L15627" class="LineNr">15627 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L15628" class="LineNr">15628 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L15629" class="LineNr">15629 </span> 89/<- %edx 0/r32/eax +<span id="L15630" class="LineNr">15630 </span> <span class="subxComment"># check v->name</span> +<span id="L15631" class="LineNr">15631 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15632" class="LineNr">15632 </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#L15597'>test-function-header-with-arg</a>/inout:0"</span>) +<span id="L15633" class="LineNr">15633 </span> <span class="subxComment"># check v->type</span> +<span id="L15634" class="LineNr">15634 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15635" class="LineNr">15635 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15597'>test-function-header-with-arg</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15636" class="LineNr">15636 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15597'>test-function-header-with-arg</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L15637" class="LineNr">15637 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15597'>test-function-header-with-arg</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L15638" class="LineNr">15638 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15639" class="LineNr">15639 </span> 89/<- %esp 5/r32/ebp +<span id="L15640" class="LineNr">15640 </span> 5d/pop-to-ebp +<span id="L15641" class="LineNr">15641 </span> c3/return +<span id="L15642" class="LineNr">15642 </span> +<span id="L15643" class="LineNr">15643 </span><span class="subxTest">test-function-header-with-multiple-args</span>: +<span id="L15644" class="LineNr">15644 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15645" class="LineNr">15645 </span> 55/push-ebp +<span id="L15646" class="LineNr">15646 </span> 89/<- %ebp 4/r32/esp +<span id="L15647" class="LineNr">15647 </span> <span class="subxComment"># setup</span> +<span id="L15648" class="LineNr">15648 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L15649" class="LineNr">15649 </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="L15650" class="LineNr">15650 </span> c7 0/subop/copy *_Program-functions 0/imm32 +<span id="L15651" class="LineNr">15651 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 +<span id="L15652" class="LineNr">15652 </span> c7 0/subop/copy *_Program-types 0/imm32 +<span id="L15653" class="LineNr">15653 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 +<span id="L15654" class="LineNr">15654 </span> c7 0/subop/copy *_Program-signatures 0/imm32 +<span id="L15655" class="LineNr">15655 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 +<span id="L15656" class="LineNr">15656 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<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">"foo a: int, b: int c: int {\n"</span>) +<span id="L15658" class="LineNr">15658 </span> <span class="subxComment"># result/ecx: function</span> +<span id="L15659" class="LineNr">15659 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp +<span id="L15660" class="LineNr">15660 </span> 89/<- %ecx 4/r32/esp +<span id="L15661" class="LineNr">15661 </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="L15662" class="LineNr">15662 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L15663" class="LineNr">15663 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L15664" class="LineNr">15664 </span> 68/push 0xc0/imm32/size +<span id="L15665" class="LineNr">15665 </span> 68/push 0/imm32/top +<span id="L15666" class="LineNr">15666 </span> 89/<- %ebx 4/r32/esp +<span id="L15667" class="LineNr">15667 </span> <span class="subxComment"># convert</span> +<span id="L15668" class="LineNr">15668 </span> (<a href='mu.subx.html#L14865'>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="L15669" class="LineNr">15669 </span> <span class="subxComment"># check result->name</span> +<span id="L15670" class="LineNr">15670 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15671" class="LineNr">15671 </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#L15643'>test-function-header-with-multiple-args</a>/name"</span>) +<span id="L15672" class="LineNr">15672 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> +<span id="L15673" class="LineNr">15673 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L15674" class="LineNr">15674 </span> 89/<- %edx 0/r32/eax +<span id="L15675" class="LineNr">15675 </span><span class="Constant">$test-function-header-with-multiple-args:inout0</span>: +<span id="L15676" class="LineNr">15676 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> +<span id="L15677" class="LineNr">15677 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L15678" class="LineNr">15678 </span> 89/<- %ebx 0/r32/eax +<span id="L15679" class="LineNr">15679 </span> <span class="subxComment"># check v->name</span> +<span id="L15680" class="LineNr">15680 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15681" class="LineNr">15681 </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#L15643'>test-function-header-with-multiple-args</a>/inout:0"</span>) <span class="subxComment"># Var-name</span> +<span id="L15682" class="LineNr">15682 </span> <span class="subxComment"># check v->type</span> +<span id="L15683" class="LineNr">15683 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15684" class="LineNr">15684 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15643'>test-function-header-with-multiple-args</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15685" class="LineNr">15685 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15643'>test-function-header-with-multiple-args</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L15686" class="LineNr">15686 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15643'>test-function-header-with-multiple-args</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L15687" class="LineNr">15687 </span><span class="Constant">$test-function-header-with-multiple-args:inout1</span>: +<span id="L15688" class="LineNr">15688 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L15689" class="LineNr">15689 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L15690" class="LineNr">15690 </span> 89/<- %edx 0/r32/eax +<span id="L15691" class="LineNr">15691 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L15692" class="LineNr">15692 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L15693" class="LineNr">15693 </span> 89/<- %ebx 0/r32/eax +<span id="L15694" class="LineNr">15694 </span> <span class="subxComment"># check v->name</span> +<span id="L15695" class="LineNr">15695 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15696" class="LineNr">15696 </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#L15643'>test-function-header-with-multiple-args</a>/inout:1"</span>) <span class="subxComment"># Var-name</span> +<span id="L15697" class="LineNr">15697 </span> <span class="subxComment"># check v->type</span> +<span id="L15698" class="LineNr">15698 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15699" class="LineNr">15699 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15643'>test-function-header-with-multiple-args</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15700" class="LineNr">15700 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15643'>test-function-header-with-multiple-args</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L15701" class="LineNr">15701 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15643'>test-function-header-with-multiple-args</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L15702" class="LineNr">15702 </span><span class="Constant">$test-function-header-with-multiple-args:inout2</span>: +<span id="L15703" class="LineNr">15703 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L15704" class="LineNr">15704 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L15705" class="LineNr">15705 </span> 89/<- %edx 0/r32/eax +<span id="L15706" class="LineNr">15706 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L15707" class="LineNr">15707 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L15708" class="LineNr">15708 </span> 89/<- %ebx 0/r32/eax +<span id="L15709" class="LineNr">15709 </span> <span class="subxComment"># check v->name</span> +<span id="L15710" class="LineNr">15710 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15711" class="LineNr">15711 </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#L15643'>test-function-header-with-multiple-args</a>/inout:2"</span>) <span class="subxComment"># Var-name</span> +<span id="L15712" class="LineNr">15712 </span> <span class="subxComment"># check v->type</span> +<span id="L15713" class="LineNr">15713 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15714" class="LineNr">15714 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15643'>test-function-header-with-multiple-args</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15715" class="LineNr">15715 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15643'>test-function-header-with-multiple-args</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L15716" class="LineNr">15716 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15643'>test-function-header-with-multiple-args</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<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="subxTest">test-function-header-with-multiple-args-and-outputs</span>: <span id="L15723" class="LineNr">15723 </span> <span class="subxS1Comment"># . prologue</span> <span id="L15724" class="LineNr">15724 </span> 55/push-ebp <span id="L15725" class="LineNr">15725 </span> 89/<- %ebp 4/r32/esp -<span id="L15726" class="LineNr">15726 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15727" class="LineNr">15727 </span> 50/push-eax -<span id="L15728" class="LineNr">15728 </span> 51/push-ecx -<span id="L15729" class="LineNr">15729 </span> 52/push-edx -<span id="L15730" class="LineNr">15730 </span> <span class="subxComment">#</span> -<span id="L15731" class="LineNr">15731 </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="L15732" class="LineNr">15732 </span> <span class="subxComment"># var tmp/ecx: (handle type-tree)</span> -<span id="L15733" class="LineNr">15733 </span> 68/push 0/imm32 -<span id="L15734" class="LineNr">15734 </span> 68/push 0/imm32 -<span id="L15735" class="LineNr">15735 </span> 89/<- %ecx 4/r32/esp -<span id="L15736" class="LineNr">15736 </span> <span class="subxComment"># tmp = parse-type(ad, in)</span> -<span id="L15737" class="LineNr">15737 </span> (<a href='mu.subx.html#L15565'>parse-type</a> *(ebp+8) *(ebp+0xc) %ecx *(ebp+0x14) *(ebp+0x18)) -<span id="L15738" class="LineNr">15738 </span> <span class="subxComment"># if (tmp == 0) return</span> -<span id="L15739" class="LineNr">15739 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L15740" class="LineNr">15740 </span> 74/jump-if-= $parse-type-tree:end/disp8 -<span id="L15741" class="LineNr">15741 </span> <span class="subxComment"># out = new tree</span> -<span id="L15742" class="LineNr">15742 </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="L15743" class="LineNr">15743 </span> <span class="subxComment"># var out-addr/edx: (addr tree) = lookup(*out)</span> -<span id="L15744" class="LineNr">15744 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L15745" class="LineNr">15745 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L15746" class="LineNr">15746 </span> 89/<- %edx 0/r32/eax -<span id="L15747" class="LineNr">15747 </span> <span class="subxComment"># out->left = tmp</span> -<span id="L15748" class="LineNr">15748 </span> 8b/-> *ecx 0/r32/eax -<span id="L15749" class="LineNr">15749 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L15750" class="LineNr">15750 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L15751" class="LineNr">15751 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L15752" class="LineNr">15752 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L15753" class="LineNr">15753 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> -<span id="L15754" class="LineNr">15754 </span> (<a href='mu.subx.html#L15714'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L15755" class="LineNr">15755 </span><span class="Constant">$parse-type-tree:end</span>: -<span id="L15756" class="LineNr">15756 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L15757" class="LineNr">15757 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15758" class="LineNr">15758 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15759" class="LineNr">15759 </span> 5a/pop-to-edx -<span id="L15760" class="LineNr">15760 </span> 59/pop-to-ecx -<span id="L15761" class="LineNr">15761 </span> 58/pop-to-eax -<span id="L15762" class="LineNr">15762 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15763" class="LineNr">15763 </span> 89/<- %esp 5/r32/ebp -<span id="L15764" class="LineNr">15764 </span> 5d/pop-to-ebp -<span id="L15765" class="LineNr">15765 </span> c3/return -<span id="L15766" class="LineNr">15766 </span> -<span id="L15767" class="LineNr">15767 </span><span class="subxFunction">next-mu-token</span>: <span class="subxComment"># in: (addr stream byte), out: (addr slice)</span> -<span id="L15768" class="LineNr">15768 </span> <span class="subxComment"># pseudocode:</span> -<span id="L15769" class="LineNr">15769 </span> <span class="subxComment"># start:</span> -<span id="L15770" class="LineNr">15770 </span> <span class="subxComment"># skip-chars-matching-whitespace(in)</span> -<span id="L15771" class="LineNr">15771 </span> <span class="subxComment"># if in->read >= in->write # end of in</span> -<span id="L15772" class="LineNr">15772 </span> <span class="subxComment"># out = {0, 0}</span> -<span id="L15773" class="LineNr">15773 </span> <span class="subxComment"># return</span> -<span id="L15774" class="LineNr">15774 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> -<span id="L15775" class="LineNr">15775 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> -<span id="L15776" class="LineNr">15776 </span> <span class="subxComment"># if curr->byte == ',' # comment token</span> -<span id="L15777" class="LineNr">15777 </span> <span class="subxComment"># ++in->read</span> -<span id="L15778" class="LineNr">15778 </span> <span class="subxComment"># goto start</span> -<span id="L15779" class="LineNr">15779 </span> <span class="subxComment"># if curr-byte == '#' # comment</span> -<span id="L15780" class="LineNr">15780 </span> <span class="subxComment"># goto done # treat as eof</span> -<span id="L15781" class="LineNr">15781 </span> <span class="subxComment"># if curr-byte == '"' # string literal</span> -<span id="L15782" class="LineNr">15782 </span> <span class="subxComment"># skip-string(in)</span> -<span id="L15783" class="LineNr">15783 </span> <span class="subxComment"># goto done # no metadata</span> -<span id="L15784" class="LineNr">15784 </span> <span class="subxComment"># if curr-byte == '('</span> -<span id="L15785" class="LineNr">15785 </span> <span class="subxComment"># ++in->read</span> -<span id="L15786" class="LineNr">15786 </span> <span class="subxComment"># goto done</span> -<span id="L15787" class="LineNr">15787 </span> <span class="subxComment"># if curr-byte == ')'</span> -<span id="L15788" class="LineNr">15788 </span> <span class="subxComment"># ++in->read</span> -<span id="L15789" class="LineNr">15789 </span> <span class="subxComment"># goto done</span> -<span id="L15790" class="LineNr">15790 </span> <span class="subxComment"># # read a word</span> -<span id="L15791" class="LineNr">15791 </span> <span class="subxComment"># while true</span> -<span id="L15792" class="LineNr">15792 </span> <span class="subxComment"># if in->read >= in->write</span> -<span id="L15793" class="LineNr">15793 </span> <span class="subxComment"># break</span> -<span id="L15794" class="LineNr">15794 </span> <span class="subxComment"># curr-byte = in->data[in->read]</span> -<span id="L15795" class="LineNr">15795 </span> <span class="subxComment"># if curr-byte == ' '</span> -<span id="L15796" class="LineNr">15796 </span> <span class="subxComment"># break</span> -<span id="L15797" class="LineNr">15797 </span> <span class="subxComment"># if curr-byte == '\r'</span> -<span id="L15798" class="LineNr">15798 </span> <span class="subxComment"># break</span> -<span id="L15799" class="LineNr">15799 </span> <span class="subxComment"># if curr-byte == '\n'</span> -<span id="L15800" class="LineNr">15800 </span> <span class="subxComment"># break</span> -<span id="L15801" class="LineNr">15801 </span> <span class="subxComment"># if curr-byte == '('</span> -<span id="L15802" class="LineNr">15802 </span> <span class="subxComment"># break</span> -<span id="L15803" class="LineNr">15803 </span> <span class="subxComment"># if curr-byte == ')'</span> -<span id="L15804" class="LineNr">15804 </span> <span class="subxComment"># break</span> -<span id="L15805" class="LineNr">15805 </span> <span class="subxComment"># if curr-byte == ','</span> -<span id="L15806" class="LineNr">15806 </span> <span class="subxComment"># break</span> -<span id="L15807" class="LineNr">15807 </span> <span class="subxComment"># ++in->read</span> -<span id="L15808" class="LineNr">15808 </span> <span class="subxComment"># done:</span> -<span id="L15809" class="LineNr">15809 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> -<span id="L15810" class="LineNr">15810 </span> <span class="subxComment">#</span> -<span id="L15811" class="LineNr">15811 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15812" class="LineNr">15812 </span> 55/push-ebp -<span id="L15813" class="LineNr">15813 </span> 89/<- %ebp 4/r32/esp -<span id="L15814" class="LineNr">15814 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15815" class="LineNr">15815 </span> 50/push-eax -<span id="L15816" class="LineNr">15816 </span> 51/push-ecx -<span id="L15817" class="LineNr">15817 </span> 56/push-esi -<span id="L15818" class="LineNr">15818 </span> 57/push-edi -<span id="L15819" class="LineNr">15819 </span> <span class="subxComment"># esi = in</span> -<span id="L15820" class="LineNr">15820 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L15821" class="LineNr">15821 </span> <span class="subxComment"># edi = out</span> -<span id="L15822" class="LineNr">15822 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L15823" class="LineNr">15823 </span><span class="Constant">$next-mu-token:start</span>: -<span id="L15824" class="LineNr">15824 </span> (<a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> %esi) -<span id="L15825" class="LineNr">15825 </span><span class="Constant">$next-mu-token:check0</span>: -<span id="L15826" class="LineNr">15826 </span> <span class="subxComment"># if (in->read >= in->write) return out = {0, 0}</span> -<span id="L15827" class="LineNr">15827 </span> <span class="subxS1Comment"># . ecx = in->read</span> -<span id="L15828" class="LineNr">15828 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L15829" class="LineNr">15829 </span> <span class="subxS1Comment"># . if (ecx >= in->write) return out = {0, 0}</span> -<span id="L15830" class="LineNr">15830 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L15831" class="LineNr">15831 </span> c7 0/subop/copy *edi 0/imm32 -<span id="L15832" class="LineNr">15832 </span> c7 0/subop/copy *(edi+4) 0/imm32 -<span id="L15833" class="LineNr">15833 </span> 0f 8d/jump-if->= $next-mu-token:end/disp32 -<span id="L15834" class="LineNr">15834 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> -<span id="L15835" class="LineNr">15835 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L15836" class="LineNr">15836 </span> 89/<- *edi 0/r32/eax -<span id="L15837" class="LineNr">15837 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> -<span id="L15838" class="LineNr">15838 </span> 31/xor-with %eax 0/r32/eax -<span id="L15839" class="LineNr">15839 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L15840" class="LineNr">15840 </span> { -<span id="L15841" class="LineNr">15841 </span><span class="Constant">$next-mu-token:check-for-comma</span>: -<span id="L15842" class="LineNr">15842 </span> <span class="subxComment"># if (curr-byte != ',') break</span> -<span id="L15843" class="LineNr">15843 </span> 3d/compare-eax-and 0x2c/imm32/comma -<span id="L15844" class="LineNr">15844 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15845" class="LineNr">15845 </span> <span class="subxComment"># ++in->read</span> -<span id="L15846" class="LineNr">15846 </span> ff 0/subop/increment *(esi+4) -<span id="L15847" class="LineNr">15847 </span> <span class="subxComment"># restart</span> -<span id="L15848" class="LineNr">15848 </span> e9/jump $next-mu-token:start/disp32 -<span id="L15849" class="LineNr">15849 </span> } -<span id="L15850" class="LineNr">15850 </span> { -<span id="L15851" class="LineNr">15851 </span><span class="Constant">$next-mu-token:check-for-comment</span>: -<span id="L15852" class="LineNr">15852 </span> <span class="subxComment"># if (curr-byte != '#') break</span> -<span id="L15853" class="LineNr">15853 </span> 3d/compare-eax-and 0x23/imm32/pound -<span id="L15854" class="LineNr">15854 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15855" class="LineNr">15855 </span> <span class="subxComment"># return eof</span> -<span id="L15856" class="LineNr">15856 </span> e9/jump $next-mu-token:done/disp32 -<span id="L15857" class="LineNr">15857 </span> } -<span id="L15858" class="LineNr">15858 </span> { -<span id="L15859" class="LineNr">15859 </span><span class="Constant">$next-mu-token:check-for-string-literal</span>: -<span id="L15860" class="LineNr">15860 </span> <span class="subxComment"># if (curr-byte != '"') break</span> -<span id="L15861" class="LineNr">15861 </span> 3d/compare-eax-and 0x22/imm32/dquote -<span id="L15862" class="LineNr">15862 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15863" class="LineNr">15863 </span> (<a href='../124next-token.subx.html#L1171'>skip-string</a> %esi) -<span id="L15864" class="LineNr">15864 </span> <span class="subxComment"># return</span> -<span id="L15865" class="LineNr">15865 </span> e9/jump $next-mu-token:done/disp32 -<span id="L15866" class="LineNr">15866 </span> } -<span id="L15867" class="LineNr">15867 </span> { -<span id="L15868" class="LineNr">15868 </span><span class="Constant">$next-mu-token:check-for-open-paren</span>: -<span id="L15869" class="LineNr">15869 </span> <span class="subxComment"># if (curr-byte != '(') break</span> -<span id="L15870" class="LineNr">15870 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L15871" class="LineNr">15871 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15872" class="LineNr">15872 </span> <span class="subxComment"># ++in->read</span> -<span id="L15873" class="LineNr">15873 </span> ff 0/subop/increment *(esi+4) -<span id="L15874" class="LineNr">15874 </span> <span class="subxComment"># return</span> -<span id="L15875" class="LineNr">15875 </span> e9/jump $next-mu-token:done/disp32 -<span id="L15876" class="LineNr">15876 </span> } -<span id="L15877" class="LineNr">15877 </span> { -<span id="L15878" class="LineNr">15878 </span><span class="Constant">$next-mu-token:check-for-close-paren</span>: -<span id="L15879" class="LineNr">15879 </span> <span class="subxComment"># if (curr-byte != ')') break</span> -<span id="L15880" class="LineNr">15880 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L15881" class="LineNr">15881 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15882" class="LineNr">15882 </span> <span class="subxComment"># ++in->read</span> -<span id="L15883" class="LineNr">15883 </span> ff 0/subop/increment *(esi+4) -<span id="L15884" class="LineNr">15884 </span> <span class="subxComment"># return</span> -<span id="L15885" class="LineNr">15885 </span> e9/jump $next-mu-token:done/disp32 -<span id="L15886" class="LineNr">15886 </span> } -<span id="L15887" class="LineNr">15887 </span> { -<span id="L15888" class="LineNr">15888 </span><span class="Constant">$next-mu-token:regular-word-without-metadata</span>: -<span id="L15889" class="LineNr">15889 </span> <span class="subxComment"># if (in->read >= in->write) break</span> -<span id="L15890" class="LineNr">15890 </span> <span class="subxS1Comment"># . ecx = in->read</span> -<span id="L15891" class="LineNr">15891 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L15892" class="LineNr">15892 </span> <span class="subxS1Comment"># . if (ecx >= in->write) break</span> -<span id="L15893" class="LineNr">15893 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L15894" class="LineNr">15894 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L15895" class="LineNr">15895 </span> <span class="subxComment"># var c/eax: byte = in->data[in->read]</span> -<span id="L15896" class="LineNr">15896 </span> 31/xor-with %eax 0/r32/eax -<span id="L15897" class="LineNr">15897 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L15898" class="LineNr">15898 </span> <span class="subxComment"># if (c == ' ') break</span> -<span id="L15899" class="LineNr">15899 </span> 3d/compare-eax-and 0x20/imm32/space -<span id="L15900" class="LineNr">15900 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15901" class="LineNr">15901 </span> <span class="subxComment"># if (c == '\r') break</span> -<span id="L15902" class="LineNr">15902 </span> 3d/compare-eax-and 0xd/imm32/carriage-return -<span id="L15903" class="LineNr">15903 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15904" class="LineNr">15904 </span> <span class="subxComment"># if (c == '\n') break</span> -<span id="L15905" class="LineNr">15905 </span> 3d/compare-eax-and 0xa/imm32/newline -<span id="L15906" class="LineNr">15906 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L15907" class="LineNr">15907 </span> <span class="subxComment"># if (c == '(') break</span> -<span id="L15908" class="LineNr">15908 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L15909" class="LineNr">15909 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15910" class="LineNr">15910 </span> <span class="subxComment"># if (c == ')') break</span> -<span id="L15911" class="LineNr">15911 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L15912" class="LineNr">15912 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15913" class="LineNr">15913 </span> <span class="subxComment"># if (c == ',') break</span> -<span id="L15914" class="LineNr">15914 </span> 3d/compare-eax-and 0x2c/imm32/comma -<span id="L15915" class="LineNr">15915 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15916" class="LineNr">15916 </span> <span class="subxComment"># ++in->read</span> -<span id="L15917" class="LineNr">15917 </span> ff 0/subop/increment *(esi+4) -<span id="L15918" class="LineNr">15918 </span> <span class="subxComment">#</span> -<span id="L15919" class="LineNr">15919 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L15920" class="LineNr">15920 </span> } -<span id="L15921" class="LineNr">15921 </span><span class="Constant">$next-mu-token:done</span>: -<span id="L15922" class="LineNr">15922 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> -<span id="L15923" class="LineNr">15923 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L15924" class="LineNr">15924 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L15925" class="LineNr">15925 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L15926" class="LineNr">15926 </span><span class="Constant">$next-mu-token:end</span>: -<span id="L15927" class="LineNr">15927 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15928" class="LineNr">15928 </span> 5f/pop-to-edi -<span id="L15929" class="LineNr">15929 </span> 5e/pop-to-esi -<span id="L15930" class="LineNr">15930 </span> 59/pop-to-ecx -<span id="L15931" class="LineNr">15931 </span> 58/pop-to-eax -<span id="L15932" class="LineNr">15932 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15933" class="LineNr">15933 </span> 89/<- %esp 5/r32/ebp -<span id="L15934" class="LineNr">15934 </span> 5d/pop-to-ebp -<span id="L15935" class="LineNr">15935 </span> c3/return -<span id="L15936" class="LineNr">15936 </span> -<span id="L15937" class="LineNr">15937 </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="L15938" class="LineNr">15938 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15939" class="LineNr">15939 </span> 55/push-ebp -<span id="L15940" class="LineNr">15940 </span> 89/<- %ebp 4/r32/esp -<span id="L15941" class="LineNr">15941 </span> <span class="subxComment"># if (pos-slice(arr, s) != -1) return it</span> -<span id="L15942" class="LineNr">15942 </span> (<a href='mu.subx.html#L15965'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L15943" class="LineNr">15943 </span> 3d/compare-eax-and -1/imm32 -<span id="L15944" class="LineNr">15944 </span> 75/jump-if-!= $pos-or-insert-slice:end/disp8 -<span id="L15945" class="LineNr">15945 </span><span class="Constant">$pos-or-insert-slice:insert</span>: -<span id="L15946" class="LineNr">15946 </span> <span class="subxComment"># var s2/eax: (handle array byte)</span> -<span id="L15947" class="LineNr">15947 </span> 68/push 0/imm32 -<span id="L15948" class="LineNr">15948 </span> 68/push 0/imm32 -<span id="L15949" class="LineNr">15949 </span> 89/<- %eax 4/r32/esp -<span id="L15950" class="LineNr">15950 </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="L15951" class="LineNr">15951 </span> <span class="subxComment"># throw away alloc-id</span> -<span id="L15952" class="LineNr">15952 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L15953" class="LineNr">15953 </span> (<a href='../202write-int.subx.html#L8'>write-int</a> *(ebp+8) %eax) -<span id="L15954" class="LineNr">15954 </span> (<a href='mu.subx.html#L15965'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L15955" class="LineNr">15955 </span><span class="Constant">$pos-or-insert-slice:end</span>: -<span id="L15956" class="LineNr">15956 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L15957" class="LineNr">15957 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15958" class="LineNr">15958 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15959" class="LineNr">15959 </span> 89/<- %esp 5/r32/ebp -<span id="L15960" class="LineNr">15960 </span> 5d/pop-to-ebp -<span id="L15961" class="LineNr">15961 </span> c3/return -<span id="L15962" class="LineNr">15962 </span> -<span id="L15963" class="LineNr">15963 </span><span class="subxComment"># return the index in an array of strings matching 's', -1 if not found</span> -<span id="L15964" class="LineNr">15964 </span><span class="subxComment"># index is denominated in elements, not bytes</span> -<span id="L15965" class="LineNr">15965 </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="L15966" class="LineNr">15966 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15967" class="LineNr">15967 </span> 55/push-ebp -<span id="L15968" class="LineNr">15968 </span> 89/<- %ebp 4/r32/esp -<span id="L15969" class="LineNr">15969 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15970" class="LineNr">15970 </span> 51/push-ecx -<span id="L15971" class="LineNr">15971 </span> 52/push-edx -<span id="L15972" class="LineNr">15972 </span> 53/push-ebx -<span id="L15973" class="LineNr">15973 </span> 56/push-esi -<span id="L15974" class="LineNr">15974 </span><span class="CommentedCode">#? (write-buffered Stderr "pos-slice: ")</span> -<span id="L15975" class="LineNr">15975 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> -<span id="L15976" class="LineNr">15976 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L15977" class="LineNr">15977 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L15978" class="LineNr">15978 </span> <span class="subxComment"># esi = arr</span> -<span id="L15979" class="LineNr">15979 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L15980" class="LineNr">15980 </span> <span class="subxComment"># var index/ecx: int = 0</span> -<span id="L15981" class="LineNr">15981 </span> b9/copy-to-ecx 0/imm32 -<span id="L15982" class="LineNr">15982 </span> <span class="subxComment"># var curr/edx: (addr (addr array byte)) = arr->data</span> -<span id="L15983" class="LineNr">15983 </span> 8d/copy-address *(esi+0xc) 2/r32/edx -<span id="L15984" class="LineNr">15984 </span> <span class="subxComment"># var max/ebx: (addr (addr array byte)) = &arr->data[arr->write]</span> -<span id="L15985" class="LineNr">15985 </span> 8b/-> *esi 3/r32/ebx -<span id="L15986" class="LineNr">15986 </span> 8d/copy-address *(esi+ebx+0xc) 3/r32/ebx -<span id="L15987" class="LineNr">15987 </span> { -<span id="L15988" class="LineNr">15988 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> -<span id="L15989" class="LineNr">15989 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L15990" class="LineNr">15990 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L15991" class="LineNr">15991 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L15992" class="LineNr">15992 </span> <span class="subxComment"># if (curr >= max) return -1</span> -<span id="L15993" class="LineNr">15993 </span> 39/compare %edx 3/r32/ebx -<span id="L15994" class="LineNr">15994 </span> b8/copy-to-eax -1/imm32 -<span id="L15995" class="LineNr">15995 </span> 73/jump-if-addr>= $pos-slice:end/disp8 -<span id="L15996" class="LineNr">15996 </span> <span class="subxComment"># if (slice-equal?(s, *curr)) break</span> -<span id="L15997" class="LineNr">15997 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+0xc) *edx) <span class="subxComment"># => eax</span> -<span id="L15998" class="LineNr">15998 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15999" class="LineNr">15999 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16000" class="LineNr">16000 </span> <span class="subxComment"># ++index</span> -<span id="L16001" class="LineNr">16001 </span> 41/increment-ecx -<span id="L16002" class="LineNr">16002 </span> <span class="subxComment"># curr += 4</span> -<span id="L16003" class="LineNr">16003 </span> 81 0/subop/add %edx 4/imm32 -<span id="L16004" class="LineNr">16004 </span> <span class="subxComment">#</span> -<span id="L16005" class="LineNr">16005 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L16006" class="LineNr">16006 </span> } -<span id="L16007" class="LineNr">16007 </span> <span class="subxComment"># return index</span> -<span id="L16008" class="LineNr">16008 </span> 89/<- %eax 1/r32/ecx -<span id="L16009" class="LineNr">16009 </span><span class="Constant">$pos-slice:end</span>: -<span id="L16010" class="LineNr">16010 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> -<span id="L16011" class="LineNr">16011 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L16012" class="LineNr">16012 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L16013" class="LineNr">16013 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16014" class="LineNr">16014 </span> 5e/pop-to-esi -<span id="L16015" class="LineNr">16015 </span> 5b/pop-to-ebx -<span id="L16016" class="LineNr">16016 </span> 5a/pop-to-edx -<span id="L16017" class="LineNr">16017 </span> 59/pop-to-ecx -<span id="L16018" class="LineNr">16018 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16019" class="LineNr">16019 </span> 89/<- %esp 5/r32/ebp -<span id="L16020" class="LineNr">16020 </span> 5d/pop-to-ebp -<span id="L16021" class="LineNr">16021 </span> c3/return -<span id="L16022" class="LineNr">16022 </span> -<span id="L16023" class="LineNr">16023 </span><span class="subxTest">test-parse-var-with-type</span>: -<span id="L16024" class="LineNr">16024 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16025" class="LineNr">16025 </span> 55/push-ebp -<span id="L16026" class="LineNr">16026 </span> 89/<- %ebp 4/r32/esp -<span id="L16027" class="LineNr">16027 </span> <span class="subxComment"># setup</span> -<span id="L16028" class="LineNr">16028 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16029" class="LineNr">16029 </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="L16030" class="LineNr">16030 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L16031" class="LineNr">16031 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L16032" class="LineNr">16032 </span> 8b/-> *eax 1/r32/ecx -<span id="L16033" class="LineNr">16033 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16034" class="LineNr">16034 </span> 05/add-to-eax 4/imm32 -<span id="L16035" class="LineNr">16035 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16036" class="LineNr">16036 </span> 51/push-ecx -<span id="L16037" class="LineNr">16037 </span> 50/push-eax -<span id="L16038" class="LineNr">16038 </span> 89/<- %ecx 4/r32/esp -<span id="L16039" class="LineNr">16039 </span> <span class="subxComment"># _test-input-stream contains "int"</span> -<span id="L16040" class="LineNr">16040 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16041" class="LineNr">16041 </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="L16042" class="LineNr">16042 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L16043" class="LineNr">16043 </span> 68/push 0/imm32 -<span id="L16044" class="LineNr">16044 </span> 68/push 0/imm32 -<span id="L16045" class="LineNr">16045 </span> 89/<- %edx 4/r32/esp -<span id="L16046" class="LineNr">16046 </span> <span class="subxComment">#</span> -<span id="L16047" class="LineNr">16047 </span> (<a href='mu.subx.html#L15411'>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="L16048" class="LineNr">16048 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L16049" class="LineNr">16049 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L16050" class="LineNr">16050 </span> 89/<- %edx 0/r32/eax -<span id="L16051" class="LineNr">16051 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L16052" class="LineNr">16052 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16053" class="LineNr">16053 </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#L16023'>test-parse-var-with-type</a>/name"</span>) -<span id="L16054" class="LineNr">16054 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L16055" class="LineNr">16055 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16056" class="LineNr">16056 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16023'>test-parse-var-with-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16057" class="LineNr">16057 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16023'>test-parse-var-with-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16058" class="LineNr">16058 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16023'>test-parse-var-with-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16059" class="LineNr">16059 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16060" class="LineNr">16060 </span> 89/<- %esp 5/r32/ebp -<span id="L16061" class="LineNr">16061 </span> 5d/pop-to-ebp -<span id="L16062" class="LineNr">16062 </span> c3/return -<span id="L16063" class="LineNr">16063 </span> -<span id="L16064" class="LineNr">16064 </span><span class="subxTest">test-parse-var-with-type-and-register</span>: -<span id="L16065" class="LineNr">16065 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16066" class="LineNr">16066 </span> 55/push-ebp -<span id="L16067" class="LineNr">16067 </span> 89/<- %ebp 4/r32/esp -<span id="L16068" class="LineNr">16068 </span> <span class="subxComment"># setup</span> -<span id="L16069" class="LineNr">16069 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16070" class="LineNr">16070 </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="L16071" class="LineNr">16071 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> -<span id="L16072" class="LineNr">16072 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 -<span id="L16073" class="LineNr">16073 </span> 8b/-> *eax 1/r32/ecx -<span id="L16074" class="LineNr">16074 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16075" class="LineNr">16075 </span> 05/add-to-eax 4/imm32 -<span id="L16076" class="LineNr">16076 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16077" class="LineNr">16077 </span> 51/push-ecx -<span id="L16078" class="LineNr">16078 </span> 50/push-eax -<span id="L16079" class="LineNr">16079 </span> 89/<- %ecx 4/r32/esp -<span id="L16080" class="LineNr">16080 </span> <span class="subxComment"># _test-input-stream contains "int"</span> -<span id="L16081" class="LineNr">16081 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16082" class="LineNr">16082 </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="L16083" class="LineNr">16083 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L16084" class="LineNr">16084 </span> 68/push 0/imm32 -<span id="L16085" class="LineNr">16085 </span> 68/push 0/imm32 -<span id="L16086" class="LineNr">16086 </span> 89/<- %edx 4/r32/esp -<span id="L16087" class="LineNr">16087 </span> <span class="subxComment">#</span> -<span id="L16088" class="LineNr">16088 </span> (<a href='mu.subx.html#L15411'>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="L16089" class="LineNr">16089 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L16090" class="LineNr">16090 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L16091" class="LineNr">16091 </span> 89/<- %edx 0/r32/eax -<span id="L16092" class="LineNr">16092 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L16093" class="LineNr">16093 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16094" class="LineNr">16094 </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#L16064'>test-parse-var-with-type-and-register</a>/name"</span>) -<span id="L16095" class="LineNr">16095 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L16096" class="LineNr">16096 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16097" class="LineNr">16097 </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#L16064'>test-parse-var-with-type-and-register</a>/register"</span>) -<span id="L16098" class="LineNr">16098 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L16099" class="LineNr">16099 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16100" class="LineNr">16100 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16064'>test-parse-var-with-type-and-register</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16101" class="LineNr">16101 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16064'>test-parse-var-with-type-and-register</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L16102" class="LineNr">16102 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16064'>test-parse-var-with-type-and-register</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16103" class="LineNr">16103 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16104" class="LineNr">16104 </span> 89/<- %esp 5/r32/ebp -<span id="L16105" class="LineNr">16105 </span> 5d/pop-to-ebp -<span id="L16106" class="LineNr">16106 </span> c3/return -<span id="L16107" class="LineNr">16107 </span> -<span id="L16108" class="LineNr">16108 </span><span class="subxTest">test-parse-var-with-trailing-characters</span>: -<span id="L16109" class="LineNr">16109 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16110" class="LineNr">16110 </span> 55/push-ebp -<span id="L16111" class="LineNr">16111 </span> 89/<- %ebp 4/r32/esp -<span id="L16112" class="LineNr">16112 </span> <span class="subxComment"># setup</span> -<span id="L16113" class="LineNr">16113 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16114" class="LineNr">16114 </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="L16115" class="LineNr">16115 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L16116" class="LineNr">16116 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L16117" class="LineNr">16117 </span> 8b/-> *eax 1/r32/ecx -<span id="L16118" class="LineNr">16118 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16119" class="LineNr">16119 </span> 05/add-to-eax 4/imm32 -<span id="L16120" class="LineNr">16120 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16121" class="LineNr">16121 </span> 51/push-ecx -<span id="L16122" class="LineNr">16122 </span> 50/push-eax -<span id="L16123" class="LineNr">16123 </span> 89/<- %ecx 4/r32/esp -<span id="L16124" class="LineNr">16124 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> -<span id="L16125" class="LineNr">16125 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16126" class="LineNr">16126 </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="L16127" class="LineNr">16127 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L16128" class="LineNr">16128 </span> 68/push 0/imm32 -<span id="L16129" class="LineNr">16129 </span> 68/push 0/imm32 -<span id="L16130" class="LineNr">16130 </span> 89/<- %edx 4/r32/esp -<span id="L16131" class="LineNr">16131 </span> <span class="subxComment">#</span> -<span id="L16132" class="LineNr">16132 </span> (<a href='mu.subx.html#L15411'>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="L16133" class="LineNr">16133 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L16134" class="LineNr">16134 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L16135" class="LineNr">16135 </span> 89/<- %edx 0/r32/eax -<span id="L16136" class="LineNr">16136 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L16137" class="LineNr">16137 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16138" class="LineNr">16138 </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#L16108'>test-parse-var-with-trailing-characters</a>/name"</span>) -<span id="L16139" class="LineNr">16139 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L16140" class="LineNr">16140 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L16108'>test-parse-var-with-trailing-characters</a>/register"</span>) <span class="subxComment"># Var-register</span> -<span id="L16141" class="LineNr">16141 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L16142" class="LineNr">16142 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16143" class="LineNr">16143 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16108'>test-parse-var-with-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16144" class="LineNr">16144 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16108'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L16145" class="LineNr">16145 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16108'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16146" class="LineNr">16146 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16147" class="LineNr">16147 </span> 89/<- %esp 5/r32/ebp -<span id="L16148" class="LineNr">16148 </span> 5d/pop-to-ebp -<span id="L16149" class="LineNr">16149 </span> c3/return -<span id="L16150" class="LineNr">16150 </span> -<span id="L16151" class="LineNr">16151 </span><span class="subxTest">test-parse-var-with-register-and-trailing-characters</span>: -<span id="L16152" class="LineNr">16152 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16153" class="LineNr">16153 </span> 55/push-ebp -<span id="L16154" class="LineNr">16154 </span> 89/<- %ebp 4/r32/esp -<span id="L16155" class="LineNr">16155 </span> <span class="subxComment"># setup</span> -<span id="L16156" class="LineNr">16156 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16157" class="LineNr">16157 </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="L16158" class="LineNr">16158 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> -<span id="L16159" class="LineNr">16159 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 -<span id="L16160" class="LineNr">16160 </span> 8b/-> *eax 1/r32/ecx -<span id="L16161" class="LineNr">16161 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16162" class="LineNr">16162 </span> 05/add-to-eax 4/imm32 -<span id="L16163" class="LineNr">16163 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16164" class="LineNr">16164 </span> 51/push-ecx -<span id="L16165" class="LineNr">16165 </span> 50/push-eax -<span id="L16166" class="LineNr">16166 </span> 89/<- %ecx 4/r32/esp -<span id="L16167" class="LineNr">16167 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> -<span id="L16168" class="LineNr">16168 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16169" class="LineNr">16169 </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="L16170" class="LineNr">16170 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L16171" class="LineNr">16171 </span> 68/push 0/imm32 -<span id="L16172" class="LineNr">16172 </span> 68/push 0/imm32 -<span id="L16173" class="LineNr">16173 </span> 89/<- %edx 4/r32/esp -<span id="L16174" class="LineNr">16174 </span> <span class="subxComment">#</span> -<span id="L16175" class="LineNr">16175 </span> (<a href='mu.subx.html#L15411'>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="L16176" class="LineNr">16176 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L16177" class="LineNr">16177 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L16178" class="LineNr">16178 </span> 89/<- %edx 0/r32/eax -<span id="L16179" class="LineNr">16179 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L16180" class="LineNr">16180 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16181" class="LineNr">16181 </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#L16151'>test-parse-var-with-register-and-trailing-characters</a>/name"</span>) -<span id="L16182" class="LineNr">16182 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L16183" class="LineNr">16183 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16184" class="LineNr">16184 </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#L16151'>test-parse-var-with-register-and-trailing-characters</a>/register"</span>) -<span id="L16185" class="LineNr">16185 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L16186" class="LineNr">16186 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16187" class="LineNr">16187 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16151'>test-parse-var-with-register-and-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16188" class="LineNr">16188 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16151'>test-parse-var-with-register-and-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L16189" class="LineNr">16189 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16151'>test-parse-var-with-register-and-trailing-characters</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16190" class="LineNr">16190 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16191" class="LineNr">16191 </span> 89/<- %esp 5/r32/ebp -<span id="L16192" class="LineNr">16192 </span> 5d/pop-to-ebp -<span id="L16193" class="LineNr">16193 </span> c3/return -<span id="L16194" class="LineNr">16194 </span> -<span id="L16195" class="LineNr">16195 </span><span class="subxTest">test-parse-var-with-compound-type</span>: -<span id="L16196" class="LineNr">16196 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16197" class="LineNr">16197 </span> 55/push-ebp -<span id="L16198" class="LineNr">16198 </span> 89/<- %ebp 4/r32/esp -<span id="L16199" class="LineNr">16199 </span> <span class="subxComment"># setup</span> -<span id="L16200" class="LineNr">16200 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16201" class="LineNr">16201 </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="L16202" class="LineNr">16202 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L16203" class="LineNr">16203 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L16204" class="LineNr">16204 </span> 8b/-> *eax 1/r32/ecx -<span id="L16205" class="LineNr">16205 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16206" class="LineNr">16206 </span> 05/add-to-eax 4/imm32 -<span id="L16207" class="LineNr">16207 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16208" class="LineNr">16208 </span> 51/push-ecx -<span id="L16209" class="LineNr">16209 </span> 50/push-eax -<span id="L16210" class="LineNr">16210 </span> 89/<- %ecx 4/r32/esp -<span id="L16211" class="LineNr">16211 </span> <span class="subxComment"># _test-input-stream contains "(addr int)"</span> -<span id="L16212" class="LineNr">16212 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16213" class="LineNr">16213 </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="L16214" class="LineNr">16214 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L16215" class="LineNr">16215 </span> 68/push 0/imm32 -<span id="L16216" class="LineNr">16216 </span> 68/push 0/imm32 -<span id="L16217" class="LineNr">16217 </span> 89/<- %edx 4/r32/esp -<span id="L16218" class="LineNr">16218 </span> <span class="subxComment">#</span> -<span id="L16219" class="LineNr">16219 </span> (<a href='mu.subx.html#L15411'>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="L16220" class="LineNr">16220 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L16221" class="LineNr">16221 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L16222" class="LineNr">16222 </span> 89/<- %edx 0/r32/eax -<span id="L16223" class="LineNr">16223 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L16224" class="LineNr">16224 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16225" class="LineNr">16225 </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#L16195'>test-parse-var-with-compound-type</a>/name"</span>) -<span id="L16226" class="LineNr">16226 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L16227" class="LineNr">16227 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L16195'>test-parse-var-with-compound-type</a>/register"</span>) <span class="subxComment"># Var-register</span> -<span id="L16228" class="LineNr">16228 </span> <span class="subxH1Comment"># - check v-addr->type</span> -<span id="L16229" class="LineNr">16229 </span> <span class="subxComment"># var type/edx: (addr type-tree) = var->type</span> -<span id="L16230" class="LineNr">16230 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16231" class="LineNr">16231 </span> 89/<- %edx 0/r32/eax -<span id="L16232" class="LineNr">16232 </span> <span class="subxComment"># type is a non-atom</span> -<span id="L16233" class="LineNr">16233 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 0 <span class="Constant">"F - <a href='mu.subx.html#L16195'>test-parse-var-with-compound-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16234" class="LineNr">16234 </span> <span class="subxComment"># type->left == atom(addr)</span> -<span id="L16235" class="LineNr">16235 </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="L16236" class="LineNr">16236 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16195'>test-parse-var-with-compound-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16237" class="LineNr">16237 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L16195'>test-parse-var-with-compound-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16238" class="LineNr">16238 </span> <span class="subxComment"># type->right->left == atom(int)</span> -<span id="L16239" class="LineNr">16239 </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="L16240" class="LineNr">16240 </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="L16241" class="LineNr">16241 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16195'>test-parse-var-with-compound-type</a>/type:3"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16242" class="LineNr">16242 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16195'>test-parse-var-with-compound-type</a>/type:4"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16243" class="LineNr">16243 </span> <span class="subxComment"># type->right->right == null</span> -<span id="L16244" class="LineNr">16244 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16195'>test-parse-var-with-compound-type</a>/type:5"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16245" class="LineNr">16245 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16246" class="LineNr">16246 </span> 89/<- %esp 5/r32/ebp -<span id="L16247" class="LineNr">16247 </span> 5d/pop-to-ebp -<span id="L16248" class="LineNr">16248 </span> c3/return -<span id="L16249" class="LineNr">16249 </span> -<span id="L16250" class="LineNr">16250 </span><span class="subxComment"># identifier starts with a letter or '$' or '_'</span> -<span id="L16251" class="LineNr">16251 </span><span class="subxComment"># no constraints at the moment on later letters</span> -<span id="L16252" class="LineNr">16252 </span><span class="subxComment"># all we really want to do so far is exclude '{', '}' and '->'</span> -<span id="L16253" class="LineNr">16253 </span><span class="subxFunction">is-identifier?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> -<span id="L16254" class="LineNr">16254 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16255" class="LineNr">16255 </span> 55/push-ebp -<span id="L16256" class="LineNr">16256 </span> 89/<- %ebp 4/r32/esp -<span id="L16257" class="LineNr">16257 </span> <span class="subxComment"># if (slice-empty?(in)) return false</span> -<span id="L16258" class="LineNr">16258 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L16259" class="LineNr">16259 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16260" class="LineNr">16260 </span> 75/jump-if-!= $is-identifier?:false/disp8 -<span id="L16261" class="LineNr">16261 </span> <span class="subxComment"># var c/eax: byte = *in->start</span> -<span id="L16262" class="LineNr">16262 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16263" class="LineNr">16263 </span> 8b/-> *eax 0/r32/eax -<span id="L16264" class="LineNr">16264 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L16265" class="LineNr">16265 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L16266" class="LineNr">16266 </span> <span class="subxComment"># if (c == '$') return true</span> -<span id="L16267" class="LineNr">16267 </span> 3d/compare-eax-and 0x24/imm32/$ -<span id="L16268" class="LineNr">16268 </span> 74/jump-if-= $is-identifier?:true/disp8 -<span id="L16269" class="LineNr">16269 </span> <span class="subxComment"># if (c == '_') return true</span> -<span id="L16270" class="LineNr">16270 </span> 3d/compare-eax-and 0x5f/imm32/_ -<span id="L16271" class="LineNr">16271 </span> 74/jump-if-= $is-identifier?:true/disp8 -<span id="L16272" class="LineNr">16272 </span> <span class="subxComment"># drop case</span> -<span id="L16273" class="LineNr">16273 </span> 25/and-eax-with 0x5f/imm32 -<span id="L16274" class="LineNr">16274 </span> <span class="subxComment"># if (c < 'A') return false</span> -<span id="L16275" class="LineNr">16275 </span> 3d/compare-eax-and 0x41/imm32/A -<span id="L16276" class="LineNr">16276 </span> 7c/jump-if-< $is-identifier?:false/disp8 -<span id="L16277" class="LineNr">16277 </span> <span class="subxComment"># if (c > 'Z') return false</span> -<span id="L16278" class="LineNr">16278 </span> 3d/compare-eax-and 0x5a/imm32/Z -<span id="L16279" class="LineNr">16279 </span> 7f/jump-if-> $is-identifier?:false/disp8 -<span id="L16280" class="LineNr">16280 </span> <span class="subxComment"># otherwise return true</span> -<span id="L16281" class="LineNr">16281 </span><span class="Constant">$is-identifier?:true</span>: -<span id="L16282" class="LineNr">16282 </span> b8/copy-to-eax 1/imm32/true -<span id="L16283" class="LineNr">16283 </span> eb/jump $is-identifier?:end/disp8 -<span id="L16284" class="LineNr">16284 </span><span class="Constant">$is-identifier?:false</span>: -<span id="L16285" class="LineNr">16285 </span> b8/copy-to-eax 0/imm32/false -<span id="L16286" class="LineNr">16286 </span><span class="Constant">$is-identifier?:end</span>: -<span id="L16287" class="LineNr">16287 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16288" class="LineNr">16288 </span> 89/<- %esp 5/r32/ebp -<span id="L16289" class="LineNr">16289 </span> 5d/pop-to-ebp -<span id="L16290" class="LineNr">16290 </span> c3/return -<span id="L16291" class="LineNr">16291 </span> -<span id="L16292" class="LineNr">16292 </span><span class="subxTest">test-is-identifier-dollar</span>: -<span id="L16293" class="LineNr">16293 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16294" class="LineNr">16294 </span> 55/push-ebp -<span id="L16295" class="LineNr">16295 </span> 89/<- %ebp 4/r32/esp -<span id="L16296" class="LineNr">16296 </span> <span class="subxComment"># (eax..ecx) = "$a"</span> -<span id="L16297" class="LineNr">16297 </span> b8/copy-to-eax <span class="Constant">"$a"</span>/imm32 -<span id="L16298" class="LineNr">16298 </span> 8b/-> *eax 1/r32/ecx -<span id="L16299" class="LineNr">16299 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16300" class="LineNr">16300 </span> 05/add-to-eax 4/imm32 -<span id="L16301" class="LineNr">16301 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16302" class="LineNr">16302 </span> 51/push-ecx -<span id="L16303" class="LineNr">16303 </span> 50/push-eax -<span id="L16304" class="LineNr">16304 </span> 89/<- %ecx 4/r32/esp -<span id="L16305" class="LineNr">16305 </span> <span class="subxComment">#</span> -<span id="L16306" class="LineNr">16306 </span> (<a href='mu.subx.html#L16253'>is-identifier?</a> %ecx) -<span id="L16307" class="LineNr">16307 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-dollar"</span>) -<span id="L16308" class="LineNr">16308 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16309" class="LineNr">16309 </span> 89/<- %esp 5/r32/ebp -<span id="L16310" class="LineNr">16310 </span> 5d/pop-to-ebp -<span id="L16311" class="LineNr">16311 </span> c3/return -<span id="L16312" class="LineNr">16312 </span> -<span id="L16313" class="LineNr">16313 </span><span class="subxTest">test-is-identifier-underscore</span>: -<span id="L16314" class="LineNr">16314 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16315" class="LineNr">16315 </span> 55/push-ebp -<span id="L16316" class="LineNr">16316 </span> 89/<- %ebp 4/r32/esp -<span id="L16317" class="LineNr">16317 </span> <span class="subxComment"># (eax..ecx) = "_a"</span> -<span id="L16318" class="LineNr">16318 </span> b8/copy-to-eax <span class="Constant">"_a"</span>/imm32 -<span id="L16319" class="LineNr">16319 </span> 8b/-> *eax 1/r32/ecx -<span id="L16320" class="LineNr">16320 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16321" class="LineNr">16321 </span> 05/add-to-eax 4/imm32 -<span id="L16322" class="LineNr">16322 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16323" class="LineNr">16323 </span> 51/push-ecx -<span id="L16324" class="LineNr">16324 </span> 50/push-eax -<span id="L16325" class="LineNr">16325 </span> 89/<- %ecx 4/r32/esp -<span id="L16326" class="LineNr">16326 </span> <span class="subxComment">#</span> -<span id="L16327" class="LineNr">16327 </span> (<a href='mu.subx.html#L16253'>is-identifier?</a> %ecx) -<span id="L16328" class="LineNr">16328 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-underscore"</span>) -<span id="L16329" class="LineNr">16329 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16330" class="LineNr">16330 </span> 89/<- %esp 5/r32/ebp -<span id="L16331" class="LineNr">16331 </span> 5d/pop-to-ebp -<span id="L16332" class="LineNr">16332 </span> c3/return -<span id="L16333" class="LineNr">16333 </span> -<span id="L16334" class="LineNr">16334 </span><span class="subxTest">test-is-identifier-a</span>: -<span id="L16335" class="LineNr">16335 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16336" class="LineNr">16336 </span> 55/push-ebp -<span id="L16337" class="LineNr">16337 </span> 89/<- %ebp 4/r32/esp -<span id="L16338" class="LineNr">16338 </span> <span class="subxComment"># (eax..ecx) = "a$"</span> -<span id="L16339" class="LineNr">16339 </span> b8/copy-to-eax <span class="Constant">"a$"</span>/imm32 -<span id="L16340" class="LineNr">16340 </span> 8b/-> *eax 1/r32/ecx -<span id="L16341" class="LineNr">16341 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16342" class="LineNr">16342 </span> 05/add-to-eax 4/imm32 -<span id="L16343" class="LineNr">16343 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16344" class="LineNr">16344 </span> 51/push-ecx -<span id="L16345" class="LineNr">16345 </span> 50/push-eax -<span id="L16346" class="LineNr">16346 </span> 89/<- %ecx 4/r32/esp -<span id="L16347" class="LineNr">16347 </span> <span class="subxComment">#</span> -<span id="L16348" class="LineNr">16348 </span> (<a href='mu.subx.html#L16253'>is-identifier?</a> %ecx) -<span id="L16349" class="LineNr">16349 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-a"</span>) -<span id="L16350" class="LineNr">16350 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16351" class="LineNr">16351 </span> 89/<- %esp 5/r32/ebp -<span id="L16352" class="LineNr">16352 </span> 5d/pop-to-ebp -<span id="L16353" class="LineNr">16353 </span> c3/return -<span id="L16354" class="LineNr">16354 </span> -<span id="L16355" class="LineNr">16355 </span><span class="subxTest">test-is-identifier-z</span>: -<span id="L16356" class="LineNr">16356 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16357" class="LineNr">16357 </span> 55/push-ebp -<span id="L16358" class="LineNr">16358 </span> 89/<- %ebp 4/r32/esp -<span id="L16359" class="LineNr">16359 </span> <span class="subxComment"># (eax..ecx) = "z$"</span> -<span id="L16360" class="LineNr">16360 </span> b8/copy-to-eax <span class="Constant">"z$"</span>/imm32 -<span id="L16361" class="LineNr">16361 </span> 8b/-> *eax 1/r32/ecx -<span id="L16362" class="LineNr">16362 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16363" class="LineNr">16363 </span> 05/add-to-eax 4/imm32 -<span id="L16364" class="LineNr">16364 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16365" class="LineNr">16365 </span> 51/push-ecx -<span id="L16366" class="LineNr">16366 </span> 50/push-eax -<span id="L16367" class="LineNr">16367 </span> 89/<- %ecx 4/r32/esp -<span id="L16368" class="LineNr">16368 </span> <span class="subxComment">#</span> -<span id="L16369" class="LineNr">16369 </span> (<a href='mu.subx.html#L16253'>is-identifier?</a> %ecx) -<span id="L16370" class="LineNr">16370 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-z"</span>) -<span id="L16371" class="LineNr">16371 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16372" class="LineNr">16372 </span> 89/<- %esp 5/r32/ebp -<span id="L16373" class="LineNr">16373 </span> 5d/pop-to-ebp -<span id="L16374" class="LineNr">16374 </span> c3/return -<span id="L16375" class="LineNr">16375 </span> -<span id="L16376" class="LineNr">16376 </span><span class="subxTest">test-is-identifier-A</span>: -<span id="L16377" class="LineNr">16377 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16378" class="LineNr">16378 </span> 55/push-ebp -<span id="L16379" class="LineNr">16379 </span> 89/<- %ebp 4/r32/esp -<span id="L16380" class="LineNr">16380 </span> <span class="subxComment"># (eax..ecx) = "A$"</span> -<span id="L16381" class="LineNr">16381 </span> b8/copy-to-eax <span class="Constant">"A$"</span>/imm32 -<span id="L16382" class="LineNr">16382 </span> 8b/-> *eax 1/r32/ecx -<span id="L16383" class="LineNr">16383 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16384" class="LineNr">16384 </span> 05/add-to-eax 4/imm32 -<span id="L16385" class="LineNr">16385 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16386" class="LineNr">16386 </span> 51/push-ecx -<span id="L16387" class="LineNr">16387 </span> 50/push-eax -<span id="L16388" class="LineNr">16388 </span> 89/<- %ecx 4/r32/esp -<span id="L16389" class="LineNr">16389 </span> <span class="subxComment">#</span> -<span id="L16390" class="LineNr">16390 </span> (<a href='mu.subx.html#L16253'>is-identifier?</a> %ecx) -<span id="L16391" class="LineNr">16391 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-A"</span>) -<span id="L16392" class="LineNr">16392 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16393" class="LineNr">16393 </span> 89/<- %esp 5/r32/ebp -<span id="L16394" class="LineNr">16394 </span> 5d/pop-to-ebp -<span id="L16395" class="LineNr">16395 </span> c3/return -<span id="L16396" class="LineNr">16396 </span> -<span id="L16397" class="LineNr">16397 </span><span class="subxTest">test-is-identifier-Z</span>: -<span id="L16398" class="LineNr">16398 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16399" class="LineNr">16399 </span> 55/push-ebp -<span id="L16400" class="LineNr">16400 </span> 89/<- %ebp 4/r32/esp -<span id="L16401" class="LineNr">16401 </span> <span class="subxComment"># (eax..ecx) = "Z$"</span> -<span id="L16402" class="LineNr">16402 </span> b8/copy-to-eax <span class="Constant">"Z$"</span>/imm32 -<span id="L16403" class="LineNr">16403 </span> 8b/-> *eax 1/r32/ecx -<span id="L16404" class="LineNr">16404 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16405" class="LineNr">16405 </span> 05/add-to-eax 4/imm32 -<span id="L16406" class="LineNr">16406 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16407" class="LineNr">16407 </span> 51/push-ecx -<span id="L16408" class="LineNr">16408 </span> 50/push-eax -<span id="L16409" class="LineNr">16409 </span> 89/<- %ecx 4/r32/esp -<span id="L16410" class="LineNr">16410 </span> <span class="subxComment">#</span> -<span id="L16411" class="LineNr">16411 </span> (<a href='mu.subx.html#L16253'>is-identifier?</a> %ecx) -<span id="L16412" class="LineNr">16412 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-Z"</span>) -<span id="L16413" class="LineNr">16413 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16414" class="LineNr">16414 </span> 89/<- %esp 5/r32/ebp -<span id="L16415" class="LineNr">16415 </span> 5d/pop-to-ebp -<span id="L16416" class="LineNr">16416 </span> c3/return -<span id="L16417" class="LineNr">16417 </span> -<span id="L16418" class="LineNr">16418 </span><span class="subxTest">test-is-identifier-at</span>: -<span id="L16419" class="LineNr">16419 </span> <span class="subxComment"># character before 'A' is invalid</span> -<span id="L16420" class="LineNr">16420 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16421" class="LineNr">16421 </span> 55/push-ebp -<span id="L16422" class="LineNr">16422 </span> 89/<- %ebp 4/r32/esp -<span id="L16423" class="LineNr">16423 </span> <span class="subxComment"># (eax..ecx) = "@a"</span> -<span id="L16424" class="LineNr">16424 </span> b8/copy-to-eax <span class="Constant">"@a"</span>/imm32 -<span id="L16425" class="LineNr">16425 </span> 8b/-> *eax 1/r32/ecx -<span id="L16426" class="LineNr">16426 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16427" class="LineNr">16427 </span> 05/add-to-eax 4/imm32 -<span id="L16428" class="LineNr">16428 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16429" class="LineNr">16429 </span> 51/push-ecx -<span id="L16430" class="LineNr">16430 </span> 50/push-eax -<span id="L16431" class="LineNr">16431 </span> 89/<- %ecx 4/r32/esp -<span id="L16432" class="LineNr">16432 </span> <span class="subxComment">#</span> -<span id="L16433" class="LineNr">16433 </span> (<a href='mu.subx.html#L16253'>is-identifier?</a> %ecx) -<span id="L16434" class="LineNr">16434 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) -<span id="L16435" class="LineNr">16435 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16436" class="LineNr">16436 </span> 89/<- %esp 5/r32/ebp -<span id="L16437" class="LineNr">16437 </span> 5d/pop-to-ebp -<span id="L16438" class="LineNr">16438 </span> c3/return -<span id="L16439" class="LineNr">16439 </span> -<span id="L16440" class="LineNr">16440 </span><span class="subxTest">test-is-identifier-square-bracket</span>: -<span id="L16441" class="LineNr">16441 </span> <span class="subxComment"># character after 'Z' is invalid</span> -<span id="L16442" class="LineNr">16442 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16443" class="LineNr">16443 </span> 55/push-ebp -<span id="L16444" class="LineNr">16444 </span> 89/<- %ebp 4/r32/esp -<span id="L16445" class="LineNr">16445 </span> <span class="subxComment"># (eax..ecx) = "[a"</span> -<span id="L16446" class="LineNr">16446 </span> b8/copy-to-eax <span class="Constant">"[a"</span>/imm32 -<span id="L16447" class="LineNr">16447 </span> 8b/-> *eax 1/r32/ecx -<span id="L16448" class="LineNr">16448 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16449" class="LineNr">16449 </span> 05/add-to-eax 4/imm32 -<span id="L16450" class="LineNr">16450 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16451" class="LineNr">16451 </span> 51/push-ecx -<span id="L16452" class="LineNr">16452 </span> 50/push-eax -<span id="L16453" class="LineNr">16453 </span> 89/<- %ecx 4/r32/esp -<span id="L16454" class="LineNr">16454 </span> <span class="subxComment">#</span> -<span id="L16455" class="LineNr">16455 </span> (<a href='mu.subx.html#L16253'>is-identifier?</a> %ecx) -<span id="L16456" class="LineNr">16456 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) -<span id="L16457" class="LineNr">16457 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16458" class="LineNr">16458 </span> 89/<- %esp 5/r32/ebp -<span id="L16459" class="LineNr">16459 </span> 5d/pop-to-ebp -<span id="L16460" class="LineNr">16460 </span> c3/return -<span id="L16461" class="LineNr">16461 </span> -<span id="L16462" class="LineNr">16462 </span><span class="subxTest">test-is-identifier-backtick</span>: -<span id="L16463" class="LineNr">16463 </span> <span class="subxComment"># character before 'a' is invalid</span> -<span id="L16464" class="LineNr">16464 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16465" class="LineNr">16465 </span> 55/push-ebp -<span id="L16466" class="LineNr">16466 </span> 89/<- %ebp 4/r32/esp -<span id="L16467" class="LineNr">16467 </span> <span class="subxComment"># (eax..ecx) = "`a"</span> -<span id="L16468" class="LineNr">16468 </span> b8/copy-to-eax <span class="Constant">"`a"</span>/imm32 -<span id="L16469" class="LineNr">16469 </span> 8b/-> *eax 1/r32/ecx -<span id="L16470" class="LineNr">16470 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16471" class="LineNr">16471 </span> 05/add-to-eax 4/imm32 -<span id="L16472" class="LineNr">16472 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16473" class="LineNr">16473 </span> 51/push-ecx -<span id="L16474" class="LineNr">16474 </span> 50/push-eax -<span id="L16475" class="LineNr">16475 </span> 89/<- %ecx 4/r32/esp -<span id="L16476" class="LineNr">16476 </span> <span class="subxComment">#</span> -<span id="L16477" class="LineNr">16477 </span> (<a href='mu.subx.html#L16253'>is-identifier?</a> %ecx) -<span id="L16478" class="LineNr">16478 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-backtick"</span>) -<span id="L16479" class="LineNr">16479 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16480" class="LineNr">16480 </span> 89/<- %esp 5/r32/ebp -<span id="L16481" class="LineNr">16481 </span> 5d/pop-to-ebp -<span id="L16482" class="LineNr">16482 </span> c3/return -<span id="L16483" class="LineNr">16483 </span> -<span id="L16484" class="LineNr">16484 </span><span class="subxTest">test-is-identifier-curly-brace-open</span>: -<span id="L16485" class="LineNr">16485 </span> <span class="subxComment"># character after 'z' is invalid; also used for blocks</span> -<span id="L16486" class="LineNr">16486 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16487" class="LineNr">16487 </span> 55/push-ebp -<span id="L16488" class="LineNr">16488 </span> 89/<- %ebp 4/r32/esp -<span id="L16489" class="LineNr">16489 </span> <span class="subxComment"># (eax..ecx) = "{a"</span> -<span id="L16490" class="LineNr">16490 </span> b8/copy-to-eax <span class="Constant">"{a"</span>/imm32 -<span id="L16491" class="LineNr">16491 </span> 8b/-> *eax 1/r32/ecx -<span id="L16492" class="LineNr">16492 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16493" class="LineNr">16493 </span> 05/add-to-eax 4/imm32 -<span id="L16494" class="LineNr">16494 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16495" class="LineNr">16495 </span> 51/push-ecx -<span id="L16496" class="LineNr">16496 </span> 50/push-eax -<span id="L16497" class="LineNr">16497 </span> 89/<- %ecx 4/r32/esp -<span id="L16498" class="LineNr">16498 </span> <span class="subxComment">#</span> -<span id="L16499" class="LineNr">16499 </span> (<a href='mu.subx.html#L16253'>is-identifier?</a> %ecx) -<span id="L16500" class="LineNr">16500 </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="L16501" class="LineNr">16501 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16502" class="LineNr">16502 </span> 89/<- %esp 5/r32/ebp -<span id="L16503" class="LineNr">16503 </span> 5d/pop-to-ebp -<span id="L16504" class="LineNr">16504 </span> c3/return -<span id="L16505" class="LineNr">16505 </span> -<span id="L16506" class="LineNr">16506 </span><span class="subxTest">test-is-identifier-curly-brace-close</span>: -<span id="L16507" class="LineNr">16507 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16508" class="LineNr">16508 </span> 55/push-ebp -<span id="L16509" class="LineNr">16509 </span> 89/<- %ebp 4/r32/esp -<span id="L16510" class="LineNr">16510 </span> <span class="subxComment"># (eax..ecx) = "}a"</span> -<span id="L16511" class="LineNr">16511 </span> b8/copy-to-eax <span class="Constant">"}a"</span>/imm32 -<span id="L16512" class="LineNr">16512 </span> 8b/-> *eax 1/r32/ecx -<span id="L16513" class="LineNr">16513 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16514" class="LineNr">16514 </span> 05/add-to-eax 4/imm32 -<span id="L16515" class="LineNr">16515 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16516" class="LineNr">16516 </span> 51/push-ecx -<span id="L16517" class="LineNr">16517 </span> 50/push-eax -<span id="L16518" class="LineNr">16518 </span> 89/<- %ecx 4/r32/esp -<span id="L16519" class="LineNr">16519 </span> <span class="subxComment">#</span> -<span id="L16520" class="LineNr">16520 </span> (<a href='mu.subx.html#L16253'>is-identifier?</a> %ecx) -<span id="L16521" class="LineNr">16521 </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="L16522" class="LineNr">16522 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16523" class="LineNr">16523 </span> 89/<- %esp 5/r32/ebp -<span id="L16524" class="LineNr">16524 </span> 5d/pop-to-ebp -<span id="L16525" class="LineNr">16525 </span> c3/return -<span id="L16526" class="LineNr">16526 </span> -<span id="L16527" class="LineNr">16527 </span><span class="subxTest">test-is-identifier-hyphen</span>: -<span id="L16528" class="LineNr">16528 </span> <span class="subxComment"># disallow leading '-' since '->' has special meaning</span> -<span id="L16529" class="LineNr">16529 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16530" class="LineNr">16530 </span> 55/push-ebp -<span id="L16531" class="LineNr">16531 </span> 89/<- %ebp 4/r32/esp -<span id="L16532" class="LineNr">16532 </span> <span class="subxComment"># (eax..ecx) = "-a"</span> -<span id="L16533" class="LineNr">16533 </span> b8/copy-to-eax <span class="Constant">"-a"</span>/imm32 -<span id="L16534" class="LineNr">16534 </span> 8b/-> *eax 1/r32/ecx -<span id="L16535" class="LineNr">16535 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L16536" class="LineNr">16536 </span> 05/add-to-eax 4/imm32 -<span id="L16537" class="LineNr">16537 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L16538" class="LineNr">16538 </span> 51/push-ecx -<span id="L16539" class="LineNr">16539 </span> 50/push-eax -<span id="L16540" class="LineNr">16540 </span> 89/<- %ecx 4/r32/esp -<span id="L16541" class="LineNr">16541 </span> <span class="subxComment">#</span> -<span id="L16542" class="LineNr">16542 </span> (<a href='mu.subx.html#L16253'>is-identifier?</a> %ecx) -<span id="L16543" class="LineNr">16543 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-hyphen"</span>) -<span id="L16544" class="LineNr">16544 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16545" class="LineNr">16545 </span> 89/<- %esp 5/r32/ebp -<span id="L16546" class="LineNr">16546 </span> 5d/pop-to-ebp -<span id="L16547" class="LineNr">16547 </span> c3/return -<span id="L16548" class="LineNr">16548 </span> -<span id="L16549" class="LineNr">16549 </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="L16550" class="LineNr">16550 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16551" class="LineNr">16551 </span> 55/push-ebp -<span id="L16552" class="LineNr">16552 </span> 89/<- %ebp 4/r32/esp -<span id="L16553" class="LineNr">16553 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16554" class="LineNr">16554 </span> 50/push-eax -<span id="L16555" class="LineNr">16555 </span> 56/push-esi -<span id="L16556" class="LineNr">16556 </span> 57/push-edi -<span id="L16557" class="LineNr">16557 </span> <span class="subxComment"># esi = in</span> -<span id="L16558" class="LineNr">16558 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L16559" class="LineNr">16559 </span> <span class="subxComment"># edi = out</span> -<span id="L16560" class="LineNr">16560 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L16561" class="LineNr">16561 </span> <span class="subxComment"># initialize some global state</span> -<span id="L16562" class="LineNr">16562 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 1/imm32 -<span id="L16563" class="LineNr">16563 </span> <span class="subxComment"># parse-mu-block(in, vars, out, out->body)</span> -<span id="L16564" class="LineNr">16564 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Function-body</span> -<span id="L16565" class="LineNr">16565 </span> (<a href='mu.subx.html#L16577'>parse-mu-block</a> %esi *(ebp+0x10) %edi %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L16566" class="LineNr">16566 </span><span class="Constant">$populate-mu-function-body:end</span>: -<span id="L16567" class="LineNr">16567 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16568" class="LineNr">16568 </span> 5f/pop-to-edi -<span id="L16569" class="LineNr">16569 </span> 5e/pop-to-esi -<span id="L16570" class="LineNr">16570 </span> 58/pop-to-eax -<span id="L16571" class="LineNr">16571 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16572" class="LineNr">16572 </span> 89/<- %esp 5/r32/ebp -<span id="L16573" class="LineNr">16573 </span> 5d/pop-to-ebp -<span id="L16574" class="LineNr">16574 </span> c3/return -<span id="L16575" class="LineNr">16575 </span> -<span id="L16576" class="LineNr">16576 </span><span class="subxComment"># parses a block, assuming that the leading '{' has already been read by the caller</span> -<span id="L16577" class="LineNr">16577 </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="L16578" class="LineNr">16578 </span> <span class="subxComment"># pseudocode:</span> -<span id="L16579" class="LineNr">16579 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L16580" class="LineNr">16580 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L16581" class="LineNr">16581 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> -<span id="L16582" class="LineNr">16582 </span> <span class="subxComment"># var out-addr: (addr block) = lookup(*out)</span> -<span id="L16583" class="LineNr">16583 </span> <span class="subxComment"># out-addr->tag = 0/block</span> -<span id="L16584" class="LineNr">16584 </span> <span class="subxComment"># out-addr->var = some unique name</span> -<span id="L16585" class="LineNr">16585 </span> <span class="subxComment"># push(vars, {out-addr->var, false})</span> -<span id="L16586" class="LineNr">16586 </span> <span class="subxComment"># while true # line loop</span> -<span id="L16587" class="LineNr">16587 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L16588" class="LineNr">16588 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L16589" class="LineNr">16589 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L16590" class="LineNr">16590 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L16591" class="LineNr">16591 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L16592" class="LineNr">16592 </span> <span class="subxComment"># continue</span> -<span id="L16593" class="LineNr">16593 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#")</span> -<span id="L16594" class="LineNr">16594 </span> <span class="subxComment"># continue</span> -<span id="L16595" class="LineNr">16595 </span> <span class="subxComment"># else if slice-equal?(word-slice, "{")</span> -<span id="L16596" class="LineNr">16596 </span> <span class="subxComment"># assert(no-tokens-in(line))</span> -<span id="L16597" class="LineNr">16597 </span> <span class="subxComment"># block = parse-mu-block(in, vars, fn)</span> -<span id="L16598" class="LineNr">16598 </span> <span class="subxComment"># append-to-block(out-addr, block)</span> -<span id="L16599" class="LineNr">16599 </span> <span class="subxComment"># else if slice-equal?(word-slice, "}")</span> -<span id="L16600" class="LineNr">16600 </span> <span class="subxComment"># break</span> -<span id="L16601" class="LineNr">16601 </span> <span class="subxComment"># else if slice-ends-with?(word-slice, ":")</span> -<span id="L16602" class="LineNr">16602 </span> <span class="subxComment"># # TODO: error-check the rest of 'line'</span> -<span id="L16603" class="LineNr">16603 </span> <span class="subxComment"># --word-slice->end to skip ':'</span> -<span id="L16604" class="LineNr">16604 </span> <span class="subxComment"># named-block = parse-mu-named-block(word-slice, in, vars, fn)</span> -<span id="L16605" class="LineNr">16605 </span> <span class="subxComment"># append-to-block(out-addr, named-block)</span> -<span id="L16606" class="LineNr">16606 </span> <span class="subxComment"># else if slice-equal?(word-slice, "var")</span> -<span id="L16607" class="LineNr">16607 </span> <span class="subxComment"># var-def = parse-mu-var-def(line, vars, fn)</span> -<span id="L16608" class="LineNr">16608 </span> <span class="subxComment"># append-to-block(out-addr, var-def)</span> -<span id="L16609" class="LineNr">16609 </span> <span class="subxComment"># else</span> -<span id="L16610" class="LineNr">16610 </span> <span class="subxComment"># stmt = parse-mu-stmt(line, vars, fn)</span> -<span id="L16611" class="LineNr">16611 </span> <span class="subxComment"># append-to-block(out-addr, stmt)</span> -<span id="L16612" class="LineNr">16612 </span> <span class="subxComment"># pop(vars)</span> -<span id="L16613" class="LineNr">16613 </span> <span class="subxComment">#</span> -<span id="L16614" class="LineNr">16614 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16615" class="LineNr">16615 </span> 55/push-ebp -<span id="L16616" class="LineNr">16616 </span> 89/<- %ebp 4/r32/esp -<span id="L16617" class="LineNr">16617 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16618" class="LineNr">16618 </span> 50/push-eax -<span id="L16619" class="LineNr">16619 </span> 51/push-ecx -<span id="L16620" class="LineNr">16620 </span> 52/push-edx -<span id="L16621" class="LineNr">16621 </span> 53/push-ebx -<span id="L16622" class="LineNr">16622 </span> 57/push-edi -<span id="L16623" class="LineNr">16623 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L16624" class="LineNr">16624 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L16625" class="LineNr">16625 </span> 68/push 0x200/imm32/size -<span id="L16626" class="LineNr">16626 </span> 68/push 0/imm32/read -<span id="L16627" class="LineNr">16627 </span> 68/push 0/imm32/write -<span id="L16628" class="LineNr">16628 </span> 89/<- %ecx 4/r32/esp -<span id="L16629" class="LineNr">16629 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L16630" class="LineNr">16630 </span> 68/push 0/imm32/end -<span id="L16631" class="LineNr">16631 </span> 68/push 0/imm32/start -<span id="L16632" class="LineNr">16632 </span> 89/<- %edx 4/r32/esp -<span id="L16633" class="LineNr">16633 </span> <span class="subxComment"># allocate into out</span> -<span id="L16634" class="LineNr">16634 </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="L16635" class="LineNr">16635 </span> <span class="subxComment"># var out-addr/edi: (addr block) = lookup(*out)</span> -<span id="L16636" class="LineNr">16636 </span> 8b/-> *(ebp+0x14) 7/r32/edi -<span id="L16637" class="LineNr">16637 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L16638" class="LineNr">16638 </span> 89/<- %edi 0/r32/eax -<span id="L16639" class="LineNr">16639 </span> <span class="subxComment"># out-addr->tag is 0 (block) by default</span> -<span id="L16640" class="LineNr">16640 </span> <span class="subxComment"># set out-addr->var</span> -<span id="L16641" class="LineNr">16641 </span> 8d/copy-address *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L16642" class="LineNr">16642 </span> (<a href='mu.subx.html#L16797'>new-block-name</a> *(ebp+0x10) %eax) -<span id="L16643" class="LineNr">16643 </span> <span class="subxComment"># push(vars, out-addr->var)</span> -<span id="L16644" class="LineNr">16644 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0xc)) <span class="subxComment"># Block-var</span> -<span id="L16645" class="LineNr">16645 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0x10)) <span class="subxComment"># Block-var</span> -<span id="L16646" class="LineNr">16646 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) 0) <span class="subxComment"># false</span> -<span id="L16647" class="LineNr">16647 </span> <span class="subxComment"># increment *Curr-block-depth</span> -<span id="L16648" class="LineNr">16648 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> -<span id="L16649" class="LineNr">16649 </span> { -<span id="L16650" class="LineNr">16650 </span><span class="Constant">$parse-mu-block:line-loop</span>: -<span id="L16651" class="LineNr">16651 </span> <span class="subxComment"># line = read-line-buffered(in)</span> -<span id="L16652" class="LineNr">16652 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L16653" class="LineNr">16653 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L16654" class="LineNr">16654 </span><span class="CommentedCode">#? (write-buffered Stderr "line: ")</span> -<span id="L16655" class="LineNr">16655 </span><span class="CommentedCode">#? (write-stream-data Stderr %ecx)</span> -<span id="L16656" class="LineNr">16656 </span><span class="CommentedCode">#? #? (write-buffered Stderr Newline) # line has its own newline</span> -<span id="L16657" class="LineNr">16657 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L16658" class="LineNr">16658 </span><span class="CommentedCode">#? (rewind-stream %ecx)</span> -<span id="L16659" class="LineNr">16659 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L16660" class="LineNr">16660 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L16661" class="LineNr">16661 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L16662" class="LineNr">16662 </span><span class="CommentedCode">#? (write-buffered Stderr "vars:\n")</span> -<span id="L16663" class="LineNr">16663 </span><span class="CommentedCode">#? (dump-vars *(ebp+0xc))</span> -<span id="L16664" class="LineNr">16664 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L16665" class="LineNr">16665 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> %ecx %edx) -<span id="L16666" class="LineNr">16666 </span><span class="CommentedCode">#? (write-buffered Stderr "word: ")</span> -<span id="L16667" class="LineNr">16667 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %edx)</span> -<span id="L16668" class="LineNr">16668 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L16669" class="LineNr">16669 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L16670" class="LineNr">16670 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L16671" class="LineNr">16671 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) -<span id="L16672" class="LineNr">16672 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16673" class="LineNr">16673 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L16674" class="LineNr">16674 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, '#') continue</span> -<span id="L16675" class="LineNr">16675 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L16676" class="LineNr">16676 </span> 8b/-> *edx 0/r32/eax -<span id="L16677" class="LineNr">16677 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L16678" class="LineNr">16678 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L16679" class="LineNr">16679 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L16680" class="LineNr">16680 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L16681" class="LineNr">16681 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 -<span id="L16682" class="LineNr">16682 </span> <span class="subxComment"># if slice-equal?(word-slice, "{")</span> -<span id="L16683" class="LineNr">16683 </span> { -<span id="L16684" class="LineNr">16684 </span><span class="Constant">$parse-mu-block:check-for-block</span>: -<span id="L16685" class="LineNr">16685 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"{"</span>) -<span id="L16686" class="LineNr">16686 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16687" class="LineNr">16687 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16688" class="LineNr">16688 </span> (<a href='mu.subx.html#L16861'>check-no-tokens-left</a> %ecx) -<span id="L16689" class="LineNr">16689 </span> <span class="subxComment"># parse new block and append</span> -<span id="L16690" class="LineNr">16690 </span> <span class="subxS1Comment"># . var tmp/eax: (handle block)</span> -<span id="L16691" class="LineNr">16691 </span> 68/push 0/imm32 -<span id="L16692" class="LineNr">16692 </span> 68/push 0/imm32 -<span id="L16693" class="LineNr">16693 </span> 89/<- %eax 4/r32/esp -<span id="L16694" class="LineNr">16694 </span> <span class="subxS1Comment"># .</span> -<span id="L16695" class="LineNr">16695 </span> (<a href='mu.subx.html#L16577'>parse-mu-block</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L16696" class="LineNr">16696 </span> (<a href='mu.subx.html#L18608'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L16697" class="LineNr">16697 </span> <span class="subxS1Comment"># . reclaim tmp</span> -<span id="L16698" class="LineNr">16698 </span> 81 0/subop/add %esp 8/imm32 -<span id="L16699" class="LineNr">16699 </span> <span class="subxS1Comment"># .</span> -<span id="L16700" class="LineNr">16700 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L16701" class="LineNr">16701 </span> } -<span id="L16702" class="LineNr">16702 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> -<span id="L16703" class="LineNr">16703 </span><span class="Constant">$parse-mu-block:check-for-end</span>: -<span id="L16704" class="LineNr">16704 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) -<span id="L16705" class="LineNr">16705 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16706" class="LineNr">16706 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16707" class="LineNr">16707 </span> <span class="subxComment"># if slice-ends-with?(word-slice, ":") parse named block and append</span> -<span id="L16708" class="LineNr">16708 </span> { -<span id="L16709" class="LineNr">16709 </span><span class="Constant">$parse-mu-block:check-for-named-block</span>: -<span id="L16710" class="LineNr">16710 </span> <span class="subxS1Comment"># . eax = *(word-slice->end-1)</span> -<span id="L16711" class="LineNr">16711 </span> 8b/-> *(edx+4) 0/r32/eax -<span id="L16712" class="LineNr">16712 </span> 48/decrement-eax -<span id="L16713" class="LineNr">16713 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L16714" class="LineNr">16714 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L16715" class="LineNr">16715 </span> <span class="subxS1Comment"># . if (eax != ':') break</span> -<span id="L16716" class="LineNr">16716 </span> 3d/compare-eax-and 0x3a/imm32/colon -<span id="L16717" class="LineNr">16717 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16718" class="LineNr">16718 </span> <span class="subxComment"># TODO: error-check the rest of 'line'</span> -<span id="L16719" class="LineNr">16719 </span> <span class="subxComment">#</span> -<span id="L16720" class="LineNr">16720 </span> <span class="subxComment"># skip ':'</span> -<span id="L16721" class="LineNr">16721 </span> ff 1/subop/decrement *(edx+4) <span class="subxComment"># Slice-end</span> -<span id="L16722" class="LineNr">16722 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L16723" class="LineNr">16723 </span> 68/push 0/imm32 -<span id="L16724" class="LineNr">16724 </span> 68/push 0/imm32 -<span id="L16725" class="LineNr">16725 </span> 89/<- %eax 4/r32/esp -<span id="L16726" class="LineNr">16726 </span> <span class="subxComment">#</span> -<span id="L16727" class="LineNr">16727 </span> (<a href='mu.subx.html#L16907'>parse-mu-named-block</a> %edx *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L16728" class="LineNr">16728 </span> (<a href='mu.subx.html#L18608'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L16729" class="LineNr">16729 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L16730" class="LineNr">16730 </span> 81 0/subop/add %esp 8/imm32 -<span id="L16731" class="LineNr">16731 </span> <span class="subxComment">#</span> -<span id="L16732" class="LineNr">16732 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L16733" class="LineNr">16733 </span> } -<span id="L16734" class="LineNr">16734 </span> <span class="subxComment"># if slice-equal?(word-slice, "var")</span> -<span id="L16735" class="LineNr">16735 </span> { -<span id="L16736" class="LineNr">16736 </span><span class="Constant">$parse-mu-block:check-for-var</span>: -<span id="L16737" class="LineNr">16737 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"var"</span>) -<span id="L16738" class="LineNr">16738 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16739" class="LineNr">16739 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16740" class="LineNr">16740 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L16741" class="LineNr">16741 </span> 68/push 0/imm32 -<span id="L16742" class="LineNr">16742 </span> 68/push 0/imm32 -<span id="L16743" class="LineNr">16743 </span> 89/<- %eax 4/r32/esp -<span id="L16744" class="LineNr">16744 </span> <span class="subxComment">#</span> -<span id="L16745" class="LineNr">16745 </span> (<a href='mu.subx.html#L16963'>parse-mu-var-def</a> %ecx *(ebp+0xc) %eax *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L16746" class="LineNr">16746 </span> (<a href='mu.subx.html#L18608'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L16747" class="LineNr">16747 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L16748" class="LineNr">16748 </span> 81 0/subop/add %esp 8/imm32 -<span id="L16749" class="LineNr">16749 </span> <span class="subxComment">#</span> -<span id="L16750" class="LineNr">16750 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L16751" class="LineNr">16751 </span> } -<span id="L16752" class="LineNr">16752 </span><span class="Constant">$parse-mu-block:regular-stmt</span>: -<span id="L16753" class="LineNr">16753 </span> <span class="subxComment"># otherwise</span> -<span id="L16754" class="LineNr">16754 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L16755" class="LineNr">16755 </span> 68/push 0/imm32 -<span id="L16756" class="LineNr">16756 </span> 68/push 0/imm32 -<span id="L16757" class="LineNr">16757 </span> 89/<- %eax 4/r32/esp -<span id="L16758" class="LineNr">16758 </span> <span class="subxComment">#</span> -<span id="L16759" class="LineNr">16759 </span> (<a href='mu.subx.html#L17227'>parse-mu-stmt</a> %ecx *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L16760" class="LineNr">16760 </span> (<a href='mu.subx.html#L18608'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L16761" class="LineNr">16761 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L16762" class="LineNr">16762 </span> 81 0/subop/add %esp 8/imm32 -<span id="L16763" class="LineNr">16763 </span> <span class="subxComment">#</span> -<span id="L16764" class="LineNr">16764 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16765" class="LineNr">16765 </span> } <span class="subxComment"># end line loop</span> -<span id="L16766" class="LineNr">16766 </span> (<a href='mu.subx.html#L26220'>clean-up-blocks</a> *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> *(ebp+0x10)) -<span id="L16767" class="LineNr">16767 </span> <span class="subxComment"># decrement *Curr-block-depth</span> -<span id="L16768" class="LineNr">16768 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> -<span id="L16769" class="LineNr">16769 </span> <span class="subxComment"># pop(vars)</span> -<span id="L16770" class="LineNr">16770 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L16771" class="LineNr">16771 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L16772" class="LineNr">16772 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L16773" class="LineNr">16773 </span><span class="Constant">$parse-mu-block:end</span>: -<span id="L16774" class="LineNr">16774 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L16775" class="LineNr">16775 </span> 81 0/subop/add %esp 0x214/imm32 -<span id="L16776" class="LineNr">16776 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16777" class="LineNr">16777 </span> 5f/pop-to-edi -<span id="L16778" class="LineNr">16778 </span> 5b/pop-to-ebx -<span id="L16779" class="LineNr">16779 </span> 5a/pop-to-edx -<span id="L16780" class="LineNr">16780 </span> 59/pop-to-ecx -<span id="L16781" class="LineNr">16781 </span> 58/pop-to-eax -<span id="L16782" class="LineNr">16782 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16783" class="LineNr">16783 </span> 89/<- %esp 5/r32/ebp -<span id="L16784" class="LineNr">16784 </span> 5d/pop-to-ebp -<span id="L16785" class="LineNr">16785 </span> c3/return -<span id="L16786" class="LineNr">16786 </span> -<span id="L16787" class="LineNr">16787 </span><span class="Constant">$parse-mu-block:abort</span>: -<span id="L16788" class="LineNr">16788 </span> <span class="subxComment"># error("'{' or '}' should be on its own line, but got '")</span> -<span id="L16789" class="LineNr">16789 </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="L16790" class="LineNr">16790 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> %ecx) -<span id="L16791" class="LineNr">16791 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) %ecx) -<span id="L16792" class="LineNr">16792 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L16793" class="LineNr">16793 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L16794" class="LineNr">16794 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L16795" class="LineNr">16795 </span> <span class="subxComment"># never gets here</span> -<span id="L16796" class="LineNr">16796 </span> -<span id="L16797" class="LineNr">16797 </span><span class="subxFunction">new-block-name</span>: <span class="subxComment"># fn: (addr function), out: (addr handle var)</span> -<span id="L16798" class="LineNr">16798 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16799" class="LineNr">16799 </span> 55/push-ebp -<span id="L16800" class="LineNr">16800 </span> 89/<- %ebp 4/r32/esp -<span id="L16801" class="LineNr">16801 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16802" class="LineNr">16802 </span> 50/push-eax -<span id="L16803" class="LineNr">16803 </span> 51/push-ecx -<span id="L16804" class="LineNr">16804 </span> 52/push-edx -<span id="L16805" class="LineNr">16805 </span> <span class="subxComment"># var n/ecx: int = len(fn->name) + 10 for an int + 2 for '$:'</span> -<span id="L16806" class="LineNr">16806 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16807" class="LineNr">16807 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16808" class="LineNr">16808 </span> 8b/-> *eax 0/r32/eax <span class="subxComment"># String-size</span> -<span id="L16809" class="LineNr">16809 </span> 05/add-to-eax 0xd/imm32 <span class="subxComment"># 10 + 2 for '$:'</span> -<span id="L16810" class="LineNr">16810 </span> 89/<- %ecx 0/r32/eax -<span id="L16811" class="LineNr">16811 </span> <span class="subxComment"># var name/edx: (stream byte n)</span> -<span id="L16812" class="LineNr">16812 </span> 29/subtract-from %esp 1/r32/ecx -<span id="L16813" class="LineNr">16813 </span> ff 6/subop/push %ecx -<span id="L16814" class="LineNr">16814 </span> 68/push 0/imm32/read -<span id="L16815" class="LineNr">16815 </span> 68/push 0/imm32/write -<span id="L16816" class="LineNr">16816 </span> 89/<- %edx 4/r32/esp -<span id="L16817" class="LineNr">16817 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %edx) -<span id="L16818" class="LineNr">16818 </span> <span class="subxComment"># eax = fn->name</span> -<span id="L16819" class="LineNr">16819 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16820" class="LineNr">16820 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16821" class="LineNr">16821 </span> <span class="subxComment"># construct result using Next-block-index (and increment it)</span> -<span id="L16822" class="LineNr">16822 </span> (<a href='../108write.subx.html#L24'>write</a> %edx <span class="Constant">"$"</span>) -<span id="L16823" class="LineNr">16823 </span> (<a href='../108write.subx.html#L24'>write</a> %edx %eax) -<span id="L16824" class="LineNr">16824 </span> (<a href='../108write.subx.html#L24'>write</a> %edx <span class="Constant">":"</span>) -<span id="L16825" class="LineNr">16825 </span> (<a href='../117write-int-hex.subx.html#L178'>write-int32-hex</a> %edx *<span class="SpecialChar"><a href='mu.subx.html#L14175'>Next-block-index</a></span>) -<span id="L16826" class="LineNr">16826 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L14175'>Next-block-index</a></span> -<span id="L16827" class="LineNr">16827 </span> <span class="subxComment"># var s/eax: slice = {name->data, name->data + name->write} (clobbering edx)</span> -<span id="L16828" class="LineNr">16828 </span> <span class="subxS1Comment"># . eax = name->write</span> -<span id="L16829" class="LineNr">16829 </span> 8b/-> *edx 0/r32/eax -<span id="L16830" class="LineNr">16830 </span> <span class="subxS1Comment"># . edx = name->data</span> -<span id="L16831" class="LineNr">16831 </span> 8d/copy-address *(edx+0xc) 2/r32/edx -<span id="L16832" class="LineNr">16832 </span> <span class="subxS1Comment"># . eax = name->write + name->data</span> -<span id="L16833" class="LineNr">16833 </span> 01/add-to %eax 2/r32/edx -<span id="L16834" class="LineNr">16834 </span> <span class="subxS1Comment"># . push {edx, eax}</span> -<span id="L16835" class="LineNr">16835 </span> ff 6/subop/push %eax -<span id="L16836" class="LineNr">16836 </span> ff 6/subop/push %edx -<span id="L16837" class="LineNr">16837 </span> 89/<- %eax 4/r32/esp -<span id="L16838" class="LineNr">16838 </span> <span class="subxComment"># out = new literal(s)</span> -<span id="L16839" class="LineNr">16839 </span> (<a href='mu.subx.html#L18335'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %eax *(ebp+0xc)) -<span id="L16840" class="LineNr">16840 </span><span class="CommentedCode">#? 8b/-> *(ebp+0xc) 0/r32/eax</span> -<span id="L16841" class="LineNr">16841 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid in caller after new-literal: ")</span> -<span id="L16842" class="LineNr">16842 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(eax+8))</span> -<span id="L16843" class="LineNr">16843 </span><span class="CommentedCode">#? (write-buffered Stderr " for var ")</span> -<span id="L16844" class="LineNr">16844 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L16845" class="LineNr">16845 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L16846" class="LineNr">16846 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L16847" class="LineNr">16847 </span><span class="Constant">$new-block-name:end</span>: -<span id="L16848" class="LineNr">16848 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L16849" class="LineNr">16849 </span> 81 0/subop/add %ecx 0xc/imm32 <span class="subxComment"># name.{read/write/len}</span> -<span id="L16850" class="LineNr">16850 </span> 81 0/subop/add %ecx 8/imm32 <span class="subxComment"># slice</span> -<span id="L16851" class="LineNr">16851 </span> 01/add-to %esp 1/r32/ecx -<span id="L16852" class="LineNr">16852 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16853" class="LineNr">16853 </span> 5a/pop-to-edx -<span id="L16854" class="LineNr">16854 </span> 59/pop-to-ecx -<span id="L16855" class="LineNr">16855 </span> 58/pop-to-eax -<span id="L16856" class="LineNr">16856 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16857" class="LineNr">16857 </span> 89/<- %esp 5/r32/ebp -<span id="L16858" class="LineNr">16858 </span> 5d/pop-to-ebp -<span id="L16859" class="LineNr">16859 </span> c3/return -<span id="L16860" class="LineNr">16860 </span> -<span id="L16861" class="LineNr">16861 </span><span class="subxFunction">check-no-tokens-left</span>: <span class="subxComment"># line: (addr stream byte)</span> -<span id="L16862" class="LineNr">16862 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16863" class="LineNr">16863 </span> 55/push-ebp -<span id="L16864" class="LineNr">16864 </span> 89/<- %ebp 4/r32/esp -<span id="L16865" class="LineNr">16865 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16866" class="LineNr">16866 </span> 50/push-eax -<span id="L16867" class="LineNr">16867 </span> 51/push-ecx -<span id="L16868" class="LineNr">16868 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L16869" class="LineNr">16869 </span> 68/push 0/imm32/end -<span id="L16870" class="LineNr">16870 </span> 68/push 0/imm32/start -<span id="L16871" class="LineNr">16871 </span> 89/<- %ecx 4/r32/esp -<span id="L16872" class="LineNr">16872 </span> <span class="subxComment">#</span> -<span id="L16873" class="LineNr">16873 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16874" class="LineNr">16874 </span> <span class="subxComment"># if slice-empty?(s) return</span> -<span id="L16875" class="LineNr">16875 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) -<span id="L16876" class="LineNr">16876 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16877" class="LineNr">16877 </span> 75/jump-if-!= $check-no-tokens-left:end/disp8 -<span id="L16878" class="LineNr">16878 </span> <span class="subxComment"># if (slice-starts-with?(s, '#') return</span> -<span id="L16879" class="LineNr">16879 </span> <span class="subxS1Comment"># . eax = *s->start</span> -<span id="L16880" class="LineNr">16880 </span> 8b/-> *edx 0/r32/eax -<span id="L16881" class="LineNr">16881 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L16882" class="LineNr">16882 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L16883" class="LineNr">16883 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L16884" class="LineNr">16884 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L16885" class="LineNr">16885 </span> 74/jump-if-= $check-no-tokens-left:end/disp8 -<span id="L16886" class="LineNr">16886 </span> <span class="subxComment"># abort</span> -<span id="L16887" class="LineNr">16887 </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="L16888" class="LineNr">16888 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> %ecx) -<span id="L16889" class="LineNr">16889 </span> (<a href='../113write-stream.subx.html#L17'>write-stream</a> 2 %ecx) -<span id="L16890" class="LineNr">16890 </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="L16891" class="LineNr">16891 </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="L16892" class="LineNr">16892 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L16893" class="LineNr">16893 </span> bb/copy-to-ebx 1/imm32 -<span id="L16894" class="LineNr">16894 </span> e8/call syscall_exit/disp32 -<span id="L16895" class="LineNr">16895 </span> <span class="subxComment"># never gets here</span> -<span id="L16896" class="LineNr">16896 </span><span class="Constant">$check-no-tokens-left:end</span>: -<span id="L16897" class="LineNr">16897 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L16898" class="LineNr">16898 </span> 81 0/subop/add %esp 8/imm32 -<span id="L16899" class="LineNr">16899 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16900" class="LineNr">16900 </span> 59/pop-to-ecx -<span id="L16901" class="LineNr">16901 </span> 58/pop-to-eax -<span id="L16902" class="LineNr">16902 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16903" class="LineNr">16903 </span> 89/<- %esp 5/r32/ebp -<span id="L16904" class="LineNr">16904 </span> 5d/pop-to-ebp -<span id="L16905" class="LineNr">16905 </span> c3/return -<span id="L16906" class="LineNr">16906 </span> -<span id="L16907" class="LineNr">16907 </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="L16908" class="LineNr">16908 </span> <span class="subxComment"># pseudocode:</span> -<span id="L16909" class="LineNr">16909 </span> <span class="subxComment"># var v: (handle var)</span> -<span id="L16910" class="LineNr">16910 </span> <span class="subxComment"># new-literal(name, v)</span> -<span id="L16911" class="LineNr">16911 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L16912" class="LineNr">16912 </span> <span class="subxComment"># parse-mu-block(in, vars, fn, out)</span> -<span id="L16913" class="LineNr">16913 </span> <span class="subxComment"># pop(vars)</span> -<span id="L16914" class="LineNr">16914 </span> <span class="subxComment"># out->tag = block</span> -<span id="L16915" class="LineNr">16915 </span> <span class="subxComment"># out->var = v</span> -<span id="L16916" class="LineNr">16916 </span> <span class="subxComment">#</span> -<span id="L16917" class="LineNr">16917 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16918" class="LineNr">16918 </span> 55/push-ebp -<span id="L16919" class="LineNr">16919 </span> 89/<- %ebp 4/r32/esp -<span id="L16920" class="LineNr">16920 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16921" class="LineNr">16921 </span> 50/push-eax -<span id="L16922" class="LineNr">16922 </span> 51/push-ecx -<span id="L16923" class="LineNr">16923 </span> 57/push-edi -<span id="L16924" class="LineNr">16924 </span> <span class="subxComment"># var v/ecx: (handle var)</span> -<span id="L16925" class="LineNr">16925 </span> 68/push 0/imm32 -<span id="L16926" class="LineNr">16926 </span> 68/push 0/imm32 -<span id="L16927" class="LineNr">16927 </span> 89/<- %ecx 4/r32/esp -<span id="L16928" class="LineNr">16928 </span> <span class="subxComment">#</span> -<span id="L16929" class="LineNr">16929 </span> (<a href='mu.subx.html#L18335'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) %ecx) -<span id="L16930" class="LineNr">16930 </span> <span class="subxComment"># push(vars, v)</span> -<span id="L16931" class="LineNr">16931 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *ecx) -<span id="L16932" class="LineNr">16932 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) -<span id="L16933" class="LineNr">16933 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L16934" class="LineNr">16934 </span> <span class="subxComment">#</span> -<span id="L16935" class="LineNr">16935 </span> (<a href='mu.subx.html#L16577'>parse-mu-block</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c) *(ebp+0x20)) -<span id="L16936" class="LineNr">16936 </span> <span class="subxComment"># pop v off vars</span> -<span id="L16937" class="LineNr">16937 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L16938" class="LineNr">16938 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L16939" class="LineNr">16939 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L16940" class="LineNr">16940 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> -<span id="L16941" class="LineNr">16941 </span> 8b/-> *(ebp+0x18) 7/r32/edi -<span id="L16942" class="LineNr">16942 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L16943" class="LineNr">16943 </span> 89/<- %edi 0/r32/eax -<span id="L16944" class="LineNr">16944 </span> <span class="subxComment"># out-addr->tag = named-block</span> -<span id="L16945" class="LineNr">16945 </span> c7 0/subop/copy *edi 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L16946" class="LineNr">16946 </span> <span class="subxComment"># out-addr->var = v</span> -<span id="L16947" class="LineNr">16947 </span> 8b/-> *ecx 0/r32/eax -<span id="L16948" class="LineNr">16948 </span> 89/<- *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L16949" class="LineNr">16949 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L16950" class="LineNr">16950 </span> 89/<- *(edi+0x10) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L16951" class="LineNr">16951 </span><span class="Constant">$parse-mu-named-block:end</span>: -<span id="L16952" class="LineNr">16952 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L16953" class="LineNr">16953 </span> 81 0/subop/add %esp 8/imm32 -<span id="L16954" class="LineNr">16954 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16955" class="LineNr">16955 </span> 5f/pop-to-edi -<span id="L16956" class="LineNr">16956 </span> 59/pop-to-ecx -<span id="L16957" class="LineNr">16957 </span> 58/pop-to-eax -<span id="L16958" class="LineNr">16958 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16959" class="LineNr">16959 </span> 89/<- %esp 5/r32/ebp -<span id="L16960" class="LineNr">16960 </span> 5d/pop-to-ebp -<span id="L16961" class="LineNr">16961 </span> c3/return -<span id="L16962" class="LineNr">16962 </span> -<span id="L16963" class="LineNr">16963 </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="L16964" class="LineNr">16964 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16965" class="LineNr">16965 </span> 55/push-ebp -<span id="L16966" class="LineNr">16966 </span> 89/<- %ebp 4/r32/esp -<span id="L16967" class="LineNr">16967 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16968" class="LineNr">16968 </span> 50/push-eax -<span id="L16969" class="LineNr">16969 </span> 51/push-ecx -<span id="L16970" class="LineNr">16970 </span> 52/push-edx -<span id="L16971" class="LineNr">16971 </span> 56/push-esi -<span id="L16972" class="LineNr">16972 </span> 57/push-edi -<span id="L16973" class="LineNr">16973 </span> <span class="subxComment"># edi = out</span> -<span id="L16974" class="LineNr">16974 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L16975" class="LineNr">16975 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L16976" class="LineNr">16976 </span> 68/push 0/imm32/end -<span id="L16977" class="LineNr">16977 </span> 68/push 0/imm32/start -<span id="L16978" class="LineNr">16978 </span> 89/<- %ecx 4/r32/esp -<span id="L16979" class="LineNr">16979 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L16980" class="LineNr">16980 </span> 68/push 0/imm32 -<span id="L16981" class="LineNr">16981 </span> 68/push 0/imm32 -<span id="L16982" class="LineNr">16982 </span> 89/<- %edx 4/r32/esp -<span id="L16983" class="LineNr">16983 </span> <span class="subxComment"># v = parse-var-with-type(next-mu-token(line))</span> -<span id="L16984" class="LineNr">16984 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16985" class="LineNr">16985 </span> { -<span id="L16986" class="LineNr">16986 </span> <span class="subxComment"># just for tests, support null fn</span> -<span id="L16987" class="LineNr">16987 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L16988" class="LineNr">16988 </span> 3d/compare-eax-and 0/imm32 -<span id="L16989" class="LineNr">16989 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16990" class="LineNr">16990 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16991" class="LineNr">16991 </span> } -<span id="L16992" class="LineNr">16992 </span> (<a href='mu.subx.html#L15411'>parse-var-with-type</a> %ecx *(ebp+8) %edx %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L16993" class="LineNr">16993 </span> <span class="subxComment"># var v-addr/esi: (addr var)</span> -<span id="L16994" class="LineNr">16994 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L16995" class="LineNr">16995 </span> 89/<- %esi 0/r32/eax -<span id="L16996" class="LineNr">16996 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L16997" class="LineNr">16997 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/r32/eax -<span id="L16998" class="LineNr">16998 </span> 89/<- *(esi+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L16999" class="LineNr">16999 </span> <span class="subxComment"># either v has no register and there's no more to this line</span> -<span id="L17000" class="LineNr">17000 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 -<span id="L17001" class="LineNr">17001 </span> { -<span id="L17002" class="LineNr">17002 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17003" class="LineNr">17003 </span> <span class="subxComment"># if v-addr->type == byte, abort</span> -<span id="L17004" class="LineNr">17004 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17005" class="LineNr">17005 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L17006" class="LineNr">17006 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17007" class="LineNr">17007 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-on-stack/disp32 -<span id="L17008" class="LineNr">17008 </span> <span class="subxComment"># ensure that there's nothing else on this line</span> -<span id="L17009" class="LineNr">17009 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L17010" class="LineNr">17010 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L17011" class="LineNr">17011 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17012" class="LineNr">17012 </span> 0f 84/jump-if-= $parse-mu-var-def:error2/disp32 -<span id="L17013" class="LineNr">17013 </span> <span class="subxComment">#</span> -<span id="L17014" class="LineNr">17014 </span> (<a href='mu.subx.html#L18439'>new-var-def</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) -<span id="L17015" class="LineNr">17015 </span> e9/jump $parse-mu-var-def:update-vars/disp32 -<span id="L17016" class="LineNr">17016 </span> } -<span id="L17017" class="LineNr">17017 </span> <span class="subxComment"># or v has a register and there's more to this line</span> -<span id="L17018" class="LineNr">17018 </span> { -<span id="L17019" class="LineNr">17019 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17020" class="LineNr">17020 </span> <span class="subxComment"># if v-addr->type == byte, check for unsupported registers</span> -<span id="L17021" class="LineNr">17021 </span> { -<span id="L17022" class="LineNr">17022 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17023" class="LineNr">17023 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L17024" class="LineNr">17024 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17025" class="LineNr">17025 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17026" class="LineNr">17026 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> -<span id="L17027" class="LineNr">17027 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"esi"</span>) <span class="subxComment"># => eax</span> -<span id="L17028" class="LineNr">17028 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17029" class="LineNr">17029 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 -<span id="L17030" class="LineNr">17030 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> -<span id="L17031" class="LineNr">17031 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"edi"</span>) <span class="subxComment"># => eax</span> -<span id="L17032" class="LineNr">17032 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17033" class="LineNr">17033 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 -<span id="L17034" class="LineNr">17034 </span> } -<span id="L17035" class="LineNr">17035 </span> <span class="subxComment"># TODO: vars of type 'byte' should only be initialized by clearing to 0</span> -<span id="L17036" class="LineNr">17036 </span> <span class="subxComment"># ensure that the next word is '<-'</span> -<span id="L17037" class="LineNr">17037 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L17038" class="LineNr">17038 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> -<span id="L17039" class="LineNr">17039 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17040" class="LineNr">17040 </span> 0f 84/jump-if-= $parse-mu-var-def:error1/disp32 -<span id="L17041" class="LineNr">17041 </span> <span class="subxComment">#</span> -<span id="L17042" class="LineNr">17042 </span> (<a href='mu.subx.html#L18467'>new-reg-var-def</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) -<span id="L17043" class="LineNr">17043 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L17044" class="LineNr">17044 </span> (<a href='mu.subx.html#L17344'>add-operation-and-inputs-to-stmt</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L17045" class="LineNr">17045 </span> } -<span id="L17046" class="LineNr">17046 </span><span class="Constant">$parse-mu-var-def:update-vars</span>: -<span id="L17047" class="LineNr">17047 </span> <span class="subxComment"># push 'v' at end of function</span> -<span id="L17048" class="LineNr">17048 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *edx) -<span id="L17049" class="LineNr">17049 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edx+4)) -<span id="L17050" class="LineNr">17050 </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="L17051" class="LineNr">17051 </span><span class="Constant">$parse-mu-var-def:end</span>: -<span id="L17052" class="LineNr">17052 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17053" class="LineNr">17053 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L17054" class="LineNr">17054 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17055" class="LineNr">17055 </span> 5f/pop-to-edi -<span id="L17056" class="LineNr">17056 </span> 5e/pop-to-esi -<span id="L17057" class="LineNr">17057 </span> 5a/pop-to-edx -<span id="L17058" class="LineNr">17058 </span> 59/pop-to-ecx -<span id="L17059" class="LineNr">17059 </span> 58/pop-to-eax -<span id="L17060" class="LineNr">17060 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17061" class="LineNr">17061 </span> 89/<- %esp 5/r32/ebp -<span id="L17062" class="LineNr">17062 </span> 5d/pop-to-ebp -<span id="L17063" class="LineNr">17063 </span> c3/return -<span id="L17064" class="LineNr">17064 </span> -<span id="L17065" class="LineNr">17065 </span><span class="Constant">$parse-mu-var-def:error1</span>: -<span id="L17066" class="LineNr">17066 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L17067" class="LineNr">17067 </span> <span class="subxComment"># error("register variable requires a valid instruction to initialize but got '" line "'\n")</span> -<span id="L17068" class="LineNr">17068 </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="L17069" class="LineNr">17069 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17070" class="LineNr">17070 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+8)) -<span id="L17071" class="LineNr">17071 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L17072" class="LineNr">17072 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17073" class="LineNr">17073 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17074" class="LineNr">17074 </span> <span class="subxComment"># never gets here</span> -<span id="L17075" class="LineNr">17075 </span> -<span id="L17076" class="LineNr">17076 </span><span class="Constant">$parse-mu-var-def:error2</span>: -<span id="L17077" class="LineNr">17077 </span> <span class="subxComment"># error("fn " fn ": var " var ": variables on the stack can't take an initializer\n")</span> -<span id="L17078" class="LineNr">17078 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17079" class="LineNr">17079 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L17080" class="LineNr">17080 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L17081" class="LineNr">17081 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17082" class="LineNr">17082 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var "</span>) -<span id="L17083" class="LineNr">17083 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> -<span id="L17084" class="LineNr">17084 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17085" class="LineNr">17085 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17086" class="LineNr">17086 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17087" class="LineNr">17087 </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="L17088" class="LineNr">17088 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17089" class="LineNr">17089 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17090" class="LineNr">17090 </span> <span class="subxComment"># never gets here</span> -<span id="L17091" class="LineNr">17091 </span> -<span id="L17092" class="LineNr">17092 </span><span class="Constant">$parse-mu-var-def:error-byte-on-stack</span>: -<span id="L17093" class="LineNr">17093 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be on the stack\n")</span> -<span id="L17094" class="LineNr">17094 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17095" class="LineNr">17095 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L17096" class="LineNr">17096 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L17097" class="LineNr">17097 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17098" class="LineNr">17098 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) -<span id="L17099" class="LineNr">17099 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> -<span id="L17100" class="LineNr">17100 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17101" class="LineNr">17101 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17102" class="LineNr">17102 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17103" class="LineNr">17103 </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="L17104" class="LineNr">17104 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17105" class="LineNr">17105 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17106" class="LineNr">17106 </span> <span class="subxComment"># never gets here</span> -<span id="L17107" class="LineNr">17107 </span> -<span id="L17108" class="LineNr">17108 </span><span class="Constant">$parse-mu-var-def:error-byte-registers</span>: -<span id="L17109" class="LineNr">17109 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be in esi or edi\n")</span> -<span id="L17110" class="LineNr">17110 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17111" class="LineNr">17111 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L17112" class="LineNr">17112 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L17113" class="LineNr">17113 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17114" class="LineNr">17114 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) -<span id="L17115" class="LineNr">17115 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> -<span id="L17116" class="LineNr">17116 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17117" class="LineNr">17117 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17118" class="LineNr">17118 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17119" class="LineNr">17119 </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="L17120" class="LineNr">17120 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17121" class="LineNr">17121 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17122" class="LineNr">17122 </span> <span class="subxComment"># never gets here</span> -<span id="L17123" class="LineNr">17123 </span> -<span id="L17124" class="LineNr">17124 </span><span class="subxTest">test-parse-mu-var-def</span>: -<span id="L17125" class="LineNr">17125 </span> <span class="subxComment"># 'var n: int'</span> -<span id="L17126" class="LineNr">17126 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17127" class="LineNr">17127 </span> 55/push-ebp -<span id="L17128" class="LineNr">17128 </span> 89/<- %ebp 4/r32/esp -<span id="L17129" class="LineNr">17129 </span> <span class="subxComment"># setup</span> -<span id="L17130" class="LineNr">17130 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17131" class="LineNr">17131 </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="L17132" class="LineNr">17132 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17133" class="LineNr">17133 </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="L17134" class="LineNr">17134 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 1/imm32 -<span id="L17135" class="LineNr">17135 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> -<span id="L17136" class="LineNr">17136 </span> 68/push 0/imm32 -<span id="L17137" class="LineNr">17137 </span> 68/push 0/imm32 -<span id="L17138" class="LineNr">17138 </span> 89/<- %esi 4/r32/esp -<span id="L17139" class="LineNr">17139 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L17140" class="LineNr">17140 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L17141" class="LineNr">17141 </span> 68/push 0xc0/imm32/size -<span id="L17142" class="LineNr">17142 </span> 68/push 0/imm32/top -<span id="L17143" class="LineNr">17143 </span> 89/<- %ecx 4/r32/esp -<span id="L17144" class="LineNr">17144 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L17145" class="LineNr">17145 </span> <span class="subxComment"># convert</span> -<span id="L17146" class="LineNr">17146 </span> (<a href='mu.subx.html#L16963'>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="L17147" class="LineNr">17147 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> -<span id="L17148" class="LineNr">17148 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L17149" class="LineNr">17149 </span> 89/<- %esi 0/r32/eax -<span id="L17150" class="LineNr">17150 </span> <span class="subxComment">#</span> -<span id="L17151" class="LineNr">17151 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *esi 2 <span class="Constant">"F - <a href='mu.subx.html#L17124'>test-parse-mu-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is var-def</span> -<span id="L17152" class="LineNr">17152 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->var)</span> -<span id="L17153" class="LineNr">17153 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> -<span id="L17154" class="LineNr">17154 </span> 89/<- %ecx 0/r32/eax -<span id="L17155" class="LineNr">17155 </span> <span class="subxComment"># v->name</span> -<span id="L17156" class="LineNr">17156 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17157" class="LineNr">17157 </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#L17124'>test-parse-mu-var-def</a>/var-name"</span>) -<span id="L17158" class="LineNr">17158 </span> <span class="subxComment"># v->register</span> -<span id="L17159" class="LineNr">17159 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17124'>test-parse-mu-var-def</a>/var-register"</span>) <span class="subxComment"># Var-register</span> -<span id="L17160" class="LineNr">17160 </span> <span class="subxComment"># v->block-depth</span> -<span id="L17161" class="LineNr">17161 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L17124'>test-parse-mu-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> -<span id="L17162" class="LineNr">17162 </span> <span class="subxComment"># v->type == int</span> -<span id="L17163" class="LineNr">17163 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17164" class="LineNr">17164 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17124'>test-parse-mu-var-def</a>/var-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17165" class="LineNr">17165 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17124'>test-parse-mu-var-def</a>/var-type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L17166" class="LineNr">17166 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17124'>test-parse-mu-var-def</a>/var-type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17167" class="LineNr">17167 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17168" class="LineNr">17168 </span> 89/<- %esp 5/r32/ebp -<span id="L17169" class="LineNr">17169 </span> 5d/pop-to-ebp -<span id="L17170" class="LineNr">17170 </span> c3/return -<span id="L17171" class="LineNr">17171 </span> -<span id="L17172" class="LineNr">17172 </span><span class="subxTest">test-parse-mu-reg-var-def</span>: -<span id="L17173" class="LineNr">17173 </span> <span class="subxComment"># 'var n/eax: int <- copy 0'</span> -<span id="L17174" class="LineNr">17174 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17175" class="LineNr">17175 </span> 55/push-ebp -<span id="L17176" class="LineNr">17176 </span> 89/<- %ebp 4/r32/esp -<span id="L17177" class="LineNr">17177 </span> <span class="subxComment"># setup</span> -<span id="L17178" class="LineNr">17178 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17179" class="LineNr">17179 </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="L17180" class="LineNr">17180 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17181" class="LineNr">17181 </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="L17182" class="LineNr">17182 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 1/imm32 -<span id="L17183" class="LineNr">17183 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> -<span id="L17184" class="LineNr">17184 </span> 68/push 0/imm32 -<span id="L17185" class="LineNr">17185 </span> 68/push 0/imm32 -<span id="L17186" class="LineNr">17186 </span> 89/<- %esi 4/r32/esp -<span id="L17187" class="LineNr">17187 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L17188" class="LineNr">17188 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L17189" class="LineNr">17189 </span> 68/push 0xc0/imm32/size -<span id="L17190" class="LineNr">17190 </span> 68/push 0/imm32/top -<span id="L17191" class="LineNr">17191 </span> 89/<- %ecx 4/r32/esp -<span id="L17192" class="LineNr">17192 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L17193" class="LineNr">17193 </span> <span class="subxComment"># convert</span> -<span id="L17194" class="LineNr">17194 </span> (<a href='mu.subx.html#L16963'>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="L17195" class="LineNr">17195 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> -<span id="L17196" class="LineNr">17196 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L17197" class="LineNr">17197 </span> 89/<- %esi 0/r32/eax -<span id="L17198" class="LineNr">17198 </span> <span class="subxComment">#</span> -<span id="L17199" class="LineNr">17199 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *esi 3 <span class="Constant">"F - <a href='mu.subx.html#L17172'>test-parse-mu-reg-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is reg-var-def</span> -<span id="L17200" class="LineNr">17200 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->outputs->value)</span> -<span id="L17201" class="LineNr">17201 </span> <span class="subxS1Comment"># . eax: (addr stmt-var) = lookup(out->outputs)</span> -<span id="L17202" class="LineNr">17202 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L17203" class="LineNr">17203 </span> <span class="subxS1Comment"># .</span> -<span id="L17204" class="LineNr">17204 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+8) 0 <span class="Constant">"F - <a href='mu.subx.html#L17172'>test-parse-mu-reg-var-def</a>/single-output"</span>) <span class="subxComment"># Stmt-var-next</span> -<span id="L17205" class="LineNr">17205 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(eax->value)</span> -<span id="L17206" class="LineNr">17206 </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="L17207" class="LineNr">17207 </span> <span class="subxS1Comment"># . ecx = eax</span> -<span id="L17208" class="LineNr">17208 </span> 89/<- %ecx 0/r32/eax -<span id="L17209" class="LineNr">17209 </span> <span class="subxComment"># v->name</span> -<span id="L17210" class="LineNr">17210 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17211" class="LineNr">17211 </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#L17172'>test-parse-mu-reg-var-def</a>/output-name"</span>) <span class="subxComment"># Var-name</span> -<span id="L17212" class="LineNr">17212 </span> <span class="subxComment"># v->register</span> -<span id="L17213" class="LineNr">17213 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17214" class="LineNr">17214 </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#L17172'>test-parse-mu-reg-var-def</a>/output-register"</span>) -<span id="L17215" class="LineNr">17215 </span> <span class="subxComment"># v->block-depth</span> -<span id="L17216" class="LineNr">17216 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L17172'>test-parse-mu-reg-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> -<span id="L17217" class="LineNr">17217 </span> <span class="subxComment"># v->type == int</span> -<span id="L17218" class="LineNr">17218 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17219" class="LineNr">17219 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17172'>test-parse-mu-reg-var-def</a>/output-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17220" class="LineNr">17220 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17172'>test-parse-mu-reg-var-def</a>/output-type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L17221" class="LineNr">17221 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17172'>test-parse-mu-reg-var-def</a>/output-type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17222" class="LineNr">17222 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17223" class="LineNr">17223 </span> 89/<- %esp 5/r32/ebp -<span id="L17224" class="LineNr">17224 </span> 5d/pop-to-ebp -<span id="L17225" class="LineNr">17225 </span> c3/return -<span id="L17226" class="LineNr">17226 </span> -<span id="L17227" class="LineNr">17227 </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="L17228" class="LineNr">17228 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17229" class="LineNr">17229 </span> <span class="subxComment"># var name: slice</span> -<span id="L17230" class="LineNr">17230 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> -<span id="L17231" class="LineNr">17231 </span> <span class="subxComment"># var out-addr: (addr stmt) = lookup(*out)</span> -<span id="L17232" class="LineNr">17232 </span> <span class="subxComment"># out-addr->tag = stmt</span> -<span id="L17233" class="LineNr">17233 </span> <span class="subxComment"># if stmt-has-outputs?(line)</span> -<span id="L17234" class="LineNr">17234 </span> <span class="subxComment"># while true</span> -<span id="L17235" class="LineNr">17235 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L17236" class="LineNr">17236 </span> <span class="subxComment"># if (name == '<-') break</span> -<span id="L17237" class="LineNr">17237 </span> <span class="subxComment"># assert(is-identifier?(name))</span> -<span id="L17238" class="LineNr">17238 </span> <span class="subxComment"># var v: (handle var) = lookup-var(name, vars)</span> -<span id="L17239" class="LineNr">17239 </span> <span class="subxComment"># out-addr->outputs = append(v, out-addr->outputs)</span> -<span id="L17240" class="LineNr">17240 </span> <span class="subxComment"># add-operation-and-inputs-to-stmt(out-addr, line, vars)</span> -<span id="L17241" class="LineNr">17241 </span> <span class="subxComment">#</span> -<span id="L17242" class="LineNr">17242 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17243" class="LineNr">17243 </span> 55/push-ebp -<span id="L17244" class="LineNr">17244 </span> 89/<- %ebp 4/r32/esp -<span id="L17245" class="LineNr">17245 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17246" class="LineNr">17246 </span> 50/push-eax -<span id="L17247" class="LineNr">17247 </span> 51/push-ecx -<span id="L17248" class="LineNr">17248 </span> 52/push-edx -<span id="L17249" class="LineNr">17249 </span> 53/push-ebx -<span id="L17250" class="LineNr">17250 </span> 57/push-edi -<span id="L17251" class="LineNr">17251 </span> <span class="subxComment"># var name/ecx: slice</span> -<span id="L17252" class="LineNr">17252 </span> 68/push 0/imm32/end -<span id="L17253" class="LineNr">17253 </span> 68/push 0/imm32/start -<span id="L17254" class="LineNr">17254 </span> 89/<- %ecx 4/r32/esp -<span id="L17255" class="LineNr">17255 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> -<span id="L17256" class="LineNr">17256 </span> ba/copy-to-edx 0/imm32/false -<span id="L17257" class="LineNr">17257 </span> <span class="subxComment"># var v: (handle var)</span> -<span id="L17258" class="LineNr">17258 </span> 68/push 0/imm32 -<span id="L17259" class="LineNr">17259 </span> 68/push 0/imm32 -<span id="L17260" class="LineNr">17260 </span> 89/<- %ebx 4/r32/esp -<span id="L17261" class="LineNr">17261 </span> <span class="subxComment">#</span> -<span id="L17262" class="LineNr">17262 </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="L17263" class="LineNr">17263 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> -<span id="L17264" class="LineNr">17264 </span> 8b/-> *(ebp+0x14) 7/r32/edi -<span id="L17265" class="LineNr">17265 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L17266" class="LineNr">17266 </span> 89/<- %edi 0/r32/eax -<span id="L17267" class="LineNr">17267 </span> <span class="subxComment"># out-addr->tag = 1/stmt</span> -<span id="L17268" class="LineNr">17268 </span> c7 0/subop/copy *edi 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L17269" class="LineNr">17269 </span> { -<span id="L17270" class="LineNr">17270 </span> (<a href='mu.subx.html#L17508'>stmt-has-outputs?</a> *(ebp+8)) -<span id="L17271" class="LineNr">17271 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17272" class="LineNr">17272 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17273" class="LineNr">17273 </span> { -<span id="L17274" class="LineNr">17274 </span><span class="Constant">$parse-mu-stmt:read-outputs</span>: -<span id="L17275" class="LineNr">17275 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L17276" class="LineNr">17276 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L17277" class="LineNr">17277 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L17278" class="LineNr">17278 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L17279" class="LineNr">17279 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17280" class="LineNr">17280 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L17281" class="LineNr">17281 </span> <span class="subxComment"># if (name == "<-") break</span> -<span id="L17282" class="LineNr">17282 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> -<span id="L17283" class="LineNr">17283 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17284" class="LineNr">17284 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L17285" class="LineNr">17285 </span> <span class="subxComment"># if slice-starts-with?(name, "*") abort</span> -<span id="L17286" class="LineNr">17286 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> -<span id="L17287" class="LineNr">17287 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L17288" class="LineNr">17288 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L17289" class="LineNr">17289 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L17290" class="LineNr">17290 </span> 0f 84/jump-if-= $parse-mu-stmt:error-output-dereferenced/disp32 -<span id="L17291" class="LineNr">17291 </span> <span class="subxComment"># assert(is-identifier?(name))</span> -<span id="L17292" class="LineNr">17292 </span> (<a href='mu.subx.html#L16253'>is-identifier?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L17293" class="LineNr">17293 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17294" class="LineNr">17294 </span> 0f 84/jump-if-= $parse-mu-stmt:abort/disp32 -<span id="L17295" class="LineNr">17295 </span> <span class="subxComment">#</span> -<span id="L17296" class="LineNr">17296 </span> (<a href='mu.subx.html#L17619'>lookup-var</a> %ecx *(ebp+0xc) %ebx *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L17297" class="LineNr">17297 </span> 8d/copy-address *(edi+0x14) 0/r32/eax <span class="subxComment"># Stmt1-outputs</span> -<span id="L17298" class="LineNr">17298 </span> (<a href='mu.subx.html#L18550'>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="L17299" class="LineNr">17299 </span> <span class="subxComment">#</span> -<span id="L17300" class="LineNr">17300 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L17301" class="LineNr">17301 </span> } -<span id="L17302" class="LineNr">17302 </span> } -<span id="L17303" class="LineNr">17303 </span> (<a href='mu.subx.html#L17344'>add-operation-and-inputs-to-stmt</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L17304" class="LineNr">17304 </span><span class="Constant">$parse-mu-stmt:end</span>: -<span id="L17305" class="LineNr">17305 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17306" class="LineNr">17306 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L17307" class="LineNr">17307 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17308" class="LineNr">17308 </span> 5f/pop-to-edi -<span id="L17309" class="LineNr">17309 </span> 5b/pop-to-ebx -<span id="L17310" class="LineNr">17310 </span> 5a/pop-to-edx -<span id="L17311" class="LineNr">17311 </span> 59/pop-to-ecx -<span id="L17312" class="LineNr">17312 </span> 58/pop-to-eax -<span id="L17313" class="LineNr">17313 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17314" class="LineNr">17314 </span> 89/<- %esp 5/r32/ebp -<span id="L17315" class="LineNr">17315 </span> 5d/pop-to-ebp -<span id="L17316" class="LineNr">17316 </span> c3/return -<span id="L17317" class="LineNr">17317 </span> -<span id="L17318" class="LineNr">17318 </span><span class="Constant">$parse-mu-stmt:abort</span>: -<span id="L17319" class="LineNr">17319 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> -<span id="L17320" class="LineNr">17320 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17321" class="LineNr">17321 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L17322" class="LineNr">17322 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L17323" class="LineNr">17323 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17324" class="LineNr">17324 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier '"</span>) -<span id="L17325" class="LineNr">17325 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) -<span id="L17326" class="LineNr">17326 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L17327" class="LineNr">17327 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17328" class="LineNr">17328 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17329" class="LineNr">17329 </span> <span class="subxComment"># never gets here</span> -<span id="L17330" class="LineNr">17330 </span> -<span id="L17331" class="LineNr">17331 </span><span class="Constant">$parse-mu-stmt:error-output-dereferenced</span>: -<span id="L17332" class="LineNr">17332 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> -<span id="L17333" class="LineNr">17333 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17334" class="LineNr">17334 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L17335" class="LineNr">17335 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L17336" class="LineNr">17336 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17337" class="LineNr">17337 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": output '"</span>) -<span id="L17338" class="LineNr">17338 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) -<span id="L17339" class="LineNr">17339 </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="L17340" class="LineNr">17340 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17341" class="LineNr">17341 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17342" class="LineNr">17342 </span> <span class="subxComment"># never gets here</span> -<span id="L17343" class="LineNr">17343 </span> -<span id="L17344" class="LineNr">17344 </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="L17345" class="LineNr">17345 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17346" class="LineNr">17346 </span> <span class="subxComment"># stmt->name = slice-to-string(next-mu-token(line))</span> -<span id="L17347" class="LineNr">17347 </span> <span class="subxComment"># while true</span> -<span id="L17348" class="LineNr">17348 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L17349" class="LineNr">17349 </span> <span class="subxComment"># v = lookup-var-or-literal(name)</span> -<span id="L17350" class="LineNr">17350 </span> <span class="subxComment"># stmt->inouts = append(v, stmt->inouts)</span> -<span id="L17351" class="LineNr">17351 </span> <span class="subxComment">#</span> -<span id="L17352" class="LineNr">17352 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17353" class="LineNr">17353 </span> 55/push-ebp -<span id="L17354" class="LineNr">17354 </span> 89/<- %ebp 4/r32/esp -<span id="L17355" class="LineNr">17355 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17356" class="LineNr">17356 </span> 50/push-eax -<span id="L17357" class="LineNr">17357 </span> 51/push-ecx -<span id="L17358" class="LineNr">17358 </span> 52/push-edx -<span id="L17359" class="LineNr">17359 </span> 53/push-ebx -<span id="L17360" class="LineNr">17360 </span> 56/push-esi -<span id="L17361" class="LineNr">17361 </span> 57/push-edi -<span id="L17362" class="LineNr">17362 </span> <span class="subxComment"># edi = stmt</span> -<span id="L17363" class="LineNr">17363 </span> 8b/-> *(ebp+8) 7/r32/edi -<span id="L17364" class="LineNr">17364 </span> <span class="subxComment"># var name/ecx: slice</span> -<span id="L17365" class="LineNr">17365 </span> 68/push 0/imm32/end -<span id="L17366" class="LineNr">17366 </span> 68/push 0/imm32/start -<span id="L17367" class="LineNr">17367 </span> 89/<- %ecx 4/r32/esp -<span id="L17368" class="LineNr">17368 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> -<span id="L17369" class="LineNr">17369 </span> ba/copy-to-edx 0/imm32/false -<span id="L17370" class="LineNr">17370 </span> <span class="subxComment"># var v/esi: (handle var)</span> -<span id="L17371" class="LineNr">17371 </span> 68/push 0/imm32 -<span id="L17372" class="LineNr">17372 </span> 68/push 0/imm32 -<span id="L17373" class="LineNr">17373 </span> 89/<- %esi 4/r32/esp -<span id="L17374" class="LineNr">17374 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-operation</span>: -<span id="L17375" class="LineNr">17375 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L17376" class="LineNr">17376 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation or Regvardef-operationStmt1-operation or Regvardef-operation</span> -<span id="L17377" class="LineNr">17377 </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="L17378" class="LineNr">17378 </span> <span class="subxComment"># var is-get?/ebx: boolean = (name == "get")</span> -<span id="L17379" class="LineNr">17379 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L17380" class="LineNr">17380 </span> 89/<- %ebx 0/r32/eax -<span id="L17381" class="LineNr">17381 </span> { -<span id="L17382" class="LineNr">17382 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-inouts</span>: -<span id="L17383" class="LineNr">17383 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L17384" class="LineNr">17384 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L17385" class="LineNr">17385 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L17386" class="LineNr">17386 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L17387" class="LineNr">17387 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17388" class="LineNr">17388 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L17389" class="LineNr">17389 </span> <span class="subxComment"># if (name == "<-") abort</span> -<span id="L17390" class="LineNr">17390 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) -<span id="L17391" class="LineNr">17391 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17392" class="LineNr">17392 </span> 0f 85/jump-if-!= $add-operation-and-inputs-to-stmt:abort/disp32 -<span id="L17393" class="LineNr">17393 </span> <span class="subxComment"># if (is-get? && second operand) lookup or create offset</span> -<span id="L17394" class="LineNr">17394 </span> { -<span id="L17395" class="LineNr">17395 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L17396" class="LineNr">17396 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17397" class="LineNr">17397 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L17398" class="LineNr">17398 </span> 3d/compare-eax-and 0/imm32 -<span id="L17399" class="LineNr">17399 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17400" class="LineNr">17400 </span> (<a href='mu.subx.html#L18635'>lookup-or-create-constant</a> %eax %ecx %esi) -<span id="L17401" class="LineNr">17401 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> -<span id="L17402" class="LineNr">17402 </span><span class="CommentedCode">#? (write-buffered Stderr "creating new output var ")</span> -<span id="L17403" class="LineNr">17403 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L17404" class="LineNr">17404 </span><span class="CommentedCode">#? (write-buffered Stderr " for field called ")</span> -<span id="L17405" class="LineNr">17405 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> -<span id="L17406" class="LineNr">17406 </span><span class="CommentedCode">#? (write-buffered Stderr "; var name ")</span> -<span id="L17407" class="LineNr">17407 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> -<span id="L17408" class="LineNr">17408 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L17409" class="LineNr">17409 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L17410" class="LineNr">17410 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L17411" class="LineNr">17411 </span> e9/jump $add-operation-and-inputs-to-stmt:save-var/disp32 -<span id="L17412" class="LineNr">17412 </span> } -<span id="L17413" class="LineNr">17413 </span> <span class="subxComment"># is-deref? = false</span> -<span id="L17414" class="LineNr">17414 </span> ba/copy-to-edx 0/imm32/false -<span id="L17415" class="LineNr">17415 </span> <span class="subxComment"># if (slice-starts-with?(name, '*')) ++name->start and set is-deref?</span> -<span id="L17416" class="LineNr">17416 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> -<span id="L17417" class="LineNr">17417 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L17418" class="LineNr">17418 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L17419" class="LineNr">17419 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L17420" class="LineNr">17420 </span> { -<span id="L17421" class="LineNr">17421 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17422" class="LineNr">17422 </span><span class="Constant">$add-operation-and-inputs-to-stmt:inout-is-deref</span>: -<span id="L17423" class="LineNr">17423 </span> ff 0/subop/increment *ecx -<span id="L17424" class="LineNr">17424 </span> ba/copy-to-edx 1/imm32/true -<span id="L17425" class="LineNr">17425 </span> } -<span id="L17426" class="LineNr">17426 </span> (<a href='mu.subx.html#L17556'>lookup-var-or-literal</a> %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L17427" class="LineNr">17427 </span> <span class="subxComment"># if (is-deref?) some additional checks</span> -<span id="L17428" class="LineNr">17428 </span> 81 7/subop/compare %edx 0/imm32/false -<span id="L17429" class="LineNr">17429 </span> { -<span id="L17430" class="LineNr">17430 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17431" class="LineNr">17431 </span> <span class="subxComment"># if var is not in register, abort</span> -<span id="L17432" class="LineNr">17432 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L17433" class="LineNr">17433 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L17434" class="LineNr">17434 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-on-stack/disp32 -<span id="L17435" class="LineNr">17435 </span> <span class="subxComment"># if var is not an address, abort</span> -<span id="L17436" class="LineNr">17436 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17437" class="LineNr">17437 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L17438" class="LineNr">17438 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17439" class="LineNr">17439 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-non-addr/disp32 -<span id="L17440" class="LineNr">17440 </span> } -<span id="L17441" class="LineNr">17441 </span><span class="Constant">$add-operation-and-inputs-to-stmt:save-var</span>: -<span id="L17442" class="LineNr">17442 </span> 8d/copy-address *(edi+0xc) 0/r32/eax -<span id="L17443" class="LineNr">17443 </span> (<a href='mu.subx.html#L18550'>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="L17444" class="LineNr">17444 </span> <span class="subxComment">#</span> -<span id="L17445" class="LineNr">17445 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L17446" class="LineNr">17446 </span> } -<span id="L17447" class="LineNr">17447 </span><span class="Constant">$add-operation-and-inputs-to-stmt:end</span>: -<span id="L17448" class="LineNr">17448 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17449" class="LineNr">17449 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L17450" class="LineNr">17450 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17451" class="LineNr">17451 </span> 5f/pop-to-edi -<span id="L17452" class="LineNr">17452 </span> 5e/pop-to-esi -<span id="L17453" class="LineNr">17453 </span> 5b/pop-to-ebx -<span id="L17454" class="LineNr">17454 </span> 5a/pop-to-edx -<span id="L17455" class="LineNr">17455 </span> 59/pop-to-ecx -<span id="L17456" class="LineNr">17456 </span> 58/pop-to-eax -<span id="L17457" class="LineNr">17457 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17458" class="LineNr">17458 </span> 89/<- %esp 5/r32/ebp -<span id="L17459" class="LineNr">17459 </span> 5d/pop-to-ebp -<span id="L17460" class="LineNr">17460 </span> c3/return -<span id="L17461" class="LineNr">17461 </span> -<span id="L17462" class="LineNr">17462 </span><span class="Constant">$add-operation-and-inputs-to-stmt:abort</span>: -<span id="L17463" class="LineNr">17463 </span> <span class="subxComment"># error("fn ___: invalid identifier in '" line "'\n")</span> -<span id="L17464" class="LineNr">17464 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17465" class="LineNr">17465 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L17466" class="LineNr">17466 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L17467" class="LineNr">17467 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17468" class="LineNr">17468 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L17469" class="LineNr">17469 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier in '"</span>) -<span id="L17470" class="LineNr">17470 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L17471" class="LineNr">17471 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L17472" class="LineNr">17472 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17473" class="LineNr">17473 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17474" class="LineNr">17474 </span> <span class="subxComment"># never gets here</span> -<span id="L17475" class="LineNr">17475 </span> -<span id="L17476" class="LineNr">17476 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-on-stack</span>: -<span id="L17477" class="LineNr">17477 </span> <span class="subxComment"># error("fn ___: cannot dereference var ___ on stack\n")</span> -<span id="L17478" class="LineNr">17478 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17479" class="LineNr">17479 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L17480" class="LineNr">17480 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L17481" class="LineNr">17481 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17482" class="LineNr">17482 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L17483" class="LineNr">17483 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference var '"</span>) -<span id="L17484" class="LineNr">17484 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L17485" class="LineNr">17485 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17486" class="LineNr">17486 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17487" class="LineNr">17487 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' on stack\n"</span>) -<span id="L17488" class="LineNr">17488 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17489" class="LineNr">17489 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17490" class="LineNr">17490 </span> <span class="subxComment"># never gets here</span> -<span id="L17491" class="LineNr">17491 </span> -<span id="L17492" class="LineNr">17492 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-non-addr</span>: -<span id="L17493" class="LineNr">17493 </span> <span class="subxComment"># error("fn ___: cannot dereference non-addr var ___\n")</span> -<span id="L17494" class="LineNr">17494 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17495" class="LineNr">17495 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L17496" class="LineNr">17496 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L17497" class="LineNr">17497 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17498" class="LineNr">17498 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L17499" class="LineNr">17499 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference non-addr var '"</span>) -<span id="L17500" class="LineNr">17500 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L17501" class="LineNr">17501 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17502" class="LineNr">17502 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17503" class="LineNr">17503 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L17504" class="LineNr">17504 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17505" class="LineNr">17505 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17506" class="LineNr">17506 </span> <span class="subxComment"># never gets here</span> -<span id="L17507" class="LineNr">17507 </span> -<span id="L17508" class="LineNr">17508 </span><span class="subxFunction">stmt-has-outputs?</span>: <span class="subxComment"># line: (addr stream byte) -> result/eax: boolean</span> -<span id="L17509" class="LineNr">17509 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17510" class="LineNr">17510 </span> 55/push-ebp -<span id="L17511" class="LineNr">17511 </span> 89/<- %ebp 4/r32/esp -<span id="L17512" class="LineNr">17512 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17513" class="LineNr">17513 </span> 51/push-ecx -<span id="L17514" class="LineNr">17514 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L17515" class="LineNr">17515 </span> 68/push 0/imm32/end -<span id="L17516" class="LineNr">17516 </span> 68/push 0/imm32/start -<span id="L17517" class="LineNr">17517 </span> 89/<- %ecx 4/r32/esp -<span id="L17518" class="LineNr">17518 </span> <span class="subxComment"># result = false</span> -<span id="L17519" class="LineNr">17519 </span> b8/copy-to-eax 0/imm32/false -<span id="L17520" class="LineNr">17520 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L17521" class="LineNr">17521 </span> { -<span id="L17522" class="LineNr">17522 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L17523" class="LineNr">17523 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L17524" class="LineNr">17524 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) -<span id="L17525" class="LineNr">17525 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17526" class="LineNr">17526 </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="L17527" class="LineNr">17527 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L17528" class="LineNr">17528 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '#') break</span> -<span id="L17529" class="LineNr">17529 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L17530" class="LineNr">17530 </span> 8b/-> *ecx 0/r32/eax -<span id="L17531" class="LineNr">17531 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L17532" class="LineNr">17532 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L17533" class="LineNr">17533 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> -<span id="L17534" class="LineNr">17534 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L17535" class="LineNr">17535 </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="L17536" class="LineNr">17536 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17537" class="LineNr">17537 </span> <span class="subxComment"># if slice-equal?(word-slice, '<-') return true</span> -<span id="L17538" class="LineNr">17538 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) -<span id="L17539" class="LineNr">17539 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17540" class="LineNr">17540 </span> 74/jump-if-= <span class="Constant">loop</span>/disp8 -<span id="L17541" class="LineNr">17541 </span> b8/copy-to-eax 1/imm32/true -<span id="L17542" class="LineNr">17542 </span> } -<span id="L17543" class="LineNr">17543 </span><span class="Constant">$stmt-has-outputs:end</span>: -<span id="L17544" class="LineNr">17544 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L17545" class="LineNr">17545 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17546" class="LineNr">17546 </span> 81 0/subop/add %esp 8/imm32 -<span id="L17547" class="LineNr">17547 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17548" class="LineNr">17548 </span> 59/pop-to-ecx -<span id="L17549" class="LineNr">17549 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17550" class="LineNr">17550 </span> 89/<- %esp 5/r32/ebp -<span id="L17551" class="LineNr">17551 </span> 5d/pop-to-ebp -<span id="L17552" class="LineNr">17552 </span> c3/return -<span id="L17553" class="LineNr">17553 </span> -<span id="L17554" class="LineNr">17554 </span><span class="subxComment"># if 'name' starts with a digit, create a new literal var for it</span> -<span id="L17555" class="LineNr">17555 </span><span class="subxComment"># otherwise return first 'name' from the top (back) of 'vars' and abort if not found</span> -<span id="L17556" class="LineNr">17556 </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="L17557" class="LineNr">17557 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17558" class="LineNr">17558 </span> 55/push-ebp -<span id="L17559" class="LineNr">17559 </span> 89/<- %ebp 4/r32/esp -<span id="L17560" class="LineNr">17560 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17561" class="LineNr">17561 </span> 50/push-eax -<span id="L17562" class="LineNr">17562 </span> 51/push-ecx -<span id="L17563" class="LineNr">17563 </span> 56/push-esi -<span id="L17564" class="LineNr">17564 </span> <span class="subxComment"># esi = name</span> -<span id="L17565" class="LineNr">17565 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L17566" class="LineNr">17566 </span> <span class="subxComment"># if slice-empty?(name) abort</span> -<span id="L17567" class="LineNr">17567 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %esi) <span class="subxComment"># => eax</span> -<span id="L17568" class="LineNr">17568 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17569" class="LineNr">17569 </span> 0f 85/jump-if-!= $lookup-var-or-literal:abort/disp32 -<span id="L17570" class="LineNr">17570 </span> <span class="subxComment"># var c/ecx: byte = *name->start</span> -<span id="L17571" class="LineNr">17571 </span> 8b/-> *esi 1/r32/ecx -<span id="L17572" class="LineNr">17572 </span> 8a/copy-byte *ecx 1/r32/CL -<span id="L17573" class="LineNr">17573 </span> 81 4/subop/and %ecx 0xff/imm32 -<span id="L17574" class="LineNr">17574 </span> <span class="subxComment"># if (is-decimal-digit?(c) || c == '-') return new var(name)</span> -<span id="L17575" class="LineNr">17575 </span> { -<span id="L17576" class="LineNr">17576 </span> 81 7/subop/compare %ecx 0x2d/imm32/dash -<span id="L17577" class="LineNr">17577 </span> 74/jump-if-= $lookup-var-or-literal:literal/disp8 -<span id="L17578" class="LineNr">17578 </span> (<a href='../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L17579" class="LineNr">17579 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17580" class="LineNr">17580 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17581" class="LineNr">17581 </span><span class="Constant">$lookup-var-or-literal:literal</span>: -<span id="L17582" class="LineNr">17582 </span> (<a href='mu.subx.html#L18225'>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="L17583" class="LineNr">17583 </span> eb/jump $lookup-var-or-literal:end/disp8 -<span id="L17584" class="LineNr">17584 </span> } -<span id="L17585" class="LineNr">17585 </span> <span class="subxComment"># else if (c == '"') return new var(name)</span> -<span id="L17586" class="LineNr">17586 </span> { -<span id="L17587" class="LineNr">17587 </span> 81 7/subop/compare %ecx 0x22/imm32/dquote -<span id="L17588" class="LineNr">17588 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17589" class="LineNr">17589 </span><span class="Constant">$lookup-var-or-literal:literal-string</span>: -<span id="L17590" class="LineNr">17590 </span> (<a href='mu.subx.html#L18374'>new-literal-string</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %esi *(ebp+0x10)) -<span id="L17591" class="LineNr">17591 </span> eb/jump $lookup-var-or-literal:end/disp8 -<span id="L17592" class="LineNr">17592 </span> } -<span id="L17593" class="LineNr">17593 </span> <span class="subxComment"># otherwise return lookup-var(name, vars)</span> -<span id="L17594" class="LineNr">17594 </span> { -<span id="L17595" class="LineNr">17595 </span><span class="Constant">$lookup-var-or-literal:var</span>: -<span id="L17596" class="LineNr">17596 </span> (<a href='mu.subx.html#L17619'>lookup-var</a> %esi *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L17597" class="LineNr">17597 </span> } -<span id="L17598" class="LineNr">17598 </span><span class="Constant">$lookup-var-or-literal:end</span>: -<span id="L17599" class="LineNr">17599 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17600" class="LineNr">17600 </span> 5e/pop-to-esi -<span id="L17601" class="LineNr">17601 </span> 59/pop-to-ecx -<span id="L17602" class="LineNr">17602 </span> 58/pop-to-eax -<span id="L17603" class="LineNr">17603 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17604" class="LineNr">17604 </span> 89/<- %esp 5/r32/ebp -<span id="L17605" class="LineNr">17605 </span> 5d/pop-to-ebp -<span id="L17606" class="LineNr">17606 </span> c3/return -<span id="L17607" class="LineNr">17607 </span> -<span id="L17608" class="LineNr">17608 </span><span class="Constant">$lookup-var-or-literal:abort</span>: -<span id="L17609" class="LineNr">17609 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17610" class="LineNr">17610 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L17611" class="LineNr">17611 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L17612" class="LineNr">17612 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17613" class="LineNr">17613 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": empty variable!"</span>) -<span id="L17614" class="LineNr">17614 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17615" class="LineNr">17615 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17616" class="LineNr">17616 </span> <span class="subxComment"># never gets here</span> -<span id="L17617" class="LineNr">17617 </span> -<span id="L17618" class="LineNr">17618 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars' and abort if not found</span> -<span id="L17619" class="LineNr">17619 </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="L17620" class="LineNr">17620 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17621" class="LineNr">17621 </span> 55/push-ebp -<span id="L17622" class="LineNr">17622 </span> 89/<- %ebp 4/r32/esp -<span id="L17623" class="LineNr">17623 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17624" class="LineNr">17624 </span> 50/push-eax -<span id="L17625" class="LineNr">17625 </span> <span class="subxComment">#</span> -<span id="L17626" class="LineNr">17626 </span> (<a href='mu.subx.html#L17653'>lookup-var-helper</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L17627" class="LineNr">17627 </span> <span class="subxComment"># if (*out == 0) abort</span> -<span id="L17628" class="LineNr">17628 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L17629" class="LineNr">17629 </span> 81 7/subop/compare *eax 0/imm32 -<span id="L17630" class="LineNr">17630 </span> 74/jump-if-= $lookup-var:abort/disp8 -<span id="L17631" class="LineNr">17631 </span><span class="Constant">$lookup-var:end</span>: -<span id="L17632" class="LineNr">17632 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17633" class="LineNr">17633 </span> 58/pop-to-eax -<span id="L17634" class="LineNr">17634 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17635" class="LineNr">17635 </span> 89/<- %esp 5/r32/ebp -<span id="L17636" class="LineNr">17636 </span> 5d/pop-to-ebp -<span id="L17637" class="LineNr">17637 </span> c3/return -<span id="L17638" class="LineNr">17638 </span> -<span id="L17639" class="LineNr">17639 </span><span class="Constant">$lookup-var:abort</span>: -<span id="L17640" class="LineNr">17640 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17641" class="LineNr">17641 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L17642" class="LineNr">17642 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L17643" class="LineNr">17643 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17644" class="LineNr">17644 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": unknown variable '"</span>) -<span id="L17645" class="LineNr">17645 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L17646" class="LineNr">17646 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L17647" class="LineNr">17647 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17648" class="LineNr">17648 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17649" class="LineNr">17649 </span> <span class="subxComment"># never gets here</span> -<span id="L17650" class="LineNr">17650 </span> -<span id="L17651" class="LineNr">17651 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars', and 0/null if not found</span> -<span id="L17652" class="LineNr">17652 </span><span class="subxComment"># ensure that 'name' if in a register is the topmost variable in that register</span> -<span id="L17653" class="LineNr">17653 </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="L17654" class="LineNr">17654 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17655" class="LineNr">17655 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L17656" class="LineNr">17656 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L17657" class="LineNr">17657 </span> <span class="subxComment"># while curr >= min</span> -<span id="L17658" class="LineNr">17658 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L17659" class="LineNr">17659 </span> <span class="subxComment"># if v->name == name</span> -<span id="L17660" class="LineNr">17660 </span> <span class="subxComment"># return</span> -<span id="L17661" class="LineNr">17661 </span> <span class="subxComment"># curr -= 12</span> -<span id="L17662" class="LineNr">17662 </span> <span class="subxComment">#</span> -<span id="L17663" class="LineNr">17663 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17664" class="LineNr">17664 </span> 55/push-ebp -<span id="L17665" class="LineNr">17665 </span> 89/<- %ebp 4/r32/esp -<span id="L17666" class="LineNr">17666 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17667" class="LineNr">17667 </span> 50/push-eax -<span id="L17668" class="LineNr">17668 </span> 51/push-ecx -<span id="L17669" class="LineNr">17669 </span> 52/push-edx -<span id="L17670" class="LineNr">17670 </span> 53/push-ebx -<span id="L17671" class="LineNr">17671 </span> 56/push-esi -<span id="L17672" class="LineNr">17672 </span> 57/push-edi -<span id="L17673" class="LineNr">17673 </span> <span class="subxComment"># clear out</span> -<span id="L17674" class="LineNr">17674 </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="L17675" class="LineNr">17675 </span> <span class="subxComment"># esi = vars</span> -<span id="L17676" class="LineNr">17676 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L17677" class="LineNr">17677 </span> <span class="subxComment"># ebx = vars->top</span> -<span id="L17678" class="LineNr">17678 </span> 8b/-> *esi 3/r32/ebx -<span id="L17679" class="LineNr">17679 </span> <span class="subxComment"># if (vars->top > vars->size) abort</span> -<span id="L17680" class="LineNr">17680 </span> 3b/compare<- *(esi+4) 0/r32/eax -<span id="L17681" class="LineNr">17681 </span> 0f 8f/jump-if-> $lookup-var-helper:error1/disp32 -<span id="L17682" class="LineNr">17682 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L17683" class="LineNr">17683 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L17684" class="LineNr">17684 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L17685" class="LineNr">17685 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L17686" class="LineNr">17686 </span> <span class="subxComment"># var var-in-reg/edi: 16 addrs</span> -<span id="L17687" class="LineNr">17687 </span> 68/push 0/imm32 -<span id="L17688" class="LineNr">17688 </span> 68/push 0/imm32 -<span id="L17689" class="LineNr">17689 </span> 68/push 0/imm32 -<span id="L17690" class="LineNr">17690 </span> 68/push 0/imm32 +<span id="L15726" class="LineNr">15726 </span> <span class="subxComment"># setup</span> +<span id="L15727" class="LineNr">15727 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L15728" class="LineNr">15728 </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="L15729" class="LineNr">15729 </span> c7 0/subop/copy *_Program-functions 0/imm32 +<span id="L15730" class="LineNr">15730 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 +<span id="L15731" class="LineNr">15731 </span> c7 0/subop/copy *_Program-types 0/imm32 +<span id="L15732" class="LineNr">15732 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 +<span id="L15733" class="LineNr">15733 </span> c7 0/subop/copy *_Program-signatures 0/imm32 +<span id="L15734" class="LineNr">15734 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 +<span id="L15735" class="LineNr">15735 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15736" class="LineNr">15736 </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="L15737" class="LineNr">15737 </span> <span class="subxComment"># result/ecx: function</span> +<span id="L15738" class="LineNr">15738 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp +<span id="L15739" class="LineNr">15739 </span> 89/<- %ecx 4/r32/esp +<span id="L15740" class="LineNr">15740 </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="L15741" class="LineNr">15741 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L15742" class="LineNr">15742 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L15743" class="LineNr">15743 </span> 68/push 0xc0/imm32/size +<span id="L15744" class="LineNr">15744 </span> 68/push 0/imm32/top +<span id="L15745" class="LineNr">15745 </span> 89/<- %ebx 4/r32/esp +<span id="L15746" class="LineNr">15746 </span> <span class="subxComment"># convert</span> +<span id="L15747" class="LineNr">15747 </span> (<a href='mu.subx.html#L14865'>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="L15748" class="LineNr">15748 </span> <span class="subxComment"># check result->name</span> +<span id="L15749" class="LineNr">15749 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L15750" class="LineNr">15750 </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#L15722'>test-function-header-with-multiple-args-and-outputs</a>/name"</span>) +<span id="L15751" class="LineNr">15751 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> +<span id="L15752" class="LineNr">15752 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L15753" class="LineNr">15753 </span> 89/<- %edx 0/r32/eax +<span id="L15754" class="LineNr">15754 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout0</span>: +<span id="L15755" class="LineNr">15755 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> +<span id="L15756" class="LineNr">15756 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L15757" class="LineNr">15757 </span> 89/<- %ebx 0/r32/eax +<span id="L15758" class="LineNr">15758 </span> <span class="subxComment"># check v->name</span> +<span id="L15759" class="LineNr">15759 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15760" class="LineNr">15760 </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#L15722'>test-function-header-with-multiple-args-and-outputs</a>/inout:0"</span>) +<span id="L15761" class="LineNr">15761 </span> <span class="subxComment"># check v->type</span> +<span id="L15762" class="LineNr">15762 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15763" class="LineNr">15763 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15764" class="LineNr">15764 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L15765" class="LineNr">15765 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L15766" class="LineNr">15766 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout1</span>: +<span id="L15767" class="LineNr">15767 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L15768" class="LineNr">15768 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L15769" class="LineNr">15769 </span> 89/<- %edx 0/r32/eax +<span id="L15770" class="LineNr">15770 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L15771" class="LineNr">15771 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L15772" class="LineNr">15772 </span> 89/<- %ebx 0/r32/eax +<span id="L15773" class="LineNr">15773 </span> <span class="subxComment"># check v->name</span> +<span id="L15774" class="LineNr">15774 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15775" class="LineNr">15775 </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#L15722'>test-function-header-with-multiple-args-and-outputs</a>/inout:1"</span>) +<span id="L15776" class="LineNr">15776 </span> <span class="subxComment"># check v->type</span> +<span id="L15777" class="LineNr">15777 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15778" class="LineNr">15778 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15779" class="LineNr">15779 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L15780" class="LineNr">15780 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L15781" class="LineNr">15781 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout2</span>: +<span id="L15782" class="LineNr">15782 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L15783" class="LineNr">15783 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L15784" class="LineNr">15784 </span> 89/<- %edx 0/r32/eax +<span id="L15785" class="LineNr">15785 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L15786" class="LineNr">15786 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L15787" class="LineNr">15787 </span> 89/<- %ebx 0/r32/eax +<span id="L15788" class="LineNr">15788 </span> <span class="subxComment"># check v->name</span> +<span id="L15789" class="LineNr">15789 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15790" class="LineNr">15790 </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#L15722'>test-function-header-with-multiple-args-and-outputs</a>/inout:2"</span>) +<span id="L15791" class="LineNr">15791 </span> <span class="subxComment"># check v->type</span> +<span id="L15792" class="LineNr">15792 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15793" class="LineNr">15793 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15794" class="LineNr">15794 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L15795" class="LineNr">15795 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L15796" class="LineNr">15796 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out0</span>: +<span id="L15797" class="LineNr">15797 </span> <span class="subxComment"># var outputs/edx: (addr list var) = lookup(result->outputs)</span> +<span id="L15798" class="LineNr">15798 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L15799" class="LineNr">15799 </span> 89/<- %edx 0/r32/eax +<span id="L15800" class="LineNr">15800 </span> <span class="subxComment"># v = lookup(outputs->value)</span> +<span id="L15801" class="LineNr">15801 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L15802" class="LineNr">15802 </span> 89/<- %ebx 0/r32/eax +<span id="L15803" class="LineNr">15803 </span> <span class="subxComment"># check v->name</span> +<span id="L15804" class="LineNr">15804 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15805" class="LineNr">15805 </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#L15722'>test-function-header-with-multiple-args-and-outputs</a>/output:0"</span>) +<span id="L15806" class="LineNr">15806 </span> <span class="subxComment"># check v->register</span> +<span id="L15807" class="LineNr">15807 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L15808" class="LineNr">15808 </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#L15722'>test-function-header-with-multiple-args-and-outputs</a>/output:0/register"</span>) +<span id="L15809" class="LineNr">15809 </span> <span class="subxComment"># check v->type</span> +<span id="L15810" class="LineNr">15810 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15811" class="LineNr">15811 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15812" class="LineNr">15812 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L15813" class="LineNr">15813 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L15814" class="LineNr">15814 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out1</span>: +<span id="L15815" class="LineNr">15815 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> +<span id="L15816" class="LineNr">15816 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L15817" class="LineNr">15817 </span> 89/<- %edx 0/r32/eax +<span id="L15818" class="LineNr">15818 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L15819" class="LineNr">15819 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L15820" class="LineNr">15820 </span> 89/<- %ebx 0/r32/eax +<span id="L15821" class="LineNr">15821 </span> <span class="subxComment"># check v->name</span> +<span id="L15822" class="LineNr">15822 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15823" class="LineNr">15823 </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#L15722'>test-function-header-with-multiple-args-and-outputs</a>/output:1"</span>) +<span id="L15824" class="LineNr">15824 </span> <span class="subxComment"># check v->register</span> +<span id="L15825" class="LineNr">15825 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L15826" class="LineNr">15826 </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#L15722'>test-function-header-with-multiple-args-and-outputs</a>/output:1/register"</span>) +<span id="L15827" class="LineNr">15827 </span> <span class="subxComment"># check v->type</span> +<span id="L15828" class="LineNr">15828 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15829" class="LineNr">15829 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L15830" class="LineNr">15830 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L15831" class="LineNr">15831 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0c) 0 <span class="Constant">"F - <a href='mu.subx.html#L15722'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L15832" class="LineNr">15832 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15833" class="LineNr">15833 </span> 89/<- %esp 5/r32/ebp +<span id="L15834" class="LineNr">15834 </span> 5d/pop-to-ebp +<span id="L15835" class="LineNr">15835 </span> c3/return +<span id="L15836" class="LineNr">15836 </span> +<span id="L15837" class="LineNr">15837 </span><span class="subxComment"># format for variables with types</span> +<span id="L15838" class="LineNr">15838 </span><span class="subxComment"># x: int</span> +<span id="L15839" class="LineNr">15839 </span><span class="subxComment"># x: int,</span> +<span id="L15840" class="LineNr">15840 </span><span class="subxComment"># x/eax: int</span> +<span id="L15841" class="LineNr">15841 </span><span class="subxComment"># x/eax: int,</span> +<span id="L15842" class="LineNr">15842 </span><span class="subxComment"># ignores at most one trailing comma</span> +<span id="L15843" class="LineNr">15843 </span><span class="subxComment"># WARNING: modifies name</span> +<span id="L15844" class="LineNr">15844 </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="L15845" class="LineNr">15845 </span> <span class="subxComment"># pseudocode:</span> +<span id="L15846" class="LineNr">15846 </span> <span class="subxComment"># var s: slice</span> +<span id="L15847" class="LineNr">15847 </span> <span class="subxComment"># if (!slice-ends-with(name, ":"))</span> +<span id="L15848" class="LineNr">15848 </span> <span class="subxComment"># abort</span> +<span id="L15849" class="LineNr">15849 </span> <span class="subxComment"># --name->end to skip ':'</span> +<span id="L15850" class="LineNr">15850 </span> <span class="subxComment"># next-token-from-slice(name->start, name->end, '/', s)</span> +<span id="L15851" class="LineNr">15851 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> +<span id="L15852" class="LineNr">15852 </span> <span class="subxComment"># ## register</span> +<span id="L15853" class="LineNr">15853 </span> <span class="subxComment"># next-token-from-slice(s->end, name->end, '/', s)</span> +<span id="L15854" class="LineNr">15854 </span> <span class="subxComment"># if (!slice-empty?(s))</span> +<span id="L15855" class="LineNr">15855 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> +<span id="L15856" class="LineNr">15856 </span> <span class="subxComment"># ## type</span> +<span id="L15857" class="LineNr">15857 </span> <span class="subxComment"># var type: (handle type-tree) = parse-type(first-line)</span> +<span id="L15858" class="LineNr">15858 </span> <span class="subxComment"># out->type = type</span> +<span id="L15859" class="LineNr">15859 </span> <span class="subxComment">#</span> +<span id="L15860" class="LineNr">15860 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15861" class="LineNr">15861 </span> 55/push-ebp +<span id="L15862" class="LineNr">15862 </span> 89/<- %ebp 4/r32/esp +<span id="L15863" class="LineNr">15863 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15864" class="LineNr">15864 </span> 50/push-eax +<span id="L15865" class="LineNr">15865 </span> 51/push-ecx +<span id="L15866" class="LineNr">15866 </span> 52/push-edx +<span id="L15867" class="LineNr">15867 </span> 53/push-ebx +<span id="L15868" class="LineNr">15868 </span> 56/push-esi +<span id="L15869" class="LineNr">15869 </span> 57/push-edi +<span id="L15870" class="LineNr">15870 </span> <span class="subxComment"># esi = name</span> +<span id="L15871" class="LineNr">15871 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L15872" class="LineNr">15872 </span> <span class="subxComment"># if (!slice-ends-with?(name, ":")) abort</span> +<span id="L15873" class="LineNr">15873 </span> 8b/-> *(esi+4) 1/r32/ecx <span class="subxComment"># Slice-end</span> +<span id="L15874" class="LineNr">15874 </span> 49/decrement-ecx +<span id="L15875" class="LineNr">15875 </span> 8a/copy-byte *ecx 1/r32/CL +<span id="L15876" class="LineNr">15876 </span> 81 4/subop/and %ecx 0xff/imm32 +<span id="L15877" class="LineNr">15877 </span> 81 7/subop/compare %ecx 0x3a/imm32/colon +<span id="L15878" class="LineNr">15878 </span> 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 +<span id="L15879" class="LineNr">15879 </span> <span class="subxComment"># --name->end to skip ':'</span> +<span id="L15880" class="LineNr">15880 </span> ff 1/subop/decrement *(esi+4) +<span id="L15881" class="LineNr">15881 </span> <span class="subxComment"># var s/ecx: slice</span> +<span id="L15882" class="LineNr">15882 </span> 68/push 0/imm32/end +<span id="L15883" class="LineNr">15883 </span> 68/push 0/imm32/start +<span id="L15884" class="LineNr">15884 </span> 89/<- %ecx 4/r32/esp +<span id="L15885" class="LineNr">15885 </span><span class="Constant">$parse-var-with-type:parse-name</span>: +<span id="L15886" class="LineNr">15886 </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="L15887" class="LineNr">15887 </span><span class="Constant">$parse-var-with-type:create-var</span>: +<span id="L15888" class="LineNr">15888 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> +<span id="L15889" class="LineNr">15889 </span> (<a href='mu.subx.html#L18848'>new-var-from-slice</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0x10)) +<span id="L15890" class="LineNr">15890 </span> <span class="subxComment"># save out->register</span> +<span id="L15891" class="LineNr">15891 </span><span class="Constant">$parse-var-with-type:save-register</span>: +<span id="L15892" class="LineNr">15892 </span> <span class="subxS1Comment"># . var out-addr/edi: (addr var) = lookup(*out)</span> +<span id="L15893" class="LineNr">15893 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L15894" class="LineNr">15894 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L15895" class="LineNr">15895 </span> 89/<- %edi 0/r32/eax +<span id="L15896" class="LineNr">15896 </span> <span class="subxS1Comment"># . s = next-token(...)</span> +<span id="L15897" class="LineNr">15897 </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="L15898" class="LineNr">15898 </span> <span class="subxS1Comment"># . if (!slice-empty?(s)) out->register = slice-to-string(s)</span> +<span id="L15899" class="LineNr">15899 </span> { +<span id="L15900" class="LineNr">15900 </span><span class="Constant">$parse-var-with-type:write-register</span>: +<span id="L15901" class="LineNr">15901 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <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> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L15904" class="LineNr">15904 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> +<span id="L15905" class="LineNr">15905 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Var-register</span> +<span id="L15906" class="LineNr">15906 </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="L15907" class="LineNr">15907 </span> } +<span id="L15908" class="LineNr">15908 </span><span class="Constant">$parse-var-with-type:save-type</span>: +<span id="L15909" class="LineNr">15909 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L15910" class="LineNr">15910 </span> (<a href='mu.subx.html#L15998'>parse-type</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L15911" class="LineNr">15911 </span><span class="Constant">$parse-var-with-type:check-register</span>: +<span id="L15912" class="LineNr">15912 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L15913" class="LineNr">15913 </span> 3d/compare-eax-and 0/imm32 +<span id="L15914" class="LineNr">15914 </span> 74/jump-if-= $parse-var-with-type:end/disp8 +<span id="L15915" class="LineNr">15915 </span> (<a href='mu.subx.html#L15983'>is-float-register?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L15916" class="LineNr">15916 </span> { +<span id="L15917" class="LineNr">15917 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15918" class="LineNr">15918 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L15919" class="LineNr">15919 </span> <span class="subxComment"># var is in a float register; ensure type is float</span> +<span id="L15920" class="LineNr">15920 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15921" class="LineNr">15921 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> +<span id="L15922" class="LineNr">15922 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15923" class="LineNr">15923 </span> 0f 84/jump-if-= $parse-var-with-type:error-non-float-in-floating-point-register/disp32 +<span id="L15924" class="LineNr">15924 </span> eb/jump $parse-var-with-type:end/disp8 +<span id="L15925" class="LineNr">15925 </span> } +<span id="L15926" class="LineNr">15926 </span> <span class="subxComment"># var is not in a float register; ensure type is not float</span> +<span id="L15927" class="LineNr">15927 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L15928" class="LineNr">15928 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => 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-!= $parse-var-with-type:error-float-in-integer-register/disp32 +<span id="L15931" class="LineNr">15931 </span><span class="Constant">$parse-var-with-type:end</span>: +<span id="L15932" class="LineNr">15932 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L15933" class="LineNr">15933 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15934" class="LineNr">15934 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15935" class="LineNr">15935 </span> 5f/pop-to-edi +<span id="L15936" class="LineNr">15936 </span> 5e/pop-to-esi +<span id="L15937" class="LineNr">15937 </span> 5b/pop-to-ebx +<span id="L15938" class="LineNr">15938 </span> 5a/pop-to-edx +<span id="L15939" class="LineNr">15939 </span> 59/pop-to-ecx +<span id="L15940" class="LineNr">15940 </span> 58/pop-to-eax +<span id="L15941" class="LineNr">15941 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15942" class="LineNr">15942 </span> 89/<- %esp 5/r32/ebp +<span id="L15943" class="LineNr">15943 </span> 5d/pop-to-ebp +<span id="L15944" class="LineNr">15944 </span> c3/return +<span id="L15945" class="LineNr">15945 </span> +<span id="L15946" class="LineNr">15946 </span><span class="Constant">$parse-var-with-type:abort</span>: +<span id="L15947" class="LineNr">15947 </span> <span class="subxComment"># error("fn " fn ": var should have form 'name: type' in '" line "'\n")</span> +<span id="L15948" class="LineNr">15948 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L15949" class="LineNr">15949 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) +<span id="L15950" class="LineNr">15950 </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="L15951" class="LineNr">15951 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L15952" class="LineNr">15952 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L15953" class="LineNr">15953 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) +<span id="L15954" class="LineNr">15954 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L15955" class="LineNr">15955 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L15956" class="LineNr">15956 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L15957" class="LineNr">15957 </span> <span class="subxComment"># never gets here</span> +<span id="L15958" class="LineNr">15958 </span> +<span id="L15959" class="LineNr">15959 </span><span class="Constant">$parse-var-with-type:error-float-in-integer-register</span>: +<span id="L15960" class="LineNr">15960 </span> <span class="subxComment"># error("fn " fn ": float var '" var "' should be in a floating-point register\n")</span> +<span id="L15961" class="LineNr">15961 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L15962" class="LineNr">15962 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) +<span id="L15963" class="LineNr">15963 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": float var '"</span>) +<span id="L15964" class="LineNr">15964 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15965" class="LineNr">15965 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L15966" class="LineNr">15966 </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="L15967" class="LineNr">15967 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L15968" class="LineNr">15968 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L15969" class="LineNr">15969 </span> <span class="subxComment"># never gets here</span> +<span id="L15970" class="LineNr">15970 </span> +<span id="L15971" class="LineNr">15971 </span><span class="Constant">$parse-var-with-type:error-non-float-in-floating-point-register</span>: +<span id="L15972" class="LineNr">15972 </span> <span class="subxComment"># error("fn " fn ": non-float var '" var "' should be in an integer register\n")</span> +<span id="L15973" class="LineNr">15973 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L15974" class="LineNr">15974 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) +<span id="L15975" class="LineNr">15975 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": non-float var '"</span>) +<span id="L15976" class="LineNr">15976 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L15977" class="LineNr">15977 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L15978" class="LineNr">15978 </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="L15979" class="LineNr">15979 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L15980" class="LineNr">15980 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L15981" class="LineNr">15981 </span> <span class="subxComment"># never gets here</span> +<span id="L15982" class="LineNr">15982 </span> +<span id="L15983" class="LineNr">15983 </span><span class="subxFunction">is-float-register?</span>: <span class="subxComment"># r: (addr array byte) -> result/eax: boolean</span> +<span id="L15984" class="LineNr">15984 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15985" class="LineNr">15985 </span> 55/push-ebp +<span id="L15986" class="LineNr">15986 </span> 89/<- %ebp 4/r32/esp +<span id="L15987" class="LineNr">15987 </span> <span class="subxComment">#</span> +<span id="L15988" class="LineNr">15988 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L18319'>Mu-registers-unique</a></span> *(ebp+8) 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L15989" class="LineNr">15989 </span> 81 7/subop/compare *eax 8/imm32/start-of-floating-point-registers +<span id="L15990" class="LineNr">15990 </span> 0f 9d/set-if->= %al +<span id="L15991" class="LineNr">15991 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L15992" class="LineNr">15992 </span><span class="Constant">$is-float-register?:end</span>: +<span id="L15993" class="LineNr">15993 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15994" class="LineNr">15994 </span> 89/<- %esp 5/r32/ebp +<span id="L15995" class="LineNr">15995 </span> 5d/pop-to-ebp +<span id="L15996" class="LineNr">15996 </span> c3/return +<span id="L15997" class="LineNr">15997 </span> +<span id="L15998" class="LineNr">15998 </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="L15999" class="LineNr">15999 </span> <span class="subxComment"># pseudocode:</span> +<span id="L16000" class="LineNr">16000 </span> <span class="subxComment"># var s: slice = next-mu-token(in)</span> +<span id="L16001" class="LineNr">16001 </span> <span class="subxComment"># assert s != ""</span> +<span id="L16002" class="LineNr">16002 </span> <span class="subxComment"># assert s != "->"</span> +<span id="L16003" class="LineNr">16003 </span> <span class="subxComment"># assert s != "{"</span> +<span id="L16004" class="LineNr">16004 </span> <span class="subxComment"># assert s != "}"</span> +<span id="L16005" class="LineNr">16005 </span> <span class="subxComment"># if s == ")"</span> +<span id="L16006" class="LineNr">16006 </span> <span class="subxComment"># return</span> +<span id="L16007" class="LineNr">16007 </span> <span class="subxComment"># out = allocate(Type-tree)</span> +<span id="L16008" class="LineNr">16008 </span> <span class="subxComment"># if s != "("</span> +<span id="L16009" class="LineNr">16009 </span> <span class="subxComment"># HACK: if s is an int, parse and return it</span> +<span id="L16010" class="LineNr">16010 </span> <span class="subxComment"># out->is-atom? = true</span> +<span id="L16011" class="LineNr">16011 </span> <span class="subxComment"># if (s[0] == "_")</span> +<span id="L16012" class="LineNr">16012 </span> <span class="subxComment"># out->value = type-parameter</span> +<span id="L16013" class="LineNr">16013 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> +<span id="L16014" class="LineNr">16014 </span> <span class="subxComment"># else</span> +<span id="L16015" class="LineNr">16015 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> +<span id="L16016" class="LineNr">16016 </span> <span class="subxComment"># return</span> +<span id="L16017" class="LineNr">16017 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> +<span id="L16018" class="LineNr">16018 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L16019" class="LineNr">16019 </span> <span class="subxComment">#</span> +<span id="L16020" class="LineNr">16020 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16021" class="LineNr">16021 </span> 55/push-ebp +<span id="L16022" class="LineNr">16022 </span> 89/<- %ebp 4/r32/esp +<span id="L16023" class="LineNr">16023 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16024" class="LineNr">16024 </span> 50/push-eax +<span id="L16025" class="LineNr">16025 </span> 51/push-ecx +<span id="L16026" class="LineNr">16026 </span> 52/push-edx +<span id="L16027" class="LineNr">16027 </span> <span class="subxComment"># clear out</span> +<span id="L16028" class="LineNr">16028 </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="L16029" class="LineNr">16029 </span> <span class="subxComment"># var s/ecx: slice</span> +<span id="L16030" class="LineNr">16030 </span> 68/push 0/imm32 +<span id="L16031" class="LineNr">16031 </span> 68/push 0/imm32 +<span id="L16032" class="LineNr">16032 </span> 89/<- %ecx 4/r32/esp +<span id="L16033" class="LineNr">16033 </span> <span class="subxComment"># s = next-mu-token(in)</span> +<span id="L16034" class="LineNr">16034 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L16035" class="LineNr">16035 </span><span class="CommentedCode">#? (write-buffered Stderr "tok: ")</span> +<span id="L16036" class="LineNr">16036 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> +<span id="L16037" class="LineNr">16037 </span><span class="CommentedCode">#? (write-buffered Stderr "$\n")</span> +<span id="L16038" class="LineNr">16038 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L16039" class="LineNr">16039 </span> <span class="subxComment"># assert s != ""</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-!= $parse-type:abort/disp32 +<span id="L16043" class="LineNr">16043 </span> <span class="subxComment"># assert s != "{"</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-!= $parse-type:abort/disp32 +<span id="L16047" class="LineNr">16047 </span> <span class="subxComment"># assert s != "}"</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-!= $parse-type:abort/disp32 +<span id="L16051" class="LineNr">16051 </span> <span class="subxComment"># assert s != "->"</span> +<span id="L16052" class="LineNr">16052 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16053" class="LineNr">16053 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16054" class="LineNr">16054 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L16055" class="LineNr">16055 </span> <span class="subxComment"># if (s == ")") return</span> +<span id="L16056" class="LineNr">16056 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">")"</span>) <span class="subxComment"># => eax</span> +<span id="L16057" class="LineNr">16057 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16058" class="LineNr">16058 </span> 0f 85/jump-if-!= $parse-type:end/disp32 +<span id="L16059" class="LineNr">16059 </span> <span class="subxComment"># out = new tree</span> +<span id="L16060" class="LineNr">16060 </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="L16061" class="LineNr">16061 </span> <span class="subxComment"># var out-addr/edx: (addr type-tree) = lookup(*out)</span> +<span id="L16062" class="LineNr">16062 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L16063" class="LineNr">16063 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L16064" class="LineNr">16064 </span> 89/<- %edx 0/r32/eax +<span id="L16065" class="LineNr">16065 </span> { +<span id="L16066" class="LineNr">16066 </span> <span class="subxComment"># if (s != "(") break</span> +<span id="L16067" class="LineNr">16067 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"("</span>) <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-!= <span class="Constant">break</span>/disp32 +<span id="L16070" class="LineNr">16070 </span> <span class="subxComment"># if s is a number, store it in the type's size field</span> +<span id="L16071" class="LineNr">16071 </span> { +<span id="L16072" class="LineNr">16072 </span><span class="Constant">$parse-type:check-for-int</span>: +<span id="L16073" class="LineNr">16073 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> +<span id="L16074" class="LineNr">16074 </span> 8b/-> *ecx 0/r32/eax +<span id="L16075" class="LineNr">16075 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L16076" class="LineNr">16076 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L16077" class="LineNr">16077 </span> <span class="subxComment"># TODO: raise an error on `var x: (array int a)`</span> +<span id="L16078" class="LineNr">16078 </span> (<a href='../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16079" class="LineNr">16079 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16080" class="LineNr">16080 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16081" class="LineNr">16081 </span> <span class="subxComment">#</span> +<span id="L16082" class="LineNr">16082 </span> (<a href='../118parse-hex-int.subx.html#L9'>is-hex-int?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16083" class="LineNr">16083 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16084" class="LineNr">16084 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16085" class="LineNr">16085 </span><span class="Constant">$parse-type:int</span>: +<span id="L16086" class="LineNr">16086 </span> (<a href='mu.subx.html#L18710'>check-mu-hex-int</a> %ecx *(ebp+0x14) *(ebp+0x18)) +<span id="L16087" class="LineNr">16087 </span> (<a href='../118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16088" class="LineNr">16088 </span> c7 0/subop/copy *(edx+4) 9/imm32/type-id-array-capacity <span class="subxComment"># Type-tree-value</span> +<span id="L16089" class="LineNr">16089 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-value-size</span> +<span id="L16090" class="LineNr">16090 </span> e9/jump $parse-type:end/disp32 +<span id="L16091" class="LineNr">16091 </span> } +<span id="L16092" class="LineNr">16092 </span><span class="Constant">$parse-type:atom</span>: +<span id="L16093" class="LineNr">16093 </span> <span class="subxComment"># out->is-atom? = true</span> +<span id="L16094" class="LineNr">16094 </span> c7 0/subop/copy *edx 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16095" class="LineNr">16095 </span> { +<span id="L16096" class="LineNr">16096 </span><span class="Constant">$parse-type:check-for-type-parameter</span>: +<span id="L16097" class="LineNr">16097 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> +<span id="L16098" class="LineNr">16098 </span> 8b/-> *ecx 0/r32/eax +<span id="L16099" class="LineNr">16099 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L16100" class="LineNr">16100 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L16101" class="LineNr">16101 </span> <span class="subxComment"># if (tmp != '_') break</span> +<span id="L16102" class="LineNr">16102 </span> 3d/compare-eax-and 0x5f/imm32/_ +<span id="L16103" class="LineNr">16103 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16104" class="LineNr">16104 </span><span class="Constant">$parse-type:type-parameter</span>: +<span id="L16105" class="LineNr">16105 </span> <span class="subxComment"># out->value = type-parameter</span> +<span id="L16106" class="LineNr">16106 </span> c7 0/subop/copy *(edx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L16107" class="LineNr">16107 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> +<span id="L16108" class="LineNr">16108 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-parameter-name</span> +<span id="L16109" class="LineNr">16109 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> *(ebp+8) %ecx %eax) +<span id="L16110" class="LineNr">16110 </span> e9/jump $parse-type:end/disp32 +<span id="L16111" class="LineNr">16111 </span> } +<span id="L16112" class="LineNr">16112 </span><span class="Constant">$parse-type:non-type-parameter</span>: +<span id="L16113" class="LineNr">16113 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> +<span id="L16114" class="LineNr">16114 </span> (<a href='mu.subx.html#L16370'>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="L16115" class="LineNr">16115 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L16116" class="LineNr">16116 </span> e9/jump $parse-type:end/disp32 +<span id="L16117" class="LineNr">16117 </span> } +<span id="L16118" class="LineNr">16118 </span><span class="Constant">$parse-type:non-atom</span>: +<span id="L16119" class="LineNr">16119 </span> <span class="subxComment"># otherwise s == "("</span> +<span id="L16120" class="LineNr">16120 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> +<span id="L16121" class="LineNr">16121 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L16122" class="LineNr">16122 </span> (<a href='mu.subx.html#L15998'>parse-type</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L16123" class="LineNr">16123 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L16124" class="LineNr">16124 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> +<span id="L16125" class="LineNr">16125 </span> (<a href='mu.subx.html#L16147'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L16126" class="LineNr">16126 </span><span class="Constant">$parse-type:end</span>: +<span id="L16127" class="LineNr">16127 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L16128" class="LineNr">16128 </span> 81 0/subop/add %esp 8/imm32 +<span id="L16129" class="LineNr">16129 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16130" class="LineNr">16130 </span> 5a/pop-to-edx +<span id="L16131" class="LineNr">16131 </span> 59/pop-to-ecx +<span id="L16132" class="LineNr">16132 </span> 58/pop-to-eax +<span id="L16133" class="LineNr">16133 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16134" class="LineNr">16134 </span> 89/<- %esp 5/r32/ebp +<span id="L16135" class="LineNr">16135 </span> 5d/pop-to-ebp +<span id="L16136" class="LineNr">16136 </span> c3/return +<span id="L16137" class="LineNr">16137 </span> +<span id="L16138" class="LineNr">16138 </span><span class="Constant">$parse-type:abort</span>: +<span id="L16139" class="LineNr">16139 </span> <span class="subxComment"># error("unexpected token when parsing type: '" s "'\n")</span> +<span id="L16140" class="LineNr">16140 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"unexpected token when parsing type: '"</span>) +<span id="L16141" class="LineNr">16141 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) +<span id="L16142" class="LineNr">16142 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L16143" class="LineNr">16143 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16144" class="LineNr">16144 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16145" class="LineNr">16145 </span> <span class="subxComment"># never gets here</span> +<span id="L16146" class="LineNr">16146 </span> +<span id="L16147" class="LineNr">16147 </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="L16148" class="LineNr">16148 </span> <span class="subxComment"># pseudocode:</span> +<span id="L16149" class="LineNr">16149 </span> <span class="subxComment"># var tmp: (handle type-tree) = parse-type(ad, in)</span> +<span id="L16150" class="LineNr">16150 </span> <span class="subxComment"># if tmp == 0</span> +<span id="L16151" class="LineNr">16151 </span> <span class="subxComment"># return 0</span> +<span id="L16152" class="LineNr">16152 </span> <span class="subxComment"># out = allocate(Type-tree)</span> +<span id="L16153" class="LineNr">16153 </span> <span class="subxComment"># out->left = tmp</span> +<span id="L16154" class="LineNr">16154 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L16155" class="LineNr">16155 </span> <span class="subxComment">#</span> +<span id="L16156" class="LineNr">16156 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16157" class="LineNr">16157 </span> 55/push-ebp +<span id="L16158" class="LineNr">16158 </span> 89/<- %ebp 4/r32/esp +<span id="L16159" class="LineNr">16159 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16160" class="LineNr">16160 </span> 50/push-eax +<span id="L16161" class="LineNr">16161 </span> 51/push-ecx +<span id="L16162" class="LineNr">16162 </span> 52/push-edx +<span id="L16163" class="LineNr">16163 </span> <span class="subxComment">#</span> +<span id="L16164" class="LineNr">16164 </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="L16165" class="LineNr">16165 </span> <span class="subxComment"># var tmp/ecx: (handle type-tree)</span> +<span id="L16166" class="LineNr">16166 </span> 68/push 0/imm32 +<span id="L16167" class="LineNr">16167 </span> 68/push 0/imm32 +<span id="L16168" class="LineNr">16168 </span> 89/<- %ecx 4/r32/esp +<span id="L16169" class="LineNr">16169 </span> <span class="subxComment"># tmp = parse-type(ad, in)</span> +<span id="L16170" class="LineNr">16170 </span> (<a href='mu.subx.html#L15998'>parse-type</a> *(ebp+8) *(ebp+0xc) %ecx *(ebp+0x14) *(ebp+0x18)) +<span id="L16171" class="LineNr">16171 </span> <span class="subxComment"># if (tmp == 0) return</span> +<span id="L16172" class="LineNr">16172 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L16173" class="LineNr">16173 </span> 74/jump-if-= $parse-type-tree:end/disp8 +<span id="L16174" class="LineNr">16174 </span> <span class="subxComment"># out = new tree</span> +<span id="L16175" class="LineNr">16175 </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="L16176" class="LineNr">16176 </span> <span class="subxComment"># var out-addr/edx: (addr tree) = lookup(*out)</span> +<span id="L16177" class="LineNr">16177 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L16178" class="LineNr">16178 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L16179" class="LineNr">16179 </span> 89/<- %edx 0/r32/eax +<span id="L16180" class="LineNr">16180 </span> <span class="subxComment"># out->left = tmp</span> +<span id="L16181" class="LineNr">16181 </span> 8b/-> *ecx 0/r32/eax +<span id="L16182" class="LineNr">16182 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L16183" class="LineNr">16183 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L16184" class="LineNr">16184 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L16185" class="LineNr">16185 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L16186" class="LineNr">16186 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> +<span id="L16187" class="LineNr">16187 </span> (<a href='mu.subx.html#L16147'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L16188" class="LineNr">16188 </span><span class="Constant">$parse-type-tree:end</span>: +<span id="L16189" class="LineNr">16189 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L16190" class="LineNr">16190 </span> 81 0/subop/add %esp 8/imm32 +<span id="L16191" class="LineNr">16191 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16192" class="LineNr">16192 </span> 5a/pop-to-edx +<span id="L16193" class="LineNr">16193 </span> 59/pop-to-ecx +<span id="L16194" class="LineNr">16194 </span> 58/pop-to-eax +<span id="L16195" class="LineNr">16195 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16196" class="LineNr">16196 </span> 89/<- %esp 5/r32/ebp +<span id="L16197" class="LineNr">16197 </span> 5d/pop-to-ebp +<span id="L16198" class="LineNr">16198 </span> c3/return +<span id="L16199" class="LineNr">16199 </span> +<span id="L16200" class="LineNr">16200 </span><span class="subxFunction">next-mu-token</span>: <span class="subxComment"># in: (addr stream byte), out: (addr slice)</span> +<span id="L16201" class="LineNr">16201 </span> <span class="subxComment"># pseudocode:</span> +<span id="L16202" class="LineNr">16202 </span> <span class="subxComment"># start:</span> +<span id="L16203" class="LineNr">16203 </span> <span class="subxComment"># skip-chars-matching-whitespace(in)</span> +<span id="L16204" class="LineNr">16204 </span> <span class="subxComment"># if in->read >= in->write # end of in</span> +<span id="L16205" class="LineNr">16205 </span> <span class="subxComment"># out = {0, 0}</span> +<span id="L16206" class="LineNr">16206 </span> <span class="subxComment"># return</span> +<span id="L16207" class="LineNr">16207 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> +<span id="L16208" class="LineNr">16208 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> +<span id="L16209" class="LineNr">16209 </span> <span class="subxComment"># if curr->byte == ',' # comment token</span> +<span id="L16210" class="LineNr">16210 </span> <span class="subxComment"># ++in->read</span> +<span id="L16211" class="LineNr">16211 </span> <span class="subxComment"># goto start</span> +<span id="L16212" class="LineNr">16212 </span> <span class="subxComment"># if curr-byte == '#' # comment</span> +<span id="L16213" class="LineNr">16213 </span> <span class="subxComment"># goto done # treat as eof</span> +<span id="L16214" class="LineNr">16214 </span> <span class="subxComment"># if curr-byte == '"' # string literal</span> +<span id="L16215" class="LineNr">16215 </span> <span class="subxComment"># skip-string(in)</span> +<span id="L16216" class="LineNr">16216 </span> <span class="subxComment"># goto done # no metadata</span> +<span id="L16217" class="LineNr">16217 </span> <span class="subxComment"># if curr-byte == '('</span> +<span id="L16218" class="LineNr">16218 </span> <span class="subxComment"># ++in->read</span> +<span id="L16219" class="LineNr">16219 </span> <span class="subxComment"># goto done</span> +<span id="L16220" class="LineNr">16220 </span> <span class="subxComment"># if curr-byte == ')'</span> +<span id="L16221" class="LineNr">16221 </span> <span class="subxComment"># ++in->read</span> +<span id="L16222" class="LineNr">16222 </span> <span class="subxComment"># goto done</span> +<span id="L16223" class="LineNr">16223 </span> <span class="subxComment"># # read a word</span> +<span id="L16224" class="LineNr">16224 </span> <span class="subxComment"># while true</span> +<span id="L16225" class="LineNr">16225 </span> <span class="subxComment"># if in->read >= in->write</span> +<span id="L16226" class="LineNr">16226 </span> <span class="subxComment"># break</span> +<span id="L16227" class="LineNr">16227 </span> <span class="subxComment"># curr-byte = in->data[in->read]</span> +<span id="L16228" class="LineNr">16228 </span> <span class="subxComment"># if curr-byte == ' '</span> +<span id="L16229" class="LineNr">16229 </span> <span class="subxComment"># break</span> +<span id="L16230" class="LineNr">16230 </span> <span class="subxComment"># if curr-byte == '\r'</span> +<span id="L16231" class="LineNr">16231 </span> <span class="subxComment"># break</span> +<span id="L16232" class="LineNr">16232 </span> <span class="subxComment"># if curr-byte == '\n'</span> +<span id="L16233" class="LineNr">16233 </span> <span class="subxComment"># break</span> +<span id="L16234" class="LineNr">16234 </span> <span class="subxComment"># if curr-byte == '('</span> +<span id="L16235" class="LineNr">16235 </span> <span class="subxComment"># break</span> +<span id="L16236" class="LineNr">16236 </span> <span class="subxComment"># if curr-byte == ')'</span> +<span id="L16237" class="LineNr">16237 </span> <span class="subxComment"># break</span> +<span id="L16238" class="LineNr">16238 </span> <span class="subxComment"># if curr-byte == ','</span> +<span id="L16239" class="LineNr">16239 </span> <span class="subxComment"># break</span> +<span id="L16240" class="LineNr">16240 </span> <span class="subxComment"># ++in->read</span> +<span id="L16241" class="LineNr">16241 </span> <span class="subxComment"># done:</span> +<span id="L16242" class="LineNr">16242 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> +<span id="L16243" class="LineNr">16243 </span> <span class="subxComment">#</span> +<span id="L16244" class="LineNr">16244 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16245" class="LineNr">16245 </span> 55/push-ebp +<span id="L16246" class="LineNr">16246 </span> 89/<- %ebp 4/r32/esp +<span id="L16247" class="LineNr">16247 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16248" class="LineNr">16248 </span> 50/push-eax +<span id="L16249" class="LineNr">16249 </span> 51/push-ecx +<span id="L16250" class="LineNr">16250 </span> 56/push-esi +<span id="L16251" class="LineNr">16251 </span> 57/push-edi +<span id="L16252" class="LineNr">16252 </span> <span class="subxComment"># esi = in</span> +<span id="L16253" class="LineNr">16253 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L16254" class="LineNr">16254 </span> <span class="subxComment"># edi = out</span> +<span id="L16255" class="LineNr">16255 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L16256" class="LineNr">16256 </span><span class="Constant">$next-mu-token:start</span>: +<span id="L16257" class="LineNr">16257 </span> (<a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> %esi) +<span id="L16258" class="LineNr">16258 </span><span class="Constant">$next-mu-token:check0</span>: +<span id="L16259" class="LineNr">16259 </span> <span class="subxComment"># if (in->read >= in->write) return out = {0, 0}</span> +<span id="L16260" class="LineNr">16260 </span> <span class="subxS1Comment"># . ecx = in->read</span> +<span id="L16261" class="LineNr">16261 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L16262" class="LineNr">16262 </span> <span class="subxS1Comment"># . if (ecx >= in->write) return out = {0, 0}</span> +<span id="L16263" class="LineNr">16263 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L16264" class="LineNr">16264 </span> c7 0/subop/copy *edi 0/imm32 +<span id="L16265" class="LineNr">16265 </span> c7 0/subop/copy *(edi+4) 0/imm32 +<span id="L16266" class="LineNr">16266 </span> 0f 8d/jump-if->= $next-mu-token:end/disp32 +<span id="L16267" class="LineNr">16267 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> +<span id="L16268" class="LineNr">16268 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L16269" class="LineNr">16269 </span> 89/<- *edi 0/r32/eax +<span id="L16270" class="LineNr">16270 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> +<span id="L16271" class="LineNr">16271 </span> 31/xor-with %eax 0/r32/eax +<span id="L16272" class="LineNr">16272 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L16273" class="LineNr">16273 </span> { +<span id="L16274" class="LineNr">16274 </span><span class="Constant">$next-mu-token:check-for-comma</span>: +<span id="L16275" class="LineNr">16275 </span> <span class="subxComment"># if (curr-byte != ',') break</span> +<span id="L16276" class="LineNr">16276 </span> 3d/compare-eax-and 0x2c/imm32/comma +<span id="L16277" class="LineNr">16277 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16278" class="LineNr">16278 </span> <span class="subxComment"># ++in->read</span> +<span id="L16279" class="LineNr">16279 </span> ff 0/subop/increment *(esi+4) +<span id="L16280" class="LineNr">16280 </span> <span class="subxComment"># restart</span> +<span id="L16281" class="LineNr">16281 </span> e9/jump $next-mu-token:start/disp32 +<span id="L16282" class="LineNr">16282 </span> } +<span id="L16283" class="LineNr">16283 </span> { +<span id="L16284" class="LineNr">16284 </span><span class="Constant">$next-mu-token:check-for-comment</span>: +<span id="L16285" class="LineNr">16285 </span> <span class="subxComment"># if (curr-byte != '#') break</span> +<span id="L16286" class="LineNr">16286 </span> 3d/compare-eax-and 0x23/imm32/pound +<span id="L16287" class="LineNr">16287 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16288" class="LineNr">16288 </span> <span class="subxComment"># return eof</span> +<span id="L16289" class="LineNr">16289 </span> e9/jump $next-mu-token:done/disp32 +<span id="L16290" class="LineNr">16290 </span> } +<span id="L16291" class="LineNr">16291 </span> { +<span id="L16292" class="LineNr">16292 </span><span class="Constant">$next-mu-token:check-for-string-literal</span>: +<span id="L16293" class="LineNr">16293 </span> <span class="subxComment"># if (curr-byte != '"') break</span> +<span id="L16294" class="LineNr">16294 </span> 3d/compare-eax-and 0x22/imm32/dquote +<span id="L16295" class="LineNr">16295 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16296" class="LineNr">16296 </span> (<a href='../124next-token.subx.html#L1171'>skip-string</a> %esi) +<span id="L16297" class="LineNr">16297 </span> <span class="subxComment"># return</span> +<span id="L16298" class="LineNr">16298 </span> e9/jump $next-mu-token:done/disp32 +<span id="L16299" class="LineNr">16299 </span> } +<span id="L16300" class="LineNr">16300 </span> { +<span id="L16301" class="LineNr">16301 </span><span class="Constant">$next-mu-token:check-for-open-paren</span>: +<span id="L16302" class="LineNr">16302 </span> <span class="subxComment"># if (curr-byte != '(') break</span> +<span id="L16303" class="LineNr">16303 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L16304" class="LineNr">16304 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16305" class="LineNr">16305 </span> <span class="subxComment"># ++in->read</span> +<span id="L16306" class="LineNr">16306 </span> ff 0/subop/increment *(esi+4) +<span id="L16307" class="LineNr">16307 </span> <span class="subxComment"># return</span> +<span id="L16308" class="LineNr">16308 </span> e9/jump $next-mu-token:done/disp32 +<span id="L16309" class="LineNr">16309 </span> } +<span id="L16310" class="LineNr">16310 </span> { +<span id="L16311" class="LineNr">16311 </span><span class="Constant">$next-mu-token:check-for-close-paren</span>: +<span id="L16312" class="LineNr">16312 </span> <span class="subxComment"># if (curr-byte != ')') break</span> +<span id="L16313" class="LineNr">16313 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L16314" class="LineNr">16314 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16315" class="LineNr">16315 </span> <span class="subxComment"># ++in->read</span> +<span id="L16316" class="LineNr">16316 </span> ff 0/subop/increment *(esi+4) +<span id="L16317" class="LineNr">16317 </span> <span class="subxComment"># return</span> +<span id="L16318" class="LineNr">16318 </span> e9/jump $next-mu-token:done/disp32 +<span id="L16319" class="LineNr">16319 </span> } +<span id="L16320" class="LineNr">16320 </span> { +<span id="L16321" class="LineNr">16321 </span><span class="Constant">$next-mu-token:regular-word-without-metadata</span>: +<span id="L16322" class="LineNr">16322 </span> <span class="subxComment"># if (in->read >= in->write) break</span> +<span id="L16323" class="LineNr">16323 </span> <span class="subxS1Comment"># . ecx = in->read</span> +<span id="L16324" class="LineNr">16324 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L16325" class="LineNr">16325 </span> <span class="subxS1Comment"># . if (ecx >= in->write) break</span> +<span id="L16326" class="LineNr">16326 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L16327" class="LineNr">16327 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L16328" class="LineNr">16328 </span> <span class="subxComment"># var c/eax: byte = in->data[in->read]</span> +<span id="L16329" class="LineNr">16329 </span> 31/xor-with %eax 0/r32/eax +<span id="L16330" class="LineNr">16330 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L16331" class="LineNr">16331 </span> <span class="subxComment"># if (c == ' ') break</span> +<span id="L16332" class="LineNr">16332 </span> 3d/compare-eax-and 0x20/imm32/space +<span id="L16333" class="LineNr">16333 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16334" class="LineNr">16334 </span> <span class="subxComment"># if (c == '\r') break</span> +<span id="L16335" class="LineNr">16335 </span> 3d/compare-eax-and 0xd/imm32/carriage-return +<span id="L16336" class="LineNr">16336 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16337" class="LineNr">16337 </span> <span class="subxComment"># if (c == '\n') break</span> +<span id="L16338" class="LineNr">16338 </span> 3d/compare-eax-and 0xa/imm32/newline +<span id="L16339" class="LineNr">16339 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16340" class="LineNr">16340 </span> <span class="subxComment"># if (c == '(') break</span> +<span id="L16341" class="LineNr">16341 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L16342" class="LineNr">16342 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16343" class="LineNr">16343 </span> <span class="subxComment"># if (c == ')') break</span> +<span id="L16344" class="LineNr">16344 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L16345" class="LineNr">16345 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16346" class="LineNr">16346 </span> <span class="subxComment"># if (c == ',') break</span> +<span id="L16347" class="LineNr">16347 </span> 3d/compare-eax-and 0x2c/imm32/comma +<span id="L16348" class="LineNr">16348 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L16349" class="LineNr">16349 </span> <span class="subxComment"># ++in->read</span> +<span id="L16350" class="LineNr">16350 </span> ff 0/subop/increment *(esi+4) +<span id="L16351" class="LineNr">16351 </span> <span class="subxComment">#</span> +<span id="L16352" class="LineNr">16352 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16353" class="LineNr">16353 </span> } +<span id="L16354" class="LineNr">16354 </span><span class="Constant">$next-mu-token:done</span>: +<span id="L16355" class="LineNr">16355 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> +<span id="L16356" class="LineNr">16356 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L16357" class="LineNr">16357 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L16358" class="LineNr">16358 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L16359" class="LineNr">16359 </span><span class="Constant">$next-mu-token:end</span>: +<span id="L16360" class="LineNr">16360 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16361" class="LineNr">16361 </span> 5f/pop-to-edi +<span id="L16362" class="LineNr">16362 </span> 5e/pop-to-esi +<span id="L16363" class="LineNr">16363 </span> 59/pop-to-ecx +<span id="L16364" class="LineNr">16364 </span> 58/pop-to-eax +<span id="L16365" class="LineNr">16365 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16366" class="LineNr">16366 </span> 89/<- %esp 5/r32/ebp +<span id="L16367" class="LineNr">16367 </span> 5d/pop-to-ebp +<span id="L16368" class="LineNr">16368 </span> c3/return +<span id="L16369" class="LineNr">16369 </span> +<span id="L16370" class="LineNr">16370 </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="L16371" class="LineNr">16371 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16372" class="LineNr">16372 </span> 55/push-ebp +<span id="L16373" class="LineNr">16373 </span> 89/<- %ebp 4/r32/esp +<span id="L16374" class="LineNr">16374 </span> <span class="subxComment"># if (pos-slice(arr, s) != -1) return it</span> +<span id="L16375" class="LineNr">16375 </span> (<a href='mu.subx.html#L16398'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L16376" class="LineNr">16376 </span> 3d/compare-eax-and -1/imm32 +<span id="L16377" class="LineNr">16377 </span> 75/jump-if-!= $pos-or-insert-slice:end/disp8 +<span id="L16378" class="LineNr">16378 </span><span class="Constant">$pos-or-insert-slice:insert</span>: +<span id="L16379" class="LineNr">16379 </span> <span class="subxComment"># var s2/eax: (handle array byte)</span> +<span id="L16380" class="LineNr">16380 </span> 68/push 0/imm32 +<span id="L16381" class="LineNr">16381 </span> 68/push 0/imm32 +<span id="L16382" class="LineNr">16382 </span> 89/<- %eax 4/r32/esp +<span id="L16383" class="LineNr">16383 </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="L16384" class="LineNr">16384 </span> <span class="subxComment"># throw away alloc-id</span> +<span id="L16385" class="LineNr">16385 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L16386" class="LineNr">16386 </span> (<a href='../202write-int.subx.html#L8'>write-int</a> *(ebp+8) %eax) +<span id="L16387" class="LineNr">16387 </span> (<a href='mu.subx.html#L16398'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L16388" class="LineNr">16388 </span><span class="Constant">$pos-or-insert-slice:end</span>: +<span id="L16389" class="LineNr">16389 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L16390" class="LineNr">16390 </span> 81 0/subop/add %esp 8/imm32 +<span id="L16391" class="LineNr">16391 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16392" class="LineNr">16392 </span> 89/<- %esp 5/r32/ebp +<span id="L16393" class="LineNr">16393 </span> 5d/pop-to-ebp +<span id="L16394" class="LineNr">16394 </span> c3/return +<span id="L16395" class="LineNr">16395 </span> +<span id="L16396" class="LineNr">16396 </span><span class="subxComment"># return the index in an array of strings matching 's', -1 if not found</span> +<span id="L16397" class="LineNr">16397 </span><span class="subxComment"># index is denominated in elements, not bytes</span> +<span id="L16398" class="LineNr">16398 </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="L16399" class="LineNr">16399 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16400" class="LineNr">16400 </span> 55/push-ebp +<span id="L16401" class="LineNr">16401 </span> 89/<- %ebp 4/r32/esp +<span id="L16402" class="LineNr">16402 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16403" class="LineNr">16403 </span> 51/push-ecx +<span id="L16404" class="LineNr">16404 </span> 52/push-edx +<span id="L16405" class="LineNr">16405 </span> 53/push-ebx +<span id="L16406" class="LineNr">16406 </span> 56/push-esi +<span id="L16407" class="LineNr">16407 </span><span class="CommentedCode">#? (write-buffered Stderr "pos-slice: ")</span> +<span id="L16408" class="LineNr">16408 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> +<span id="L16409" class="LineNr">16409 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L16410" class="LineNr">16410 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L16411" class="LineNr">16411 </span> <span class="subxComment"># esi = arr</span> +<span id="L16412" class="LineNr">16412 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L16413" class="LineNr">16413 </span> <span class="subxComment"># var index/ecx: int = 0</span> +<span id="L16414" class="LineNr">16414 </span> b9/copy-to-ecx 0/imm32 +<span id="L16415" class="LineNr">16415 </span> <span class="subxComment"># var curr/edx: (addr (addr array byte)) = arr->data</span> +<span id="L16416" class="LineNr">16416 </span> 8d/copy-address *(esi+0xc) 2/r32/edx +<span id="L16417" class="LineNr">16417 </span> <span class="subxComment"># var max/ebx: (addr (addr array byte)) = &arr->data[arr->write]</span> +<span id="L16418" class="LineNr">16418 </span> 8b/-> *esi 3/r32/ebx +<span id="L16419" class="LineNr">16419 </span> 8d/copy-address *(esi+ebx+0xc) 3/r32/ebx +<span id="L16420" class="LineNr">16420 </span> { +<span id="L16421" class="LineNr">16421 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> +<span id="L16422" class="LineNr">16422 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L16423" class="LineNr">16423 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L16424" class="LineNr">16424 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L16425" class="LineNr">16425 </span> <span class="subxComment"># if (curr >= max) return -1</span> +<span id="L16426" class="LineNr">16426 </span> 39/compare %edx 3/r32/ebx +<span id="L16427" class="LineNr">16427 </span> b8/copy-to-eax -1/imm32 +<span id="L16428" class="LineNr">16428 </span> 73/jump-if-addr>= $pos-slice:end/disp8 +<span id="L16429" class="LineNr">16429 </span> <span class="subxComment"># if (slice-equal?(s, *curr)) break</span> +<span id="L16430" class="LineNr">16430 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+0xc) *edx) <span class="subxComment"># => eax</span> +<span id="L16431" class="LineNr">16431 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16432" class="LineNr">16432 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16433" class="LineNr">16433 </span> <span class="subxComment"># ++index</span> +<span id="L16434" class="LineNr">16434 </span> 41/increment-ecx +<span id="L16435" class="LineNr">16435 </span> <span class="subxComment"># curr += 4</span> +<span id="L16436" class="LineNr">16436 </span> 81 0/subop/add %edx 4/imm32 +<span id="L16437" class="LineNr">16437 </span> <span class="subxComment">#</span> +<span id="L16438" class="LineNr">16438 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16439" class="LineNr">16439 </span> } +<span id="L16440" class="LineNr">16440 </span> <span class="subxComment"># return index</span> +<span id="L16441" class="LineNr">16441 </span> 89/<- %eax 1/r32/ecx +<span id="L16442" class="LineNr">16442 </span><span class="Constant">$pos-slice:end</span>: +<span id="L16443" class="LineNr">16443 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> +<span id="L16444" class="LineNr">16444 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L16445" class="LineNr">16445 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L16446" class="LineNr">16446 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16447" class="LineNr">16447 </span> 5e/pop-to-esi +<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> <span class="subxS1Comment"># . epilogue</span> +<span id="L16452" class="LineNr">16452 </span> 89/<- %esp 5/r32/ebp +<span id="L16453" class="LineNr">16453 </span> 5d/pop-to-ebp +<span id="L16454" class="LineNr">16454 </span> c3/return +<span id="L16455" class="LineNr">16455 </span> +<span id="L16456" class="LineNr">16456 </span><span class="subxTest">test-parse-var-with-type</span>: +<span id="L16457" class="LineNr">16457 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16458" class="LineNr">16458 </span> 55/push-ebp +<span id="L16459" class="LineNr">16459 </span> 89/<- %ebp 4/r32/esp +<span id="L16460" class="LineNr">16460 </span> <span class="subxComment"># setup</span> +<span id="L16461" class="LineNr">16461 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16462" class="LineNr">16462 </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="L16463" class="LineNr">16463 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L16464" class="LineNr">16464 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L16465" class="LineNr">16465 </span> 8b/-> *eax 1/r32/ecx +<span id="L16466" class="LineNr">16466 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16467" class="LineNr">16467 </span> 05/add-to-eax 4/imm32 +<span id="L16468" class="LineNr">16468 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16469" class="LineNr">16469 </span> 51/push-ecx +<span id="L16470" class="LineNr">16470 </span> 50/push-eax +<span id="L16471" class="LineNr">16471 </span> 89/<- %ecx 4/r32/esp +<span id="L16472" class="LineNr">16472 </span> <span class="subxComment"># _test-input-stream contains "int"</span> +<span id="L16473" class="LineNr">16473 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16474" class="LineNr">16474 </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="L16475" class="LineNr">16475 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L16476" class="LineNr">16476 </span> 68/push 0/imm32 +<span id="L16477" class="LineNr">16477 </span> 68/push 0/imm32 +<span id="L16478" class="LineNr">16478 </span> 89/<- %edx 4/r32/esp +<span id="L16479" class="LineNr">16479 </span> <span class="subxComment">#</span> +<span id="L16480" class="LineNr">16480 </span> (<a href='mu.subx.html#L15844'>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="L16481" class="LineNr">16481 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L16482" class="LineNr">16482 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L16483" class="LineNr">16483 </span> 89/<- %edx 0/r32/eax +<span id="L16484" class="LineNr">16484 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L16485" class="LineNr">16485 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16486" class="LineNr">16486 </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#L16456'>test-parse-var-with-type</a>/name"</span>) +<span id="L16487" class="LineNr">16487 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L16488" class="LineNr">16488 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16489" class="LineNr">16489 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16456'>test-parse-var-with-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16490" class="LineNr">16490 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16456'>test-parse-var-with-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16491" class="LineNr">16491 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16456'>test-parse-var-with-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16492" class="LineNr">16492 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16493" class="LineNr">16493 </span> 89/<- %esp 5/r32/ebp +<span id="L16494" class="LineNr">16494 </span> 5d/pop-to-ebp +<span id="L16495" class="LineNr">16495 </span> c3/return +<span id="L16496" class="LineNr">16496 </span> +<span id="L16497" class="LineNr">16497 </span><span class="subxTest">test-parse-var-with-type-and-register</span>: +<span id="L16498" class="LineNr">16498 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16499" class="LineNr">16499 </span> 55/push-ebp +<span id="L16500" class="LineNr">16500 </span> 89/<- %ebp 4/r32/esp +<span id="L16501" class="LineNr">16501 </span> <span class="subxComment"># setup</span> +<span id="L16502" class="LineNr">16502 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16503" class="LineNr">16503 </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="L16504" class="LineNr">16504 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> +<span id="L16505" class="LineNr">16505 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 +<span id="L16506" class="LineNr">16506 </span> 8b/-> *eax 1/r32/ecx +<span id="L16507" class="LineNr">16507 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16508" class="LineNr">16508 </span> 05/add-to-eax 4/imm32 +<span id="L16509" class="LineNr">16509 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16510" class="LineNr">16510 </span> 51/push-ecx +<span id="L16511" class="LineNr">16511 </span> 50/push-eax +<span id="L16512" class="LineNr">16512 </span> 89/<- %ecx 4/r32/esp +<span id="L16513" class="LineNr">16513 </span> <span class="subxComment"># _test-input-stream contains "int"</span> +<span id="L16514" class="LineNr">16514 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16515" class="LineNr">16515 </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="L16516" class="LineNr">16516 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L16517" class="LineNr">16517 </span> 68/push 0/imm32 +<span id="L16518" class="LineNr">16518 </span> 68/push 0/imm32 +<span id="L16519" class="LineNr">16519 </span> 89/<- %edx 4/r32/esp +<span id="L16520" class="LineNr">16520 </span> <span class="subxComment">#</span> +<span id="L16521" class="LineNr">16521 </span> (<a href='mu.subx.html#L15844'>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="L16522" class="LineNr">16522 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L16523" class="LineNr">16523 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L16524" class="LineNr">16524 </span> 89/<- %edx 0/r32/eax +<span id="L16525" class="LineNr">16525 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L16526" class="LineNr">16526 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16527" class="LineNr">16527 </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#L16497'>test-parse-var-with-type-and-register</a>/name"</span>) +<span id="L16528" class="LineNr">16528 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L16529" class="LineNr">16529 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16530" class="LineNr">16530 </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#L16497'>test-parse-var-with-type-and-register</a>/register"</span>) +<span id="L16531" class="LineNr">16531 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L16532" class="LineNr">16532 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16533" class="LineNr">16533 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16497'>test-parse-var-with-type-and-register</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16534" class="LineNr">16534 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16497'>test-parse-var-with-type-and-register</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L16535" class="LineNr">16535 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16497'>test-parse-var-with-type-and-register</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16536" class="LineNr">16536 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16537" class="LineNr">16537 </span> 89/<- %esp 5/r32/ebp +<span id="L16538" class="LineNr">16538 </span> 5d/pop-to-ebp +<span id="L16539" class="LineNr">16539 </span> c3/return +<span id="L16540" class="LineNr">16540 </span> +<span id="L16541" class="LineNr">16541 </span><span class="subxTest">test-parse-var-with-trailing-characters</span>: +<span id="L16542" class="LineNr">16542 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16543" class="LineNr">16543 </span> 55/push-ebp +<span id="L16544" class="LineNr">16544 </span> 89/<- %ebp 4/r32/esp +<span id="L16545" class="LineNr">16545 </span> <span class="subxComment"># setup</span> +<span id="L16546" class="LineNr">16546 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16547" class="LineNr">16547 </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="L16548" class="LineNr">16548 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L16549" class="LineNr">16549 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L16550" class="LineNr">16550 </span> 8b/-> *eax 1/r32/ecx +<span id="L16551" class="LineNr">16551 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16552" class="LineNr">16552 </span> 05/add-to-eax 4/imm32 +<span id="L16553" class="LineNr">16553 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16554" class="LineNr">16554 </span> 51/push-ecx +<span id="L16555" class="LineNr">16555 </span> 50/push-eax +<span id="L16556" class="LineNr">16556 </span> 89/<- %ecx 4/r32/esp +<span id="L16557" class="LineNr">16557 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> +<span id="L16558" class="LineNr">16558 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16559" class="LineNr">16559 </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="L16560" class="LineNr">16560 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L16561" class="LineNr">16561 </span> 68/push 0/imm32 +<span id="L16562" class="LineNr">16562 </span> 68/push 0/imm32 +<span id="L16563" class="LineNr">16563 </span> 89/<- %edx 4/r32/esp +<span id="L16564" class="LineNr">16564 </span> <span class="subxComment">#</span> +<span id="L16565" class="LineNr">16565 </span> (<a href='mu.subx.html#L15844'>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="L16566" class="LineNr">16566 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L16567" class="LineNr">16567 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L16568" class="LineNr">16568 </span> 89/<- %edx 0/r32/eax +<span id="L16569" class="LineNr">16569 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L16570" class="LineNr">16570 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+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">"x"</span> <span class="Constant">"F - <a href='mu.subx.html#L16541'>test-parse-var-with-trailing-characters</a>/name"</span>) +<span id="L16572" class="LineNr">16572 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L16573" class="LineNr">16573 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L16541'>test-parse-var-with-trailing-characters</a>/register"</span>) <span class="subxComment"># Var-register</span> +<span id="L16574" class="LineNr">16574 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L16575" class="LineNr">16575 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16576" class="LineNr">16576 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16541'>test-parse-var-with-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16577" class="LineNr">16577 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16541'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L16578" class="LineNr">16578 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16541'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16579" class="LineNr">16579 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16580" class="LineNr">16580 </span> 89/<- %esp 5/r32/ebp +<span id="L16581" class="LineNr">16581 </span> 5d/pop-to-ebp +<span id="L16582" class="LineNr">16582 </span> c3/return +<span id="L16583" class="LineNr">16583 </span> +<span id="L16584" class="LineNr">16584 </span><span class="subxTest">test-parse-var-with-register-and-trailing-characters</span>: +<span id="L16585" class="LineNr">16585 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16586" class="LineNr">16586 </span> 55/push-ebp +<span id="L16587" class="LineNr">16587 </span> 89/<- %ebp 4/r32/esp +<span id="L16588" class="LineNr">16588 </span> <span class="subxComment"># setup</span> +<span id="L16589" class="LineNr">16589 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16590" class="LineNr">16590 </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="L16591" class="LineNr">16591 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> +<span id="L16592" class="LineNr">16592 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 +<span id="L16593" class="LineNr">16593 </span> 8b/-> *eax 1/r32/ecx +<span id="L16594" class="LineNr">16594 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16595" class="LineNr">16595 </span> 05/add-to-eax 4/imm32 +<span id="L16596" class="LineNr">16596 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16597" class="LineNr">16597 </span> 51/push-ecx +<span id="L16598" class="LineNr">16598 </span> 50/push-eax +<span id="L16599" class="LineNr">16599 </span> 89/<- %ecx 4/r32/esp +<span id="L16600" class="LineNr">16600 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> +<span id="L16601" class="LineNr">16601 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16602" class="LineNr">16602 </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="L16603" class="LineNr">16603 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L16604" class="LineNr">16604 </span> 68/push 0/imm32 +<span id="L16605" class="LineNr">16605 </span> 68/push 0/imm32 +<span id="L16606" class="LineNr">16606 </span> 89/<- %edx 4/r32/esp +<span id="L16607" class="LineNr">16607 </span> <span class="subxComment">#</span> +<span id="L16608" class="LineNr">16608 </span> (<a href='mu.subx.html#L15844'>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="L16609" class="LineNr">16609 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L16610" class="LineNr">16610 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L16611" class="LineNr">16611 </span> 89/<- %edx 0/r32/eax +<span id="L16612" class="LineNr">16612 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L16613" class="LineNr">16613 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16614" class="LineNr">16614 </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#L16584'>test-parse-var-with-register-and-trailing-characters</a>/name"</span>) +<span id="L16615" class="LineNr">16615 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L16616" class="LineNr">16616 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16617" class="LineNr">16617 </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#L16584'>test-parse-var-with-register-and-trailing-characters</a>/register"</span>) +<span id="L16618" class="LineNr">16618 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L16619" class="LineNr">16619 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16620" class="LineNr">16620 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16584'>test-parse-var-with-register-and-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16621" class="LineNr">16621 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16584'>test-parse-var-with-register-and-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L16622" class="LineNr">16622 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16584'>test-parse-var-with-register-and-trailing-characters</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16623" class="LineNr">16623 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16624" class="LineNr">16624 </span> 89/<- %esp 5/r32/ebp +<span id="L16625" class="LineNr">16625 </span> 5d/pop-to-ebp +<span id="L16626" class="LineNr">16626 </span> c3/return +<span id="L16627" class="LineNr">16627 </span> +<span id="L16628" class="LineNr">16628 </span><span class="subxTest">test-parse-var-with-compound-type</span>: +<span id="L16629" class="LineNr">16629 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16630" class="LineNr">16630 </span> 55/push-ebp +<span id="L16631" class="LineNr">16631 </span> 89/<- %ebp 4/r32/esp +<span id="L16632" class="LineNr">16632 </span> <span class="subxComment"># setup</span> +<span id="L16633" class="LineNr">16633 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16634" class="LineNr">16634 </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="L16635" class="LineNr">16635 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L16636" class="LineNr">16636 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L16637" class="LineNr">16637 </span> 8b/-> *eax 1/r32/ecx +<span id="L16638" class="LineNr">16638 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16639" class="LineNr">16639 </span> 05/add-to-eax 4/imm32 +<span id="L16640" class="LineNr">16640 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16641" class="LineNr">16641 </span> 51/push-ecx +<span id="L16642" class="LineNr">16642 </span> 50/push-eax +<span id="L16643" class="LineNr">16643 </span> 89/<- %ecx 4/r32/esp +<span id="L16644" class="LineNr">16644 </span> <span class="subxComment"># _test-input-stream contains "(addr int)"</span> +<span id="L16645" class="LineNr">16645 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16646" class="LineNr">16646 </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="L16647" class="LineNr">16647 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L16648" class="LineNr">16648 </span> 68/push 0/imm32 +<span id="L16649" class="LineNr">16649 </span> 68/push 0/imm32 +<span id="L16650" class="LineNr">16650 </span> 89/<- %edx 4/r32/esp +<span id="L16651" class="LineNr">16651 </span> <span class="subxComment">#</span> +<span id="L16652" class="LineNr">16652 </span> (<a href='mu.subx.html#L15844'>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="L16653" class="LineNr">16653 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L16654" class="LineNr">16654 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L16655" class="LineNr">16655 </span> 89/<- %edx 0/r32/eax +<span id="L16656" class="LineNr">16656 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L16657" class="LineNr">16657 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16658" class="LineNr">16658 </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#L16628'>test-parse-var-with-compound-type</a>/name"</span>) +<span id="L16659" class="LineNr">16659 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L16660" class="LineNr">16660 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L16628'>test-parse-var-with-compound-type</a>/register"</span>) <span class="subxComment"># Var-register</span> +<span id="L16661" class="LineNr">16661 </span> <span class="subxH1Comment"># - check v-addr->type</span> +<span id="L16662" class="LineNr">16662 </span> <span class="subxComment"># var type/edx: (addr type-tree) = var->type</span> +<span id="L16663" class="LineNr">16663 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16664" class="LineNr">16664 </span> 89/<- %edx 0/r32/eax +<span id="L16665" class="LineNr">16665 </span> <span class="subxComment"># type is a non-atom</span> +<span id="L16666" class="LineNr">16666 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 0 <span class="Constant">"F - <a href='mu.subx.html#L16628'>test-parse-var-with-compound-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16667" class="LineNr">16667 </span> <span class="subxComment"># type->left == atom(addr)</span> +<span id="L16668" class="LineNr">16668 </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="L16669" class="LineNr">16669 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16628'>test-parse-var-with-compound-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16670" class="LineNr">16670 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L16628'>test-parse-var-with-compound-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16671" class="LineNr">16671 </span> <span class="subxComment"># type->right->left == atom(int)</span> +<span id="L16672" class="LineNr">16672 </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="L16673" class="LineNr">16673 </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="L16674" class="LineNr">16674 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16628'>test-parse-var-with-compound-type</a>/type:3"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16675" class="LineNr">16675 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16628'>test-parse-var-with-compound-type</a>/type:4"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16676" class="LineNr">16676 </span> <span class="subxComment"># type->right->right == null</span> +<span id="L16677" class="LineNr">16677 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16628'>test-parse-var-with-compound-type</a>/type:5"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16678" class="LineNr">16678 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16679" class="LineNr">16679 </span> 89/<- %esp 5/r32/ebp +<span id="L16680" class="LineNr">16680 </span> 5d/pop-to-ebp +<span id="L16681" class="LineNr">16681 </span> c3/return +<span id="L16682" class="LineNr">16682 </span> +<span id="L16683" class="LineNr">16683 </span><span class="subxComment"># identifier starts with a letter or '$' or '_'</span> +<span id="L16684" class="LineNr">16684 </span><span class="subxComment"># no constraints at the moment on later letters</span> +<span id="L16685" class="LineNr">16685 </span><span class="subxComment"># all we really want to do so far is exclude '{', '}' and '->'</span> +<span id="L16686" class="LineNr">16686 </span><span class="subxFunction">is-identifier?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> +<span id="L16687" class="LineNr">16687 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16688" class="LineNr">16688 </span> 55/push-ebp +<span id="L16689" class="LineNr">16689 </span> 89/<- %ebp 4/r32/esp +<span id="L16690" class="LineNr">16690 </span> <span class="subxComment"># if (slice-empty?(in)) return false</span> +<span id="L16691" class="LineNr">16691 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L16692" class="LineNr">16692 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16693" class="LineNr">16693 </span> 75/jump-if-!= $is-identifier?:false/disp8 +<span id="L16694" class="LineNr">16694 </span> <span class="subxComment"># var c/eax: byte = *in->start</span> +<span id="L16695" class="LineNr">16695 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L16696" class="LineNr">16696 </span> 8b/-> *eax 0/r32/eax +<span id="L16697" class="LineNr">16697 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L16698" class="LineNr">16698 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L16699" class="LineNr">16699 </span> <span class="subxComment"># if (c == '$') return true</span> +<span id="L16700" class="LineNr">16700 </span> 3d/compare-eax-and 0x24/imm32/$ +<span id="L16701" class="LineNr">16701 </span> 74/jump-if-= $is-identifier?:true/disp8 +<span id="L16702" class="LineNr">16702 </span> <span class="subxComment"># if (c == '_') return true</span> +<span id="L16703" class="LineNr">16703 </span> 3d/compare-eax-and 0x5f/imm32/_ +<span id="L16704" class="LineNr">16704 </span> 74/jump-if-= $is-identifier?:true/disp8 +<span id="L16705" class="LineNr">16705 </span> <span class="subxComment"># drop case</span> +<span id="L16706" class="LineNr">16706 </span> 25/and-eax-with 0x5f/imm32 +<span id="L16707" class="LineNr">16707 </span> <span class="subxComment"># if (c < 'A') return false</span> +<span id="L16708" class="LineNr">16708 </span> 3d/compare-eax-and 0x41/imm32/A +<span id="L16709" class="LineNr">16709 </span> 7c/jump-if-< $is-identifier?:false/disp8 +<span id="L16710" class="LineNr">16710 </span> <span class="subxComment"># if (c > 'Z') return false</span> +<span id="L16711" class="LineNr">16711 </span> 3d/compare-eax-and 0x5a/imm32/Z +<span id="L16712" class="LineNr">16712 </span> 7f/jump-if-> $is-identifier?:false/disp8 +<span id="L16713" class="LineNr">16713 </span> <span class="subxComment"># otherwise return true</span> +<span id="L16714" class="LineNr">16714 </span><span class="Constant">$is-identifier?:true</span>: +<span id="L16715" class="LineNr">16715 </span> b8/copy-to-eax 1/imm32/true +<span id="L16716" class="LineNr">16716 </span> eb/jump $is-identifier?:end/disp8 +<span id="L16717" class="LineNr">16717 </span><span class="Constant">$is-identifier?:false</span>: +<span id="L16718" class="LineNr">16718 </span> b8/copy-to-eax 0/imm32/false +<span id="L16719" class="LineNr">16719 </span><span class="Constant">$is-identifier?:end</span>: +<span id="L16720" class="LineNr">16720 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16721" class="LineNr">16721 </span> 89/<- %esp 5/r32/ebp +<span id="L16722" class="LineNr">16722 </span> 5d/pop-to-ebp +<span id="L16723" class="LineNr">16723 </span> c3/return +<span id="L16724" class="LineNr">16724 </span> +<span id="L16725" class="LineNr">16725 </span><span class="subxTest">test-is-identifier-dollar</span>: +<span id="L16726" class="LineNr">16726 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16727" class="LineNr">16727 </span> 55/push-ebp +<span id="L16728" class="LineNr">16728 </span> 89/<- %ebp 4/r32/esp +<span id="L16729" class="LineNr">16729 </span> <span class="subxComment"># (eax..ecx) = "$a"</span> +<span id="L16730" class="LineNr">16730 </span> b8/copy-to-eax <span class="Constant">"$a"</span>/imm32 +<span id="L16731" class="LineNr">16731 </span> 8b/-> *eax 1/r32/ecx +<span id="L16732" class="LineNr">16732 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16733" class="LineNr">16733 </span> 05/add-to-eax 4/imm32 +<span id="L16734" class="LineNr">16734 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16735" class="LineNr">16735 </span> 51/push-ecx +<span id="L16736" class="LineNr">16736 </span> 50/push-eax +<span id="L16737" class="LineNr">16737 </span> 89/<- %ecx 4/r32/esp +<span id="L16738" class="LineNr">16738 </span> <span class="subxComment">#</span> +<span id="L16739" class="LineNr">16739 </span> (<a href='mu.subx.html#L16686'>is-identifier?</a> %ecx) +<span id="L16740" class="LineNr">16740 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-dollar"</span>) +<span id="L16741" class="LineNr">16741 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16742" class="LineNr">16742 </span> 89/<- %esp 5/r32/ebp +<span id="L16743" class="LineNr">16743 </span> 5d/pop-to-ebp +<span id="L16744" class="LineNr">16744 </span> c3/return +<span id="L16745" class="LineNr">16745 </span> +<span id="L16746" class="LineNr">16746 </span><span class="subxTest">test-is-identifier-underscore</span>: +<span id="L16747" class="LineNr">16747 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16748" class="LineNr">16748 </span> 55/push-ebp +<span id="L16749" class="LineNr">16749 </span> 89/<- %ebp 4/r32/esp +<span id="L16750" class="LineNr">16750 </span> <span class="subxComment"># (eax..ecx) = "_a"</span> +<span id="L16751" class="LineNr">16751 </span> b8/copy-to-eax <span class="Constant">"_a"</span>/imm32 +<span id="L16752" class="LineNr">16752 </span> 8b/-> *eax 1/r32/ecx +<span id="L16753" class="LineNr">16753 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16754" class="LineNr">16754 </span> 05/add-to-eax 4/imm32 +<span id="L16755" class="LineNr">16755 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16756" class="LineNr">16756 </span> 51/push-ecx +<span id="L16757" class="LineNr">16757 </span> 50/push-eax +<span id="L16758" class="LineNr">16758 </span> 89/<- %ecx 4/r32/esp +<span id="L16759" class="LineNr">16759 </span> <span class="subxComment">#</span> +<span id="L16760" class="LineNr">16760 </span> (<a href='mu.subx.html#L16686'>is-identifier?</a> %ecx) +<span id="L16761" class="LineNr">16761 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-underscore"</span>) +<span id="L16762" class="LineNr">16762 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16763" class="LineNr">16763 </span> 89/<- %esp 5/r32/ebp +<span id="L16764" class="LineNr">16764 </span> 5d/pop-to-ebp +<span id="L16765" class="LineNr">16765 </span> c3/return +<span id="L16766" class="LineNr">16766 </span> +<span id="L16767" class="LineNr">16767 </span><span class="subxTest">test-is-identifier-a</span>: +<span id="L16768" class="LineNr">16768 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16769" class="LineNr">16769 </span> 55/push-ebp +<span id="L16770" class="LineNr">16770 </span> 89/<- %ebp 4/r32/esp +<span id="L16771" class="LineNr">16771 </span> <span class="subxComment"># (eax..ecx) = "a$"</span> +<span id="L16772" class="LineNr">16772 </span> b8/copy-to-eax <span class="Constant">"a$"</span>/imm32 +<span id="L16773" class="LineNr">16773 </span> 8b/-> *eax 1/r32/ecx +<span id="L16774" class="LineNr">16774 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16775" class="LineNr">16775 </span> 05/add-to-eax 4/imm32 +<span id="L16776" class="LineNr">16776 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16777" class="LineNr">16777 </span> 51/push-ecx +<span id="L16778" class="LineNr">16778 </span> 50/push-eax +<span id="L16779" class="LineNr">16779 </span> 89/<- %ecx 4/r32/esp +<span id="L16780" class="LineNr">16780 </span> <span class="subxComment">#</span> +<span id="L16781" class="LineNr">16781 </span> (<a href='mu.subx.html#L16686'>is-identifier?</a> %ecx) +<span id="L16782" class="LineNr">16782 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-a"</span>) +<span id="L16783" class="LineNr">16783 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16784" class="LineNr">16784 </span> 89/<- %esp 5/r32/ebp +<span id="L16785" class="LineNr">16785 </span> 5d/pop-to-ebp +<span id="L16786" class="LineNr">16786 </span> c3/return +<span id="L16787" class="LineNr">16787 </span> +<span id="L16788" class="LineNr">16788 </span><span class="subxTest">test-is-identifier-z</span>: +<span id="L16789" class="LineNr">16789 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16790" class="LineNr">16790 </span> 55/push-ebp +<span id="L16791" class="LineNr">16791 </span> 89/<- %ebp 4/r32/esp +<span id="L16792" class="LineNr">16792 </span> <span class="subxComment"># (eax..ecx) = "z$"</span> +<span id="L16793" class="LineNr">16793 </span> b8/copy-to-eax <span class="Constant">"z$"</span>/imm32 +<span id="L16794" class="LineNr">16794 </span> 8b/-> *eax 1/r32/ecx +<span id="L16795" class="LineNr">16795 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16796" class="LineNr">16796 </span> 05/add-to-eax 4/imm32 +<span id="L16797" class="LineNr">16797 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16798" class="LineNr">16798 </span> 51/push-ecx +<span id="L16799" class="LineNr">16799 </span> 50/push-eax +<span id="L16800" class="LineNr">16800 </span> 89/<- %ecx 4/r32/esp +<span id="L16801" class="LineNr">16801 </span> <span class="subxComment">#</span> +<span id="L16802" class="LineNr">16802 </span> (<a href='mu.subx.html#L16686'>is-identifier?</a> %ecx) +<span id="L16803" class="LineNr">16803 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-z"</span>) +<span id="L16804" class="LineNr">16804 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16805" class="LineNr">16805 </span> 89/<- %esp 5/r32/ebp +<span id="L16806" class="LineNr">16806 </span> 5d/pop-to-ebp +<span id="L16807" class="LineNr">16807 </span> c3/return +<span id="L16808" class="LineNr">16808 </span> +<span id="L16809" class="LineNr">16809 </span><span class="subxTest">test-is-identifier-A</span>: +<span id="L16810" class="LineNr">16810 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16811" class="LineNr">16811 </span> 55/push-ebp +<span id="L16812" class="LineNr">16812 </span> 89/<- %ebp 4/r32/esp +<span id="L16813" class="LineNr">16813 </span> <span class="subxComment"># (eax..ecx) = "A$"</span> +<span id="L16814" class="LineNr">16814 </span> b8/copy-to-eax <span class="Constant">"A$"</span>/imm32 +<span id="L16815" class="LineNr">16815 </span> 8b/-> *eax 1/r32/ecx +<span id="L16816" class="LineNr">16816 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16817" class="LineNr">16817 </span> 05/add-to-eax 4/imm32 +<span id="L16818" class="LineNr">16818 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16819" class="LineNr">16819 </span> 51/push-ecx +<span id="L16820" class="LineNr">16820 </span> 50/push-eax +<span id="L16821" class="LineNr">16821 </span> 89/<- %ecx 4/r32/esp +<span id="L16822" class="LineNr">16822 </span> <span class="subxComment">#</span> +<span id="L16823" class="LineNr">16823 </span> (<a href='mu.subx.html#L16686'>is-identifier?</a> %ecx) +<span id="L16824" class="LineNr">16824 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-A"</span>) +<span id="L16825" class="LineNr">16825 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16826" class="LineNr">16826 </span> 89/<- %esp 5/r32/ebp +<span id="L16827" class="LineNr">16827 </span> 5d/pop-to-ebp +<span id="L16828" class="LineNr">16828 </span> c3/return +<span id="L16829" class="LineNr">16829 </span> +<span id="L16830" class="LineNr">16830 </span><span class="subxTest">test-is-identifier-Z</span>: +<span id="L16831" class="LineNr">16831 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16832" class="LineNr">16832 </span> 55/push-ebp +<span id="L16833" class="LineNr">16833 </span> 89/<- %ebp 4/r32/esp +<span id="L16834" class="LineNr">16834 </span> <span class="subxComment"># (eax..ecx) = "Z$"</span> +<span id="L16835" class="LineNr">16835 </span> b8/copy-to-eax <span class="Constant">"Z$"</span>/imm32 +<span id="L16836" class="LineNr">16836 </span> 8b/-> *eax 1/r32/ecx +<span id="L16837" class="LineNr">16837 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16838" class="LineNr">16838 </span> 05/add-to-eax 4/imm32 +<span id="L16839" class="LineNr">16839 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16840" class="LineNr">16840 </span> 51/push-ecx +<span id="L16841" class="LineNr">16841 </span> 50/push-eax +<span id="L16842" class="LineNr">16842 </span> 89/<- %ecx 4/r32/esp +<span id="L16843" class="LineNr">16843 </span> <span class="subxComment">#</span> +<span id="L16844" class="LineNr">16844 </span> (<a href='mu.subx.html#L16686'>is-identifier?</a> %ecx) +<span id="L16845" class="LineNr">16845 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-Z"</span>) +<span id="L16846" class="LineNr">16846 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16847" class="LineNr">16847 </span> 89/<- %esp 5/r32/ebp +<span id="L16848" class="LineNr">16848 </span> 5d/pop-to-ebp +<span id="L16849" class="LineNr">16849 </span> c3/return +<span id="L16850" class="LineNr">16850 </span> +<span id="L16851" class="LineNr">16851 </span><span class="subxTest">test-is-identifier-at</span>: +<span id="L16852" class="LineNr">16852 </span> <span class="subxComment"># character before 'A' is invalid</span> +<span id="L16853" class="LineNr">16853 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16854" class="LineNr">16854 </span> 55/push-ebp +<span id="L16855" class="LineNr">16855 </span> 89/<- %ebp 4/r32/esp +<span id="L16856" class="LineNr">16856 </span> <span class="subxComment"># (eax..ecx) = "@a"</span> +<span id="L16857" class="LineNr">16857 </span> b8/copy-to-eax <span class="Constant">"@a"</span>/imm32 +<span id="L16858" class="LineNr">16858 </span> 8b/-> *eax 1/r32/ecx +<span id="L16859" class="LineNr">16859 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16860" class="LineNr">16860 </span> 05/add-to-eax 4/imm32 +<span id="L16861" class="LineNr">16861 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16862" class="LineNr">16862 </span> 51/push-ecx +<span id="L16863" class="LineNr">16863 </span> 50/push-eax +<span id="L16864" class="LineNr">16864 </span> 89/<- %ecx 4/r32/esp +<span id="L16865" class="LineNr">16865 </span> <span class="subxComment">#</span> +<span id="L16866" class="LineNr">16866 </span> (<a href='mu.subx.html#L16686'>is-identifier?</a> %ecx) +<span id="L16867" class="LineNr">16867 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) +<span id="L16868" class="LineNr">16868 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16869" class="LineNr">16869 </span> 89/<- %esp 5/r32/ebp +<span id="L16870" class="LineNr">16870 </span> 5d/pop-to-ebp +<span id="L16871" class="LineNr">16871 </span> c3/return +<span id="L16872" class="LineNr">16872 </span> +<span id="L16873" class="LineNr">16873 </span><span class="subxTest">test-is-identifier-square-bracket</span>: +<span id="L16874" class="LineNr">16874 </span> <span class="subxComment"># character after 'Z' is invalid</span> +<span id="L16875" class="LineNr">16875 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16876" class="LineNr">16876 </span> 55/push-ebp +<span id="L16877" class="LineNr">16877 </span> 89/<- %ebp 4/r32/esp +<span id="L16878" class="LineNr">16878 </span> <span class="subxComment"># (eax..ecx) = "[a"</span> +<span id="L16879" class="LineNr">16879 </span> b8/copy-to-eax <span class="Constant">"[a"</span>/imm32 +<span id="L16880" class="LineNr">16880 </span> 8b/-> *eax 1/r32/ecx +<span id="L16881" class="LineNr">16881 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16882" class="LineNr">16882 </span> 05/add-to-eax 4/imm32 +<span id="L16883" class="LineNr">16883 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16884" class="LineNr">16884 </span> 51/push-ecx +<span id="L16885" class="LineNr">16885 </span> 50/push-eax +<span id="L16886" class="LineNr">16886 </span> 89/<- %ecx 4/r32/esp +<span id="L16887" class="LineNr">16887 </span> <span class="subxComment">#</span> +<span id="L16888" class="LineNr">16888 </span> (<a href='mu.subx.html#L16686'>is-identifier?</a> %ecx) +<span id="L16889" class="LineNr">16889 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) +<span id="L16890" class="LineNr">16890 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16891" class="LineNr">16891 </span> 89/<- %esp 5/r32/ebp +<span id="L16892" class="LineNr">16892 </span> 5d/pop-to-ebp +<span id="L16893" class="LineNr">16893 </span> c3/return +<span id="L16894" class="LineNr">16894 </span> +<span id="L16895" class="LineNr">16895 </span><span class="subxTest">test-is-identifier-backtick</span>: +<span id="L16896" class="LineNr">16896 </span> <span class="subxComment"># character before 'a' is invalid</span> +<span id="L16897" class="LineNr">16897 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16898" class="LineNr">16898 </span> 55/push-ebp +<span id="L16899" class="LineNr">16899 </span> 89/<- %ebp 4/r32/esp +<span id="L16900" class="LineNr">16900 </span> <span class="subxComment"># (eax..ecx) = "`a"</span> +<span id="L16901" class="LineNr">16901 </span> b8/copy-to-eax <span class="Constant">"`a"</span>/imm32 +<span id="L16902" class="LineNr">16902 </span> 8b/-> *eax 1/r32/ecx +<span id="L16903" class="LineNr">16903 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16904" class="LineNr">16904 </span> 05/add-to-eax 4/imm32 +<span id="L16905" class="LineNr">16905 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16906" class="LineNr">16906 </span> 51/push-ecx +<span id="L16907" class="LineNr">16907 </span> 50/push-eax +<span id="L16908" class="LineNr">16908 </span> 89/<- %ecx 4/r32/esp +<span id="L16909" class="LineNr">16909 </span> <span class="subxComment">#</span> +<span id="L16910" class="LineNr">16910 </span> (<a href='mu.subx.html#L16686'>is-identifier?</a> %ecx) +<span id="L16911" class="LineNr">16911 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-backtick"</span>) +<span id="L16912" class="LineNr">16912 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16913" class="LineNr">16913 </span> 89/<- %esp 5/r32/ebp +<span id="L16914" class="LineNr">16914 </span> 5d/pop-to-ebp +<span id="L16915" class="LineNr">16915 </span> c3/return +<span id="L16916" class="LineNr">16916 </span> +<span id="L16917" class="LineNr">16917 </span><span class="subxTest">test-is-identifier-curly-brace-open</span>: +<span id="L16918" class="LineNr">16918 </span> <span class="subxComment"># character after 'z' is invalid; also used for blocks</span> +<span id="L16919" class="LineNr">16919 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16920" class="LineNr">16920 </span> 55/push-ebp +<span id="L16921" class="LineNr">16921 </span> 89/<- %ebp 4/r32/esp +<span id="L16922" class="LineNr">16922 </span> <span class="subxComment"># (eax..ecx) = "{a"</span> +<span id="L16923" class="LineNr">16923 </span> b8/copy-to-eax <span class="Constant">"{a"</span>/imm32 +<span id="L16924" class="LineNr">16924 </span> 8b/-> *eax 1/r32/ecx +<span id="L16925" class="LineNr">16925 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16926" class="LineNr">16926 </span> 05/add-to-eax 4/imm32 +<span id="L16927" class="LineNr">16927 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16928" class="LineNr">16928 </span> 51/push-ecx +<span id="L16929" class="LineNr">16929 </span> 50/push-eax +<span id="L16930" class="LineNr">16930 </span> 89/<- %ecx 4/r32/esp +<span id="L16931" class="LineNr">16931 </span> <span class="subxComment">#</span> +<span id="L16932" class="LineNr">16932 </span> (<a href='mu.subx.html#L16686'>is-identifier?</a> %ecx) +<span id="L16933" class="LineNr">16933 </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="L16934" class="LineNr">16934 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16935" class="LineNr">16935 </span> 89/<- %esp 5/r32/ebp +<span id="L16936" class="LineNr">16936 </span> 5d/pop-to-ebp +<span id="L16937" class="LineNr">16937 </span> c3/return +<span id="L16938" class="LineNr">16938 </span> +<span id="L16939" class="LineNr">16939 </span><span class="subxTest">test-is-identifier-curly-brace-close</span>: +<span id="L16940" class="LineNr">16940 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16941" class="LineNr">16941 </span> 55/push-ebp +<span id="L16942" class="LineNr">16942 </span> 89/<- %ebp 4/r32/esp +<span id="L16943" class="LineNr">16943 </span> <span class="subxComment"># (eax..ecx) = "}a"</span> +<span id="L16944" class="LineNr">16944 </span> b8/copy-to-eax <span class="Constant">"}a"</span>/imm32 +<span id="L16945" class="LineNr">16945 </span> 8b/-> *eax 1/r32/ecx +<span id="L16946" class="LineNr">16946 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16947" class="LineNr">16947 </span> 05/add-to-eax 4/imm32 +<span id="L16948" class="LineNr">16948 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16949" class="LineNr">16949 </span> 51/push-ecx +<span id="L16950" class="LineNr">16950 </span> 50/push-eax +<span id="L16951" class="LineNr">16951 </span> 89/<- %ecx 4/r32/esp +<span id="L16952" class="LineNr">16952 </span> <span class="subxComment">#</span> +<span id="L16953" class="LineNr">16953 </span> (<a href='mu.subx.html#L16686'>is-identifier?</a> %ecx) +<span id="L16954" class="LineNr">16954 </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="L16955" class="LineNr">16955 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16956" class="LineNr">16956 </span> 89/<- %esp 5/r32/ebp +<span id="L16957" class="LineNr">16957 </span> 5d/pop-to-ebp +<span id="L16958" class="LineNr">16958 </span> c3/return +<span id="L16959" class="LineNr">16959 </span> +<span id="L16960" class="LineNr">16960 </span><span class="subxTest">test-is-identifier-hyphen</span>: +<span id="L16961" class="LineNr">16961 </span> <span class="subxComment"># disallow leading '-' since '->' has special meaning</span> +<span id="L16962" class="LineNr">16962 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16963" class="LineNr">16963 </span> 55/push-ebp +<span id="L16964" class="LineNr">16964 </span> 89/<- %ebp 4/r32/esp +<span id="L16965" class="LineNr">16965 </span> <span class="subxComment"># (eax..ecx) = "-a"</span> +<span id="L16966" class="LineNr">16966 </span> b8/copy-to-eax <span class="Constant">"-a"</span>/imm32 +<span id="L16967" class="LineNr">16967 </span> 8b/-> *eax 1/r32/ecx +<span id="L16968" class="LineNr">16968 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L16969" class="LineNr">16969 </span> 05/add-to-eax 4/imm32 +<span id="L16970" class="LineNr">16970 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L16971" class="LineNr">16971 </span> 51/push-ecx +<span id="L16972" class="LineNr">16972 </span> 50/push-eax +<span id="L16973" class="LineNr">16973 </span> 89/<- %ecx 4/r32/esp +<span id="L16974" class="LineNr">16974 </span> <span class="subxComment">#</span> +<span id="L16975" class="LineNr">16975 </span> (<a href='mu.subx.html#L16686'>is-identifier?</a> %ecx) +<span id="L16976" class="LineNr">16976 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-hyphen"</span>) +<span id="L16977" class="LineNr">16977 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16978" class="LineNr">16978 </span> 89/<- %esp 5/r32/ebp +<span id="L16979" class="LineNr">16979 </span> 5d/pop-to-ebp +<span id="L16980" class="LineNr">16980 </span> c3/return +<span id="L16981" class="LineNr">16981 </span> +<span id="L16982" class="LineNr">16982 </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="L16983" class="LineNr">16983 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16984" class="LineNr">16984 </span> 55/push-ebp +<span id="L16985" class="LineNr">16985 </span> 89/<- %ebp 4/r32/esp +<span id="L16986" class="LineNr">16986 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16987" class="LineNr">16987 </span> 50/push-eax +<span id="L16988" class="LineNr">16988 </span> 56/push-esi +<span id="L16989" class="LineNr">16989 </span> 57/push-edi +<span id="L16990" class="LineNr">16990 </span> <span class="subxComment"># esi = in</span> +<span id="L16991" class="LineNr">16991 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L16992" class="LineNr">16992 </span> <span class="subxComment"># edi = out</span> +<span id="L16993" class="LineNr">16993 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L16994" class="LineNr">16994 </span> <span class="subxComment"># initialize some global state</span> +<span id="L16995" class="LineNr">16995 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 1/imm32 +<span id="L16996" class="LineNr">16996 </span> <span class="subxComment"># parse-mu-block(in, vars, out, out->body)</span> +<span id="L16997" class="LineNr">16997 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Function-body</span> +<span id="L16998" class="LineNr">16998 </span> (<a href='mu.subx.html#L17010'>parse-mu-block</a> %esi *(ebp+0x10) %edi %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L16999" class="LineNr">16999 </span><span class="Constant">$populate-mu-function-body:end</span>: +<span id="L17000" class="LineNr">17000 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17001" class="LineNr">17001 </span> 5f/pop-to-edi +<span id="L17002" class="LineNr">17002 </span> 5e/pop-to-esi +<span id="L17003" class="LineNr">17003 </span> 58/pop-to-eax +<span id="L17004" class="LineNr">17004 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17005" class="LineNr">17005 </span> 89/<- %esp 5/r32/ebp +<span id="L17006" class="LineNr">17006 </span> 5d/pop-to-ebp +<span id="L17007" class="LineNr">17007 </span> c3/return +<span id="L17008" class="LineNr">17008 </span> +<span id="L17009" class="LineNr">17009 </span><span class="subxComment"># parses a block, assuming that the leading '{' has already been read by the caller</span> +<span id="L17010" class="LineNr">17010 </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="L17011" class="LineNr">17011 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17012" class="LineNr">17012 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L17013" class="LineNr">17013 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L17014" class="LineNr">17014 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> +<span id="L17015" class="LineNr">17015 </span> <span class="subxComment"># var out-addr: (addr block) = lookup(*out)</span> +<span id="L17016" class="LineNr">17016 </span> <span class="subxComment"># out-addr->tag = 0/block</span> +<span id="L17017" class="LineNr">17017 </span> <span class="subxComment"># out-addr->var = some unique name</span> +<span id="L17018" class="LineNr">17018 </span> <span class="subxComment"># push(vars, {out-addr->var, false})</span> +<span id="L17019" class="LineNr">17019 </span> <span class="subxComment"># while true # line loop</span> +<span id="L17020" class="LineNr">17020 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L17021" class="LineNr">17021 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L17022" class="LineNr">17022 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L17023" class="LineNr">17023 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L17024" class="LineNr">17024 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L17025" class="LineNr">17025 </span> <span class="subxComment"># continue</span> +<span id="L17026" class="LineNr">17026 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#")</span> +<span id="L17027" class="LineNr">17027 </span> <span class="subxComment"># continue</span> +<span id="L17028" class="LineNr">17028 </span> <span class="subxComment"># else if slice-equal?(word-slice, "{")</span> +<span id="L17029" class="LineNr">17029 </span> <span class="subxComment"># assert(no-tokens-in(line))</span> +<span id="L17030" class="LineNr">17030 </span> <span class="subxComment"># block = parse-mu-block(in, vars, fn)</span> +<span id="L17031" class="LineNr">17031 </span> <span class="subxComment"># append-to-block(out-addr, block)</span> +<span id="L17032" class="LineNr">17032 </span> <span class="subxComment"># else if slice-equal?(word-slice, "}")</span> +<span id="L17033" class="LineNr">17033 </span> <span class="subxComment"># break</span> +<span id="L17034" class="LineNr">17034 </span> <span class="subxComment"># else if slice-ends-with?(word-slice, ":")</span> +<span id="L17035" class="LineNr">17035 </span> <span class="subxComment"># # TODO: error-check the rest of 'line'</span> +<span id="L17036" class="LineNr">17036 </span> <span class="subxComment"># --word-slice->end to skip ':'</span> +<span id="L17037" class="LineNr">17037 </span> <span class="subxComment"># named-block = parse-mu-named-block(word-slice, in, vars, fn)</span> +<span id="L17038" class="LineNr">17038 </span> <span class="subxComment"># append-to-block(out-addr, named-block)</span> +<span id="L17039" class="LineNr">17039 </span> <span class="subxComment"># else if slice-equal?(word-slice, "var")</span> +<span id="L17040" class="LineNr">17040 </span> <span class="subxComment"># var-def = parse-mu-var-def(line, vars, fn)</span> +<span id="L17041" class="LineNr">17041 </span> <span class="subxComment"># append-to-block(out-addr, var-def)</span> +<span id="L17042" class="LineNr">17042 </span> <span class="subxComment"># else</span> +<span id="L17043" class="LineNr">17043 </span> <span class="subxComment"># stmt = parse-mu-stmt(line, vars, fn)</span> +<span id="L17044" class="LineNr">17044 </span> <span class="subxComment"># append-to-block(out-addr, stmt)</span> +<span id="L17045" class="LineNr">17045 </span> <span class="subxComment"># pop(vars)</span> +<span id="L17046" class="LineNr">17046 </span> <span class="subxComment">#</span> +<span id="L17047" class="LineNr">17047 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17048" class="LineNr">17048 </span> 55/push-ebp +<span id="L17049" class="LineNr">17049 </span> 89/<- %ebp 4/r32/esp +<span id="L17050" class="LineNr">17050 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17051" class="LineNr">17051 </span> 50/push-eax +<span id="L17052" class="LineNr">17052 </span> 51/push-ecx +<span id="L17053" class="LineNr">17053 </span> 52/push-edx +<span id="L17054" class="LineNr">17054 </span> 53/push-ebx +<span id="L17055" class="LineNr">17055 </span> 57/push-edi +<span id="L17056" class="LineNr">17056 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L17057" class="LineNr">17057 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L17058" class="LineNr">17058 </span> 68/push 0x200/imm32/size +<span id="L17059" class="LineNr">17059 </span> 68/push 0/imm32/read +<span id="L17060" class="LineNr">17060 </span> 68/push 0/imm32/write +<span id="L17061" class="LineNr">17061 </span> 89/<- %ecx 4/r32/esp +<span id="L17062" class="LineNr">17062 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L17063" class="LineNr">17063 </span> 68/push 0/imm32/end +<span id="L17064" class="LineNr">17064 </span> 68/push 0/imm32/start +<span id="L17065" class="LineNr">17065 </span> 89/<- %edx 4/r32/esp +<span id="L17066" class="LineNr">17066 </span> <span class="subxComment"># allocate into out</span> +<span id="L17067" class="LineNr">17067 </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="L17068" class="LineNr">17068 </span> <span class="subxComment"># var out-addr/edi: (addr block) = lookup(*out)</span> +<span id="L17069" class="LineNr">17069 </span> 8b/-> *(ebp+0x14) 7/r32/edi +<span id="L17070" class="LineNr">17070 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L17071" class="LineNr">17071 </span> 89/<- %edi 0/r32/eax +<span id="L17072" class="LineNr">17072 </span> <span class="subxComment"># out-addr->tag is 0 (block) by default</span> +<span id="L17073" class="LineNr">17073 </span> <span class="subxComment"># set out-addr->var</span> +<span id="L17074" class="LineNr">17074 </span> 8d/copy-address *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L17075" class="LineNr">17075 </span> (<a href='mu.subx.html#L17230'>new-block-name</a> *(ebp+0x10) %eax) +<span id="L17076" class="LineNr">17076 </span> <span class="subxComment"># push(vars, out-addr->var)</span> +<span id="L17077" class="LineNr">17077 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0xc)) <span class="subxComment"># Block-var</span> +<span id="L17078" class="LineNr">17078 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0x10)) <span class="subxComment"># Block-var</span> +<span id="L17079" class="LineNr">17079 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) 0) <span class="subxComment"># false</span> +<span id="L17080" class="LineNr">17080 </span> <span class="subxComment"># increment *Curr-block-depth</span> +<span id="L17081" class="LineNr">17081 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> +<span id="L17082" class="LineNr">17082 </span> { +<span id="L17083" class="LineNr">17083 </span><span class="Constant">$parse-mu-block:line-loop</span>: +<span id="L17084" class="LineNr">17084 </span> <span class="subxComment"># line = read-line-buffered(in)</span> +<span id="L17085" class="LineNr">17085 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L17086" class="LineNr">17086 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L17087" class="LineNr">17087 </span><span class="CommentedCode">#? (write-buffered Stderr "line: ")</span> +<span id="L17088" class="LineNr">17088 </span><span class="CommentedCode">#? (write-stream-data Stderr %ecx)</span> +<span id="L17089" class="LineNr">17089 </span><span class="CommentedCode">#? #? (write-buffered Stderr Newline) # line has its own newline</span> +<span id="L17090" class="LineNr">17090 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L17091" class="LineNr">17091 </span><span class="CommentedCode">#? (rewind-stream %ecx)</span> +<span id="L17092" class="LineNr">17092 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L17093" class="LineNr">17093 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L17094" class="LineNr">17094 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17095" class="LineNr">17095 </span><span class="CommentedCode">#? (write-buffered Stderr "vars:\n")</span> +<span id="L17096" class="LineNr">17096 </span><span class="CommentedCode">#? (dump-vars *(ebp+0xc))</span> +<span id="L17097" class="LineNr">17097 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L17098" class="LineNr">17098 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> %ecx %edx) +<span id="L17099" class="LineNr">17099 </span><span class="CommentedCode">#? (write-buffered Stderr "word: ")</span> +<span id="L17100" class="LineNr">17100 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %edx)</span> +<span id="L17101" class="LineNr">17101 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L17102" class="LineNr">17102 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L17103" class="LineNr">17103 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L17104" class="LineNr">17104 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) +<span id="L17105" class="LineNr">17105 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17106" class="LineNr">17106 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L17107" class="LineNr">17107 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, '#') continue</span> +<span id="L17108" class="LineNr">17108 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L17109" class="LineNr">17109 </span> 8b/-> *edx 0/r32/eax +<span id="L17110" class="LineNr">17110 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17111" class="LineNr">17111 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L17112" class="LineNr">17112 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L17113" class="LineNr">17113 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L17114" class="LineNr">17114 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 +<span id="L17115" class="LineNr">17115 </span> <span class="subxComment"># if slice-equal?(word-slice, "{")</span> +<span id="L17116" class="LineNr">17116 </span> { +<span id="L17117" class="LineNr">17117 </span><span class="Constant">$parse-mu-block:check-for-block</span>: +<span id="L17118" class="LineNr">17118 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"{"</span>) +<span id="L17119" class="LineNr">17119 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17120" class="LineNr">17120 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17121" class="LineNr">17121 </span> (<a href='mu.subx.html#L17294'>check-no-tokens-left</a> %ecx) +<span id="L17122" class="LineNr">17122 </span> <span class="subxComment"># parse new block and append</span> +<span id="L17123" class="LineNr">17123 </span> <span class="subxS1Comment"># . var tmp/eax: (handle block)</span> +<span id="L17124" class="LineNr">17124 </span> 68/push 0/imm32 +<span id="L17125" class="LineNr">17125 </span> 68/push 0/imm32 +<span id="L17126" class="LineNr">17126 </span> 89/<- %eax 4/r32/esp +<span id="L17127" class="LineNr">17127 </span> <span class="subxS1Comment"># .</span> +<span id="L17128" class="LineNr">17128 </span> (<a href='mu.subx.html#L17010'>parse-mu-block</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L17129" class="LineNr">17129 </span> (<a href='mu.subx.html#L19041'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L17130" class="LineNr">17130 </span> <span class="subxS1Comment"># . reclaim tmp</span> +<span id="L17131" class="LineNr">17131 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17132" class="LineNr">17132 </span> <span class="subxS1Comment"># .</span> +<span id="L17133" class="LineNr">17133 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L17134" class="LineNr">17134 </span> } +<span id="L17135" class="LineNr">17135 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> +<span id="L17136" class="LineNr">17136 </span><span class="Constant">$parse-mu-block:check-for-end</span>: +<span id="L17137" class="LineNr">17137 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) +<span id="L17138" class="LineNr">17138 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17139" class="LineNr">17139 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L17140" class="LineNr">17140 </span> <span class="subxComment"># if slice-ends-with?(word-slice, ":") parse named block and append</span> +<span id="L17141" class="LineNr">17141 </span> { +<span id="L17142" class="LineNr">17142 </span><span class="Constant">$parse-mu-block:check-for-named-block</span>: +<span id="L17143" class="LineNr">17143 </span> <span class="subxS1Comment"># . eax = *(word-slice->end-1)</span> +<span id="L17144" class="LineNr">17144 </span> 8b/-> *(edx+4) 0/r32/eax +<span id="L17145" class="LineNr">17145 </span> 48/decrement-eax +<span id="L17146" class="LineNr">17146 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17147" class="LineNr">17147 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L17148" class="LineNr">17148 </span> <span class="subxS1Comment"># . if (eax != ':') break</span> +<span id="L17149" class="LineNr">17149 </span> 3d/compare-eax-and 0x3a/imm32/colon +<span id="L17150" class="LineNr">17150 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L17151" class="LineNr">17151 </span> <span class="subxComment"># TODO: error-check the rest of 'line'</span> +<span id="L17152" class="LineNr">17152 </span> <span class="subxComment">#</span> +<span id="L17153" class="LineNr">17153 </span> <span class="subxComment"># skip ':'</span> +<span id="L17154" class="LineNr">17154 </span> ff 1/subop/decrement *(edx+4) <span class="subxComment"># Slice-end</span> +<span id="L17155" class="LineNr">17155 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L17156" class="LineNr">17156 </span> 68/push 0/imm32 +<span id="L17157" class="LineNr">17157 </span> 68/push 0/imm32 +<span id="L17158" class="LineNr">17158 </span> 89/<- %eax 4/r32/esp +<span id="L17159" class="LineNr">17159 </span> <span class="subxComment">#</span> +<span id="L17160" class="LineNr">17160 </span> (<a href='mu.subx.html#L17340'>parse-mu-named-block</a> %edx *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L17161" class="LineNr">17161 </span> (<a href='mu.subx.html#L19041'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L17162" class="LineNr">17162 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L17163" class="LineNr">17163 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17164" class="LineNr">17164 </span> <span class="subxComment">#</span> +<span id="L17165" class="LineNr">17165 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L17166" class="LineNr">17166 </span> } +<span id="L17167" class="LineNr">17167 </span> <span class="subxComment"># if slice-equal?(word-slice, "var")</span> +<span id="L17168" class="LineNr">17168 </span> { +<span id="L17169" class="LineNr">17169 </span><span class="Constant">$parse-mu-block:check-for-var</span>: +<span id="L17170" class="LineNr">17170 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"var"</span>) +<span id="L17171" class="LineNr">17171 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17172" class="LineNr">17172 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17173" class="LineNr">17173 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L17174" class="LineNr">17174 </span> 68/push 0/imm32 +<span id="L17175" class="LineNr">17175 </span> 68/push 0/imm32 +<span id="L17176" class="LineNr">17176 </span> 89/<- %eax 4/r32/esp +<span id="L17177" class="LineNr">17177 </span> <span class="subxComment">#</span> +<span id="L17178" class="LineNr">17178 </span> (<a href='mu.subx.html#L17396'>parse-mu-var-def</a> %ecx *(ebp+0xc) %eax *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L17179" class="LineNr">17179 </span> (<a href='mu.subx.html#L19041'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L17180" class="LineNr">17180 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L17181" class="LineNr">17181 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17182" class="LineNr">17182 </span> <span class="subxComment">#</span> +<span id="L17183" class="LineNr">17183 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L17184" class="LineNr">17184 </span> } +<span id="L17185" class="LineNr">17185 </span><span class="Constant">$parse-mu-block:regular-stmt</span>: +<span id="L17186" class="LineNr">17186 </span> <span class="subxComment"># otherwise</span> +<span id="L17187" class="LineNr">17187 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L17188" class="LineNr">17188 </span> 68/push 0/imm32 +<span id="L17189" class="LineNr">17189 </span> 68/push 0/imm32 +<span id="L17190" class="LineNr">17190 </span> 89/<- %eax 4/r32/esp +<span id="L17191" class="LineNr">17191 </span> <span class="subxComment">#</span> +<span id="L17192" class="LineNr">17192 </span> (<a href='mu.subx.html#L17660'>parse-mu-stmt</a> %ecx *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L17193" class="LineNr">17193 </span> (<a href='mu.subx.html#L19041'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L17194" class="LineNr">17194 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L17195" class="LineNr">17195 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17196" class="LineNr">17196 </span> <span class="subxComment">#</span> +<span id="L17197" class="LineNr">17197 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L17198" class="LineNr">17198 </span> } <span class="subxComment"># end line loop</span> +<span id="L17199" class="LineNr">17199 </span> (<a href='mu.subx.html#L26857'>clean-up-blocks</a> *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> *(ebp+0x10)) +<span id="L17200" class="LineNr">17200 </span> <span class="subxComment"># decrement *Curr-block-depth</span> +<span id="L17201" class="LineNr">17201 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> +<span id="L17202" class="LineNr">17202 </span> <span class="subxComment"># pop(vars)</span> +<span id="L17203" class="LineNr">17203 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L17204" class="LineNr">17204 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L17205" class="LineNr">17205 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L17206" class="LineNr">17206 </span><span class="Constant">$parse-mu-block:end</span>: +<span id="L17207" class="LineNr">17207 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17208" class="LineNr">17208 </span> 81 0/subop/add %esp 0x214/imm32 +<span id="L17209" class="LineNr">17209 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17210" class="LineNr">17210 </span> 5f/pop-to-edi +<span id="L17211" class="LineNr">17211 </span> 5b/pop-to-ebx +<span id="L17212" class="LineNr">17212 </span> 5a/pop-to-edx +<span id="L17213" class="LineNr">17213 </span> 59/pop-to-ecx +<span id="L17214" class="LineNr">17214 </span> 58/pop-to-eax +<span id="L17215" class="LineNr">17215 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17216" class="LineNr">17216 </span> 89/<- %esp 5/r32/ebp +<span id="L17217" class="LineNr">17217 </span> 5d/pop-to-ebp +<span id="L17218" class="LineNr">17218 </span> c3/return +<span id="L17219" class="LineNr">17219 </span> +<span id="L17220" class="LineNr">17220 </span><span class="Constant">$parse-mu-block:abort</span>: +<span id="L17221" class="LineNr">17221 </span> <span class="subxComment"># error("'{' or '}' should be on its own line, but got '")</span> +<span id="L17222" class="LineNr">17222 </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="L17223" class="LineNr">17223 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> %ecx) +<span id="L17224" class="LineNr">17224 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) %ecx) +<span id="L17225" class="LineNr">17225 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L17226" class="LineNr">17226 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17227" class="LineNr">17227 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17228" class="LineNr">17228 </span> <span class="subxComment"># never gets here</span> +<span id="L17229" class="LineNr">17229 </span> +<span id="L17230" class="LineNr">17230 </span><span class="subxFunction">new-block-name</span>: <span class="subxComment"># fn: (addr function), out: (addr handle var)</span> +<span id="L17231" class="LineNr">17231 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17232" class="LineNr">17232 </span> 55/push-ebp +<span id="L17233" class="LineNr">17233 </span> 89/<- %ebp 4/r32/esp +<span id="L17234" class="LineNr">17234 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17235" class="LineNr">17235 </span> 50/push-eax +<span id="L17236" class="LineNr">17236 </span> 51/push-ecx +<span id="L17237" class="LineNr">17237 </span> 52/push-edx +<span id="L17238" class="LineNr">17238 </span> <span class="subxComment"># var n/ecx: int = len(fn->name) + 10 for an int + 2 for '$:'</span> +<span id="L17239" class="LineNr">17239 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17240" class="LineNr">17240 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L17241" class="LineNr">17241 </span> 8b/-> *eax 0/r32/eax <span class="subxComment"># String-size</span> +<span id="L17242" class="LineNr">17242 </span> 05/add-to-eax 0xd/imm32 <span class="subxComment"># 10 + 2 for '$:'</span> +<span id="L17243" class="LineNr">17243 </span> 89/<- %ecx 0/r32/eax +<span id="L17244" class="LineNr">17244 </span> <span class="subxComment"># var name/edx: (stream byte n)</span> +<span id="L17245" class="LineNr">17245 </span> 29/subtract-from %esp 1/r32/ecx +<span id="L17246" class="LineNr">17246 </span> ff 6/subop/push %ecx +<span id="L17247" class="LineNr">17247 </span> 68/push 0/imm32/read +<span id="L17248" class="LineNr">17248 </span> 68/push 0/imm32/write +<span id="L17249" class="LineNr">17249 </span> 89/<- %edx 4/r32/esp +<span id="L17250" class="LineNr">17250 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %edx) +<span id="L17251" class="LineNr">17251 </span> <span class="subxComment"># eax = fn->name</span> +<span id="L17252" class="LineNr">17252 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17253" class="LineNr">17253 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L17254" class="LineNr">17254 </span> <span class="subxComment"># construct result using Next-block-index (and increment it)</span> +<span id="L17255" class="LineNr">17255 </span> (<a href='../108write.subx.html#L24'>write</a> %edx <span class="Constant">"$"</span>) +<span id="L17256" class="LineNr">17256 </span> (<a href='../108write.subx.html#L24'>write</a> %edx %eax) +<span id="L17257" class="LineNr">17257 </span> (<a href='../108write.subx.html#L24'>write</a> %edx <span class="Constant">":"</span>) +<span id="L17258" class="LineNr">17258 </span> (<a href='../117write-int-hex.subx.html#L178'>write-int32-hex</a> %edx *<span class="SpecialChar"><a href='mu.subx.html#L14608'>Next-block-index</a></span>) +<span id="L17259" class="LineNr">17259 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L14608'>Next-block-index</a></span> +<span id="L17260" class="LineNr">17260 </span> <span class="subxComment"># var s/eax: slice = {name->data, name->data + name->write} (clobbering edx)</span> +<span id="L17261" class="LineNr">17261 </span> <span class="subxS1Comment"># . eax = name->write</span> +<span id="L17262" class="LineNr">17262 </span> 8b/-> *edx 0/r32/eax +<span id="L17263" class="LineNr">17263 </span> <span class="subxS1Comment"># . edx = name->data</span> +<span id="L17264" class="LineNr">17264 </span> 8d/copy-address *(edx+0xc) 2/r32/edx +<span id="L17265" class="LineNr">17265 </span> <span class="subxS1Comment"># . eax = name->write + name->data</span> +<span id="L17266" class="LineNr">17266 </span> 01/add-to %eax 2/r32/edx +<span id="L17267" class="LineNr">17267 </span> <span class="subxS1Comment"># . push {edx, eax}</span> +<span id="L17268" class="LineNr">17268 </span> ff 6/subop/push %eax +<span id="L17269" class="LineNr">17269 </span> ff 6/subop/push %edx +<span id="L17270" class="LineNr">17270 </span> 89/<- %eax 4/r32/esp +<span id="L17271" class="LineNr">17271 </span> <span class="subxComment"># out = new literal(s)</span> +<span id="L17272" class="LineNr">17272 </span> (<a href='mu.subx.html#L18768'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %eax *(ebp+0xc)) +<span id="L17273" class="LineNr">17273 </span><span class="CommentedCode">#? 8b/-> *(ebp+0xc) 0/r32/eax</span> +<span id="L17274" class="LineNr">17274 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid in caller after new-literal: ")</span> +<span id="L17275" class="LineNr">17275 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(eax+8))</span> +<span id="L17276" class="LineNr">17276 </span><span class="CommentedCode">#? (write-buffered Stderr " for var ")</span> +<span id="L17277" class="LineNr">17277 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L17278" class="LineNr">17278 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L17279" class="LineNr">17279 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L17280" class="LineNr">17280 </span><span class="Constant">$new-block-name:end</span>: +<span id="L17281" class="LineNr">17281 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17282" class="LineNr">17282 </span> 81 0/subop/add %ecx 0xc/imm32 <span class="subxComment"># name.{read/write/len}</span> +<span id="L17283" class="LineNr">17283 </span> 81 0/subop/add %ecx 8/imm32 <span class="subxComment"># slice</span> +<span id="L17284" class="LineNr">17284 </span> 01/add-to %esp 1/r32/ecx +<span id="L17285" class="LineNr">17285 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17286" class="LineNr">17286 </span> 5a/pop-to-edx +<span id="L17287" class="LineNr">17287 </span> 59/pop-to-ecx +<span id="L17288" class="LineNr">17288 </span> 58/pop-to-eax +<span id="L17289" class="LineNr">17289 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17290" class="LineNr">17290 </span> 89/<- %esp 5/r32/ebp +<span id="L17291" class="LineNr">17291 </span> 5d/pop-to-ebp +<span id="L17292" class="LineNr">17292 </span> c3/return +<span id="L17293" class="LineNr">17293 </span> +<span id="L17294" class="LineNr">17294 </span><span class="subxFunction">check-no-tokens-left</span>: <span class="subxComment"># line: (addr stream byte)</span> +<span id="L17295" class="LineNr">17295 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17296" class="LineNr">17296 </span> 55/push-ebp +<span id="L17297" class="LineNr">17297 </span> 89/<- %ebp 4/r32/esp +<span id="L17298" class="LineNr">17298 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17299" class="LineNr">17299 </span> 50/push-eax +<span id="L17300" class="LineNr">17300 </span> 51/push-ecx +<span id="L17301" class="LineNr">17301 </span> <span class="subxComment"># var s/ecx: slice</span> +<span id="L17302" class="LineNr">17302 </span> 68/push 0/imm32/end +<span id="L17303" class="LineNr">17303 </span> 68/push 0/imm32/start +<span id="L17304" class="LineNr">17304 </span> 89/<- %ecx 4/r32/esp +<span id="L17305" class="LineNr">17305 </span> <span class="subxComment">#</span> +<span id="L17306" class="LineNr">17306 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L17307" class="LineNr">17307 </span> <span class="subxComment"># if slice-empty?(s) return</span> +<span id="L17308" class="LineNr">17308 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) +<span id="L17309" class="LineNr">17309 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17310" class="LineNr">17310 </span> 75/jump-if-!= $check-no-tokens-left:end/disp8 +<span id="L17311" class="LineNr">17311 </span> <span class="subxComment"># if (slice-starts-with?(s, '#') return</span> +<span id="L17312" class="LineNr">17312 </span> <span class="subxS1Comment"># . eax = *s->start</span> +<span id="L17313" class="LineNr">17313 </span> 8b/-> *edx 0/r32/eax +<span id="L17314" class="LineNr">17314 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17315" class="LineNr">17315 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L17316" class="LineNr">17316 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L17317" class="LineNr">17317 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L17318" class="LineNr">17318 </span> 74/jump-if-= $check-no-tokens-left:end/disp8 +<span id="L17319" class="LineNr">17319 </span> <span class="subxComment"># abort</span> +<span id="L17320" class="LineNr">17320 </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="L17321" class="LineNr">17321 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> %ecx) +<span id="L17322" class="LineNr">17322 </span> (<a href='../113write-stream.subx.html#L17'>write-stream</a> 2 %ecx) +<span id="L17323" class="LineNr">17323 </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="L17324" class="LineNr">17324 </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="L17325" class="LineNr">17325 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L17326" class="LineNr">17326 </span> bb/copy-to-ebx 1/imm32 +<span id="L17327" class="LineNr">17327 </span> e8/call syscall_exit/disp32 +<span id="L17328" class="LineNr">17328 </span> <span class="subxComment"># never gets here</span> +<span id="L17329" class="LineNr">17329 </span><span class="Constant">$check-no-tokens-left:end</span>: +<span id="L17330" class="LineNr">17330 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17331" class="LineNr">17331 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17332" class="LineNr">17332 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17333" class="LineNr">17333 </span> 59/pop-to-ecx +<span id="L17334" class="LineNr">17334 </span> 58/pop-to-eax +<span id="L17335" class="LineNr">17335 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17336" class="LineNr">17336 </span> 89/<- %esp 5/r32/ebp +<span id="L17337" class="LineNr">17337 </span> 5d/pop-to-ebp +<span id="L17338" class="LineNr">17338 </span> c3/return +<span id="L17339" class="LineNr">17339 </span> +<span id="L17340" class="LineNr">17340 </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="L17341" class="LineNr">17341 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17342" class="LineNr">17342 </span> <span class="subxComment"># var v: (handle var)</span> +<span id="L17343" class="LineNr">17343 </span> <span class="subxComment"># new-literal(name, v)</span> +<span id="L17344" class="LineNr">17344 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L17345" class="LineNr">17345 </span> <span class="subxComment"># parse-mu-block(in, vars, fn, out)</span> +<span id="L17346" class="LineNr">17346 </span> <span class="subxComment"># pop(vars)</span> +<span id="L17347" class="LineNr">17347 </span> <span class="subxComment"># out->tag = block</span> +<span id="L17348" class="LineNr">17348 </span> <span class="subxComment"># out->var = v</span> +<span id="L17349" class="LineNr">17349 </span> <span class="subxComment">#</span> +<span id="L17350" class="LineNr">17350 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17351" class="LineNr">17351 </span> 55/push-ebp +<span id="L17352" class="LineNr">17352 </span> 89/<- %ebp 4/r32/esp +<span id="L17353" class="LineNr">17353 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17354" class="LineNr">17354 </span> 50/push-eax +<span id="L17355" class="LineNr">17355 </span> 51/push-ecx +<span id="L17356" class="LineNr">17356 </span> 57/push-edi +<span id="L17357" class="LineNr">17357 </span> <span class="subxComment"># var v/ecx: (handle var)</span> +<span id="L17358" class="LineNr">17358 </span> 68/push 0/imm32 +<span id="L17359" class="LineNr">17359 </span> 68/push 0/imm32 +<span id="L17360" class="LineNr">17360 </span> 89/<- %ecx 4/r32/esp +<span id="L17361" class="LineNr">17361 </span> <span class="subxComment">#</span> +<span id="L17362" class="LineNr">17362 </span> (<a href='mu.subx.html#L18768'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) %ecx) +<span id="L17363" class="LineNr">17363 </span> <span class="subxComment"># push(vars, v)</span> +<span id="L17364" class="LineNr">17364 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *ecx) +<span id="L17365" class="LineNr">17365 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) +<span id="L17366" class="LineNr">17366 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L17367" class="LineNr">17367 </span> <span class="subxComment">#</span> +<span id="L17368" class="LineNr">17368 </span> (<a href='mu.subx.html#L17010'>parse-mu-block</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c) *(ebp+0x20)) +<span id="L17369" class="LineNr">17369 </span> <span class="subxComment"># pop v off vars</span> +<span id="L17370" class="LineNr">17370 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L17371" class="LineNr">17371 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L17372" class="LineNr">17372 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L17373" class="LineNr">17373 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> +<span id="L17374" class="LineNr">17374 </span> 8b/-> *(ebp+0x18) 7/r32/edi +<span id="L17375" class="LineNr">17375 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L17376" class="LineNr">17376 </span> 89/<- %edi 0/r32/eax +<span id="L17377" class="LineNr">17377 </span> <span class="subxComment"># out-addr->tag = named-block</span> +<span id="L17378" class="LineNr">17378 </span> c7 0/subop/copy *edi 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L17379" class="LineNr">17379 </span> <span class="subxComment"># out-addr->var = v</span> +<span id="L17380" class="LineNr">17380 </span> 8b/-> *ecx 0/r32/eax +<span id="L17381" class="LineNr">17381 </span> 89/<- *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L17382" class="LineNr">17382 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L17383" class="LineNr">17383 </span> 89/<- *(edi+0x10) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L17384" class="LineNr">17384 </span><span class="Constant">$parse-mu-named-block:end</span>: +<span id="L17385" class="LineNr">17385 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17386" class="LineNr">17386 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17387" class="LineNr">17387 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17388" class="LineNr">17388 </span> 5f/pop-to-edi +<span id="L17389" class="LineNr">17389 </span> 59/pop-to-ecx +<span id="L17390" class="LineNr">17390 </span> 58/pop-to-eax +<span id="L17391" class="LineNr">17391 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17392" class="LineNr">17392 </span> 89/<- %esp 5/r32/ebp +<span id="L17393" class="LineNr">17393 </span> 5d/pop-to-ebp +<span id="L17394" class="LineNr">17394 </span> c3/return +<span id="L17395" class="LineNr">17395 </span> +<span id="L17396" class="LineNr">17396 </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="L17397" class="LineNr">17397 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17398" class="LineNr">17398 </span> 55/push-ebp +<span id="L17399" class="LineNr">17399 </span> 89/<- %ebp 4/r32/esp +<span id="L17400" class="LineNr">17400 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17401" class="LineNr">17401 </span> 50/push-eax +<span id="L17402" class="LineNr">17402 </span> 51/push-ecx +<span id="L17403" class="LineNr">17403 </span> 52/push-edx +<span id="L17404" class="LineNr">17404 </span> 56/push-esi +<span id="L17405" class="LineNr">17405 </span> 57/push-edi +<span id="L17406" class="LineNr">17406 </span> <span class="subxComment"># edi = out</span> +<span id="L17407" class="LineNr">17407 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L17408" class="LineNr">17408 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L17409" class="LineNr">17409 </span> 68/push 0/imm32/end +<span id="L17410" class="LineNr">17410 </span> 68/push 0/imm32/start +<span id="L17411" class="LineNr">17411 </span> 89/<- %ecx 4/r32/esp +<span id="L17412" class="LineNr">17412 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17413" class="LineNr">17413 </span> 68/push 0/imm32 +<span id="L17414" class="LineNr">17414 </span> 68/push 0/imm32 +<span id="L17415" class="LineNr">17415 </span> 89/<- %edx 4/r32/esp +<span id="L17416" class="LineNr">17416 </span> <span class="subxComment"># v = parse-var-with-type(next-mu-token(line))</span> +<span id="L17417" class="LineNr">17417 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L17418" class="LineNr">17418 </span> { +<span id="L17419" class="LineNr">17419 </span> <span class="subxComment"># just for tests, support null fn</span> +<span id="L17420" class="LineNr">17420 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L17421" class="LineNr">17421 </span> 3d/compare-eax-and 0/imm32 +<span id="L17422" class="LineNr">17422 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17423" class="LineNr">17423 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17424" class="LineNr">17424 </span> } +<span id="L17425" class="LineNr">17425 </span> (<a href='mu.subx.html#L15844'>parse-var-with-type</a> %ecx *(ebp+8) %edx %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L17426" class="LineNr">17426 </span> <span class="subxComment"># var v-addr/esi: (addr var)</span> +<span id="L17427" class="LineNr">17427 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17428" class="LineNr">17428 </span> 89/<- %esi 0/r32/eax +<span id="L17429" class="LineNr">17429 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L17430" class="LineNr">17430 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/r32/eax +<span id="L17431" class="LineNr">17431 </span> 89/<- *(esi+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L17432" class="LineNr">17432 </span> <span class="subxComment"># either v has no register and there's no more to this line</span> +<span id="L17433" class="LineNr">17433 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 +<span id="L17434" class="LineNr">17434 </span> { +<span id="L17435" class="LineNr">17435 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17436" class="LineNr">17436 </span> <span class="subxComment"># if v-addr->type == byte, abort</span> +<span id="L17437" class="LineNr">17437 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17438" class="LineNr">17438 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L17439" class="LineNr">17439 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17440" class="LineNr">17440 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-on-stack/disp32 +<span id="L17441" class="LineNr">17441 </span> <span class="subxComment"># ensure that there's nothing else on this line</span> +<span id="L17442" class="LineNr">17442 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L17443" class="LineNr">17443 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L17444" class="LineNr">17444 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17445" class="LineNr">17445 </span> 0f 84/jump-if-= $parse-mu-var-def:error2/disp32 +<span id="L17446" class="LineNr">17446 </span> <span class="subxComment">#</span> +<span id="L17447" class="LineNr">17447 </span> (<a href='mu.subx.html#L18872'>new-var-def</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) +<span id="L17448" class="LineNr">17448 </span> e9/jump $parse-mu-var-def:update-vars/disp32 +<span id="L17449" class="LineNr">17449 </span> } +<span id="L17450" class="LineNr">17450 </span> <span class="subxComment"># or v has a register and there's more to this line</span> +<span id="L17451" class="LineNr">17451 </span> { +<span id="L17452" class="LineNr">17452 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17453" class="LineNr">17453 </span> <span class="subxComment"># if v-addr->type == byte, check for unsupported registers</span> +<span id="L17454" class="LineNr">17454 </span> { +<span id="L17455" class="LineNr">17455 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17456" class="LineNr">17456 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L17457" class="LineNr">17457 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17458" class="LineNr">17458 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17459" class="LineNr">17459 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> +<span id="L17460" class="LineNr">17460 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"esi"</span>) <span class="subxComment"># => eax</span> +<span id="L17461" class="LineNr">17461 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17462" class="LineNr">17462 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 +<span id="L17463" class="LineNr">17463 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> +<span id="L17464" class="LineNr">17464 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"edi"</span>) <span class="subxComment"># => eax</span> +<span id="L17465" class="LineNr">17465 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17466" class="LineNr">17466 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 +<span id="L17467" class="LineNr">17467 </span> } +<span id="L17468" class="LineNr">17468 </span> <span class="subxComment"># TODO: vars of type 'byte' should only be initialized by clearing to 0</span> +<span id="L17469" class="LineNr">17469 </span> <span class="subxComment"># ensure that the next word is '<-'</span> +<span id="L17470" class="LineNr">17470 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L17471" class="LineNr">17471 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> +<span id="L17472" class="LineNr">17472 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17473" class="LineNr">17473 </span> 0f 84/jump-if-= $parse-mu-var-def:error1/disp32 +<span id="L17474" class="LineNr">17474 </span> <span class="subxComment">#</span> +<span id="L17475" class="LineNr">17475 </span> (<a href='mu.subx.html#L18900'>new-reg-var-def</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) +<span id="L17476" class="LineNr">17476 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L17477" class="LineNr">17477 </span> (<a href='mu.subx.html#L17777'>add-operation-and-inputs-to-stmt</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L17478" class="LineNr">17478 </span> } +<span id="L17479" class="LineNr">17479 </span><span class="Constant">$parse-mu-var-def:update-vars</span>: +<span id="L17480" class="LineNr">17480 </span> <span class="subxComment"># push 'v' at end of function</span> +<span id="L17481" class="LineNr">17481 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *edx) +<span id="L17482" class="LineNr">17482 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edx+4)) +<span id="L17483" class="LineNr">17483 </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="L17484" class="LineNr">17484 </span><span class="Constant">$parse-mu-var-def:end</span>: +<span id="L17485" class="LineNr">17485 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17486" class="LineNr">17486 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L17487" class="LineNr">17487 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17488" class="LineNr">17488 </span> 5f/pop-to-edi +<span id="L17489" class="LineNr">17489 </span> 5e/pop-to-esi +<span id="L17490" class="LineNr">17490 </span> 5a/pop-to-edx +<span id="L17491" class="LineNr">17491 </span> 59/pop-to-ecx +<span id="L17492" class="LineNr">17492 </span> 58/pop-to-eax +<span id="L17493" class="LineNr">17493 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17494" class="LineNr">17494 </span> 89/<- %esp 5/r32/ebp +<span id="L17495" class="LineNr">17495 </span> 5d/pop-to-ebp +<span id="L17496" class="LineNr">17496 </span> c3/return +<span id="L17497" class="LineNr">17497 </span> +<span id="L17498" class="LineNr">17498 </span><span class="Constant">$parse-mu-var-def:error1</span>: +<span id="L17499" class="LineNr">17499 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L17500" class="LineNr">17500 </span> <span class="subxComment"># error("register variable requires a valid instruction to initialize but got '" line "'\n")</span> +<span id="L17501" class="LineNr">17501 </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="L17502" class="LineNr">17502 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17503" class="LineNr">17503 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+8)) +<span id="L17504" class="LineNr">17504 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L17505" class="LineNr">17505 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17506" class="LineNr">17506 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17507" class="LineNr">17507 </span> <span class="subxComment"># never gets here</span> +<span id="L17508" class="LineNr">17508 </span> +<span id="L17509" class="LineNr">17509 </span><span class="Constant">$parse-mu-var-def:error2</span>: +<span id="L17510" class="LineNr">17510 </span> <span class="subxComment"># error("fn " fn ": var " var ": variables on the stack can't take an initializer\n")</span> +<span id="L17511" class="LineNr">17511 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17512" class="LineNr">17512 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L17513" class="LineNr">17513 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L17514" class="LineNr">17514 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17515" class="LineNr">17515 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var "</span>) +<span id="L17516" class="LineNr">17516 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> +<span id="L17517" class="LineNr">17517 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17518" class="LineNr">17518 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17519" class="LineNr">17519 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17520" class="LineNr">17520 </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="L17521" class="LineNr">17521 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17522" class="LineNr">17522 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17523" class="LineNr">17523 </span> <span class="subxComment"># never gets here</span> +<span id="L17524" class="LineNr">17524 </span> +<span id="L17525" class="LineNr">17525 </span><span class="Constant">$parse-mu-var-def:error-byte-on-stack</span>: +<span id="L17526" class="LineNr">17526 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be on the stack\n")</span> +<span id="L17527" class="LineNr">17527 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17528" class="LineNr">17528 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L17529" class="LineNr">17529 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L17530" class="LineNr">17530 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17531" class="LineNr">17531 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) +<span id="L17532" class="LineNr">17532 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> +<span id="L17533" class="LineNr">17533 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17534" class="LineNr">17534 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17535" class="LineNr">17535 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17536" class="LineNr">17536 </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="L17537" class="LineNr">17537 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17538" class="LineNr">17538 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17539" class="LineNr">17539 </span> <span class="subxComment"># never gets here</span> +<span id="L17540" class="LineNr">17540 </span> +<span id="L17541" class="LineNr">17541 </span><span class="Constant">$parse-mu-var-def:error-byte-registers</span>: +<span id="L17542" class="LineNr">17542 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be in esi or edi\n")</span> +<span id="L17543" class="LineNr">17543 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17544" class="LineNr">17544 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L17545" class="LineNr">17545 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L17546" class="LineNr">17546 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17547" class="LineNr">17547 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) +<span id="L17548" class="LineNr">17548 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> +<span id="L17549" class="LineNr">17549 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17550" class="LineNr">17550 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17551" class="LineNr">17551 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17552" class="LineNr">17552 </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="L17553" class="LineNr">17553 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17554" class="LineNr">17554 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17555" class="LineNr">17555 </span> <span class="subxComment"># never gets here</span> +<span id="L17556" class="LineNr">17556 </span> +<span id="L17557" class="LineNr">17557 </span><span class="subxTest">test-parse-mu-var-def</span>: +<span id="L17558" class="LineNr">17558 </span> <span class="subxComment"># 'var n: int'</span> +<span id="L17559" class="LineNr">17559 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17560" class="LineNr">17560 </span> 55/push-ebp +<span id="L17561" class="LineNr">17561 </span> 89/<- %ebp 4/r32/esp +<span id="L17562" class="LineNr">17562 </span> <span class="subxComment"># setup</span> +<span id="L17563" class="LineNr">17563 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17564" class="LineNr">17564 </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="L17565" class="LineNr">17565 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17566" class="LineNr">17566 </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="L17567" class="LineNr">17567 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 1/imm32 +<span id="L17568" class="LineNr">17568 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> +<span id="L17569" class="LineNr">17569 </span> 68/push 0/imm32 +<span id="L17570" class="LineNr">17570 </span> 68/push 0/imm32 +<span id="L17571" class="LineNr">17571 </span> 89/<- %esi 4/r32/esp +<span id="L17572" class="LineNr">17572 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L17573" class="LineNr">17573 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L17574" class="LineNr">17574 </span> 68/push 0xc0/imm32/size +<span id="L17575" class="LineNr">17575 </span> 68/push 0/imm32/top +<span id="L17576" class="LineNr">17576 </span> 89/<- %ecx 4/r32/esp +<span id="L17577" class="LineNr">17577 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L17578" class="LineNr">17578 </span> <span class="subxComment"># convert</span> +<span id="L17579" class="LineNr">17579 </span> (<a href='mu.subx.html#L17396'>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="L17580" class="LineNr">17580 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> +<span id="L17581" class="LineNr">17581 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L17582" class="LineNr">17582 </span> 89/<- %esi 0/r32/eax +<span id="L17583" class="LineNr">17583 </span> <span class="subxComment">#</span> +<span id="L17584" class="LineNr">17584 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *esi 2 <span class="Constant">"F - <a href='mu.subx.html#L17557'>test-parse-mu-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is var-def</span> +<span id="L17585" class="LineNr">17585 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->var)</span> +<span id="L17586" class="LineNr">17586 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> +<span id="L17587" class="LineNr">17587 </span> 89/<- %ecx 0/r32/eax +<span id="L17588" class="LineNr">17588 </span> <span class="subxComment"># v->name</span> +<span id="L17589" class="LineNr">17589 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17590" class="LineNr">17590 </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#L17557'>test-parse-mu-var-def</a>/var-name"</span>) +<span id="L17591" class="LineNr">17591 </span> <span class="subxComment"># v->register</span> +<span id="L17592" class="LineNr">17592 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17557'>test-parse-mu-var-def</a>/var-register"</span>) <span class="subxComment"># Var-register</span> +<span id="L17593" class="LineNr">17593 </span> <span class="subxComment"># v->block-depth</span> +<span id="L17594" class="LineNr">17594 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L17557'>test-parse-mu-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> +<span id="L17595" class="LineNr">17595 </span> <span class="subxComment"># v->type == int</span> +<span id="L17596" class="LineNr">17596 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17597" class="LineNr">17597 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17557'>test-parse-mu-var-def</a>/var-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17598" class="LineNr">17598 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17557'>test-parse-mu-var-def</a>/var-type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17599" class="LineNr">17599 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17557'>test-parse-mu-var-def</a>/var-type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17600" class="LineNr">17600 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17601" class="LineNr">17601 </span> 89/<- %esp 5/r32/ebp +<span id="L17602" class="LineNr">17602 </span> 5d/pop-to-ebp +<span id="L17603" class="LineNr">17603 </span> c3/return +<span id="L17604" class="LineNr">17604 </span> +<span id="L17605" class="LineNr">17605 </span><span class="subxTest">test-parse-mu-reg-var-def</span>: +<span id="L17606" class="LineNr">17606 </span> <span class="subxComment"># 'var n/eax: int <- copy 0'</span> +<span id="L17607" class="LineNr">17607 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17608" class="LineNr">17608 </span> 55/push-ebp +<span id="L17609" class="LineNr">17609 </span> 89/<- %ebp 4/r32/esp +<span id="L17610" class="LineNr">17610 </span> <span class="subxComment"># setup</span> +<span id="L17611" class="LineNr">17611 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17612" class="LineNr">17612 </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="L17613" class="LineNr">17613 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17614" class="LineNr">17614 </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="L17615" class="LineNr">17615 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 1/imm32 +<span id="L17616" class="LineNr">17616 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> +<span id="L17617" class="LineNr">17617 </span> 68/push 0/imm32 +<span id="L17618" class="LineNr">17618 </span> 68/push 0/imm32 +<span id="L17619" class="LineNr">17619 </span> 89/<- %esi 4/r32/esp +<span id="L17620" class="LineNr">17620 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L17621" class="LineNr">17621 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L17622" class="LineNr">17622 </span> 68/push 0xc0/imm32/size +<span id="L17623" class="LineNr">17623 </span> 68/push 0/imm32/top +<span id="L17624" class="LineNr">17624 </span> 89/<- %ecx 4/r32/esp +<span id="L17625" class="LineNr">17625 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L17626" class="LineNr">17626 </span> <span class="subxComment"># convert</span> +<span id="L17627" class="LineNr">17627 </span> (<a href='mu.subx.html#L17396'>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="L17628" class="LineNr">17628 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> +<span id="L17629" class="LineNr">17629 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L17630" class="LineNr">17630 </span> 89/<- %esi 0/r32/eax +<span id="L17631" class="LineNr">17631 </span> <span class="subxComment">#</span> +<span id="L17632" class="LineNr">17632 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *esi 3 <span class="Constant">"F - <a href='mu.subx.html#L17605'>test-parse-mu-reg-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is reg-var-def</span> +<span id="L17633" class="LineNr">17633 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->outputs->value)</span> +<span id="L17634" class="LineNr">17634 </span> <span class="subxS1Comment"># . eax: (addr stmt-var) = lookup(out->outputs)</span> +<span id="L17635" class="LineNr">17635 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L17636" class="LineNr">17636 </span> <span class="subxS1Comment"># .</span> +<span id="L17637" class="LineNr">17637 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+8) 0 <span class="Constant">"F - <a href='mu.subx.html#L17605'>test-parse-mu-reg-var-def</a>/single-output"</span>) <span class="subxComment"># Stmt-var-next</span> +<span id="L17638" class="LineNr">17638 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(eax->value)</span> +<span id="L17639" class="LineNr">17639 </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="L17640" class="LineNr">17640 </span> <span class="subxS1Comment"># . ecx = eax</span> +<span id="L17641" class="LineNr">17641 </span> 89/<- %ecx 0/r32/eax +<span id="L17642" class="LineNr">17642 </span> <span class="subxComment"># v->name</span> +<span id="L17643" class="LineNr">17643 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17644" class="LineNr">17644 </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#L17605'>test-parse-mu-reg-var-def</a>/output-name"</span>) <span class="subxComment"># Var-name</span> +<span id="L17645" class="LineNr">17645 </span> <span class="subxComment"># v->register</span> +<span id="L17646" class="LineNr">17646 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17647" class="LineNr">17647 </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#L17605'>test-parse-mu-reg-var-def</a>/output-register"</span>) +<span id="L17648" class="LineNr">17648 </span> <span class="subxComment"># v->block-depth</span> +<span id="L17649" class="LineNr">17649 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L17605'>test-parse-mu-reg-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> +<span id="L17650" class="LineNr">17650 </span> <span class="subxComment"># v->type == int</span> +<span id="L17651" class="LineNr">17651 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17652" class="LineNr">17652 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17605'>test-parse-mu-reg-var-def</a>/output-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17653" class="LineNr">17653 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17605'>test-parse-mu-reg-var-def</a>/output-type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17654" class="LineNr">17654 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17605'>test-parse-mu-reg-var-def</a>/output-type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17655" class="LineNr">17655 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17656" class="LineNr">17656 </span> 89/<- %esp 5/r32/ebp +<span id="L17657" class="LineNr">17657 </span> 5d/pop-to-ebp +<span id="L17658" class="LineNr">17658 </span> c3/return +<span id="L17659" class="LineNr">17659 </span> +<span id="L17660" class="LineNr">17660 </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="L17661" class="LineNr">17661 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17662" class="LineNr">17662 </span> <span class="subxComment"># var name: slice</span> +<span id="L17663" class="LineNr">17663 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> +<span id="L17664" class="LineNr">17664 </span> <span class="subxComment"># var out-addr: (addr stmt) = lookup(*out)</span> +<span id="L17665" class="LineNr">17665 </span> <span class="subxComment"># out-addr->tag = stmt</span> +<span id="L17666" class="LineNr">17666 </span> <span class="subxComment"># if stmt-has-outputs?(line)</span> +<span id="L17667" class="LineNr">17667 </span> <span class="subxComment"># while true</span> +<span id="L17668" class="LineNr">17668 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L17669" class="LineNr">17669 </span> <span class="subxComment"># if (name == '<-') break</span> +<span id="L17670" class="LineNr">17670 </span> <span class="subxComment"># assert(is-identifier?(name))</span> +<span id="L17671" class="LineNr">17671 </span> <span class="subxComment"># var v: (handle var) = lookup-var(name, vars)</span> +<span id="L17672" class="LineNr">17672 </span> <span class="subxComment"># out-addr->outputs = append(v, out-addr->outputs)</span> +<span id="L17673" class="LineNr">17673 </span> <span class="subxComment"># add-operation-and-inputs-to-stmt(out-addr, line, vars)</span> +<span id="L17674" class="LineNr">17674 </span> <span class="subxComment">#</span> +<span id="L17675" class="LineNr">17675 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17676" class="LineNr">17676 </span> 55/push-ebp +<span id="L17677" class="LineNr">17677 </span> 89/<- %ebp 4/r32/esp +<span id="L17678" class="LineNr">17678 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17679" class="LineNr">17679 </span> 50/push-eax +<span id="L17680" class="LineNr">17680 </span> 51/push-ecx +<span id="L17681" class="LineNr">17681 </span> 52/push-edx +<span id="L17682" class="LineNr">17682 </span> 53/push-ebx +<span id="L17683" class="LineNr">17683 </span> 57/push-edi +<span id="L17684" class="LineNr">17684 </span> <span class="subxComment"># var name/ecx: slice</span> +<span id="L17685" class="LineNr">17685 </span> 68/push 0/imm32/end +<span id="L17686" class="LineNr">17686 </span> 68/push 0/imm32/start +<span id="L17687" class="LineNr">17687 </span> 89/<- %ecx 4/r32/esp +<span id="L17688" class="LineNr">17688 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> +<span id="L17689" class="LineNr">17689 </span> ba/copy-to-edx 0/imm32/false +<span id="L17690" class="LineNr">17690 </span> <span class="subxComment"># var v: (handle var)</span> <span id="L17691" class="LineNr">17691 </span> 68/push 0/imm32 <span id="L17692" class="LineNr">17692 </span> 68/push 0/imm32 -<span id="L17693" class="LineNr">17693 </span> 68/push 0/imm32 -<span id="L17694" class="LineNr">17694 </span> 68/push 0/imm32 -<span id="L17695" class="LineNr">17695 </span> 68/push 0/imm32 -<span id="L17696" class="LineNr">17696 </span> 68/push 0/imm32 -<span id="L17697" class="LineNr">17697 </span> 68/push 0/imm32 -<span id="L17698" class="LineNr">17698 </span> 68/push 0/imm32 -<span id="L17699" class="LineNr">17699 </span> 68/push 0/imm32 -<span id="L17700" class="LineNr">17700 </span> 68/push 0/imm32 -<span id="L17701" class="LineNr">17701 </span> 68/push 0/imm32 -<span id="L17702" class="LineNr">17702 </span> 68/push 0/imm32 -<span id="L17703" class="LineNr">17703 </span> 89/<- %edi 4/r32/esp -<span id="L17704" class="LineNr">17704 </span> { -<span id="L17705" class="LineNr">17705 </span><span class="Constant">$lookup-var-helper:loop</span>: -<span id="L17706" class="LineNr">17706 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L17707" class="LineNr">17707 </span> 39/compare %ebx 2/r32/edx -<span id="L17708" class="LineNr">17708 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L17709" class="LineNr">17709 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(*curr)</span> -<span id="L17710" class="LineNr">17710 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L17711" class="LineNr">17711 </span> 89/<- %ecx 0/r32/eax -<span id="L17712" class="LineNr">17712 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> -<span id="L17713" class="LineNr">17713 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17714" class="LineNr">17714 </span> <span class="subxComment"># if (vn == name) return curr</span> -<span id="L17715" class="LineNr">17715 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> -<span id="L17716" class="LineNr">17716 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17717" class="LineNr">17717 </span> { -<span id="L17718" class="LineNr">17718 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17719" class="LineNr">17719 </span><span class="Constant">$lookup-var-helper:found</span>: -<span id="L17720" class="LineNr">17720 </span> <span class="subxComment"># var vr/eax: (addr array byte) = lookup(v->register)</span> -<span id="L17721" class="LineNr">17721 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17722" class="LineNr">17722 </span> 3d/compare-eax-and 0/imm32 -<span id="L17723" class="LineNr">17723 </span> { -<span id="L17724" class="LineNr">17724 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17725" class="LineNr">17725 </span><span class="Constant">$lookup-var-helper:found-register</span>: -<span id="L17726" class="LineNr">17726 </span> <span class="subxComment"># var reg/eax: int = get(Registers, vr)</span> -<span id="L17727" class="LineNr">17727 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L17886'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> -<span id="L17728" class="LineNr">17728 </span> 8b/-> *eax 0/r32/eax -<span id="L17729" class="LineNr">17729 </span> <span class="subxComment"># if (var-in-reg[reg]) error</span> -<span id="L17730" class="LineNr">17730 </span> 8b/-> *(edi+eax<<2) 0/r32/eax -<span id="L17731" class="LineNr">17731 </span> 3d/compare-eax-and 0/imm32 -<span id="L17732" class="LineNr">17732 </span> 0f 85/jump-if-!= $lookup-var-helper:error2/disp32 -<span id="L17733" class="LineNr">17733 </span> } -<span id="L17734" class="LineNr">17734 </span><span class="Constant">$lookup-var-helper:return</span>: -<span id="L17735" class="LineNr">17735 </span> <span class="subxComment"># esi = out</span> -<span id="L17736" class="LineNr">17736 </span> 8b/-> *(ebp+0x10) 6/r32/esi -<span id="L17737" class="LineNr">17737 </span> <span class="subxComment"># *out = *curr</span> -<span id="L17738" class="LineNr">17738 </span> 8b/-> *ebx 0/r32/eax -<span id="L17739" class="LineNr">17739 </span> 89/<- *esi 0/r32/eax -<span id="L17740" class="LineNr">17740 </span> 8b/-> *(ebx+4) 0/r32/eax -<span id="L17741" class="LineNr">17741 </span> 89/<- *(esi+4) 0/r32/eax -<span id="L17742" class="LineNr">17742 </span> <span class="subxComment"># return</span> -<span id="L17743" class="LineNr">17743 </span> eb/jump $lookup-var-helper:end/disp8 -<span id="L17744" class="LineNr">17744 </span> } -<span id="L17745" class="LineNr">17745 </span> <span class="subxComment"># 'name' not yet found; update var-in-reg if v in register</span> -<span id="L17746" class="LineNr">17746 </span> <span class="subxS1Comment"># . var vr/eax: (addr array byte) = lookup(v->register)</span> -<span id="L17747" class="LineNr">17747 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17748" class="LineNr">17748 </span> <span class="subxS1Comment"># . if (vr == 0) continue</span> -<span id="L17749" class="LineNr">17749 </span> 3d/compare-eax-and 0/imm32 -<span id="L17750" class="LineNr">17750 </span> 74/jump-if-= $lookup-var-helper:continue/disp8 -<span id="L17751" class="LineNr">17751 </span> <span class="subxS1Comment"># . var reg/eax: int = get(Registers, vr)</span> -<span id="L17752" class="LineNr">17752 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L17886'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> -<span id="L17753" class="LineNr">17753 </span> 8b/-> *eax 0/r32/eax -<span id="L17754" class="LineNr">17754 </span> <span class="subxS1Comment"># . var-in-reg[reg] = v</span> -<span id="L17755" class="LineNr">17755 </span> 89/<- *(edi+eax<<2) 1/r32/ecx -<span id="L17756" class="LineNr">17756 </span><span class="Constant">$lookup-var-helper:continue</span>: -<span id="L17757" class="LineNr">17757 </span> <span class="subxComment"># curr -= 12</span> -<span id="L17758" class="LineNr">17758 </span> 81 5/subop/subtract %ebx 0xc/imm32 -<span id="L17759" class="LineNr">17759 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L17760" class="LineNr">17760 </span> } -<span id="L17761" class="LineNr">17761 </span><span class="Constant">$lookup-var-helper:end</span>: -<span id="L17762" class="LineNr">17762 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17763" class="LineNr">17763 </span> 81 0/subop/add %esp 0x40/imm32 -<span id="L17764" class="LineNr">17764 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17765" class="LineNr">17765 </span> 5f/pop-to-edi -<span id="L17766" class="LineNr">17766 </span> 5e/pop-to-esi -<span id="L17767" class="LineNr">17767 </span> 5b/pop-to-ebx -<span id="L17768" class="LineNr">17768 </span> 5a/pop-to-edx -<span id="L17769" class="LineNr">17769 </span> 59/pop-to-ecx -<span id="L17770" class="LineNr">17770 </span> 58/pop-to-eax -<span id="L17771" class="LineNr">17771 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17772" class="LineNr">17772 </span> 89/<- %esp 5/r32/ebp -<span id="L17773" class="LineNr">17773 </span> 5d/pop-to-ebp -<span id="L17774" class="LineNr">17774 </span> c3/return -<span id="L17775" class="LineNr">17775 </span> -<span id="L17776" class="LineNr">17776 </span><span class="Constant">$lookup-var-helper:error1</span>: -<span id="L17777" class="LineNr">17777 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17778" class="LineNr">17778 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L17779" class="LineNr">17779 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L17780" class="LineNr">17780 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17781" class="LineNr">17781 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": malformed stack when looking up '"</span>) -<span id="L17782" class="LineNr">17782 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L17783" class="LineNr">17783 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L17784" class="LineNr">17784 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17785" class="LineNr">17785 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17786" class="LineNr">17786 </span> <span class="subxComment"># never gets here</span> -<span id="L17787" class="LineNr">17787 </span> -<span id="L17788" class="LineNr">17788 </span><span class="Constant">$lookup-var-helper:error2</span>: -<span id="L17789" class="LineNr">17789 </span> <span class="subxComment"># eax contains the conflicting var at this point</span> -<span id="L17790" class="LineNr">17790 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L17791" class="LineNr">17791 </span> 50/push-eax -<span id="L17792" class="LineNr">17792 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L17793" class="LineNr">17793 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L17794" class="LineNr">17794 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17795" class="LineNr">17795 </span> 58/pop-eax -<span id="L17796" class="LineNr">17796 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": register "</span>) -<span id="L17797" class="LineNr">17797 </span> 50/push-eax -<span id="L17798" class="LineNr">17798 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17799" class="LineNr">17799 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17800" class="LineNr">17800 </span> 58/pop-to-eax -<span id="L17801" class="LineNr">17801 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">" reads var '"</span>) -<span id="L17802" class="LineNr">17802 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L17803" class="LineNr">17803 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' after writing var '"</span>) -<span id="L17804" class="LineNr">17804 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17805" class="LineNr">17805 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L17806" class="LineNr">17806 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L17807" class="LineNr">17807 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L17808" class="LineNr">17808 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L17809" class="LineNr">17809 </span> <span class="subxComment"># never gets here</span> -<span id="L17810" class="LineNr">17810 </span> -<span id="L17811" class="LineNr">17811 </span><span class="subxFunction">dump-vars</span>: <span class="subxComment"># vars: (addr stack live-var)</span> -<span id="L17812" class="LineNr">17812 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17813" class="LineNr">17813 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L17814" class="LineNr">17814 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L17815" class="LineNr">17815 </span> <span class="subxComment"># while curr >= min</span> -<span id="L17816" class="LineNr">17816 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L17817" class="LineNr">17817 </span> <span class="subxComment"># print v</span> -<span id="L17818" class="LineNr">17818 </span> <span class="subxComment"># curr -= 12</span> -<span id="L17819" class="LineNr">17819 </span> <span class="subxComment">#</span> -<span id="L17820" class="LineNr">17820 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17821" class="LineNr">17821 </span> 55/push-ebp -<span id="L17822" class="LineNr">17822 </span> 89/<- %ebp 4/r32/esp -<span id="L17823" class="LineNr">17823 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17824" class="LineNr">17824 </span> 52/push-edx -<span id="L17825" class="LineNr">17825 </span> 53/push-ebx -<span id="L17826" class="LineNr">17826 </span> 56/push-esi -<span id="L17827" class="LineNr">17827 </span> <span class="subxComment"># esi = vars</span> -<span id="L17828" class="LineNr">17828 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L17829" class="LineNr">17829 </span> <span class="subxComment"># ebx = vars->top</span> -<span id="L17830" class="LineNr">17830 </span> 8b/-> *esi 3/r32/ebx -<span id="L17831" class="LineNr">17831 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L17832" class="LineNr">17832 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L17833" class="LineNr">17833 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L17834" class="LineNr">17834 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L17835" class="LineNr">17835 </span> { -<span id="L17836" class="LineNr">17836 </span><span class="Constant">$dump-vars:loop</span>: -<span id="L17837" class="LineNr">17837 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L17838" class="LineNr">17838 </span> 39/compare %ebx 2/r32/edx -<span id="L17839" class="LineNr">17839 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L17840" class="LineNr">17840 </span> <span class="subxComment">#</span> -<span id="L17841" class="LineNr">17841 </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="L17842" class="LineNr">17842 </span> (<a href='mu.subx.html#L19677'>dump-var</a> 2 %ebx) -<span id="L17843" class="LineNr">17843 </span> <span class="subxComment"># curr -= 12</span> -<span id="L17844" class="LineNr">17844 </span> 81 5/subop/subtract %ebx 0xc/imm32 -<span id="L17845" class="LineNr">17845 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L17846" class="LineNr">17846 </span> } -<span id="L17847" class="LineNr">17847 </span><span class="Constant">$dump-vars:end</span>: -<span id="L17848" class="LineNr">17848 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17849" class="LineNr">17849 </span> 5e/pop-to-esi -<span id="L17850" class="LineNr">17850 </span> 5b/pop-to-ebx -<span id="L17851" class="LineNr">17851 </span> 5a/pop-to-edx -<span id="L17852" class="LineNr">17852 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17853" class="LineNr">17853 </span> 89/<- %esp 5/r32/ebp -<span id="L17854" class="LineNr">17854 </span> 5d/pop-to-ebp -<span id="L17855" class="LineNr">17855 </span> c3/return -<span id="L17856" class="LineNr">17856 </span> -<span id="L17857" class="LineNr">17857 </span>== data -<span id="L17858" class="LineNr">17858 </span><span class="subxComment"># Like Registers, but no esp or ebp</span> -<span id="L17859" class="LineNr">17859 </span><span class="SpecialChar">Mu-registers</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> -<span id="L17860" class="LineNr">17860 </span> <span class="subxComment"># a table is a stream</span> -<span id="L17861" class="LineNr">17861 </span> 0xa8/imm32/write -<span id="L17862" class="LineNr">17862 </span> 0/imm32/read -<span id="L17863" class="LineNr">17863 </span> 0xa8/imm32/length -<span id="L17864" class="LineNr">17864 </span> <span class="subxComment"># data</span> -<span id="L17865" class="LineNr">17865 </span> <span class="subxComment"># general-purpose registers</span> -<span id="L17866" class="LineNr">17866 </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="L17867" class="LineNr">17867 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 -<span id="L17868" class="LineNr">17868 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 -<span id="L17869" class="LineNr">17869 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 -<span id="L17870" class="LineNr">17870 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 -<span id="L17871" class="LineNr">17871 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 -<span id="L17872" class="LineNr">17872 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 -<span id="L17873" class="LineNr">17873 </span> <span class="subxComment"># floating-point registers</span> -<span id="L17874" class="LineNr">17874 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 0/imm32 -<span id="L17875" class="LineNr">17875 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 1/imm32 -<span id="L17876" class="LineNr">17876 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 2/imm32 -<span id="L17877" class="LineNr">17877 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 3/imm32 -<span id="L17878" class="LineNr">17878 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 4/imm32 -<span id="L17879" class="LineNr">17879 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 5/imm32 -<span id="L17880" class="LineNr">17880 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 6/imm32 -<span id="L17881" class="LineNr">17881 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 7/imm32 -<span id="L17882" class="LineNr">17882 </span> -<span id="L17883" class="LineNr">17883 </span><span class="subxComment"># Like Mu-registers, but with unique codes for integer and floating-point</span> -<span id="L17884" class="LineNr">17884 </span><span class="subxComment"># registers.</span> -<span id="L17885" class="LineNr">17885 </span><span class="subxComment"># Don't use this for code-generation, only for checking.</span> -<span id="L17886" class="LineNr">17886 </span><span class="SpecialChar">Mu-registers-unique</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> -<span id="L17887" class="LineNr">17887 </span> <span class="subxComment"># a table is a stream</span> -<span id="L17888" class="LineNr">17888 </span> 0xa8/imm32/write -<span id="L17889" class="LineNr">17889 </span> 0/imm32/read -<span id="L17890" class="LineNr">17890 </span> 0xa8/imm32/length -<span id="L17891" class="LineNr">17891 </span> <span class="subxComment"># data</span> -<span id="L17892" class="LineNr">17892 </span> <span class="subxComment"># general-purpose registers</span> -<span id="L17893" class="LineNr">17893 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 -<span id="L17894" class="LineNr">17894 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 -<span id="L17895" class="LineNr">17895 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 -<span id="L17896" class="LineNr">17896 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 -<span id="L17897" class="LineNr">17897 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 -<span id="L17898" class="LineNr">17898 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 -<span id="L17899" class="LineNr">17899 </span> <span class="subxComment"># floating-point registers</span> -<span id="L17900" class="LineNr">17900 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 8/imm32 -<span id="L17901" class="LineNr">17901 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 9/imm32 -<span id="L17902" class="LineNr">17902 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 0xa/imm32 -<span id="L17903" class="LineNr">17903 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 0xb/imm32 -<span id="L17904" class="LineNr">17904 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 0xc/imm32 -<span id="L17905" class="LineNr">17905 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 0xd/imm32 -<span id="L17906" class="LineNr">17906 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 0xe/imm32 -<span id="L17907" class="LineNr">17907 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 0xf/imm32 +<span id="L17693" class="LineNr">17693 </span> 89/<- %ebx 4/r32/esp +<span id="L17694" class="LineNr">17694 </span> <span class="subxComment">#</span> +<span id="L17695" class="LineNr">17695 </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="L17696" class="LineNr">17696 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> +<span id="L17697" class="LineNr">17697 </span> 8b/-> *(ebp+0x14) 7/r32/edi +<span id="L17698" class="LineNr">17698 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L17699" class="LineNr">17699 </span> 89/<- %edi 0/r32/eax +<span id="L17700" class="LineNr">17700 </span> <span class="subxComment"># out-addr->tag = 1/stmt</span> +<span id="L17701" class="LineNr">17701 </span> c7 0/subop/copy *edi 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L17702" class="LineNr">17702 </span> { +<span id="L17703" class="LineNr">17703 </span> (<a href='mu.subx.html#L17941'>stmt-has-outputs?</a> *(ebp+8)) +<span id="L17704" class="LineNr">17704 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17705" class="LineNr">17705 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17706" class="LineNr">17706 </span> { +<span id="L17707" class="LineNr">17707 </span><span class="Constant">$parse-mu-stmt:read-outputs</span>: +<span id="L17708" class="LineNr">17708 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L17709" class="LineNr">17709 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L17710" class="LineNr">17710 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L17711" class="LineNr">17711 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L17712" class="LineNr">17712 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17713" class="LineNr">17713 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L17714" class="LineNr">17714 </span> <span class="subxComment"># if (name == "<-") break</span> +<span id="L17715" class="LineNr">17715 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> +<span id="L17716" class="LineNr">17716 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17717" class="LineNr">17717 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L17718" class="LineNr">17718 </span> <span class="subxComment"># if slice-starts-with?(name, "*") abort</span> +<span id="L17719" class="LineNr">17719 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> +<span id="L17720" class="LineNr">17720 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17721" class="LineNr">17721 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L17722" class="LineNr">17722 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L17723" class="LineNr">17723 </span> 0f 84/jump-if-= $parse-mu-stmt:error-output-dereferenced/disp32 +<span id="L17724" class="LineNr">17724 </span> <span class="subxComment"># assert(is-identifier?(name))</span> +<span id="L17725" class="LineNr">17725 </span> (<a href='mu.subx.html#L16686'>is-identifier?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L17726" class="LineNr">17726 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17727" class="LineNr">17727 </span> 0f 84/jump-if-= $parse-mu-stmt:abort/disp32 +<span id="L17728" class="LineNr">17728 </span> <span class="subxComment">#</span> +<span id="L17729" class="LineNr">17729 </span> (<a href='mu.subx.html#L18052'>lookup-var</a> %ecx *(ebp+0xc) %ebx *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L17730" class="LineNr">17730 </span> 8d/copy-address *(edi+0x14) 0/r32/eax <span class="subxComment"># Stmt1-outputs</span> +<span id="L17731" class="LineNr">17731 </span> (<a href='mu.subx.html#L18983'>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="L17732" class="LineNr">17732 </span> <span class="subxComment">#</span> +<span id="L17733" class="LineNr">17733 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L17734" class="LineNr">17734 </span> } +<span id="L17735" class="LineNr">17735 </span> } +<span id="L17736" class="LineNr">17736 </span> (<a href='mu.subx.html#L17777'>add-operation-and-inputs-to-stmt</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L17737" class="LineNr">17737 </span><span class="Constant">$parse-mu-stmt:end</span>: +<span id="L17738" class="LineNr">17738 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17739" class="LineNr">17739 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L17740" class="LineNr">17740 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17741" class="LineNr">17741 </span> 5f/pop-to-edi +<span id="L17742" class="LineNr">17742 </span> 5b/pop-to-ebx +<span id="L17743" class="LineNr">17743 </span> 5a/pop-to-edx +<span id="L17744" class="LineNr">17744 </span> 59/pop-to-ecx +<span id="L17745" class="LineNr">17745 </span> 58/pop-to-eax +<span id="L17746" class="LineNr">17746 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17747" class="LineNr">17747 </span> 89/<- %esp 5/r32/ebp +<span id="L17748" class="LineNr">17748 </span> 5d/pop-to-ebp +<span id="L17749" class="LineNr">17749 </span> c3/return +<span id="L17750" class="LineNr">17750 </span> +<span id="L17751" class="LineNr">17751 </span><span class="Constant">$parse-mu-stmt:abort</span>: +<span id="L17752" class="LineNr">17752 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> +<span id="L17753" class="LineNr">17753 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17754" class="LineNr">17754 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L17755" class="LineNr">17755 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L17756" class="LineNr">17756 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17757" class="LineNr">17757 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier '"</span>) +<span id="L17758" class="LineNr">17758 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) +<span id="L17759" class="LineNr">17759 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L17760" class="LineNr">17760 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17761" class="LineNr">17761 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17762" class="LineNr">17762 </span> <span class="subxComment"># never gets here</span> +<span id="L17763" class="LineNr">17763 </span> +<span id="L17764" class="LineNr">17764 </span><span class="Constant">$parse-mu-stmt:error-output-dereferenced</span>: +<span id="L17765" class="LineNr">17765 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> +<span id="L17766" class="LineNr">17766 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17767" class="LineNr">17767 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L17768" class="LineNr">17768 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L17769" class="LineNr">17769 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17770" class="LineNr">17770 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": output '"</span>) +<span id="L17771" class="LineNr">17771 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) +<span id="L17772" class="LineNr">17772 </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="L17773" class="LineNr">17773 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17774" class="LineNr">17774 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17775" class="LineNr">17775 </span> <span class="subxComment"># never gets here</span> +<span id="L17776" class="LineNr">17776 </span> +<span id="L17777" class="LineNr">17777 </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="L17778" class="LineNr">17778 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17779" class="LineNr">17779 </span> <span class="subxComment"># stmt->name = slice-to-string(next-mu-token(line))</span> +<span id="L17780" class="LineNr">17780 </span> <span class="subxComment"># while true</span> +<span id="L17781" class="LineNr">17781 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L17782" class="LineNr">17782 </span> <span class="subxComment"># v = lookup-var-or-literal(name)</span> +<span id="L17783" class="LineNr">17783 </span> <span class="subxComment"># stmt->inouts = append(v, stmt->inouts)</span> +<span id="L17784" class="LineNr">17784 </span> <span class="subxComment">#</span> +<span id="L17785" class="LineNr">17785 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17786" class="LineNr">17786 </span> 55/push-ebp +<span id="L17787" class="LineNr">17787 </span> 89/<- %ebp 4/r32/esp +<span id="L17788" class="LineNr">17788 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17789" class="LineNr">17789 </span> 50/push-eax +<span id="L17790" class="LineNr">17790 </span> 51/push-ecx +<span id="L17791" class="LineNr">17791 </span> 52/push-edx +<span id="L17792" class="LineNr">17792 </span> 53/push-ebx +<span id="L17793" class="LineNr">17793 </span> 56/push-esi +<span id="L17794" class="LineNr">17794 </span> 57/push-edi +<span id="L17795" class="LineNr">17795 </span> <span class="subxComment"># edi = stmt</span> +<span id="L17796" class="LineNr">17796 </span> 8b/-> *(ebp+8) 7/r32/edi +<span id="L17797" class="LineNr">17797 </span> <span class="subxComment"># var name/ecx: slice</span> +<span id="L17798" class="LineNr">17798 </span> 68/push 0/imm32/end +<span id="L17799" class="LineNr">17799 </span> 68/push 0/imm32/start +<span id="L17800" class="LineNr">17800 </span> 89/<- %ecx 4/r32/esp +<span id="L17801" class="LineNr">17801 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> +<span id="L17802" class="LineNr">17802 </span> ba/copy-to-edx 0/imm32/false +<span id="L17803" class="LineNr">17803 </span> <span class="subxComment"># var v/esi: (handle var)</span> +<span id="L17804" class="LineNr">17804 </span> 68/push 0/imm32 +<span id="L17805" class="LineNr">17805 </span> 68/push 0/imm32 +<span id="L17806" class="LineNr">17806 </span> 89/<- %esi 4/r32/esp +<span id="L17807" class="LineNr">17807 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-operation</span>: +<span id="L17808" class="LineNr">17808 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L17809" class="LineNr">17809 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation or Regvardef-operationStmt1-operation or Regvardef-operation</span> +<span id="L17810" class="LineNr">17810 </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="L17811" class="LineNr">17811 </span> <span class="subxComment"># var is-get?/ebx: boolean = (name == "get")</span> +<span id="L17812" class="LineNr">17812 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L17813" class="LineNr">17813 </span> 89/<- %ebx 0/r32/eax +<span id="L17814" class="LineNr">17814 </span> { +<span id="L17815" class="LineNr">17815 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-inouts</span>: +<span id="L17816" class="LineNr">17816 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L17817" class="LineNr">17817 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L17818" class="LineNr">17818 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L17819" class="LineNr">17819 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L17820" class="LineNr">17820 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17821" class="LineNr">17821 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L17822" class="LineNr">17822 </span> <span class="subxComment"># if (name == "<-") abort</span> +<span id="L17823" class="LineNr">17823 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) +<span id="L17824" class="LineNr">17824 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17825" class="LineNr">17825 </span> 0f 85/jump-if-!= $add-operation-and-inputs-to-stmt:abort/disp32 +<span id="L17826" class="LineNr">17826 </span> <span class="subxComment"># if (is-get? && second operand) lookup or create offset</span> +<span id="L17827" class="LineNr">17827 </span> { +<span id="L17828" class="LineNr">17828 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L17829" class="LineNr">17829 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17830" class="LineNr">17830 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L17831" class="LineNr">17831 </span> 3d/compare-eax-and 0/imm32 +<span id="L17832" class="LineNr">17832 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17833" class="LineNr">17833 </span> (<a href='mu.subx.html#L19068'>lookup-or-create-constant</a> %eax %ecx %esi) +<span id="L17834" class="LineNr">17834 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> +<span id="L17835" class="LineNr">17835 </span><span class="CommentedCode">#? (write-buffered Stderr "creating new output var ")</span> +<span id="L17836" class="LineNr">17836 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L17837" class="LineNr">17837 </span><span class="CommentedCode">#? (write-buffered Stderr " for field called ")</span> +<span id="L17838" class="LineNr">17838 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> +<span id="L17839" class="LineNr">17839 </span><span class="CommentedCode">#? (write-buffered Stderr "; var name ")</span> +<span id="L17840" class="LineNr">17840 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> +<span id="L17841" class="LineNr">17841 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L17842" class="LineNr">17842 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L17843" class="LineNr">17843 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L17844" class="LineNr">17844 </span> e9/jump $add-operation-and-inputs-to-stmt:save-var/disp32 +<span id="L17845" class="LineNr">17845 </span> } +<span id="L17846" class="LineNr">17846 </span> <span class="subxComment"># is-deref? = false</span> +<span id="L17847" class="LineNr">17847 </span> ba/copy-to-edx 0/imm32/false +<span id="L17848" class="LineNr">17848 </span> <span class="subxComment"># if (slice-starts-with?(name, '*')) ++name->start and set is-deref?</span> +<span id="L17849" class="LineNr">17849 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> +<span id="L17850" class="LineNr">17850 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17851" class="LineNr">17851 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L17852" class="LineNr">17852 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L17853" class="LineNr">17853 </span> { +<span id="L17854" class="LineNr">17854 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17855" class="LineNr">17855 </span><span class="Constant">$add-operation-and-inputs-to-stmt:inout-is-deref</span>: +<span id="L17856" class="LineNr">17856 </span> ff 0/subop/increment *ecx +<span id="L17857" class="LineNr">17857 </span> ba/copy-to-edx 1/imm32/true +<span id="L17858" class="LineNr">17858 </span> } +<span id="L17859" class="LineNr">17859 </span> (<a href='mu.subx.html#L17989'>lookup-var-or-literal</a> %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L17860" class="LineNr">17860 </span> <span class="subxComment"># if (is-deref?) some additional checks</span> +<span id="L17861" class="LineNr">17861 </span> 81 7/subop/compare %edx 0/imm32/false +<span id="L17862" class="LineNr">17862 </span> { +<span id="L17863" class="LineNr">17863 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17864" class="LineNr">17864 </span> <span class="subxComment"># if var is not in register, abort</span> +<span id="L17865" class="LineNr">17865 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L17866" class="LineNr">17866 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L17867" class="LineNr">17867 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-on-stack/disp32 +<span id="L17868" class="LineNr">17868 </span> <span class="subxComment"># if var is not an address, abort</span> +<span id="L17869" class="LineNr">17869 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17870" class="LineNr">17870 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L17871" class="LineNr">17871 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17872" class="LineNr">17872 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-non-addr/disp32 +<span id="L17873" class="LineNr">17873 </span> } +<span id="L17874" class="LineNr">17874 </span><span class="Constant">$add-operation-and-inputs-to-stmt:save-var</span>: +<span id="L17875" class="LineNr">17875 </span> 8d/copy-address *(edi+0xc) 0/r32/eax +<span id="L17876" class="LineNr">17876 </span> (<a href='mu.subx.html#L18983'>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="L17877" class="LineNr">17877 </span> <span class="subxComment">#</span> +<span id="L17878" class="LineNr">17878 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L17879" class="LineNr">17879 </span> } +<span id="L17880" class="LineNr">17880 </span><span class="Constant">$add-operation-and-inputs-to-stmt:end</span>: +<span id="L17881" class="LineNr">17881 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17882" class="LineNr">17882 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L17883" class="LineNr">17883 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17884" class="LineNr">17884 </span> 5f/pop-to-edi +<span id="L17885" class="LineNr">17885 </span> 5e/pop-to-esi +<span id="L17886" class="LineNr">17886 </span> 5b/pop-to-ebx +<span id="L17887" class="LineNr">17887 </span> 5a/pop-to-edx +<span id="L17888" class="LineNr">17888 </span> 59/pop-to-ecx +<span id="L17889" class="LineNr">17889 </span> 58/pop-to-eax +<span id="L17890" class="LineNr">17890 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17891" class="LineNr">17891 </span> 89/<- %esp 5/r32/ebp +<span id="L17892" class="LineNr">17892 </span> 5d/pop-to-ebp +<span id="L17893" class="LineNr">17893 </span> c3/return +<span id="L17894" class="LineNr">17894 </span> +<span id="L17895" class="LineNr">17895 </span><span class="Constant">$add-operation-and-inputs-to-stmt:abort</span>: +<span id="L17896" class="LineNr">17896 </span> <span class="subxComment"># error("fn ___: invalid identifier in '" line "'\n")</span> +<span id="L17897" class="LineNr">17897 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17898" class="LineNr">17898 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L17899" class="LineNr">17899 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L17900" class="LineNr">17900 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17901" class="LineNr">17901 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L17902" class="LineNr">17902 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier in '"</span>) +<span id="L17903" class="LineNr">17903 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) +<span id="L17904" class="LineNr">17904 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L17905" class="LineNr">17905 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17906" class="LineNr">17906 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17907" class="LineNr">17907 </span> <span class="subxComment"># never gets here</span> <span id="L17908" class="LineNr">17908 </span> -<span id="L17909" class="LineNr">17909 </span><span class="Constant">$Mu-register-eax</span>: -<span id="L17910" class="LineNr">17910 </span> 0x11/imm32/alloc-id -<span id="L17911" class="LineNr">17911 </span> 3/imm32/size -<span id="L17912" class="LineNr">17912 </span> 0x65/e 0x61/a 0x78/x -<span id="L17913" class="LineNr">17913 </span> -<span id="L17914" class="LineNr">17914 </span><span class="Constant">$Mu-register-ecx</span>: -<span id="L17915" class="LineNr">17915 </span> 0x11/imm32/alloc-id -<span id="L17916" class="LineNr">17916 </span> 3/imm32/size -<span id="L17917" class="LineNr">17917 </span> 0x65/e 0x63/c 0x78/x -<span id="L17918" class="LineNr">17918 </span> -<span id="L17919" class="LineNr">17919 </span><span class="Constant">$Mu-register-edx</span>: -<span id="L17920" class="LineNr">17920 </span> 0x11/imm32/alloc-id -<span id="L17921" class="LineNr">17921 </span> 3/imm32/size -<span id="L17922" class="LineNr">17922 </span> 0x65/e 0x64/d 0x78/x -<span id="L17923" class="LineNr">17923 </span> -<span id="L17924" class="LineNr">17924 </span><span class="Constant">$Mu-register-ebx</span>: -<span id="L17925" class="LineNr">17925 </span> 0x11/imm32/alloc-id -<span id="L17926" class="LineNr">17926 </span> 3/imm32/size -<span id="L17927" class="LineNr">17927 </span> 0x65/e 0x62/b 0x78/x -<span id="L17928" class="LineNr">17928 </span> -<span id="L17929" class="LineNr">17929 </span><span class="Constant">$Mu-register-esi</span>: -<span id="L17930" class="LineNr">17930 </span> 0x11/imm32/alloc-id -<span id="L17931" class="LineNr">17931 </span> 3/imm32/size -<span id="L17932" class="LineNr">17932 </span> 0x65/e 0x73/s 0x69/i -<span id="L17933" class="LineNr">17933 </span> -<span id="L17934" class="LineNr">17934 </span><span class="Constant">$Mu-register-edi</span>: -<span id="L17935" class="LineNr">17935 </span> 0x11/imm32/alloc-id -<span id="L17936" class="LineNr">17936 </span> 3/imm32/size -<span id="L17937" class="LineNr">17937 </span> 0x65/e 0x64/d 0x69/i -<span id="L17938" class="LineNr">17938 </span> -<span id="L17939" class="LineNr">17939 </span><span class="Constant">$Mu-register-xmm0</span>: -<span id="L17940" class="LineNr">17940 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L17941" class="LineNr">17941 </span> <span class="subxComment"># "xmm0"</span> -<span id="L17942" class="LineNr">17942 </span> 0x4/imm32/size -<span id="L17943" class="LineNr">17943 </span> 0x78/x 0x6d/m 0x6d/m 0x30/0 -<span id="L17944" class="LineNr">17944 </span> -<span id="L17945" class="LineNr">17945 </span><span class="Constant">$Mu-register-xmm1</span>: -<span id="L17946" class="LineNr">17946 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L17947" class="LineNr">17947 </span> <span class="subxComment"># "xmm1"</span> -<span id="L17948" class="LineNr">17948 </span> 0x4/imm32/size -<span id="L17949" class="LineNr">17949 </span> 0x78/x 0x6d/m 0x6d/m 0x31/1 -<span id="L17950" class="LineNr">17950 </span> -<span id="L17951" class="LineNr">17951 </span><span class="Constant">$Mu-register-xmm2</span>: -<span id="L17952" class="LineNr">17952 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L17953" class="LineNr">17953 </span> <span class="subxComment"># "xmm2"</span> -<span id="L17954" class="LineNr">17954 </span> 0x4/imm32/size -<span id="L17955" class="LineNr">17955 </span> 0x78/x 0x6d/m 0x6d/m 0x32/2 -<span id="L17956" class="LineNr">17956 </span> -<span id="L17957" class="LineNr">17957 </span><span class="Constant">$Mu-register-xmm3</span>: -<span id="L17958" class="LineNr">17958 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L17959" class="LineNr">17959 </span> <span class="subxComment"># "xmm3"</span> -<span id="L17960" class="LineNr">17960 </span> 0x4/imm32/size -<span id="L17961" class="LineNr">17961 </span> 0x78/x 0x6d/m 0x6d/m 0x33/3 -<span id="L17962" class="LineNr">17962 </span> -<span id="L17963" class="LineNr">17963 </span><span class="Constant">$Mu-register-xmm4</span>: -<span id="L17964" class="LineNr">17964 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L17965" class="LineNr">17965 </span> <span class="subxComment"># "xmm4"</span> -<span id="L17966" class="LineNr">17966 </span> 0x4/imm32/size -<span id="L17967" class="LineNr">17967 </span> 0x78/x 0x6d/m 0x6d/m 0x34/4 -<span id="L17968" class="LineNr">17968 </span> -<span id="L17969" class="LineNr">17969 </span><span class="Constant">$Mu-register-xmm5</span>: -<span id="L17970" class="LineNr">17970 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L17971" class="LineNr">17971 </span> <span class="subxComment"># "xmm5"</span> -<span id="L17972" class="LineNr">17972 </span> 0x4/imm32/size -<span id="L17973" class="LineNr">17973 </span> 0x78/x 0x6d/m 0x6d/m 0x35/5 -<span id="L17974" class="LineNr">17974 </span> -<span id="L17975" class="LineNr">17975 </span><span class="Constant">$Mu-register-xmm6</span>: -<span id="L17976" class="LineNr">17976 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L17977" class="LineNr">17977 </span> <span class="subxComment"># "xmm6"</span> -<span id="L17978" class="LineNr">17978 </span> 0x4/imm32/size -<span id="L17979" class="LineNr">17979 </span> 0x78/x 0x6d/m 0x6d/m 0x36/6 -<span id="L17980" class="LineNr">17980 </span> -<span id="L17981" class="LineNr">17981 </span><span class="Constant">$Mu-register-xmm7</span>: -<span id="L17982" class="LineNr">17982 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L17983" class="LineNr">17983 </span> <span class="subxComment"># "xmm7"</span> -<span id="L17984" class="LineNr">17984 </span> 0x4/imm32/size -<span id="L17985" class="LineNr">17985 </span> 0x78/x 0x6d/m 0x6d/m 0x37/7 +<span id="L17909" class="LineNr">17909 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-on-stack</span>: +<span id="L17910" class="LineNr">17910 </span> <span class="subxComment"># error("fn ___: cannot dereference var ___ on stack\n")</span> +<span id="L17911" class="LineNr">17911 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17912" class="LineNr">17912 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L17913" class="LineNr">17913 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L17914" class="LineNr">17914 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17915" class="LineNr">17915 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L17916" class="LineNr">17916 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference var '"</span>) +<span id="L17917" class="LineNr">17917 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L17918" class="LineNr">17918 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17919" class="LineNr">17919 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17920" class="LineNr">17920 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' on stack\n"</span>) +<span id="L17921" class="LineNr">17921 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17922" class="LineNr">17922 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17923" class="LineNr">17923 </span> <span class="subxComment"># never gets here</span> +<span id="L17924" class="LineNr">17924 </span> +<span id="L17925" class="LineNr">17925 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-non-addr</span>: +<span id="L17926" class="LineNr">17926 </span> <span class="subxComment"># error("fn ___: cannot dereference non-addr var ___\n")</span> +<span id="L17927" class="LineNr">17927 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17928" class="LineNr">17928 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L17929" class="LineNr">17929 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L17930" class="LineNr">17930 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17931" class="LineNr">17931 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L17932" class="LineNr">17932 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference non-addr var '"</span>) +<span id="L17933" class="LineNr">17933 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L17934" class="LineNr">17934 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17935" class="LineNr">17935 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17936" class="LineNr">17936 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L17937" class="LineNr">17937 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17938" class="LineNr">17938 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17939" class="LineNr">17939 </span> <span class="subxComment"># never gets here</span> +<span id="L17940" class="LineNr">17940 </span> +<span id="L17941" class="LineNr">17941 </span><span class="subxFunction">stmt-has-outputs?</span>: <span class="subxComment"># line: (addr stream byte) -> result/eax: boolean</span> +<span id="L17942" class="LineNr">17942 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17943" class="LineNr">17943 </span> 55/push-ebp +<span id="L17944" class="LineNr">17944 </span> 89/<- %ebp 4/r32/esp +<span id="L17945" class="LineNr">17945 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17946" class="LineNr">17946 </span> 51/push-ecx +<span id="L17947" class="LineNr">17947 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L17948" class="LineNr">17948 </span> 68/push 0/imm32/end +<span id="L17949" class="LineNr">17949 </span> 68/push 0/imm32/start +<span id="L17950" class="LineNr">17950 </span> 89/<- %ecx 4/r32/esp +<span id="L17951" class="LineNr">17951 </span> <span class="subxComment"># result = false</span> +<span id="L17952" class="LineNr">17952 </span> b8/copy-to-eax 0/imm32/false +<span id="L17953" class="LineNr">17953 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L17954" class="LineNr">17954 </span> { +<span id="L17955" class="LineNr">17955 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L17956" class="LineNr">17956 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L17957" class="LineNr">17957 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) +<span id="L17958" class="LineNr">17958 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17959" class="LineNr">17959 </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="L17960" class="LineNr">17960 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L17961" class="LineNr">17961 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '#') break</span> +<span id="L17962" class="LineNr">17962 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L17963" class="LineNr">17963 </span> 8b/-> *ecx 0/r32/eax +<span id="L17964" class="LineNr">17964 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17965" class="LineNr">17965 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L17966" class="LineNr">17966 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> +<span id="L17967" class="LineNr">17967 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L17968" class="LineNr">17968 </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="L17969" class="LineNr">17969 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17970" class="LineNr">17970 </span> <span class="subxComment"># if slice-equal?(word-slice, '<-') return true</span> +<span id="L17971" class="LineNr">17971 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) +<span id="L17972" class="LineNr">17972 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17973" class="LineNr">17973 </span> 74/jump-if-= <span class="Constant">loop</span>/disp8 +<span id="L17974" class="LineNr">17974 </span> b8/copy-to-eax 1/imm32/true +<span id="L17975" class="LineNr">17975 </span> } +<span id="L17976" class="LineNr">17976 </span><span class="Constant">$stmt-has-outputs:end</span>: +<span id="L17977" class="LineNr">17977 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L17978" class="LineNr">17978 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17979" class="LineNr">17979 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17980" class="LineNr">17980 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17981" class="LineNr">17981 </span> 59/pop-to-ecx +<span id="L17982" class="LineNr">17982 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17983" class="LineNr">17983 </span> 89/<- %esp 5/r32/ebp +<span id="L17984" class="LineNr">17984 </span> 5d/pop-to-ebp +<span id="L17985" class="LineNr">17985 </span> c3/return <span id="L17986" class="LineNr">17986 </span> -<span id="L17987" class="LineNr">17987 </span>== code -<span id="L17988" class="LineNr">17988 </span> -<span id="L17989" class="LineNr">17989 </span><span class="subxComment"># push 'out' to 'vars' if not already there; it's assumed to be a fn output</span> -<span id="L17990" class="LineNr">17990 </span><span class="subxFunction">maybe-define-var</span>: <span class="subxComment"># out: (handle var), vars: (addr stack live-var)</span> -<span id="L17991" class="LineNr">17991 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17992" class="LineNr">17992 </span> 55/push-ebp -<span id="L17993" class="LineNr">17993 </span> 89/<- %ebp 4/r32/esp -<span id="L17994" class="LineNr">17994 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17995" class="LineNr">17995 </span> 50/push-eax -<span id="L17996" class="LineNr">17996 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> -<span id="L17997" class="LineNr">17997 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L17998" class="LineNr">17998 </span> <span class="subxComment">#</span> -<span id="L17999" class="LineNr">17999 </span> (<a href='mu.subx.html#L18015'>binding-exists?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L18000" class="LineNr">18000 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18001" class="LineNr">18001 </span> 75/jump-if-!= $maybe-define-var:end/disp8 -<span id="L18002" class="LineNr">18002 </span> <span class="subxComment"># otherwise update vars</span> -<span id="L18003" class="LineNr">18003 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+8)) -<span id="L18004" class="LineNr">18004 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+0xc)) -<span id="L18005" class="LineNr">18005 </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="L18006" class="LineNr">18006 </span><span class="Constant">$maybe-define-var:end</span>: -<span id="L18007" class="LineNr">18007 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18008" class="LineNr">18008 </span> 58/pop-to-eax -<span id="L18009" class="LineNr">18009 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18010" class="LineNr">18010 </span> 89/<- %esp 5/r32/ebp -<span id="L18011" class="LineNr">18011 </span> 5d/pop-to-ebp -<span id="L18012" class="LineNr">18012 </span> c3/return -<span id="L18013" class="LineNr">18013 </span> -<span id="L18014" class="LineNr">18014 </span><span class="subxComment"># simpler version of lookup-var-helper</span> -<span id="L18015" class="LineNr">18015 </span><span class="subxFunction">binding-exists?</span>: <span class="subxComment"># target: (addr var), vars: (addr stack live-var) -> result/eax: boolean</span> -<span id="L18016" class="LineNr">18016 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18017" class="LineNr">18017 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L18018" class="LineNr">18018 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L18019" class="LineNr">18019 </span> <span class="subxComment"># while curr >= min</span> -<span id="L18020" class="LineNr">18020 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L18021" class="LineNr">18021 </span> <span class="subxComment"># if v->name == target->name</span> -<span id="L18022" class="LineNr">18022 </span> <span class="subxComment"># return true</span> -<span id="L18023" class="LineNr">18023 </span> <span class="subxComment"># curr -= 12</span> -<span id="L18024" class="LineNr">18024 </span> <span class="subxComment"># return false</span> -<span id="L18025" class="LineNr">18025 </span> <span class="subxComment">#</span> -<span id="L18026" class="LineNr">18026 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18027" class="LineNr">18027 </span> 55/push-ebp -<span id="L18028" class="LineNr">18028 </span> 89/<- %ebp 4/r32/esp -<span id="L18029" class="LineNr">18029 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18030" class="LineNr">18030 </span> 51/push-ecx -<span id="L18031" class="LineNr">18031 </span> 52/push-edx -<span id="L18032" class="LineNr">18032 </span> 56/push-esi -<span id="L18033" class="LineNr">18033 </span> <span class="subxComment"># var target-name/ecx: (addr array byte) = lookup(target->name)</span> -<span id="L18034" class="LineNr">18034 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L18035" class="LineNr">18035 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18036" class="LineNr">18036 </span> 89/<- %ecx 0/r32/eax -<span id="L18037" class="LineNr">18037 </span> <span class="subxComment"># esi = vars</span> -<span id="L18038" class="LineNr">18038 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L18039" class="LineNr">18039 </span> <span class="subxComment"># eax = vars->top</span> -<span id="L18040" class="LineNr">18040 </span> 8b/-> *esi 0/r32/eax -<span id="L18041" class="LineNr">18041 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L18042" class="LineNr">18042 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L18043" class="LineNr">18043 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L18044" class="LineNr">18044 </span> 8d/copy-address *(esi+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L18045" class="LineNr">18045 </span> { -<span id="L18046" class="LineNr">18046 </span><span class="Constant">$binding-exists?:loop</span>: -<span id="L18047" class="LineNr">18047 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L18048" class="LineNr">18048 </span> 39/compare %esi 2/r32/edx -<span id="L18049" class="LineNr">18049 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L18050" class="LineNr">18050 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(*curr)</span> -<span id="L18051" class="LineNr">18051 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L18052" class="LineNr">18052 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> -<span id="L18053" class="LineNr">18053 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18054" class="LineNr">18054 </span> <span class="subxComment"># if (vn == target-name) return true</span> -<span id="L18055" class="LineNr">18055 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> -<span id="L18056" class="LineNr">18056 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18057" class="LineNr">18057 </span> 75/jump-if-!= $binding-exists?:end/disp8 <span class="subxComment"># eax already contains true</span> -<span id="L18058" class="LineNr">18058 </span> <span class="subxComment"># curr -= 12</span> -<span id="L18059" class="LineNr">18059 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L18060" class="LineNr">18060 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L18061" class="LineNr">18061 </span> } -<span id="L18062" class="LineNr">18062 </span> b8/copy-to-eax 0/imm32/false -<span id="L18063" class="LineNr">18063 </span><span class="Constant">$binding-exists?:end</span>: -<span id="L18064" class="LineNr">18064 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18065" class="LineNr">18065 </span> 5e/pop-to-esi -<span id="L18066" class="LineNr">18066 </span> 5a/pop-to-edx -<span id="L18067" class="LineNr">18067 </span> 59/pop-to-ecx -<span id="L18068" class="LineNr">18068 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18069" class="LineNr">18069 </span> 89/<- %esp 5/r32/ebp -<span id="L18070" class="LineNr">18070 </span> 5d/pop-to-ebp -<span id="L18071" class="LineNr">18071 </span> c3/return -<span id="L18072" class="LineNr">18072 </span> -<span id="L18073" class="LineNr">18073 </span><span class="subxTest">test-parse-mu-stmt</span>: -<span id="L18074" class="LineNr">18074 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18075" class="LineNr">18075 </span> 55/push-ebp -<span id="L18076" class="LineNr">18076 </span> 89/<- %ebp 4/r32/esp -<span id="L18077" class="LineNr">18077 </span> <span class="subxComment"># setup</span> -<span id="L18078" class="LineNr">18078 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L18079" class="LineNr">18079 </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="L18080" class="LineNr">18080 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L18081" class="LineNr">18081 </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="L18082" class="LineNr">18082 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L18083" class="LineNr">18083 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L18084" class="LineNr">18084 </span> 68/push 0xc0/imm32/size -<span id="L18085" class="LineNr">18085 </span> 68/push 0/imm32/top -<span id="L18086" class="LineNr">18086 </span> 89/<- %ecx 4/r32/esp -<span id="L18087" class="LineNr">18087 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L18088" class="LineNr">18088 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L18089" class="LineNr">18089 </span> 68/push 0/imm32 -<span id="L18090" class="LineNr">18090 </span> 68/push 0/imm32 -<span id="L18091" class="LineNr">18091 </span> 89/<- %edx 4/r32/esp -<span id="L18092" class="LineNr">18092 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> -<span id="L18093" class="LineNr">18093 </span> 68/push 0/imm32 -<span id="L18094" class="LineNr">18094 </span> 68/push 0/imm32 -<span id="L18095" class="LineNr">18095 </span> 89/<- %eax 4/r32/esp -<span id="L18096" class="LineNr">18096 </span> <span class="subxComment"># v = new var("n")</span> -<span id="L18097" class="LineNr">18097 </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="L18098" class="LineNr">18098 </span> (<a href='mu.subx.html#L18189'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L18099" class="LineNr">18099 </span> <span class="subxComment">#</span> -<span id="L18100" class="LineNr">18100 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *edx) -<span id="L18101" class="LineNr">18101 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *(edx+4)) -<span id="L18102" class="LineNr">18102 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx 0) -<span id="L18103" class="LineNr">18103 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> -<span id="L18104" class="LineNr">18104 </span> 68/push 0/imm32 -<span id="L18105" class="LineNr">18105 </span> 68/push 0/imm32 -<span id="L18106" class="LineNr">18106 </span> 89/<- %eax 4/r32/esp -<span id="L18107" class="LineNr">18107 </span> <span class="subxComment"># convert</span> -<span id="L18108" class="LineNr">18108 </span> (<a href='mu.subx.html#L17227'>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="L18109" class="LineNr">18109 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> -<span id="L18110" class="LineNr">18110 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L18111" class="LineNr">18111 </span> 89/<- %edx 0/r32/eax -<span id="L18112" class="LineNr">18112 </span> <span class="subxComment"># out->tag</span> -<span id="L18113" class="LineNr">18113 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L18073'>test-parse-mu-stmt</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> -<span id="L18114" class="LineNr">18114 </span> <span class="subxComment"># out->operation</span> -<span id="L18115" class="LineNr">18115 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L18116" class="LineNr">18116 </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#L18073'>test-parse-mu-stmt</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> -<span id="L18117" class="LineNr">18117 </span> <span class="subxComment"># out->inouts->value->name</span> -<span id="L18118" class="LineNr">18118 </span> <span class="subxS1Comment"># . eax = out->inouts</span> -<span id="L18119" class="LineNr">18119 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L18120" class="LineNr">18120 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> -<span id="L18121" class="LineNr">18121 </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="L18122" class="LineNr">18122 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> -<span id="L18123" class="LineNr">18123 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18124" class="LineNr">18124 </span> <span class="subxS1Comment"># .</span> -<span id="L18125" class="LineNr">18125 </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#L18073'>test-parse-mu-stmt</a>/inout:0"</span>) -<span id="L18126" class="LineNr">18126 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18127" class="LineNr">18127 </span> 89/<- %esp 5/r32/ebp -<span id="L18128" class="LineNr">18128 </span> 5d/pop-to-ebp -<span id="L18129" class="LineNr">18129 </span> c3/return -<span id="L18130" class="LineNr">18130 </span> -<span id="L18131" class="LineNr">18131 </span><span class="subxTest">test-parse-mu-stmt-with-comma</span>: -<span id="L18132" class="LineNr">18132 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18133" class="LineNr">18133 </span> 55/push-ebp -<span id="L18134" class="LineNr">18134 </span> 89/<- %ebp 4/r32/esp -<span id="L18135" class="LineNr">18135 </span> <span class="subxComment"># setup</span> -<span id="L18136" class="LineNr">18136 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L18137" class="LineNr">18137 </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="L18138" class="LineNr">18138 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L18139" class="LineNr">18139 </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="L18140" class="LineNr">18140 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L18141" class="LineNr">18141 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L18142" class="LineNr">18142 </span> 68/push 0xc0/imm32/size -<span id="L18143" class="LineNr">18143 </span> 68/push 0/imm32/top -<span id="L18144" class="LineNr">18144 </span> 89/<- %ecx 4/r32/esp -<span id="L18145" class="LineNr">18145 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L18146" class="LineNr">18146 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L18147" class="LineNr">18147 </span> 68/push 0/imm32 -<span id="L18148" class="LineNr">18148 </span> 68/push 0/imm32 -<span id="L18149" class="LineNr">18149 </span> 89/<- %edx 4/r32/esp -<span id="L18150" class="LineNr">18150 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> -<span id="L18151" class="LineNr">18151 </span> 68/push 0/imm32 -<span id="L18152" class="LineNr">18152 </span> 68/push 0/imm32 -<span id="L18153" class="LineNr">18153 </span> 89/<- %eax 4/r32/esp -<span id="L18154" class="LineNr">18154 </span> <span class="subxComment"># v = new var("n")</span> -<span id="L18155" class="LineNr">18155 </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="L18156" class="LineNr">18156 </span> (<a href='mu.subx.html#L18189'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L18157" class="LineNr">18157 </span> <span class="subxComment">#</span> -<span id="L18158" class="LineNr">18158 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *edx) -<span id="L18159" class="LineNr">18159 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *(edx+4)) -<span id="L18160" class="LineNr">18160 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx 0) -<span id="L18161" class="LineNr">18161 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> -<span id="L18162" class="LineNr">18162 </span> 68/push 0/imm32 -<span id="L18163" class="LineNr">18163 </span> 68/push 0/imm32 -<span id="L18164" class="LineNr">18164 </span> 89/<- %eax 4/r32/esp -<span id="L18165" class="LineNr">18165 </span> <span class="subxComment"># convert</span> -<span id="L18166" class="LineNr">18166 </span> (<a href='mu.subx.html#L17227'>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="L18167" class="LineNr">18167 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> -<span id="L18168" class="LineNr">18168 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L18169" class="LineNr">18169 </span> 89/<- %edx 0/r32/eax -<span id="L18170" class="LineNr">18170 </span> <span class="subxComment"># out->tag</span> -<span id="L18171" class="LineNr">18171 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L18131'>test-parse-mu-stmt-with-comma</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> -<span id="L18172" class="LineNr">18172 </span> <span class="subxComment"># out->operation</span> -<span id="L18173" class="LineNr">18173 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L18174" class="LineNr">18174 </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#L18131'>test-parse-mu-stmt-with-comma</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> -<span id="L18175" class="LineNr">18175 </span> <span class="subxComment"># out->inouts->value->name</span> -<span id="L18176" class="LineNr">18176 </span> <span class="subxS1Comment"># . eax = out->inouts</span> -<span id="L18177" class="LineNr">18177 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L18178" class="LineNr">18178 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> -<span id="L18179" class="LineNr">18179 </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="L18180" class="LineNr">18180 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> -<span id="L18181" class="LineNr">18181 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18182" class="LineNr">18182 </span> <span class="subxS1Comment"># .</span> -<span id="L18183" class="LineNr">18183 </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#L18131'>test-parse-mu-stmt-with-comma</a>/inout:0"</span>) -<span id="L18184" class="LineNr">18184 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18185" class="LineNr">18185 </span> 89/<- %esp 5/r32/ebp -<span id="L18186" class="LineNr">18186 </span> 5d/pop-to-ebp -<span id="L18187" class="LineNr">18187 </span> c3/return -<span id="L18188" class="LineNr">18188 </span> -<span id="L18189" class="LineNr">18189 </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="L18190" class="LineNr">18190 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18191" class="LineNr">18191 </span> 55/push-ebp -<span id="L18192" class="LineNr">18192 </span> 89/<- %ebp 4/r32/esp -<span id="L18193" class="LineNr">18193 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18194" class="LineNr">18194 </span> 50/push-eax -<span id="L18195" class="LineNr">18195 </span> 51/push-ecx -<span id="L18196" class="LineNr">18196 </span> <span class="subxComment"># ecx = out</span> -<span id="L18197" class="LineNr">18197 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L18198" class="LineNr">18198 </span> <span class="subxComment">#</span> -<span id="L18199" class="LineNr">18199 </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="L18200" class="LineNr">18200 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> -<span id="L18201" class="LineNr">18201 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L18202" class="LineNr">18202 </span> <span class="subxComment"># out-addr->name = name</span> -<span id="L18203" class="LineNr">18203 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L18204" class="LineNr">18204 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Var-name</span> -<span id="L18205" class="LineNr">18205 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L18206" class="LineNr">18206 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Var-name</span> -<span id="L18207" class="LineNr">18207 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L18208" class="LineNr">18208 </span><span class="CommentedCode">#? (lookup *(ebp+0xc) *(ebp+0x10))</span> -<span id="L18209" class="LineNr">18209 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L18210" class="LineNr">18210 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> -<span id="L18211" class="LineNr">18211 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x14) 1/r32/ecx</span> -<span id="L18212" class="LineNr">18212 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4)) # => eax</span> -<span id="L18213" class="LineNr">18213 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L18214" class="LineNr">18214 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18215" class="LineNr">18215 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18216" class="LineNr">18216 </span><span class="Constant">$new-var:end</span>: -<span id="L18217" class="LineNr">18217 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18218" class="LineNr">18218 </span> 59/pop-to-ecx -<span id="L18219" class="LineNr">18219 </span> 58/pop-to-eax -<span id="L18220" class="LineNr">18220 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18221" class="LineNr">18221 </span> 89/<- %esp 5/r32/ebp -<span id="L18222" class="LineNr">18222 </span> 5d/pop-to-ebp -<span id="L18223" class="LineNr">18223 </span> c3/return -<span id="L18224" class="LineNr">18224 </span> -<span id="L18225" class="LineNr">18225 </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="L18226" class="LineNr">18226 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18227" class="LineNr">18227 </span> 55/push-ebp -<span id="L18228" class="LineNr">18228 </span> 89/<- %ebp 4/r32/esp -<span id="L18229" class="LineNr">18229 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17987" class="LineNr">17987 </span><span class="subxComment"># if 'name' starts with a digit, create a new literal var for it</span> +<span id="L17988" class="LineNr">17988 </span><span class="subxComment"># otherwise return first 'name' from the top (back) of 'vars' and abort if not found</span> +<span id="L17989" class="LineNr">17989 </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="L17990" class="LineNr">17990 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17991" class="LineNr">17991 </span> 55/push-ebp +<span id="L17992" class="LineNr">17992 </span> 89/<- %ebp 4/r32/esp +<span id="L17993" class="LineNr">17993 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17994" class="LineNr">17994 </span> 50/push-eax +<span id="L17995" class="LineNr">17995 </span> 51/push-ecx +<span id="L17996" class="LineNr">17996 </span> 56/push-esi +<span id="L17997" class="LineNr">17997 </span> <span class="subxComment"># esi = name</span> +<span id="L17998" class="LineNr">17998 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L17999" class="LineNr">17999 </span> <span class="subxComment"># if slice-empty?(name) abort</span> +<span id="L18000" class="LineNr">18000 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L18001" class="LineNr">18001 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18002" class="LineNr">18002 </span> 0f 85/jump-if-!= $lookup-var-or-literal:abort/disp32 +<span id="L18003" class="LineNr">18003 </span> <span class="subxComment"># var c/ecx: byte = *name->start</span> +<span id="L18004" class="LineNr">18004 </span> 8b/-> *esi 1/r32/ecx +<span id="L18005" class="LineNr">18005 </span> 8a/copy-byte *ecx 1/r32/CL +<span id="L18006" class="LineNr">18006 </span> 81 4/subop/and %ecx 0xff/imm32 +<span id="L18007" class="LineNr">18007 </span> <span class="subxComment"># if (is-decimal-digit?(c) || c == '-') return new var(name)</span> +<span id="L18008" class="LineNr">18008 </span> { +<span id="L18009" class="LineNr">18009 </span> 81 7/subop/compare %ecx 0x2d/imm32/dash +<span id="L18010" class="LineNr">18010 </span> 74/jump-if-= $lookup-var-or-literal:literal/disp8 +<span id="L18011" class="LineNr">18011 </span> (<a href='../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L18012" class="LineNr">18012 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18013" class="LineNr">18013 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18014" class="LineNr">18014 </span><span class="Constant">$lookup-var-or-literal:literal</span>: +<span id="L18015" class="LineNr">18015 </span> (<a href='mu.subx.html#L18658'>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="L18016" class="LineNr">18016 </span> eb/jump $lookup-var-or-literal:end/disp8 +<span id="L18017" class="LineNr">18017 </span> } +<span id="L18018" class="LineNr">18018 </span> <span class="subxComment"># else if (c == '"') return new var(name)</span> +<span id="L18019" class="LineNr">18019 </span> { +<span id="L18020" class="LineNr">18020 </span> 81 7/subop/compare %ecx 0x22/imm32/dquote +<span id="L18021" class="LineNr">18021 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L18022" class="LineNr">18022 </span><span class="Constant">$lookup-var-or-literal:literal-string</span>: +<span id="L18023" class="LineNr">18023 </span> (<a href='mu.subx.html#L18807'>new-literal-string</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %esi *(ebp+0x10)) +<span id="L18024" class="LineNr">18024 </span> eb/jump $lookup-var-or-literal:end/disp8 +<span id="L18025" class="LineNr">18025 </span> } +<span id="L18026" class="LineNr">18026 </span> <span class="subxComment"># otherwise return lookup-var(name, vars)</span> +<span id="L18027" class="LineNr">18027 </span> { +<span id="L18028" class="LineNr">18028 </span><span class="Constant">$lookup-var-or-literal:var</span>: +<span id="L18029" class="LineNr">18029 </span> (<a href='mu.subx.html#L18052'>lookup-var</a> %esi *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18030" class="LineNr">18030 </span> } +<span id="L18031" class="LineNr">18031 </span><span class="Constant">$lookup-var-or-literal:end</span>: +<span id="L18032" class="LineNr">18032 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18033" class="LineNr">18033 </span> 5e/pop-to-esi +<span id="L18034" class="LineNr">18034 </span> 59/pop-to-ecx +<span id="L18035" class="LineNr">18035 </span> 58/pop-to-eax +<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="Constant">$lookup-var-or-literal:abort</span>: +<span id="L18042" class="LineNr">18042 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18043" class="LineNr">18043 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18044" class="LineNr">18044 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18045" class="LineNr">18045 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18046" class="LineNr">18046 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": empty variable!"</span>) +<span id="L18047" class="LineNr">18047 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18048" class="LineNr">18048 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18049" class="LineNr">18049 </span> <span class="subxComment"># never gets here</span> +<span id="L18050" class="LineNr">18050 </span> +<span id="L18051" class="LineNr">18051 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars' and abort if not found</span> +<span id="L18052" class="LineNr">18052 </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="L18053" class="LineNr">18053 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18054" class="LineNr">18054 </span> 55/push-ebp +<span id="L18055" class="LineNr">18055 </span> 89/<- %ebp 4/r32/esp +<span id="L18056" class="LineNr">18056 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18057" class="LineNr">18057 </span> 50/push-eax +<span id="L18058" class="LineNr">18058 </span> <span class="subxComment">#</span> +<span id="L18059" class="LineNr">18059 </span> (<a href='mu.subx.html#L18086'>lookup-var-helper</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18060" class="LineNr">18060 </span> <span class="subxComment"># if (*out == 0) abort</span> +<span id="L18061" class="LineNr">18061 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L18062" class="LineNr">18062 </span> 81 7/subop/compare *eax 0/imm32 +<span id="L18063" class="LineNr">18063 </span> 74/jump-if-= $lookup-var:abort/disp8 +<span id="L18064" class="LineNr">18064 </span><span class="Constant">$lookup-var:end</span>: +<span id="L18065" class="LineNr">18065 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18066" class="LineNr">18066 </span> 58/pop-to-eax +<span id="L18067" class="LineNr">18067 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18068" class="LineNr">18068 </span> 89/<- %esp 5/r32/ebp +<span id="L18069" class="LineNr">18069 </span> 5d/pop-to-ebp +<span id="L18070" class="LineNr">18070 </span> c3/return +<span id="L18071" class="LineNr">18071 </span> +<span id="L18072" class="LineNr">18072 </span><span class="Constant">$lookup-var:abort</span>: +<span id="L18073" class="LineNr">18073 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18074" class="LineNr">18074 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18075" class="LineNr">18075 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18076" class="LineNr">18076 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18077" class="LineNr">18077 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": unknown variable '"</span>) +<span id="L18078" class="LineNr">18078 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L18079" class="LineNr">18079 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L18080" class="LineNr">18080 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18081" class="LineNr">18081 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18082" class="LineNr">18082 </span> <span class="subxComment"># never gets here</span> +<span id="L18083" class="LineNr">18083 </span> +<span id="L18084" class="LineNr">18084 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars', and 0/null if not found</span> +<span id="L18085" class="LineNr">18085 </span><span class="subxComment"># ensure that 'name' if in a register is the topmost variable in that register</span> +<span id="L18086" class="LineNr">18086 </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="L18087" class="LineNr">18087 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18088" class="LineNr">18088 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L18089" class="LineNr">18089 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L18090" class="LineNr">18090 </span> <span class="subxComment"># while curr >= min</span> +<span id="L18091" class="LineNr">18091 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L18092" class="LineNr">18092 </span> <span class="subxComment"># if v->name == name</span> +<span id="L18093" class="LineNr">18093 </span> <span class="subxComment"># return</span> +<span id="L18094" class="LineNr">18094 </span> <span class="subxComment"># curr -= 12</span> +<span id="L18095" class="LineNr">18095 </span> <span class="subxComment">#</span> +<span id="L18096" class="LineNr">18096 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18097" class="LineNr">18097 </span> 55/push-ebp +<span id="L18098" class="LineNr">18098 </span> 89/<- %ebp 4/r32/esp +<span id="L18099" class="LineNr">18099 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18100" class="LineNr">18100 </span> 50/push-eax +<span id="L18101" class="LineNr">18101 </span> 51/push-ecx +<span id="L18102" class="LineNr">18102 </span> 52/push-edx +<span id="L18103" class="LineNr">18103 </span> 53/push-ebx +<span id="L18104" class="LineNr">18104 </span> 56/push-esi +<span id="L18105" class="LineNr">18105 </span> 57/push-edi +<span id="L18106" class="LineNr">18106 </span> <span class="subxComment"># clear out</span> +<span id="L18107" class="LineNr">18107 </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="L18108" class="LineNr">18108 </span> <span class="subxComment"># esi = vars</span> +<span id="L18109" class="LineNr">18109 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L18110" class="LineNr">18110 </span> <span class="subxComment"># ebx = vars->top</span> +<span id="L18111" class="LineNr">18111 </span> 8b/-> *esi 3/r32/ebx +<span id="L18112" class="LineNr">18112 </span> <span class="subxComment"># if (vars->top > vars->size) abort</span> +<span id="L18113" class="LineNr">18113 </span> 3b/compare<- *(esi+4) 0/r32/eax +<span id="L18114" class="LineNr">18114 </span> 0f 8f/jump-if-> $lookup-var-helper:error1/disp32 +<span id="L18115" class="LineNr">18115 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L18116" class="LineNr">18116 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L18117" class="LineNr">18117 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L18118" class="LineNr">18118 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L18119" class="LineNr">18119 </span> <span class="subxComment"># var var-in-reg/edi: 16 addrs</span> +<span id="L18120" class="LineNr">18120 </span> 68/push 0/imm32 +<span id="L18121" class="LineNr">18121 </span> 68/push 0/imm32 +<span id="L18122" class="LineNr">18122 </span> 68/push 0/imm32 +<span id="L18123" class="LineNr">18123 </span> 68/push 0/imm32 +<span id="L18124" class="LineNr">18124 </span> 68/push 0/imm32 +<span id="L18125" class="LineNr">18125 </span> 68/push 0/imm32 +<span id="L18126" class="LineNr">18126 </span> 68/push 0/imm32 +<span id="L18127" class="LineNr">18127 </span> 68/push 0/imm32 +<span id="L18128" class="LineNr">18128 </span> 68/push 0/imm32 +<span id="L18129" class="LineNr">18129 </span> 68/push 0/imm32 +<span id="L18130" class="LineNr">18130 </span> 68/push 0/imm32 +<span id="L18131" class="LineNr">18131 </span> 68/push 0/imm32 +<span id="L18132" class="LineNr">18132 </span> 68/push 0/imm32 +<span id="L18133" class="LineNr">18133 </span> 68/push 0/imm32 +<span id="L18134" class="LineNr">18134 </span> 68/push 0/imm32 +<span id="L18135" class="LineNr">18135 </span> 68/push 0/imm32 +<span id="L18136" class="LineNr">18136 </span> 89/<- %edi 4/r32/esp +<span id="L18137" class="LineNr">18137 </span> { +<span id="L18138" class="LineNr">18138 </span><span class="Constant">$lookup-var-helper:loop</span>: +<span id="L18139" class="LineNr">18139 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L18140" class="LineNr">18140 </span> 39/compare %ebx 2/r32/edx +<span id="L18141" class="LineNr">18141 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L18142" class="LineNr">18142 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(*curr)</span> +<span id="L18143" class="LineNr">18143 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L18144" class="LineNr">18144 </span> 89/<- %ecx 0/r32/eax +<span id="L18145" class="LineNr">18145 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> +<span id="L18146" class="LineNr">18146 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18147" class="LineNr">18147 </span> <span class="subxComment"># if (vn == name) return curr</span> +<span id="L18148" class="LineNr">18148 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> +<span id="L18149" class="LineNr">18149 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18150" class="LineNr">18150 </span> { +<span id="L18151" class="LineNr">18151 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18152" class="LineNr">18152 </span><span class="Constant">$lookup-var-helper:found</span>: +<span id="L18153" class="LineNr">18153 </span> <span class="subxComment"># var vr/eax: (addr array byte) = lookup(v->register)</span> +<span id="L18154" class="LineNr">18154 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L18155" class="LineNr">18155 </span> 3d/compare-eax-and 0/imm32 +<span id="L18156" class="LineNr">18156 </span> { +<span id="L18157" class="LineNr">18157 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18158" class="LineNr">18158 </span><span class="Constant">$lookup-var-helper:found-register</span>: +<span id="L18159" class="LineNr">18159 </span> <span class="subxComment"># var reg/eax: int = get(Registers, vr)</span> +<span id="L18160" class="LineNr">18160 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L18319'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L18161" class="LineNr">18161 </span> 8b/-> *eax 0/r32/eax +<span id="L18162" class="LineNr">18162 </span> <span class="subxComment"># if (var-in-reg[reg]) error</span> +<span id="L18163" class="LineNr">18163 </span> 8b/-> *(edi+eax<<2) 0/r32/eax +<span id="L18164" class="LineNr">18164 </span> 3d/compare-eax-and 0/imm32 +<span id="L18165" class="LineNr">18165 </span> 0f 85/jump-if-!= $lookup-var-helper:error2/disp32 +<span id="L18166" class="LineNr">18166 </span> } +<span id="L18167" class="LineNr">18167 </span><span class="Constant">$lookup-var-helper:return</span>: +<span id="L18168" class="LineNr">18168 </span> <span class="subxComment"># esi = out</span> +<span id="L18169" class="LineNr">18169 </span> 8b/-> *(ebp+0x10) 6/r32/esi +<span id="L18170" class="LineNr">18170 </span> <span class="subxComment"># *out = *curr</span> +<span id="L18171" class="LineNr">18171 </span> 8b/-> *ebx 0/r32/eax +<span id="L18172" class="LineNr">18172 </span> 89/<- *esi 0/r32/eax +<span id="L18173" class="LineNr">18173 </span> 8b/-> *(ebx+4) 0/r32/eax +<span id="L18174" class="LineNr">18174 </span> 89/<- *(esi+4) 0/r32/eax +<span id="L18175" class="LineNr">18175 </span> <span class="subxComment"># return</span> +<span id="L18176" class="LineNr">18176 </span> eb/jump $lookup-var-helper:end/disp8 +<span id="L18177" class="LineNr">18177 </span> } +<span id="L18178" class="LineNr">18178 </span> <span class="subxComment"># 'name' not yet found; update var-in-reg if v in register</span> +<span id="L18179" class="LineNr">18179 </span> <span class="subxS1Comment"># . var vr/eax: (addr array byte) = lookup(v->register)</span> +<span id="L18180" class="LineNr">18180 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L18181" class="LineNr">18181 </span> <span class="subxS1Comment"># . if (vr == 0) continue</span> +<span id="L18182" class="LineNr">18182 </span> 3d/compare-eax-and 0/imm32 +<span id="L18183" class="LineNr">18183 </span> 74/jump-if-= $lookup-var-helper:continue/disp8 +<span id="L18184" class="LineNr">18184 </span> <span class="subxS1Comment"># . var reg/eax: int = get(Registers, vr)</span> +<span id="L18185" class="LineNr">18185 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L18319'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L18186" class="LineNr">18186 </span> 8b/-> *eax 0/r32/eax +<span id="L18187" class="LineNr">18187 </span> <span class="subxS1Comment"># . var-in-reg[reg] = v</span> +<span id="L18188" class="LineNr">18188 </span> 89/<- *(edi+eax<<2) 1/r32/ecx +<span id="L18189" class="LineNr">18189 </span><span class="Constant">$lookup-var-helper:continue</span>: +<span id="L18190" class="LineNr">18190 </span> <span class="subxComment"># curr -= 12</span> +<span id="L18191" class="LineNr">18191 </span> 81 5/subop/subtract %ebx 0xc/imm32 +<span id="L18192" class="LineNr">18192 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L18193" class="LineNr">18193 </span> } +<span id="L18194" class="LineNr">18194 </span><span class="Constant">$lookup-var-helper:end</span>: +<span id="L18195" class="LineNr">18195 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18196" class="LineNr">18196 </span> 81 0/subop/add %esp 0x40/imm32 +<span id="L18197" class="LineNr">18197 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18198" class="LineNr">18198 </span> 5f/pop-to-edi +<span id="L18199" class="LineNr">18199 </span> 5e/pop-to-esi +<span id="L18200" class="LineNr">18200 </span> 5b/pop-to-ebx +<span id="L18201" class="LineNr">18201 </span> 5a/pop-to-edx +<span id="L18202" class="LineNr">18202 </span> 59/pop-to-ecx +<span id="L18203" class="LineNr">18203 </span> 58/pop-to-eax +<span id="L18204" class="LineNr">18204 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18205" class="LineNr">18205 </span> 89/<- %esp 5/r32/ebp +<span id="L18206" class="LineNr">18206 </span> 5d/pop-to-ebp +<span id="L18207" class="LineNr">18207 </span> c3/return +<span id="L18208" class="LineNr">18208 </span> +<span id="L18209" class="LineNr">18209 </span><span class="Constant">$lookup-var-helper:error1</span>: +<span id="L18210" class="LineNr">18210 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18211" class="LineNr">18211 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18212" class="LineNr">18212 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18213" class="LineNr">18213 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18214" class="LineNr">18214 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": malformed stack when looking up '"</span>) +<span id="L18215" class="LineNr">18215 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L18216" class="LineNr">18216 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L18217" class="LineNr">18217 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18218" class="LineNr">18218 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18219" class="LineNr">18219 </span> <span class="subxComment"># never gets here</span> +<span id="L18220" class="LineNr">18220 </span> +<span id="L18221" class="LineNr">18221 </span><span class="Constant">$lookup-var-helper:error2</span>: +<span id="L18222" class="LineNr">18222 </span> <span class="subxComment"># eax contains the conflicting var at this point</span> +<span id="L18223" class="LineNr">18223 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18224" class="LineNr">18224 </span> 50/push-eax +<span id="L18225" class="LineNr">18225 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18226" class="LineNr">18226 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18227" class="LineNr">18227 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18228" class="LineNr">18228 </span> 58/pop-eax +<span id="L18229" class="LineNr">18229 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": register "</span>) <span id="L18230" class="LineNr">18230 </span> 50/push-eax -<span id="L18231" class="LineNr">18231 </span> 51/push-ecx -<span id="L18232" class="LineNr">18232 </span> <span class="subxComment"># if (!is-hex-int?(name)) abort</span> -<span id="L18233" class="LineNr">18233 </span> (<a href='../118parse-hex-int.subx.html#L9'>is-hex-int?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L18234" class="LineNr">18234 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18235" class="LineNr">18235 </span> 0f 84/jump-if-= $new-literal-integer:abort/disp32 -<span id="L18236" class="LineNr">18236 </span> <span class="subxComment"># a little more error-checking</span> -<span id="L18237" class="LineNr">18237 </span> (<a href='mu.subx.html#L18277'>check-mu-hex-int</a> *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18238" class="LineNr">18238 </span> <span class="subxComment"># out = new var(s)</span> -<span id="L18239" class="LineNr">18239 </span> (<a href='mu.subx.html#L18415'>new-var-from-slice</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) -<span id="L18240" class="LineNr">18240 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L18241" class="LineNr">18241 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L18242" class="LineNr">18242 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L18243" class="LineNr">18243 </span> 89/<- %ecx 0/r32/eax -<span id="L18244" class="LineNr">18244 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L18245" class="LineNr">18245 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/r32/eax -<span id="L18246" class="LineNr">18246 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L18247" class="LineNr">18247 </span> <span class="subxComment"># out-addr->type = new tree()</span> -<span id="L18248" class="LineNr">18248 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L18249" class="LineNr">18249 </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="L18250" class="LineNr">18250 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18251" class="LineNr">18251 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L18252" class="LineNr">18252 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> -<span id="L18253" class="LineNr">18253 </span><span class="Constant">$new-literal-integer:end</span>: -<span id="L18254" class="LineNr">18254 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18255" class="LineNr">18255 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18256" class="LineNr">18256 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18257" class="LineNr">18257 </span> 59/pop-to-ecx -<span id="L18258" class="LineNr">18258 </span> 58/pop-to-eax -<span id="L18259" class="LineNr">18259 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18260" class="LineNr">18260 </span> 89/<- %esp 5/r32/ebp -<span id="L18261" class="LineNr">18261 </span> 5d/pop-to-ebp -<span id="L18262" class="LineNr">18262 </span> c3/return -<span id="L18263" class="LineNr">18263 </span> -<span id="L18264" class="LineNr">18264 </span><span class="Constant">$new-literal-integer:abort</span>: -<span id="L18265" class="LineNr">18265 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18266" class="LineNr">18266 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18267" class="LineNr">18267 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18268" class="LineNr">18268 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18269" class="LineNr">18269 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": variable '"</span>) -<span id="L18270" class="LineNr">18270 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L18271" class="LineNr">18271 </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="L18272" class="LineNr">18272 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18273" class="LineNr">18273 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18274" class="LineNr">18274 </span> <span class="subxComment"># never gets here</span> -<span id="L18275" class="LineNr">18275 </span> -<span id="L18276" class="LineNr">18276 </span><span class="subxComment"># precondition: name is a valid hex integer; require a '0x' prefix</span> -<span id="L18277" class="LineNr">18277 </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="L18278" class="LineNr">18278 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18279" class="LineNr">18279 </span> 55/push-ebp -<span id="L18280" class="LineNr">18280 </span> 89/<- %ebp 4/r32/esp -<span id="L18281" class="LineNr">18281 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18282" class="LineNr">18282 </span> 50/push-eax -<span id="L18283" class="LineNr">18283 </span> 51/push-ecx -<span id="L18284" class="LineNr">18284 </span> 52/push-edx -<span id="L18285" class="LineNr">18285 </span> <span class="subxComment"># ecx = name</span> -<span id="L18286" class="LineNr">18286 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L18287" class="LineNr">18287 </span> <span class="subxComment"># var start/edx: (addr byte) = name->start</span> -<span id="L18288" class="LineNr">18288 </span> 8b/-> *ecx 2/r32/edx -<span id="L18289" class="LineNr">18289 </span> <span class="subxComment"># if (*start == '-') ++start</span> -<span id="L18290" class="LineNr">18290 </span> b8/copy-to-eax 0/imm32 -<span id="L18291" class="LineNr">18291 </span> 8a/copy-byte *edx 0/r32/AL -<span id="L18292" class="LineNr">18292 </span> 3d/compare-eax-and 0x2d/imm32/dash -<span id="L18293" class="LineNr">18293 </span> { -<span id="L18294" class="LineNr">18294 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L18295" class="LineNr">18295 </span> 42/increment-edx -<span id="L18296" class="LineNr">18296 </span> } -<span id="L18297" class="LineNr">18297 </span> <span class="subxComment"># var end/ecx: (addr byte) = name->end</span> -<span id="L18298" class="LineNr">18298 </span> 8b/-> *(ecx+4) 1/r32/ecx -<span id="L18299" class="LineNr">18299 </span> <span class="subxComment"># var len/eax: int = name->end - name->start</span> -<span id="L18300" class="LineNr">18300 </span> 89/<- %eax 1/r32/ecx -<span id="L18301" class="LineNr">18301 </span> 29/subtract-from %eax 2/r32/edx -<span id="L18302" class="LineNr">18302 </span> <span class="subxComment"># if (len <= 1) return</span> -<span id="L18303" class="LineNr">18303 </span> 3d/compare-eax-with 1/imm32 -<span id="L18304" class="LineNr">18304 </span> 0f 8e/jump-if-<= $check-mu-hex-int:end/disp32 -<span id="L18305" class="LineNr">18305 </span><span class="Constant">$check-mu-hex-int:length->-1</span>: -<span id="L18306" class="LineNr">18306 </span> <span class="subxComment"># if slice-starts-with?({start, end}, "0x") return</span> -<span id="L18307" class="LineNr">18307 </span> <span class="subxS1Comment"># . var tmp = {start, end}</span> -<span id="L18308" class="LineNr">18308 </span> 51/push-ecx -<span id="L18309" class="LineNr">18309 </span> 52/push-edx -<span id="L18310" class="LineNr">18310 </span> 89/<- %eax 4/r32/esp -<span id="L18311" class="LineNr">18311 </span> <span class="subxS1Comment"># .</span> -<span id="L18312" class="LineNr">18312 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %eax <span class="Constant">"0x"</span>) <span class="subxComment"># => eax</span> -<span id="L18313" class="LineNr">18313 </span> <span class="subxS1Comment"># . reclaim tmp</span> -<span id="L18314" class="LineNr">18314 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18315" class="LineNr">18315 </span> <span class="subxS1Comment"># .</span> -<span id="L18316" class="LineNr">18316 </span> 3d/compare-eax-with 0/imm32/false -<span id="L18317" class="LineNr">18317 </span> 75/jump-if-!= $check-mu-hex-int:end/disp8 -<span id="L18318" class="LineNr">18318 </span><span class="Constant">$check-mu-hex-int:abort</span>: -<span id="L18319" class="LineNr">18319 </span> <span class="subxComment"># otherwise abort</span> -<span id="L18320" class="LineNr">18320 </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="L18321" class="LineNr">18321 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *(ebp+8)) -<span id="L18322" class="LineNr">18322 </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="L18323" class="LineNr">18323 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L18324" class="LineNr">18324 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L18325" class="LineNr">18325 </span><span class="Constant">$check-mu-hex-int:end</span>: -<span id="L18326" class="LineNr">18326 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18327" class="LineNr">18327 </span> 5a/pop-to-edx -<span id="L18328" class="LineNr">18328 </span> 59/pop-to-ecx -<span id="L18329" class="LineNr">18329 </span> 58/pop-to-eax -<span id="L18330" class="LineNr">18330 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18331" class="LineNr">18331 </span> 89/<- %esp 5/r32/ebp -<span id="L18332" class="LineNr">18332 </span> 5d/pop-to-ebp -<span id="L18333" class="LineNr">18333 </span> c3/return -<span id="L18334" class="LineNr">18334 </span> -<span id="L18335" class="LineNr">18335 </span><span class="subxFunction">new-literal</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> -<span id="L18336" class="LineNr">18336 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18337" class="LineNr">18337 </span> 55/push-ebp -<span id="L18338" class="LineNr">18338 </span> 89/<- %ebp 4/r32/esp -<span id="L18339" class="LineNr">18339 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18340" class="LineNr">18340 </span> 50/push-eax -<span id="L18341" class="LineNr">18341 </span> 51/push-ecx -<span id="L18342" class="LineNr">18342 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> -<span id="L18343" class="LineNr">18343 </span> 68/push 0/imm32 -<span id="L18344" class="LineNr">18344 </span> 68/push 0/imm32 -<span id="L18345" class="LineNr">18345 </span> 89/<- %ecx 4/r32/esp -<span id="L18346" class="LineNr">18346 </span> <span class="subxComment"># s = slice-to-string(name)</span> -<span id="L18347" class="LineNr">18347 </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="L18348" class="LineNr">18348 </span> <span class="subxComment"># allocate to out</span> -<span id="L18349" class="LineNr">18349 </span> (<a href='mu.subx.html#L18189'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L18350" class="LineNr">18350 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L18351" class="LineNr">18351 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L18352" class="LineNr">18352 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L18353" class="LineNr">18353 </span> 89/<- %ecx 0/r32/eax -<span id="L18354" class="LineNr">18354 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L18355" class="LineNr">18355 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/r32/eax -<span id="L18356" class="LineNr">18356 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L18357" class="LineNr">18357 </span> <span class="subxComment"># out-addr->type/eax = new type</span> -<span id="L18358" class="LineNr">18358 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L18359" class="LineNr">18359 </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="L18360" class="LineNr">18360 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18361" class="LineNr">18361 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> -<span id="L18362" class="LineNr">18362 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L18363" class="LineNr">18363 </span><span class="Constant">$new-literal:end</span>: -<span id="L18364" class="LineNr">18364 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18365" class="LineNr">18365 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18366" class="LineNr">18366 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18367" class="LineNr">18367 </span> 59/pop-to-ecx -<span id="L18368" class="LineNr">18368 </span> 58/pop-to-eax -<span id="L18369" class="LineNr">18369 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18370" class="LineNr">18370 </span> 89/<- %esp 5/r32/ebp -<span id="L18371" class="LineNr">18371 </span> 5d/pop-to-ebp -<span id="L18372" class="LineNr">18372 </span> c3/return -<span id="L18373" class="LineNr">18373 </span> -<span id="L18374" class="LineNr">18374 </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="L18375" class="LineNr">18375 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18376" class="LineNr">18376 </span> 55/push-ebp -<span id="L18377" class="LineNr">18377 </span> 89/<- %ebp 4/r32/esp -<span id="L18378" class="LineNr">18378 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18379" class="LineNr">18379 </span> 50/push-eax -<span id="L18380" class="LineNr">18380 </span> 51/push-ecx -<span id="L18381" class="LineNr">18381 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> -<span id="L18382" class="LineNr">18382 </span> 68/push 0/imm32 -<span id="L18383" class="LineNr">18383 </span> 68/push 0/imm32 -<span id="L18384" class="LineNr">18384 </span> 89/<- %ecx 4/r32/esp -<span id="L18385" class="LineNr">18385 </span> <span class="subxComment"># s = slice-to-string(name)</span> -<span id="L18386" class="LineNr">18386 </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="L18387" class="LineNr">18387 </span> <span class="subxComment"># allocate to out</span> -<span id="L18388" class="LineNr">18388 </span> (<a href='mu.subx.html#L18189'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L18389" class="LineNr">18389 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L18390" class="LineNr">18390 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L18391" class="LineNr">18391 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L18392" class="LineNr">18392 </span> 89/<- %ecx 0/r32/eax -<span id="L18393" class="LineNr">18393 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L18394" class="LineNr">18394 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/r32/eax -<span id="L18395" class="LineNr">18395 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L18396" class="LineNr">18396 </span> <span class="subxComment"># out-addr->type/eax = new type</span> -<span id="L18397" class="LineNr">18397 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L18398" class="LineNr">18398 </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="L18399" class="LineNr">18399 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18400" class="LineNr">18400 </span> <span class="subxComment"># out-addr->type->value = literal-string</span> -<span id="L18401" class="LineNr">18401 </span> c7 0/subop/copy *(eax+4) 0x10/imm32/type-id-string-literal <span class="subxComment"># Type-tree-value</span> -<span id="L18402" class="LineNr">18402 </span> <span class="subxComment"># out-addr->type->is-atom? = true</span> -<span id="L18403" class="LineNr">18403 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L18404" class="LineNr">18404 </span><span class="Constant">$new-literal-string:end</span>: -<span id="L18405" class="LineNr">18405 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18406" class="LineNr">18406 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18407" class="LineNr">18407 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18408" class="LineNr">18408 </span> 59/pop-to-ecx -<span id="L18409" class="LineNr">18409 </span> 58/pop-to-eax -<span id="L18410" class="LineNr">18410 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18411" class="LineNr">18411 </span> 89/<- %esp 5/r32/ebp -<span id="L18412" class="LineNr">18412 </span> 5d/pop-to-ebp -<span id="L18413" class="LineNr">18413 </span> c3/return -<span id="L18414" class="LineNr">18414 </span> -<span id="L18415" class="LineNr">18415 </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="L18416" class="LineNr">18416 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18417" class="LineNr">18417 </span> 55/push-ebp -<span id="L18418" class="LineNr">18418 </span> 89/<- %ebp 4/r32/esp -<span id="L18419" class="LineNr">18419 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18420" class="LineNr">18420 </span> 51/push-ecx -<span id="L18421" class="LineNr">18421 </span> <span class="subxComment"># var tmp/ecx: (handle array byte)</span> -<span id="L18422" class="LineNr">18422 </span> 68/push 0/imm32 -<span id="L18423" class="LineNr">18423 </span> 68/push 0/imm32 -<span id="L18424" class="LineNr">18424 </span> 89/<- %ecx 4/r32/esp -<span id="L18425" class="LineNr">18425 </span> <span class="subxComment"># tmp = slice-to-string(name)</span> -<span id="L18426" class="LineNr">18426 </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="L18427" class="LineNr">18427 </span> <span class="subxComment"># out = new-var(tmp)</span> -<span id="L18428" class="LineNr">18428 </span> (<a href='mu.subx.html#L18189'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L18429" class="LineNr">18429 </span><span class="Constant">$new-var-from-slice:end</span>: -<span id="L18430" class="LineNr">18430 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18431" class="LineNr">18431 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18432" class="LineNr">18432 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18433" class="LineNr">18433 </span> 59/pop-to-ecx -<span id="L18434" class="LineNr">18434 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18435" class="LineNr">18435 </span> 89/<- %esp 5/r32/ebp -<span id="L18436" class="LineNr">18436 </span> 5d/pop-to-ebp -<span id="L18437" class="LineNr">18437 </span> c3/return -<span id="L18438" class="LineNr">18438 </span> -<span id="L18439" class="LineNr">18439 </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="L18440" class="LineNr">18440 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18441" class="LineNr">18441 </span> 55/push-ebp -<span id="L18442" class="LineNr">18442 </span> 89/<- %ebp 4/r32/esp -<span id="L18443" class="LineNr">18443 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18444" class="LineNr">18444 </span> 50/push-eax -<span id="L18445" class="LineNr">18445 </span> 51/push-ecx -<span id="L18446" class="LineNr">18446 </span> <span class="subxComment">#</span> -<span id="L18447" class="LineNr">18447 </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="L18448" class="LineNr">18448 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> -<span id="L18449" class="LineNr">18449 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18450" class="LineNr">18450 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L18451" class="LineNr">18451 </span> <span class="subxComment"># out-addr->tag = stmt</span> -<span id="L18452" class="LineNr">18452 </span> c7 0/subop/copy *eax 2/imm32/tag/var-on-stack <span class="subxComment"># Stmt-tag</span> -<span id="L18453" class="LineNr">18453 </span> <span class="subxComment"># result->var = var</span> -<span id="L18454" class="LineNr">18454 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L18455" class="LineNr">18455 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Vardef-var</span> -<span id="L18456" class="LineNr">18456 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L18457" class="LineNr">18457 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Vardef-var</span> -<span id="L18458" class="LineNr">18458 </span><span class="Constant">$new-var-def:end</span>: -<span id="L18459" class="LineNr">18459 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18460" class="LineNr">18460 </span> 59/pop-to-ecx -<span id="L18461" class="LineNr">18461 </span> 58/pop-to-eax -<span id="L18462" class="LineNr">18462 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18463" class="LineNr">18463 </span> 89/<- %esp 5/r32/ebp -<span id="L18464" class="LineNr">18464 </span> 5d/pop-to-ebp -<span id="L18465" class="LineNr">18465 </span> c3/return -<span id="L18466" class="LineNr">18466 </span> -<span id="L18467" class="LineNr">18467 </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="L18468" class="LineNr">18468 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18469" class="LineNr">18469 </span> 55/push-ebp -<span id="L18470" class="LineNr">18470 </span> 89/<- %ebp 4/r32/esp -<span id="L18471" class="LineNr">18471 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18472" class="LineNr">18472 </span> 50/push-eax -<span id="L18473" class="LineNr">18473 </span> <span class="subxComment"># eax = out</span> -<span id="L18474" class="LineNr">18474 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18475" class="LineNr">18475 </span> <span class="subxComment">#</span> -<span id="L18476" class="LineNr">18476 </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="L18477" class="LineNr">18477 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> -<span id="L18478" class="LineNr">18478 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L18479" class="LineNr">18479 </span> <span class="subxComment"># set tag</span> -<span id="L18480" class="LineNr">18480 </span> c7 0/subop/copy *eax 3/imm32/tag/var-in-register <span class="subxComment"># Stmt-tag</span> -<span id="L18481" class="LineNr">18481 </span> <span class="subxComment"># set output</span> -<span id="L18482" class="LineNr">18482 </span> 8d/copy-address *(eax+0x14) 0/r32/eax <span class="subxComment"># Regvardef-outputs</span> -<span id="L18483" class="LineNr">18483 </span> (<a href='mu.subx.html#L18550'>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="L18484" class="LineNr">18484 </span><span class="Constant">$new-reg-var-def:end</span>: -<span id="L18485" class="LineNr">18485 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18486" class="LineNr">18486 </span> 58/pop-to-eax -<span id="L18487" class="LineNr">18487 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18488" class="LineNr">18488 </span> 89/<- %esp 5/r32/ebp -<span id="L18489" class="LineNr">18489 </span> 5d/pop-to-ebp -<span id="L18490" class="LineNr">18490 </span> c3/return -<span id="L18491" class="LineNr">18491 </span> -<span id="L18492" class="LineNr">18492 </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="L18493" class="LineNr">18493 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18494" class="LineNr">18494 </span> 55/push-ebp -<span id="L18495" class="LineNr">18495 </span> 89/<- %ebp 4/r32/esp -<span id="L18496" class="LineNr">18496 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18497" class="LineNr">18497 </span> 50/push-eax -<span id="L18498" class="LineNr">18498 </span> 51/push-ecx -<span id="L18499" class="LineNr">18499 </span> 57/push-edi -<span id="L18500" class="LineNr">18500 </span> <span class="subxComment"># edi = out</span> -<span id="L18501" class="LineNr">18501 </span> 8b/-> *(ebp+0x1c) 7/r32/edi -<span id="L18502" class="LineNr">18502 </span> <span class="subxComment"># *out = new list</span> -<span id="L18503" class="LineNr">18503 </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="L18504" class="LineNr">18504 </span> <span class="subxComment"># var out-addr/edi: (addr list _type) = lookup(*out)</span> -<span id="L18505" class="LineNr">18505 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18506" class="LineNr">18506 </span> 89/<- %edi 0/r32/eax -<span id="L18507" class="LineNr">18507 </span> <span class="subxComment"># out-addr->value = value</span> -<span id="L18508" class="LineNr">18508 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L18509" class="LineNr">18509 </span> 89/<- *edi 0/r32/eax <span class="subxComment"># List-value</span> -<span id="L18510" class="LineNr">18510 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L18511" class="LineNr">18511 </span> 89/<- *(edi+4) 0/r32/eax <span class="subxComment"># List-value</span> -<span id="L18512" class="LineNr">18512 </span> <span class="subxComment"># if (list == null) return</span> -<span id="L18513" class="LineNr">18513 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32 -<span id="L18514" class="LineNr">18514 </span> 74/jump-if-= $append-list:end/disp8 -<span id="L18515" class="LineNr">18515 </span> <span class="subxComment"># otherwise append</span> -<span id="L18516" class="LineNr">18516 </span><span class="Constant">$append-list:non-empty-list</span>: -<span id="L18517" class="LineNr">18517 </span> <span class="subxComment"># var curr/eax: (addr list _type) = lookup(list)</span> -<span id="L18518" class="LineNr">18518 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L18519" class="LineNr">18519 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> -<span id="L18520" class="LineNr">18520 </span> { -<span id="L18521" class="LineNr">18521 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># List-next</span> -<span id="L18522" class="LineNr">18522 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18523" class="LineNr">18523 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L18524" class="LineNr">18524 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># List-next, List-next => eax</span> -<span id="L18525" class="LineNr">18525 </span> <span class="subxComment">#</span> -<span id="L18526" class="LineNr">18526 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L18527" class="LineNr">18527 </span> } -<span id="L18528" class="LineNr">18528 </span> <span class="subxComment"># edi = out</span> -<span id="L18529" class="LineNr">18529 </span> 8b/-> *(ebp+0x1c) 7/r32/edi -<span id="L18530" class="LineNr">18530 </span> <span class="subxComment"># curr->next = out</span> -<span id="L18531" class="LineNr">18531 </span> 8b/-> *edi 1/r32/ecx -<span id="L18532" class="LineNr">18532 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># List-next</span> -<span id="L18533" class="LineNr">18533 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L18534" class="LineNr">18534 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># List-next</span> -<span id="L18535" class="LineNr">18535 </span> <span class="subxComment"># out = list</span> -<span id="L18536" class="LineNr">18536 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L18537" class="LineNr">18537 </span> 89/<- *edi 1/r32/ecx -<span id="L18538" class="LineNr">18538 </span> 8b/-> *(ebp+0x18) 1/r32/ecx -<span id="L18539" class="LineNr">18539 </span> 89/<- *(edi+4) 1/r32/ecx -<span id="L18540" class="LineNr">18540 </span><span class="Constant">$append-list:end</span>: -<span id="L18541" class="LineNr">18541 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18542" class="LineNr">18542 </span> 5f/pop-to-edi -<span id="L18543" class="LineNr">18543 </span> 59/pop-to-ecx -<span id="L18544" class="LineNr">18544 </span> 58/pop-to-eax -<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">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="L18551" class="LineNr">18551 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18552" class="LineNr">18552 </span> 55/push-ebp -<span id="L18553" class="LineNr">18553 </span> 89/<- %ebp 4/r32/esp -<span id="L18554" class="LineNr">18554 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18555" class="LineNr">18555 </span> 50/push-eax -<span id="L18556" class="LineNr">18556 </span> 51/push-ecx -<span id="L18557" class="LineNr">18557 </span> 57/push-edi -<span id="L18558" class="LineNr">18558 </span> <span class="subxComment"># edi = out</span> -<span id="L18559" class="LineNr">18559 </span> 8b/-> *(ebp+0x20) 7/r32/edi -<span id="L18560" class="LineNr">18560 </span> <span class="subxComment"># out = new stmt-var</span> -<span id="L18561" class="LineNr">18561 </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="L18562" class="LineNr">18562 </span> <span class="subxComment"># var out-addr/ecx: (addr stmt-var) = lookup(*out)</span> -<span id="L18563" class="LineNr">18563 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18564" class="LineNr">18564 </span> 89/<- %ecx 0/r32/eax -<span id="L18565" class="LineNr">18565 </span> <span class="subxComment"># out-addr->value = v</span> -<span id="L18566" class="LineNr">18566 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L18567" class="LineNr">18567 </span> 89/<- *ecx 0/r32/eax <span class="subxComment"># Stmt-var-value</span> -<span id="L18568" class="LineNr">18568 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L18569" class="LineNr">18569 </span> 89/<- *(ecx+4) 0/r32/eax <span class="subxComment"># Stmt-var-value</span> -<span id="L18570" class="LineNr">18570 </span> <span class="subxComment"># out-addr->is-deref? = is-deref?</span> -<span id="L18571" class="LineNr">18571 </span> 8b/-> *(ebp+0x1c) 0/r32/eax -<span id="L18572" class="LineNr">18572 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L18573" class="LineNr">18573 </span> <span class="subxComment"># if (vars == null) return result</span> -<span id="L18574" class="LineNr">18574 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32/null -<span id="L18575" class="LineNr">18575 </span> 74/jump-if-= $append-stmt-var:end/disp8 -<span id="L18576" class="LineNr">18576 </span> <span class="subxComment"># otherwise append</span> -<span id="L18577" class="LineNr">18577 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(vars)</span> -<span id="L18578" class="LineNr">18578 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L18579" class="LineNr">18579 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> -<span id="L18580" class="LineNr">18580 </span> { -<span id="L18581" class="LineNr">18581 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> -<span id="L18582" class="LineNr">18582 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18583" class="LineNr">18583 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L18584" class="LineNr">18584 </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="L18585" class="LineNr">18585 </span> <span class="subxComment">#</span> -<span id="L18586" class="LineNr">18586 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L18587" class="LineNr">18587 </span> } -<span id="L18588" class="LineNr">18588 </span> <span class="subxComment"># curr->next = out</span> -<span id="L18589" class="LineNr">18589 </span> 8b/-> *edi 1/r32/ecx -<span id="L18590" class="LineNr">18590 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> -<span id="L18591" class="LineNr">18591 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L18592" class="LineNr">18592 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> -<span id="L18593" class="LineNr">18593 </span> <span class="subxComment"># out = vars</span> -<span id="L18594" class="LineNr">18594 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L18595" class="LineNr">18595 </span> 89/<- *edi 1/r32/ecx -<span id="L18596" class="LineNr">18596 </span> 8b/-> *(ebp+0x18) 1/r32/ecx -<span id="L18597" class="LineNr">18597 </span> 89/<- *(edi+4) 1/r32/ecx -<span id="L18598" class="LineNr">18598 </span><span class="Constant">$append-stmt-var:end</span>: -<span id="L18599" class="LineNr">18599 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18600" class="LineNr">18600 </span> 5f/pop-to-edi -<span id="L18601" class="LineNr">18601 </span> 59/pop-to-ecx -<span id="L18602" class="LineNr">18602 </span> 58/pop-to-eax -<span id="L18603" class="LineNr">18603 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18604" class="LineNr">18604 </span> 89/<- %esp 5/r32/ebp -<span id="L18605" class="LineNr">18605 </span> 5d/pop-to-ebp -<span id="L18606" class="LineNr">18606 </span> c3/return -<span id="L18607" class="LineNr">18607 </span> -<span id="L18608" class="LineNr">18608 </span><span class="subxFunction">append-to-block</span>: <span class="subxComment"># ad: (addr allocation-descriptor), block: (addr block), x: (handle stmt)</span> -<span id="L18609" class="LineNr">18609 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18610" class="LineNr">18610 </span> 55/push-ebp -<span id="L18611" class="LineNr">18611 </span> 89/<- %ebp 4/r32/esp -<span id="L18612" class="LineNr">18612 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18613" class="LineNr">18613 </span> 50/push-eax -<span id="L18614" class="LineNr">18614 </span> 56/push-esi -<span id="L18615" class="LineNr">18615 </span> <span class="subxComment"># esi = block</span> -<span id="L18616" class="LineNr">18616 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L18617" class="LineNr">18617 </span> <span class="subxComment"># block->stmts = append(x, block->stmts)</span> -<span id="L18618" class="LineNr">18618 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Block-stmts</span> -<span id="L18619" class="LineNr">18619 </span> (<a href='mu.subx.html#L18492'>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="L18620" class="LineNr">18620 </span><span class="Constant">$append-to-block:end</span>: -<span id="L18621" class="LineNr">18621 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18622" class="LineNr">18622 </span> 5e/pop-to-esi -<span id="L18623" class="LineNr">18623 </span> 58/pop-to-eax -<span id="L18624" class="LineNr">18624 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18625" class="LineNr">18625 </span> 89/<- %esp 5/r32/ebp -<span id="L18626" class="LineNr">18626 </span> 5d/pop-to-ebp -<span id="L18627" class="LineNr">18627 </span> c3/return -<span id="L18628" class="LineNr">18628 </span> -<span id="L18629" class="LineNr">18629 </span><span class="subxComment">## Parsing types</span> -<span id="L18630" class="LineNr">18630 </span><span class="subxComment"># We need to create metadata on user-defined types, and we need to use this</span> -<span id="L18631" class="LineNr">18631 </span><span class="subxComment"># metadata as we parse instructions.</span> -<span id="L18632" class="LineNr">18632 </span><span class="subxComment"># However, we also want to allow types to be used before their definitions.</span> -<span id="L18633" class="LineNr">18633 </span><span class="subxComment"># This means we can't ever assume any type data structures exist.</span> -<span id="L18634" class="LineNr">18634 </span> -<span id="L18635" class="LineNr">18635 </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="L18636" class="LineNr">18636 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18637" class="LineNr">18637 </span> 55/push-ebp -<span id="L18638" class="LineNr">18638 </span> 89/<- %ebp 4/r32/esp -<span id="L18639" class="LineNr">18639 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18640" class="LineNr">18640 </span> 50/push-eax -<span id="L18641" class="LineNr">18641 </span> 56/push-esi -<span id="L18642" class="LineNr">18642 </span> <span class="subxComment"># var container-type/esi: type-id</span> -<span id="L18643" class="LineNr">18643 </span> (<a href='mu.subx.html#L18686'>container-type</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L18644" class="LineNr">18644 </span> 89/<- %esi 0/r32/eax -<span id="L18645" class="LineNr">18645 </span> <span class="subxComment"># var tmp/eax: (handle typeinfo) = find-or-create-typeinfo(container-type)</span> -<span id="L18646" class="LineNr">18646 </span> 68/push 0/imm32 -<span id="L18647" class="LineNr">18647 </span> 68/push 0/imm32 -<span id="L18648" class="LineNr">18648 </span> 89/<- %eax 4/r32/esp -<span id="L18649" class="LineNr">18649 </span> (<a href='mu.subx.html#L18723'>find-or-create-typeinfo</a> %esi %eax) -<span id="L18650" class="LineNr">18650 </span> <span class="subxComment"># var tmp-addr/eax: (addr typeinfo) = lookup(tmp)</span> -<span id="L18651" class="LineNr">18651 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L18652" class="LineNr">18652 </span> <span class="subxComment"># result = find-or-create-typeinfo-output-var(typeinfo, field-name)</span> -<span id="L18653" class="LineNr">18653 </span><span class="CommentedCode">#? (write-buffered Stderr "constant: ")</span> -<span id="L18654" class="LineNr">18654 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> -<span id="L18655" class="LineNr">18655 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18656" class="LineNr">18656 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18657" class="LineNr">18657 </span> (<a href='mu.subx.html#L18839'>find-or-create-typeinfo-output-var</a> %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L18658" class="LineNr">18658 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x10) 0/r32/eax</span> -<span id="L18659" class="LineNr">18659 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> -<span id="L18660" class="LineNr">18660 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> -<span id="L18661" class="LineNr">18661 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L18662" class="LineNr">18662 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> -<span id="L18663" class="LineNr">18663 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L18664" class="LineNr">18664 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18665" class="LineNr">18665 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18666" class="LineNr">18666 </span><span class="CommentedCode">#? (write-buffered Stderr "offset: ")</span> -<span id="L18667" class="LineNr">18667 </span><span class="CommentedCode">#? 8b/-> *(eax+0x14) 0/r32/eax</span> -<span id="L18668" class="LineNr">18668 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L18669" class="LineNr">18669 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18670" class="LineNr">18670 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18671" class="LineNr">18671 </span><span class="Constant">$lookup-or-create-constant:end</span>: -<span id="L18672" class="LineNr">18672 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18673" class="LineNr">18673 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18674" class="LineNr">18674 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18675" class="LineNr">18675 </span> 5e/pop-to-esi -<span id="L18676" class="LineNr">18676 </span> 58/pop-to-eax -<span id="L18677" class="LineNr">18677 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18678" class="LineNr">18678 </span> 89/<- %esp 5/r32/ebp -<span id="L18679" class="LineNr">18679 </span> 5d/pop-to-ebp -<span id="L18680" class="LineNr">18680 </span> c3/return -<span id="L18681" class="LineNr">18681 </span> -<span id="L18682" class="LineNr">18682 </span><span class="subxComment"># if addr var:</span> -<span id="L18683" class="LineNr">18683 </span><span class="subxComment"># container->var->type->right->left->value</span> -<span id="L18684" class="LineNr">18684 </span><span class="subxComment"># otherwise</span> -<span id="L18685" class="LineNr">18685 </span><span class="subxComment"># container->var->type->value</span> -<span id="L18686" class="LineNr">18686 </span><span class="subxFunction">container-type</span>: <span class="subxComment"># container: (addr stmt-var) -> result/eax: type-id</span> -<span id="L18687" class="LineNr">18687 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18688" class="LineNr">18688 </span> 55/push-ebp -<span id="L18689" class="LineNr">18689 </span> 89/<- %ebp 4/r32/esp -<span id="L18690" class="LineNr">18690 </span> <span class="subxComment">#</span> -<span id="L18691" class="LineNr">18691 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L18692" class="LineNr">18692 </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="L18693" class="LineNr">18693 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18694" class="LineNr">18694 </span> { -<span id="L18695" class="LineNr">18695 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L18696" class="LineNr">18696 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18697" class="LineNr">18697 </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="L18698" class="LineNr">18698 </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="L18699" class="LineNr">18699 </span> } -<span id="L18700" class="LineNr">18700 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L18701" class="LineNr">18701 </span><span class="Constant">$container-type:end</span>: -<span id="L18702" class="LineNr">18702 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18703" class="LineNr">18703 </span> 89/<- %esp 5/r32/ebp -<span id="L18704" class="LineNr">18704 </span> 5d/pop-to-ebp -<span id="L18705" class="LineNr">18705 </span> c3/return -<span id="L18706" class="LineNr">18706 </span> -<span id="L18707" class="LineNr">18707 </span><span class="subxFunction">is-container?</span>: <span class="subxComment"># t: type-id -> result/eax: boolean</span> -<span id="L18708" class="LineNr">18708 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18709" class="LineNr">18709 </span> 55/push-ebp -<span id="L18710" class="LineNr">18710 </span> 89/<- %ebp 4/r32/esp -<span id="L18711" class="LineNr">18711 </span> <span class="subxComment">#</span> -<span id="L18712" class="LineNr">18712 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L18713" class="LineNr">18713 </span> c1/shift 4/subop/left %eax 2/imm8 -<span id="L18714" class="LineNr">18714 </span> 3b/compare 0/r32/eax *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> -<span id="L18715" class="LineNr">18715 </span> 0f 9d/set-if->= %al -<span id="L18716" class="LineNr">18716 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L18717" class="LineNr">18717 </span><span class="Constant">$is-container?:end</span>: -<span id="L18718" class="LineNr">18718 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18719" class="LineNr">18719 </span> 89/<- %esp 5/r32/ebp -<span id="L18720" class="LineNr">18720 </span> 5d/pop-to-ebp -<span id="L18721" class="LineNr">18721 </span> c3/return -<span id="L18722" class="LineNr">18722 </span> -<span id="L18723" class="LineNr">18723 </span><span class="subxFunction">find-or-create-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> -<span id="L18724" class="LineNr">18724 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18725" class="LineNr">18725 </span> 55/push-ebp -<span id="L18726" class="LineNr">18726 </span> 89/<- %ebp 4/r32/esp -<span id="L18727" class="LineNr">18727 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18728" class="LineNr">18728 </span> 50/push-eax -<span id="L18729" class="LineNr">18729 </span> 51/push-ecx -<span id="L18730" class="LineNr">18730 </span> 52/push-edx -<span id="L18731" class="LineNr">18731 </span> 57/push-edi -<span id="L18732" class="LineNr">18732 </span> <span class="subxComment"># edi = out</span> -<span id="L18733" class="LineNr">18733 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L18734" class="LineNr">18734 </span> <span class="subxComment"># var fields/ecx: (handle table (handle array byte) (handle typeinfo-entry))</span> -<span id="L18735" class="LineNr">18735 </span> 68/push 0/imm32 -<span id="L18736" class="LineNr">18736 </span> 68/push 0/imm32 -<span id="L18737" class="LineNr">18737 </span> 89/<- %ecx 4/r32/esp -<span id="L18738" class="LineNr">18738 </span> <span class="subxComment"># find-typeinfo(t, out)</span> -<span id="L18739" class="LineNr">18739 </span> (<a href='mu.subx.html#L18790'>find-typeinfo</a> *(ebp+8) %edi) -<span id="L18740" class="LineNr">18740 </span> { -<span id="L18741" class="LineNr">18741 </span> <span class="subxComment"># if (*out != 0) break</span> -<span id="L18742" class="LineNr">18742 </span> 81 7/subop/compare *edi 0/imm32 -<span id="L18743" class="LineNr">18743 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18744" class="LineNr">18744 </span><span class="Constant">$find-or-create-typeinfo:create</span>: -<span id="L18745" class="LineNr">18745 </span> <span class="subxComment"># *out = allocate</span> -<span id="L18746" class="LineNr">18746 </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="L18747" class="LineNr">18747 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> -<span id="L18748" class="LineNr">18748 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18749" class="LineNr">18749 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo at ")</span> -<span id="L18750" class="LineNr">18750 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L18751" class="LineNr">18751 </span><span class="CommentedCode">#? (write-buffered Stderr " for type-id ")</span> -<span id="L18752" class="LineNr">18752 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L18753" class="LineNr">18753 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18754" class="LineNr">18754 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18755" class="LineNr">18755 </span> <span class="subxComment"># tmp->id = t</span> -<span id="L18756" class="LineNr">18756 </span> 8b/-> *(ebp+8) 2/r32/edx -<span id="L18757" class="LineNr">18757 </span> 89/<- *eax 2/r32/edx <span class="subxComment"># Typeinfo-id</span> -<span id="L18758" class="LineNr">18758 </span> <span class="subxComment"># tmp->fields = new table</span> -<span id="L18759" class="LineNr">18759 </span> <span class="subxS1Comment"># . fields = new table</span> -<span id="L18760" class="LineNr">18760 </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="L18761" class="LineNr">18761 </span> <span class="subxS1Comment"># . tmp->fields = fields</span> -<span id="L18762" class="LineNr">18762 </span> 8b/-> *ecx 2/r32/edx -<span id="L18763" class="LineNr">18763 </span> 89/<- *(eax+4) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> -<span id="L18764" class="LineNr">18764 </span> 8b/-> *(ecx+4) 2/r32/edx -<span id="L18765" class="LineNr">18765 </span> 89/<- *(eax+8) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> -<span id="L18766" class="LineNr">18766 </span> <span class="subxComment"># tmp->next = Program->types</span> -<span id="L18767" class="LineNr">18767 </span> 8b/-> *_Program-types 1/r32/ecx -<span id="L18768" class="LineNr">18768 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> -<span id="L18769" class="LineNr">18769 </span> 8b/-> *_Program-types->payload 1/r32/ecx -<span id="L18770" class="LineNr">18770 </span> 89/<- *(eax+0x14) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> -<span id="L18771" class="LineNr">18771 </span> <span class="subxComment"># Program->types = out</span> -<span id="L18772" class="LineNr">18772 </span> 8b/-> *edi 1/r32/ecx -<span id="L18773" class="LineNr">18773 </span> 89/<- *_Program-types 1/r32/ecx -<span id="L18774" class="LineNr">18774 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L18775" class="LineNr">18775 </span> 89/<- *_Program-types->payload 1/r32/ecx -<span id="L18776" class="LineNr">18776 </span> } -<span id="L18777" class="LineNr">18777 </span><span class="Constant">$find-or-create-typeinfo:end</span>: -<span id="L18778" class="LineNr">18778 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18779" class="LineNr">18779 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18780" class="LineNr">18780 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18781" class="LineNr">18781 </span> 5f/pop-to-edi -<span id="L18782" class="LineNr">18782 </span> 5a/pop-to-edx -<span id="L18783" class="LineNr">18783 </span> 59/pop-to-ecx -<span id="L18784" class="LineNr">18784 </span> 58/pop-to-eax -<span id="L18785" class="LineNr">18785 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18786" class="LineNr">18786 </span> 89/<- %esp 5/r32/ebp -<span id="L18787" class="LineNr">18787 </span> 5d/pop-to-ebp -<span id="L18788" class="LineNr">18788 </span> c3/return -<span id="L18789" class="LineNr">18789 </span> -<span id="L18790" class="LineNr">18790 </span><span class="subxFunction">find-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> -<span id="L18791" class="LineNr">18791 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18792" class="LineNr">18792 </span> 55/push-ebp -<span id="L18793" class="LineNr">18793 </span> 89/<- %ebp 4/r32/esp -<span id="L18794" class="LineNr">18794 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18795" class="LineNr">18795 </span> 50/push-eax -<span id="L18796" class="LineNr">18796 </span> 51/push-ecx -<span id="L18797" class="LineNr">18797 </span> 52/push-edx -<span id="L18798" class="LineNr">18798 </span> 57/push-edi -<span id="L18799" class="LineNr">18799 </span> <span class="subxComment"># ecx = t</span> -<span id="L18800" class="LineNr">18800 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L18801" class="LineNr">18801 </span> <span class="subxComment"># edi = out</span> -<span id="L18802" class="LineNr">18802 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L18803" class="LineNr">18803 </span> <span class="subxComment"># *out = Program->types</span> -<span id="L18804" class="LineNr">18804 </span> 8b/-> *_Program-types 0/r32/eax -<span id="L18805" class="LineNr">18805 </span> 89/<- *edi 0/r32/eax -<span id="L18806" class="LineNr">18806 </span> 8b/-> *_Program-types->payload 0/r32/eax -<span id="L18807" class="LineNr">18807 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L18808" class="LineNr">18808 </span> { -<span id="L18809" class="LineNr">18809 </span><span class="Constant">$find-typeinfo:loop</span>: -<span id="L18810" class="LineNr">18810 </span> <span class="subxComment"># if (*out == 0) break</span> -<span id="L18811" class="LineNr">18811 </span> 81 7/subop/compare *edi 0/imm32 -<span id="L18812" class="LineNr">18812 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18813" class="LineNr">18813 </span><span class="Constant">$find-typeinfo:check</span>: -<span id="L18814" class="LineNr">18814 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> -<span id="L18815" class="LineNr">18815 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18816" class="LineNr">18816 </span> <span class="subxComment"># if (tmp->id == t) break</span> -<span id="L18817" class="LineNr">18817 </span> 39/compare *eax 1/r32/ecx <span class="subxComment"># Typeinfo-id</span> -<span id="L18818" class="LineNr">18818 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18819" class="LineNr">18819 </span><span class="Constant">$find-typeinfo:continue</span>: -<span id="L18820" class="LineNr">18820 </span> <span class="subxComment"># *out = tmp->next</span> -<span id="L18821" class="LineNr">18821 </span> 8b/-> *(eax+0x10) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> -<span id="L18822" class="LineNr">18822 </span> 89/<- *edi 2/r32/edx -<span id="L18823" class="LineNr">18823 </span> 8b/-> *(eax+0x14) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> -<span id="L18824" class="LineNr">18824 </span> 89/<- *(edi+4) 2/r32/edx -<span id="L18825" class="LineNr">18825 </span> <span class="subxComment">#</span> -<span id="L18826" class="LineNr">18826 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L18827" class="LineNr">18827 </span> } -<span id="L18828" class="LineNr">18828 </span><span class="Constant">$find-typeinfo:end</span>: -<span id="L18829" class="LineNr">18829 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18830" class="LineNr">18830 </span> 5f/pop-to-edi -<span id="L18831" class="LineNr">18831 </span> 5a/pop-to-edx -<span id="L18832" class="LineNr">18832 </span> 59/pop-to-ecx -<span id="L18833" class="LineNr">18833 </span> 58/pop-to-eax -<span id="L18834" class="LineNr">18834 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18835" class="LineNr">18835 </span> 89/<- %esp 5/r32/ebp -<span id="L18836" class="LineNr">18836 </span> 5d/pop-to-ebp -<span id="L18837" class="LineNr">18837 </span> c3/return -<span id="L18838" class="LineNr">18838 </span> -<span id="L18839" class="LineNr">18839 </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="L18840" class="LineNr">18840 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18841" class="LineNr">18841 </span> 55/push-ebp -<span id="L18842" class="LineNr">18842 </span> 89/<- %ebp 4/r32/esp -<span id="L18843" class="LineNr">18843 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18844" class="LineNr">18844 </span> 50/push-eax -<span id="L18845" class="LineNr">18845 </span> 52/push-edx -<span id="L18846" class="LineNr">18846 </span> 57/push-edi -<span id="L18847" class="LineNr">18847 </span> <span class="subxComment"># var dest/edi: (handle typeinfo-entry)</span> -<span id="L18848" class="LineNr">18848 </span> 68/push 0/imm32 -<span id="L18849" class="LineNr">18849 </span> 68/push 0/imm32 -<span id="L18850" class="LineNr">18850 </span> 89/<- %edi 4/r32/esp -<span id="L18851" class="LineNr">18851 </span> <span class="subxComment"># find-or-create-typeinfo-fields(T, f, dest)</span> -<span id="L18852" class="LineNr">18852 </span> (<a href='mu.subx.html#L18904'>find-or-create-typeinfo-fields</a> *(ebp+8) *(ebp+0xc) %edi) -<span id="L18853" class="LineNr">18853 </span> <span class="subxComment"># var dest-addr/edi: (addr typeinfo-entry) = lookup(dest)</span> -<span id="L18854" class="LineNr">18854 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18855" class="LineNr">18855 </span> 89/<- %edi 0/r32/eax -<span id="L18856" class="LineNr">18856 </span> <span class="subxComment"># if dest-addr->output-var doesn't exist, create it</span> -<span id="L18857" class="LineNr">18857 </span> { -<span id="L18858" class="LineNr">18858 </span> 81 7/subop/compare *(edi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L18859" class="LineNr">18859 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18860" class="LineNr">18860 </span> <span class="subxComment"># dest-addr->output-var = new var(dummy name, type, -1 offset)</span> -<span id="L18861" class="LineNr">18861 </span> <span class="subxS1Comment"># . var name/eax: (handle array byte) = "field"</span> -<span id="L18862" class="LineNr">18862 </span> 68/push 0/imm32 -<span id="L18863" class="LineNr">18863 </span> 68/push 0/imm32 -<span id="L18864" class="LineNr">18864 </span> 89/<- %eax 4/r32/esp -<span id="L18865" class="LineNr">18865 </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="L18866" class="LineNr">18866 </span> <span class="subxS1Comment"># . new var</span> -<span id="L18867" class="LineNr">18867 </span> 8d/copy-address *(edi+0xc) 2/r32/edx -<span id="L18868" class="LineNr">18868 </span> (<a href='mu.subx.html#L18189'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L18869" class="LineNr">18869 </span> <span class="subxS1Comment"># . reclaim name</span> -<span id="L18870" class="LineNr">18870 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18871" class="LineNr">18871 </span> <span class="subxComment"># var result/edx: (addr var) = lookup(dest-addr->output-var)</span> -<span id="L18872" class="LineNr">18872 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># => eax</span> -<span id="L18873" class="LineNr">18873 </span> 89/<- %edx 0/r32/eax -<span id="L18874" class="LineNr">18874 </span> <span class="subxComment"># result->type = new constant type</span> -<span id="L18875" class="LineNr">18875 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L18876" class="LineNr">18876 </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="L18877" class="LineNr">18877 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># => eax</span> -<span id="L18878" class="LineNr">18878 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L18879" class="LineNr">18879 </span> c7 0/subop/copy *(eax+4) 6/imm32/constant <span class="subxComment"># Type-tree-value</span> -<span id="L18880" class="LineNr">18880 </span> c7 0/subop/copy *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-left</span> -<span id="L18881" class="LineNr">18881 </span> c7 0/subop/copy *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L18882" class="LineNr">18882 </span> c7 0/subop/copy *(eax+0x10) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L18883" class="LineNr">18883 </span> <span class="subxComment"># result->offset isn't filled out yet</span> -<span id="L18884" class="LineNr">18884 </span> c7 0/subop/copy *(edx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> -<span id="L18885" class="LineNr">18885 </span> } -<span id="L18886" class="LineNr">18886 </span> <span class="subxComment"># out = dest-addr->output-var</span> -<span id="L18887" class="LineNr">18887 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L18888" class="LineNr">18888 </span> 8b/-> *(edi+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L18889" class="LineNr">18889 </span> 89/<- *edx 0/r32/eax -<span id="L18890" class="LineNr">18890 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L18891" class="LineNr">18891 </span> 89/<- *(edx+4) 0/r32/eax -<span id="L18892" class="LineNr">18892 </span><span class="Constant">$find-or-create-typeinfo-output-var:end</span>: -<span id="L18893" class="LineNr">18893 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18894" class="LineNr">18894 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18895" class="LineNr">18895 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18896" class="LineNr">18896 </span> 5f/pop-to-edi -<span id="L18897" class="LineNr">18897 </span> 5a/pop-to-edx -<span id="L18898" class="LineNr">18898 </span> 58/pop-to-eax -<span id="L18899" class="LineNr">18899 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18900" class="LineNr">18900 </span> 89/<- %esp 5/r32/ebp -<span id="L18901" class="LineNr">18901 </span> 5d/pop-to-ebp -<span id="L18902" class="LineNr">18902 </span> c3/return -<span id="L18903" class="LineNr">18903 </span> -<span id="L18904" class="LineNr">18904 </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="L18905" class="LineNr">18905 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18906" class="LineNr">18906 </span> 55/push-ebp -<span id="L18907" class="LineNr">18907 </span> 89/<- %ebp 4/r32/esp -<span id="L18908" class="LineNr">18908 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18909" class="LineNr">18909 </span> 50/push-eax -<span id="L18910" class="LineNr">18910 </span> 56/push-esi -<span id="L18911" class="LineNr">18911 </span> 57/push-edi -<span id="L18912" class="LineNr">18912 </span> <span class="subxComment"># eax = lookup(T->fields)</span> -<span id="L18913" class="LineNr">18913 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L18914" class="LineNr">18914 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L18915" class="LineNr">18915 </span> <span class="subxComment"># edi = out</span> -<span id="L18916" class="LineNr">18916 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L18917" class="LineNr">18917 </span> <span class="subxComment"># var src/esi: (addr handle typeinfo-entry) = get-or-insert-slice(T->fields, f)</span> -<span id="L18918" class="LineNr">18918 </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="L18919" class="LineNr">18919 </span> 89/<- %esi 0/r32/eax -<span id="L18920" class="LineNr">18920 </span> <span class="subxComment"># if src doesn't exist, allocate it</span> -<span id="L18921" class="LineNr">18921 </span> { -<span id="L18922" class="LineNr">18922 </span> 81 7/subop/compare *esi 0/imm32 -<span id="L18923" class="LineNr">18923 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L18924" class="LineNr">18924 </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="L18925" class="LineNr">18925 </span><span class="CommentedCode">#? (write-buffered Stderr "handle at ")</span> -<span id="L18926" class="LineNr">18926 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> -<span id="L18927" class="LineNr">18927 </span><span class="CommentedCode">#? (write-buffered Stderr ": ")</span> -<span id="L18928" class="LineNr">18928 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *esi)</span> -<span id="L18929" class="LineNr">18929 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> -<span id="L18930" class="LineNr">18930 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(esi+4))</span> -<span id="L18931" class="LineNr">18931 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18932" class="LineNr">18932 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18933" class="LineNr">18933 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> -<span id="L18934" class="LineNr">18934 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo fields at ")</span> -<span id="L18935" class="LineNr">18935 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> -<span id="L18936" class="LineNr">18936 </span><span class="CommentedCode">#? (write-buffered Stderr " for ")</span> -<span id="L18937" class="LineNr">18937 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L18938" class="LineNr">18938 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18939" class="LineNr">18939 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18940" class="LineNr">18940 </span> } -<span id="L18941" class="LineNr">18941 </span> <span class="subxComment"># *out = src</span> -<span id="L18942" class="LineNr">18942 </span> <span class="subxS1Comment"># . *edi = *src</span> -<span id="L18943" class="LineNr">18943 </span> 8b/-> *esi 0/r32/eax -<span id="L18944" class="LineNr">18944 </span> 89/<- *edi 0/r32/eax -<span id="L18945" class="LineNr">18945 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L18946" class="LineNr">18946 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L18947" class="LineNr">18947 </span><span class="Constant">$find-or-create-typeinfo-fields:end</span>: -<span id="L18948" class="LineNr">18948 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18949" class="LineNr">18949 </span> 5f/pop-to-edi -<span id="L18950" class="LineNr">18950 </span> 5e/pop-to-esi -<span id="L18951" class="LineNr">18951 </span> 58/pop-to-eax -<span id="L18952" class="LineNr">18952 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18953" class="LineNr">18953 </span> 89/<- %esp 5/r32/ebp -<span id="L18954" class="LineNr">18954 </span> 5d/pop-to-ebp -<span id="L18955" class="LineNr">18955 </span> c3/return -<span id="L18956" class="LineNr">18956 </span> -<span id="L18957" class="LineNr">18957 </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="L18958" class="LineNr">18958 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18959" class="LineNr">18959 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L18960" class="LineNr">18960 </span> <span class="subxComment"># curr-index = 0</span> -<span id="L18961" class="LineNr">18961 </span> <span class="subxComment"># while true</span> -<span id="L18962" class="LineNr">18962 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L18963" class="LineNr">18963 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L18964" class="LineNr">18964 </span> <span class="subxComment"># if line->write == 0</span> -<span id="L18965" class="LineNr">18965 </span> <span class="subxComment"># abort</span> -<span id="L18966" class="LineNr">18966 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L18967" class="LineNr">18967 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L18968" class="LineNr">18968 </span> <span class="subxComment"># continue</span> -<span id="L18969" class="LineNr">18969 </span> <span class="subxComment"># if slice-equal?(word-slice, "}")</span> -<span id="L18970" class="LineNr">18970 </span> <span class="subxComment"># break</span> -<span id="L18971" class="LineNr">18971 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, line)</span> -<span id="L18972" class="LineNr">18972 </span> <span class="subxComment"># var r: (handle typeinfo-fields) = find-or-create-typeinfo-fields(t, word-slice/v->name)</span> -<span id="L18973" class="LineNr">18973 </span> <span class="subxComment"># TODO: ensure that r->first is null</span> -<span id="L18974" class="LineNr">18974 </span> <span class="subxComment"># r->index = curr-index</span> -<span id="L18975" class="LineNr">18975 </span> <span class="subxComment"># curr-index++</span> -<span id="L18976" class="LineNr">18976 </span> <span class="subxComment"># r->input-var = v</span> -<span id="L18977" class="LineNr">18977 </span> <span class="subxComment"># if r->output-var == 0</span> -<span id="L18978" class="LineNr">18978 </span> <span class="subxComment"># r->output-var = new literal</span> -<span id="L18979" class="LineNr">18979 </span> <span class="subxComment"># TODO: ensure nothing else in line</span> -<span id="L18980" class="LineNr">18980 </span> <span class="subxComment"># t->total-size-in-bytes = -2 (not yet initialized)</span> -<span id="L18981" class="LineNr">18981 </span> <span class="subxComment">#</span> -<span id="L18982" class="LineNr">18982 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18983" class="LineNr">18983 </span> 55/push-ebp -<span id="L18984" class="LineNr">18984 </span> 89/<- %ebp 4/r32/esp -<span id="L18985" class="LineNr">18985 </span> <span class="subxComment"># var curr-index: int at *(ebp-4)</span> -<span id="L18986" class="LineNr">18986 </span> 68/push 0/imm32 +<span id="L18231" class="LineNr">18231 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L18232" class="LineNr">18232 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18233" class="LineNr">18233 </span> 58/pop-to-eax +<span id="L18234" class="LineNr">18234 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">" reads var '"</span>) +<span id="L18235" class="LineNr">18235 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L18236" class="LineNr">18236 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' after writing var '"</span>) +<span id="L18237" class="LineNr">18237 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18238" class="LineNr">18238 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18239" class="LineNr">18239 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L18240" class="LineNr">18240 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18241" class="LineNr">18241 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18242" class="LineNr">18242 </span> <span class="subxComment"># never gets here</span> +<span id="L18243" class="LineNr">18243 </span> +<span id="L18244" class="LineNr">18244 </span><span class="subxFunction">dump-vars</span>: <span class="subxComment"># vars: (addr stack live-var)</span> +<span id="L18245" class="LineNr">18245 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18246" class="LineNr">18246 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L18247" class="LineNr">18247 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L18248" class="LineNr">18248 </span> <span class="subxComment"># while curr >= min</span> +<span id="L18249" class="LineNr">18249 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L18250" class="LineNr">18250 </span> <span class="subxComment"># print v</span> +<span id="L18251" class="LineNr">18251 </span> <span class="subxComment"># curr -= 12</span> +<span id="L18252" class="LineNr">18252 </span> <span class="subxComment">#</span> +<span id="L18253" class="LineNr">18253 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18254" class="LineNr">18254 </span> 55/push-ebp +<span id="L18255" class="LineNr">18255 </span> 89/<- %ebp 4/r32/esp +<span id="L18256" class="LineNr">18256 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18257" class="LineNr">18257 </span> 52/push-edx +<span id="L18258" class="LineNr">18258 </span> 53/push-ebx +<span id="L18259" class="LineNr">18259 </span> 56/push-esi +<span id="L18260" class="LineNr">18260 </span> <span class="subxComment"># esi = vars</span> +<span id="L18261" class="LineNr">18261 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L18262" class="LineNr">18262 </span> <span class="subxComment"># ebx = vars->top</span> +<span id="L18263" class="LineNr">18263 </span> 8b/-> *esi 3/r32/ebx +<span id="L18264" class="LineNr">18264 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L18265" class="LineNr">18265 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L18266" class="LineNr">18266 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L18267" class="LineNr">18267 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L18268" class="LineNr">18268 </span> { +<span id="L18269" class="LineNr">18269 </span><span class="Constant">$dump-vars:loop</span>: +<span id="L18270" class="LineNr">18270 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L18271" class="LineNr">18271 </span> 39/compare %ebx 2/r32/edx +<span id="L18272" class="LineNr">18272 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L18273" class="LineNr">18273 </span> <span class="subxComment">#</span> +<span id="L18274" class="LineNr">18274 </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="L18275" class="LineNr">18275 </span> (<a href='mu.subx.html#L20110'>dump-var</a> 2 %ebx) +<span id="L18276" class="LineNr">18276 </span> <span class="subxComment"># curr -= 12</span> +<span id="L18277" class="LineNr">18277 </span> 81 5/subop/subtract %ebx 0xc/imm32 +<span id="L18278" class="LineNr">18278 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L18279" class="LineNr">18279 </span> } +<span id="L18280" class="LineNr">18280 </span><span class="Constant">$dump-vars:end</span>: +<span id="L18281" class="LineNr">18281 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18282" class="LineNr">18282 </span> 5e/pop-to-esi +<span id="L18283" class="LineNr">18283 </span> 5b/pop-to-ebx +<span id="L18284" class="LineNr">18284 </span> 5a/pop-to-edx +<span id="L18285" class="LineNr">18285 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18286" class="LineNr">18286 </span> 89/<- %esp 5/r32/ebp +<span id="L18287" class="LineNr">18287 </span> 5d/pop-to-ebp +<span id="L18288" class="LineNr">18288 </span> c3/return +<span id="L18289" class="LineNr">18289 </span> +<span id="L18290" class="LineNr">18290 </span>== data +<span id="L18291" class="LineNr">18291 </span><span class="subxComment"># Like Registers, but no esp or ebp</span> +<span id="L18292" class="LineNr">18292 </span><span class="SpecialChar">Mu-registers</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> +<span id="L18293" class="LineNr">18293 </span> <span class="subxComment"># a table is a stream</span> +<span id="L18294" class="LineNr">18294 </span> 0xa8/imm32/write +<span id="L18295" class="LineNr">18295 </span> 0/imm32/read +<span id="L18296" class="LineNr">18296 </span> 0xa8/imm32/length +<span id="L18297" class="LineNr">18297 </span> <span class="subxComment"># data</span> +<span id="L18298" class="LineNr">18298 </span> <span class="subxComment"># general-purpose registers</span> +<span id="L18299" class="LineNr">18299 </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="L18300" class="LineNr">18300 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 +<span id="L18301" class="LineNr">18301 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 +<span id="L18302" class="LineNr">18302 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 +<span id="L18303" class="LineNr">18303 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 +<span id="L18304" class="LineNr">18304 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 +<span id="L18305" class="LineNr">18305 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 +<span id="L18306" class="LineNr">18306 </span> <span class="subxComment"># floating-point registers</span> +<span id="L18307" class="LineNr">18307 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 0/imm32 +<span id="L18308" class="LineNr">18308 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 1/imm32 +<span id="L18309" class="LineNr">18309 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 2/imm32 +<span id="L18310" class="LineNr">18310 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 3/imm32 +<span id="L18311" class="LineNr">18311 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 4/imm32 +<span id="L18312" class="LineNr">18312 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 5/imm32 +<span id="L18313" class="LineNr">18313 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 6/imm32 +<span id="L18314" class="LineNr">18314 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 7/imm32 +<span id="L18315" class="LineNr">18315 </span> +<span id="L18316" class="LineNr">18316 </span><span class="subxComment"># Like Mu-registers, but with unique codes for integer and floating-point</span> +<span id="L18317" class="LineNr">18317 </span><span class="subxComment"># registers.</span> +<span id="L18318" class="LineNr">18318 </span><span class="subxComment"># Don't use this for code-generation, only for checking.</span> +<span id="L18319" class="LineNr">18319 </span><span class="SpecialChar">Mu-registers-unique</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> +<span id="L18320" class="LineNr">18320 </span> <span class="subxComment"># a table is a stream</span> +<span id="L18321" class="LineNr">18321 </span> 0xa8/imm32/write +<span id="L18322" class="LineNr">18322 </span> 0/imm32/read +<span id="L18323" class="LineNr">18323 </span> 0xa8/imm32/length +<span id="L18324" class="LineNr">18324 </span> <span class="subxComment"># data</span> +<span id="L18325" class="LineNr">18325 </span> <span class="subxComment"># general-purpose registers</span> +<span id="L18326" class="LineNr">18326 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 +<span id="L18327" class="LineNr">18327 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 +<span id="L18328" class="LineNr">18328 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 +<span id="L18329" class="LineNr">18329 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 +<span id="L18330" class="LineNr">18330 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 +<span id="L18331" class="LineNr">18331 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 +<span id="L18332" class="LineNr">18332 </span> <span class="subxComment"># floating-point registers</span> +<span id="L18333" class="LineNr">18333 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 8/imm32 +<span id="L18334" class="LineNr">18334 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 9/imm32 +<span id="L18335" class="LineNr">18335 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 0xa/imm32 +<span id="L18336" class="LineNr">18336 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 0xb/imm32 +<span id="L18337" class="LineNr">18337 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 0xc/imm32 +<span id="L18338" class="LineNr">18338 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 0xd/imm32 +<span id="L18339" class="LineNr">18339 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 0xe/imm32 +<span id="L18340" class="LineNr">18340 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 0xf/imm32 +<span id="L18341" class="LineNr">18341 </span> +<span id="L18342" class="LineNr">18342 </span><span class="Constant">$Mu-register-eax</span>: +<span id="L18343" class="LineNr">18343 </span> 0x11/imm32/alloc-id +<span id="L18344" class="LineNr">18344 </span> 3/imm32/size +<span id="L18345" class="LineNr">18345 </span> 0x65/e 0x61/a 0x78/x +<span id="L18346" class="LineNr">18346 </span> +<span id="L18347" class="LineNr">18347 </span><span class="Constant">$Mu-register-ecx</span>: +<span id="L18348" class="LineNr">18348 </span> 0x11/imm32/alloc-id +<span id="L18349" class="LineNr">18349 </span> 3/imm32/size +<span id="L18350" class="LineNr">18350 </span> 0x65/e 0x63/c 0x78/x +<span id="L18351" class="LineNr">18351 </span> +<span id="L18352" class="LineNr">18352 </span><span class="Constant">$Mu-register-edx</span>: +<span id="L18353" class="LineNr">18353 </span> 0x11/imm32/alloc-id +<span id="L18354" class="LineNr">18354 </span> 3/imm32/size +<span id="L18355" class="LineNr">18355 </span> 0x65/e 0x64/d 0x78/x +<span id="L18356" class="LineNr">18356 </span> +<span id="L18357" class="LineNr">18357 </span><span class="Constant">$Mu-register-ebx</span>: +<span id="L18358" class="LineNr">18358 </span> 0x11/imm32/alloc-id +<span id="L18359" class="LineNr">18359 </span> 3/imm32/size +<span id="L18360" class="LineNr">18360 </span> 0x65/e 0x62/b 0x78/x +<span id="L18361" class="LineNr">18361 </span> +<span id="L18362" class="LineNr">18362 </span><span class="Constant">$Mu-register-esi</span>: +<span id="L18363" class="LineNr">18363 </span> 0x11/imm32/alloc-id +<span id="L18364" class="LineNr">18364 </span> 3/imm32/size +<span id="L18365" class="LineNr">18365 </span> 0x65/e 0x73/s 0x69/i +<span id="L18366" class="LineNr">18366 </span> +<span id="L18367" class="LineNr">18367 </span><span class="Constant">$Mu-register-edi</span>: +<span id="L18368" class="LineNr">18368 </span> 0x11/imm32/alloc-id +<span id="L18369" class="LineNr">18369 </span> 3/imm32/size +<span id="L18370" class="LineNr">18370 </span> 0x65/e 0x64/d 0x69/i +<span id="L18371" class="LineNr">18371 </span> +<span id="L18372" class="LineNr">18372 </span><span class="Constant">$Mu-register-xmm0</span>: +<span id="L18373" class="LineNr">18373 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18374" class="LineNr">18374 </span> <span class="subxComment"># "xmm0"</span> +<span id="L18375" class="LineNr">18375 </span> 0x4/imm32/size +<span id="L18376" class="LineNr">18376 </span> 0x78/x 0x6d/m 0x6d/m 0x30/0 +<span id="L18377" class="LineNr">18377 </span> +<span id="L18378" class="LineNr">18378 </span><span class="Constant">$Mu-register-xmm1</span>: +<span id="L18379" class="LineNr">18379 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18380" class="LineNr">18380 </span> <span class="subxComment"># "xmm1"</span> +<span id="L18381" class="LineNr">18381 </span> 0x4/imm32/size +<span id="L18382" class="LineNr">18382 </span> 0x78/x 0x6d/m 0x6d/m 0x31/1 +<span id="L18383" class="LineNr">18383 </span> +<span id="L18384" class="LineNr">18384 </span><span class="Constant">$Mu-register-xmm2</span>: +<span id="L18385" class="LineNr">18385 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18386" class="LineNr">18386 </span> <span class="subxComment"># "xmm2"</span> +<span id="L18387" class="LineNr">18387 </span> 0x4/imm32/size +<span id="L18388" class="LineNr">18388 </span> 0x78/x 0x6d/m 0x6d/m 0x32/2 +<span id="L18389" class="LineNr">18389 </span> +<span id="L18390" class="LineNr">18390 </span><span class="Constant">$Mu-register-xmm3</span>: +<span id="L18391" class="LineNr">18391 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18392" class="LineNr">18392 </span> <span class="subxComment"># "xmm3"</span> +<span id="L18393" class="LineNr">18393 </span> 0x4/imm32/size +<span id="L18394" class="LineNr">18394 </span> 0x78/x 0x6d/m 0x6d/m 0x33/3 +<span id="L18395" class="LineNr">18395 </span> +<span id="L18396" class="LineNr">18396 </span><span class="Constant">$Mu-register-xmm4</span>: +<span id="L18397" class="LineNr">18397 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18398" class="LineNr">18398 </span> <span class="subxComment"># "xmm4"</span> +<span id="L18399" class="LineNr">18399 </span> 0x4/imm32/size +<span id="L18400" class="LineNr">18400 </span> 0x78/x 0x6d/m 0x6d/m 0x34/4 +<span id="L18401" class="LineNr">18401 </span> +<span id="L18402" class="LineNr">18402 </span><span class="Constant">$Mu-register-xmm5</span>: +<span id="L18403" class="LineNr">18403 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18404" class="LineNr">18404 </span> <span class="subxComment"># "xmm5"</span> +<span id="L18405" class="LineNr">18405 </span> 0x4/imm32/size +<span id="L18406" class="LineNr">18406 </span> 0x78/x 0x6d/m 0x6d/m 0x35/5 +<span id="L18407" class="LineNr">18407 </span> +<span id="L18408" class="LineNr">18408 </span><span class="Constant">$Mu-register-xmm6</span>: +<span id="L18409" class="LineNr">18409 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18410" class="LineNr">18410 </span> <span class="subxComment"># "xmm6"</span> +<span id="L18411" class="LineNr">18411 </span> 0x4/imm32/size +<span id="L18412" class="LineNr">18412 </span> 0x78/x 0x6d/m 0x6d/m 0x36/6 +<span id="L18413" class="LineNr">18413 </span> +<span id="L18414" class="LineNr">18414 </span><span class="Constant">$Mu-register-xmm7</span>: +<span id="L18415" class="LineNr">18415 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L18416" class="LineNr">18416 </span> <span class="subxComment"># "xmm7"</span> +<span id="L18417" class="LineNr">18417 </span> 0x4/imm32/size +<span id="L18418" class="LineNr">18418 </span> 0x78/x 0x6d/m 0x6d/m 0x37/7 +<span id="L18419" class="LineNr">18419 </span> +<span id="L18420" class="LineNr">18420 </span>== code +<span id="L18421" class="LineNr">18421 </span> +<span id="L18422" class="LineNr">18422 </span><span class="subxComment"># push 'out' to 'vars' if not already there; it's assumed to be a fn output</span> +<span id="L18423" class="LineNr">18423 </span><span class="subxFunction">maybe-define-var</span>: <span class="subxComment"># out: (handle var), vars: (addr stack live-var)</span> +<span id="L18424" class="LineNr">18424 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18425" class="LineNr">18425 </span> 55/push-ebp +<span id="L18426" class="LineNr">18426 </span> 89/<- %ebp 4/r32/esp +<span id="L18427" class="LineNr">18427 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18428" class="LineNr">18428 </span> 50/push-eax +<span id="L18429" class="LineNr">18429 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> +<span id="L18430" class="LineNr">18430 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L18431" class="LineNr">18431 </span> <span class="subxComment">#</span> +<span id="L18432" class="LineNr">18432 </span> (<a href='mu.subx.html#L18448'>binding-exists?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L18433" class="LineNr">18433 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18434" class="LineNr">18434 </span> 75/jump-if-!= $maybe-define-var:end/disp8 +<span id="L18435" class="LineNr">18435 </span> <span class="subxComment"># otherwise update vars</span> +<span id="L18436" class="LineNr">18436 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+8)) +<span id="L18437" class="LineNr">18437 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+0xc)) +<span id="L18438" class="LineNr">18438 </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="L18439" class="LineNr">18439 </span><span class="Constant">$maybe-define-var:end</span>: +<span id="L18440" class="LineNr">18440 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18441" class="LineNr">18441 </span> 58/pop-to-eax +<span id="L18442" class="LineNr">18442 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18443" class="LineNr">18443 </span> 89/<- %esp 5/r32/ebp +<span id="L18444" class="LineNr">18444 </span> 5d/pop-to-ebp +<span id="L18445" class="LineNr">18445 </span> c3/return +<span id="L18446" class="LineNr">18446 </span> +<span id="L18447" class="LineNr">18447 </span><span class="subxComment"># simpler version of lookup-var-helper</span> +<span id="L18448" class="LineNr">18448 </span><span class="subxFunction">binding-exists?</span>: <span class="subxComment"># target: (addr var), vars: (addr stack live-var) -> result/eax: boolean</span> +<span id="L18449" class="LineNr">18449 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18450" class="LineNr">18450 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L18451" class="LineNr">18451 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L18452" class="LineNr">18452 </span> <span class="subxComment"># while curr >= min</span> +<span id="L18453" class="LineNr">18453 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L18454" class="LineNr">18454 </span> <span class="subxComment"># if v->name == target->name</span> +<span id="L18455" class="LineNr">18455 </span> <span class="subxComment"># return true</span> +<span id="L18456" class="LineNr">18456 </span> <span class="subxComment"># curr -= 12</span> +<span id="L18457" class="LineNr">18457 </span> <span class="subxComment"># return false</span> +<span id="L18458" class="LineNr">18458 </span> <span class="subxComment">#</span> +<span id="L18459" class="LineNr">18459 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18460" class="LineNr">18460 </span> 55/push-ebp +<span id="L18461" class="LineNr">18461 </span> 89/<- %ebp 4/r32/esp +<span id="L18462" class="LineNr">18462 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18463" class="LineNr">18463 </span> 51/push-ecx +<span id="L18464" class="LineNr">18464 </span> 52/push-edx +<span id="L18465" class="LineNr">18465 </span> 56/push-esi +<span id="L18466" class="LineNr">18466 </span> <span class="subxComment"># var target-name/ecx: (addr array byte) = lookup(target->name)</span> +<span id="L18467" class="LineNr">18467 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L18468" class="LineNr">18468 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18469" class="LineNr">18469 </span> 89/<- %ecx 0/r32/eax +<span id="L18470" class="LineNr">18470 </span> <span class="subxComment"># esi = vars</span> +<span id="L18471" class="LineNr">18471 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L18472" class="LineNr">18472 </span> <span class="subxComment"># eax = vars->top</span> +<span id="L18473" class="LineNr">18473 </span> 8b/-> *esi 0/r32/eax +<span id="L18474" class="LineNr">18474 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L18475" class="LineNr">18475 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L18476" class="LineNr">18476 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L18477" class="LineNr">18477 </span> 8d/copy-address *(esi+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L18478" class="LineNr">18478 </span> { +<span id="L18479" class="LineNr">18479 </span><span class="Constant">$binding-exists?:loop</span>: +<span id="L18480" class="LineNr">18480 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L18481" class="LineNr">18481 </span> 39/compare %esi 2/r32/edx +<span id="L18482" class="LineNr">18482 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L18483" class="LineNr">18483 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(*curr)</span> +<span id="L18484" class="LineNr">18484 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L18485" class="LineNr">18485 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> +<span id="L18486" class="LineNr">18486 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18487" class="LineNr">18487 </span> <span class="subxComment"># if (vn == target-name) return true</span> +<span id="L18488" class="LineNr">18488 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> +<span id="L18489" class="LineNr">18489 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18490" class="LineNr">18490 </span> 75/jump-if-!= $binding-exists?:end/disp8 <span class="subxComment"># eax already contains true</span> +<span id="L18491" class="LineNr">18491 </span> <span class="subxComment"># curr -= 12</span> +<span id="L18492" class="LineNr">18492 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L18493" class="LineNr">18493 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L18494" class="LineNr">18494 </span> } +<span id="L18495" class="LineNr">18495 </span> b8/copy-to-eax 0/imm32/false +<span id="L18496" class="LineNr">18496 </span><span class="Constant">$binding-exists?:end</span>: +<span id="L18497" class="LineNr">18497 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18498" class="LineNr">18498 </span> 5e/pop-to-esi +<span id="L18499" class="LineNr">18499 </span> 5a/pop-to-edx +<span id="L18500" class="LineNr">18500 </span> 59/pop-to-ecx +<span id="L18501" class="LineNr">18501 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18502" class="LineNr">18502 </span> 89/<- %esp 5/r32/ebp +<span id="L18503" class="LineNr">18503 </span> 5d/pop-to-ebp +<span id="L18504" class="LineNr">18504 </span> c3/return +<span id="L18505" class="LineNr">18505 </span> +<span id="L18506" class="LineNr">18506 </span><span class="subxTest">test-parse-mu-stmt</span>: +<span id="L18507" class="LineNr">18507 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18508" class="LineNr">18508 </span> 55/push-ebp +<span id="L18509" class="LineNr">18509 </span> 89/<- %ebp 4/r32/esp +<span id="L18510" class="LineNr">18510 </span> <span class="subxComment"># setup</span> +<span id="L18511" class="LineNr">18511 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L18512" class="LineNr">18512 </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="L18513" class="LineNr">18513 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L18514" class="LineNr">18514 </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="L18515" class="LineNr">18515 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L18516" class="LineNr">18516 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L18517" class="LineNr">18517 </span> 68/push 0xc0/imm32/size +<span id="L18518" class="LineNr">18518 </span> 68/push 0/imm32/top +<span id="L18519" class="LineNr">18519 </span> 89/<- %ecx 4/r32/esp +<span id="L18520" class="LineNr">18520 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L18521" class="LineNr">18521 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L18522" class="LineNr">18522 </span> 68/push 0/imm32 +<span id="L18523" class="LineNr">18523 </span> 68/push 0/imm32 +<span id="L18524" class="LineNr">18524 </span> 89/<- %edx 4/r32/esp +<span id="L18525" class="LineNr">18525 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> +<span id="L18526" class="LineNr">18526 </span> 68/push 0/imm32 +<span id="L18527" class="LineNr">18527 </span> 68/push 0/imm32 +<span id="L18528" class="LineNr">18528 </span> 89/<- %eax 4/r32/esp +<span id="L18529" class="LineNr">18529 </span> <span class="subxComment"># v = new var("n")</span> +<span id="L18530" class="LineNr">18530 </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="L18531" class="LineNr">18531 </span> (<a href='mu.subx.html#L18622'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L18532" class="LineNr">18532 </span> <span class="subxComment">#</span> +<span id="L18533" class="LineNr">18533 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *edx) +<span id="L18534" class="LineNr">18534 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *(edx+4)) +<span id="L18535" class="LineNr">18535 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx 0) +<span id="L18536" class="LineNr">18536 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> +<span id="L18537" class="LineNr">18537 </span> 68/push 0/imm32 +<span id="L18538" class="LineNr">18538 </span> 68/push 0/imm32 +<span id="L18539" class="LineNr">18539 </span> 89/<- %eax 4/r32/esp +<span id="L18540" class="LineNr">18540 </span> <span class="subxComment"># convert</span> +<span id="L18541" class="LineNr">18541 </span> (<a href='mu.subx.html#L17660'>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="L18542" class="LineNr">18542 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> +<span id="L18543" class="LineNr">18543 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L18544" class="LineNr">18544 </span> 89/<- %edx 0/r32/eax +<span id="L18545" class="LineNr">18545 </span> <span class="subxComment"># out->tag</span> +<span id="L18546" class="LineNr">18546 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L18506'>test-parse-mu-stmt</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> +<span id="L18547" class="LineNr">18547 </span> <span class="subxComment"># out->operation</span> +<span id="L18548" class="LineNr">18548 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L18549" class="LineNr">18549 </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#L18506'>test-parse-mu-stmt</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> +<span id="L18550" class="LineNr">18550 </span> <span class="subxComment"># out->inouts->value->name</span> +<span id="L18551" class="LineNr">18551 </span> <span class="subxS1Comment"># . eax = out->inouts</span> +<span id="L18552" class="LineNr">18552 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L18553" class="LineNr">18553 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> +<span id="L18554" class="LineNr">18554 </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="L18555" class="LineNr">18555 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> +<span id="L18556" class="LineNr">18556 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18557" class="LineNr">18557 </span> <span class="subxS1Comment"># .</span> +<span id="L18558" class="LineNr">18558 </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#L18506'>test-parse-mu-stmt</a>/inout:0"</span>) +<span id="L18559" class="LineNr">18559 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18560" class="LineNr">18560 </span> 89/<- %esp 5/r32/ebp +<span id="L18561" class="LineNr">18561 </span> 5d/pop-to-ebp +<span id="L18562" class="LineNr">18562 </span> c3/return +<span id="L18563" class="LineNr">18563 </span> +<span id="L18564" class="LineNr">18564 </span><span class="subxTest">test-parse-mu-stmt-with-comma</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="subxComment"># setup</span> +<span id="L18569" class="LineNr">18569 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L18570" class="LineNr">18570 </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="L18571" class="LineNr">18571 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L18572" class="LineNr">18572 </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="L18573" class="LineNr">18573 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L18574" class="LineNr">18574 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L18575" class="LineNr">18575 </span> 68/push 0xc0/imm32/size +<span id="L18576" class="LineNr">18576 </span> 68/push 0/imm32/top +<span id="L18577" class="LineNr">18577 </span> 89/<- %ecx 4/r32/esp +<span id="L18578" class="LineNr">18578 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L18579" class="LineNr">18579 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L18580" class="LineNr">18580 </span> 68/push 0/imm32 +<span id="L18581" class="LineNr">18581 </span> 68/push 0/imm32 +<span id="L18582" class="LineNr">18582 </span> 89/<- %edx 4/r32/esp +<span id="L18583" class="LineNr">18583 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> +<span id="L18584" class="LineNr">18584 </span> 68/push 0/imm32 +<span id="L18585" class="LineNr">18585 </span> 68/push 0/imm32 +<span id="L18586" class="LineNr">18586 </span> 89/<- %eax 4/r32/esp +<span id="L18587" class="LineNr">18587 </span> <span class="subxComment"># v = new var("n")</span> +<span id="L18588" class="LineNr">18588 </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="L18589" class="LineNr">18589 </span> (<a href='mu.subx.html#L18622'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L18590" class="LineNr">18590 </span> <span class="subxComment">#</span> +<span id="L18591" class="LineNr">18591 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *edx) +<span id="L18592" class="LineNr">18592 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *(edx+4)) +<span id="L18593" class="LineNr">18593 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx 0) +<span id="L18594" class="LineNr">18594 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> +<span id="L18595" class="LineNr">18595 </span> 68/push 0/imm32 +<span id="L18596" class="LineNr">18596 </span> 68/push 0/imm32 +<span id="L18597" class="LineNr">18597 </span> 89/<- %eax 4/r32/esp +<span id="L18598" class="LineNr">18598 </span> <span class="subxComment"># convert</span> +<span id="L18599" class="LineNr">18599 </span> (<a href='mu.subx.html#L17660'>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="L18600" class="LineNr">18600 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> +<span id="L18601" class="LineNr">18601 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L18602" class="LineNr">18602 </span> 89/<- %edx 0/r32/eax +<span id="L18603" class="LineNr">18603 </span> <span class="subxComment"># out->tag</span> +<span id="L18604" class="LineNr">18604 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L18564'>test-parse-mu-stmt-with-comma</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> +<span id="L18605" class="LineNr">18605 </span> <span class="subxComment"># out->operation</span> +<span id="L18606" class="LineNr">18606 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L18607" class="LineNr">18607 </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#L18564'>test-parse-mu-stmt-with-comma</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> +<span id="L18608" class="LineNr">18608 </span> <span class="subxComment"># out->inouts->value->name</span> +<span id="L18609" class="LineNr">18609 </span> <span class="subxS1Comment"># . eax = out->inouts</span> +<span id="L18610" class="LineNr">18610 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L18611" class="LineNr">18611 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> +<span id="L18612" class="LineNr">18612 </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="L18613" class="LineNr">18613 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> +<span id="L18614" class="LineNr">18614 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18615" class="LineNr">18615 </span> <span class="subxS1Comment"># .</span> +<span id="L18616" class="LineNr">18616 </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#L18564'>test-parse-mu-stmt-with-comma</a>/inout:0"</span>) +<span id="L18617" class="LineNr">18617 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18618" class="LineNr">18618 </span> 89/<- %esp 5/r32/ebp +<span id="L18619" class="LineNr">18619 </span> 5d/pop-to-ebp +<span id="L18620" class="LineNr">18620 </span> c3/return +<span id="L18621" class="LineNr">18621 </span> +<span id="L18622" class="LineNr">18622 </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="L18623" class="LineNr">18623 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18624" class="LineNr">18624 </span> 55/push-ebp +<span id="L18625" class="LineNr">18625 </span> 89/<- %ebp 4/r32/esp +<span id="L18626" class="LineNr">18626 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18627" class="LineNr">18627 </span> 50/push-eax +<span id="L18628" class="LineNr">18628 </span> 51/push-ecx +<span id="L18629" class="LineNr">18629 </span> <span class="subxComment"># ecx = out</span> +<span id="L18630" class="LineNr">18630 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L18631" class="LineNr">18631 </span> <span class="subxComment">#</span> +<span id="L18632" class="LineNr">18632 </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="L18633" class="LineNr">18633 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> +<span id="L18634" class="LineNr">18634 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L18635" class="LineNr">18635 </span> <span class="subxComment"># out-addr->name = name</span> +<span id="L18636" class="LineNr">18636 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L18637" class="LineNr">18637 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Var-name</span> +<span id="L18638" class="LineNr">18638 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L18639" class="LineNr">18639 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Var-name</span> +<span id="L18640" class="LineNr">18640 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L18641" class="LineNr">18641 </span><span class="CommentedCode">#? (lookup *(ebp+0xc) *(ebp+0x10))</span> +<span id="L18642" class="LineNr">18642 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L18643" class="LineNr">18643 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> +<span id="L18644" class="LineNr">18644 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x14) 1/r32/ecx</span> +<span id="L18645" class="LineNr">18645 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4)) # => eax</span> +<span id="L18646" class="LineNr">18646 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L18647" class="LineNr">18647 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L18648" class="LineNr">18648 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18649" class="LineNr">18649 </span><span class="Constant">$new-var:end</span>: +<span id="L18650" class="LineNr">18650 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18651" class="LineNr">18651 </span> 59/pop-to-ecx +<span id="L18652" class="LineNr">18652 </span> 58/pop-to-eax +<span id="L18653" class="LineNr">18653 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18654" class="LineNr">18654 </span> 89/<- %esp 5/r32/ebp +<span id="L18655" class="LineNr">18655 </span> 5d/pop-to-ebp +<span id="L18656" class="LineNr">18656 </span> c3/return +<span id="L18657" class="LineNr">18657 </span> +<span id="L18658" class="LineNr">18658 </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="L18659" class="LineNr">18659 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18660" class="LineNr">18660 </span> 55/push-ebp +<span id="L18661" class="LineNr">18661 </span> 89/<- %ebp 4/r32/esp +<span id="L18662" class="LineNr">18662 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18663" class="LineNr">18663 </span> 50/push-eax +<span id="L18664" class="LineNr">18664 </span> 51/push-ecx +<span id="L18665" class="LineNr">18665 </span> <span class="subxComment"># if (!is-hex-int?(name)) abort</span> +<span id="L18666" class="LineNr">18666 </span> (<a href='../118parse-hex-int.subx.html#L9'>is-hex-int?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L18667" class="LineNr">18667 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18668" class="LineNr">18668 </span> 0f 84/jump-if-= $new-literal-integer:abort/disp32 +<span id="L18669" class="LineNr">18669 </span> <span class="subxComment"># a little more error-checking</span> +<span id="L18670" class="LineNr">18670 </span> (<a href='mu.subx.html#L18710'>check-mu-hex-int</a> *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18671" class="LineNr">18671 </span> <span class="subxComment"># out = new var(s)</span> +<span id="L18672" class="LineNr">18672 </span> (<a href='mu.subx.html#L18848'>new-var-from-slice</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) +<span id="L18673" class="LineNr">18673 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L18674" class="LineNr">18674 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L18675" class="LineNr">18675 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L18676" class="LineNr">18676 </span> 89/<- %ecx 0/r32/eax +<span id="L18677" class="LineNr">18677 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L18678" class="LineNr">18678 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/r32/eax +<span id="L18679" class="LineNr">18679 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L18680" class="LineNr">18680 </span> <span class="subxComment"># out-addr->type = new tree()</span> +<span id="L18681" class="LineNr">18681 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L18682" class="LineNr">18682 </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="L18683" class="LineNr">18683 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18684" class="LineNr">18684 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L18685" class="LineNr">18685 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> +<span id="L18686" class="LineNr">18686 </span><span class="Constant">$new-literal-integer:end</span>: +<span id="L18687" class="LineNr">18687 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18688" class="LineNr">18688 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18689" class="LineNr">18689 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18690" class="LineNr">18690 </span> 59/pop-to-ecx +<span id="L18691" class="LineNr">18691 </span> 58/pop-to-eax +<span id="L18692" class="LineNr">18692 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18693" class="LineNr">18693 </span> 89/<- %esp 5/r32/ebp +<span id="L18694" class="LineNr">18694 </span> 5d/pop-to-ebp +<span id="L18695" class="LineNr">18695 </span> c3/return +<span id="L18696" class="LineNr">18696 </span> +<span id="L18697" class="LineNr">18697 </span><span class="Constant">$new-literal-integer:abort</span>: +<span id="L18698" class="LineNr">18698 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18699" class="LineNr">18699 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18700" class="LineNr">18700 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18701" class="LineNr">18701 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18702" class="LineNr">18702 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": variable '"</span>) +<span id="L18703" class="LineNr">18703 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+0xc)) +<span id="L18704" class="LineNr">18704 </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="L18705" class="LineNr">18705 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18706" class="LineNr">18706 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18707" class="LineNr">18707 </span> <span class="subxComment"># never gets here</span> +<span id="L18708" class="LineNr">18708 </span> +<span id="L18709" class="LineNr">18709 </span><span class="subxComment"># precondition: name is a valid hex integer; require a '0x' prefix</span> +<span id="L18710" class="LineNr">18710 </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="L18711" class="LineNr">18711 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18712" class="LineNr">18712 </span> 55/push-ebp +<span id="L18713" class="LineNr">18713 </span> 89/<- %ebp 4/r32/esp +<span id="L18714" class="LineNr">18714 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18715" class="LineNr">18715 </span> 50/push-eax +<span id="L18716" class="LineNr">18716 </span> 51/push-ecx +<span id="L18717" class="LineNr">18717 </span> 52/push-edx +<span id="L18718" class="LineNr">18718 </span> <span class="subxComment"># ecx = name</span> +<span id="L18719" class="LineNr">18719 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L18720" class="LineNr">18720 </span> <span class="subxComment"># var start/edx: (addr byte) = name->start</span> +<span id="L18721" class="LineNr">18721 </span> 8b/-> *ecx 2/r32/edx +<span id="L18722" class="LineNr">18722 </span> <span class="subxComment"># if (*start == '-') ++start</span> +<span id="L18723" class="LineNr">18723 </span> b8/copy-to-eax 0/imm32 +<span id="L18724" class="LineNr">18724 </span> 8a/copy-byte *edx 0/r32/AL +<span id="L18725" class="LineNr">18725 </span> 3d/compare-eax-and 0x2d/imm32/dash +<span id="L18726" class="LineNr">18726 </span> { +<span id="L18727" class="LineNr">18727 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L18728" class="LineNr">18728 </span> 42/increment-edx +<span id="L18729" class="LineNr">18729 </span> } +<span id="L18730" class="LineNr">18730 </span> <span class="subxComment"># var end/ecx: (addr byte) = name->end</span> +<span id="L18731" class="LineNr">18731 </span> 8b/-> *(ecx+4) 1/r32/ecx +<span id="L18732" class="LineNr">18732 </span> <span class="subxComment"># var len/eax: int = name->end - name->start</span> +<span id="L18733" class="LineNr">18733 </span> 89/<- %eax 1/r32/ecx +<span id="L18734" class="LineNr">18734 </span> 29/subtract-from %eax 2/r32/edx +<span id="L18735" class="LineNr">18735 </span> <span class="subxComment"># if (len <= 1) return</span> +<span id="L18736" class="LineNr">18736 </span> 3d/compare-eax-with 1/imm32 +<span id="L18737" class="LineNr">18737 </span> 0f 8e/jump-if-<= $check-mu-hex-int:end/disp32 +<span id="L18738" class="LineNr">18738 </span><span class="Constant">$check-mu-hex-int:length->-1</span>: +<span id="L18739" class="LineNr">18739 </span> <span class="subxComment"># if slice-starts-with?({start, end}, "0x") return</span> +<span id="L18740" class="LineNr">18740 </span> <span class="subxS1Comment"># . var tmp = {start, end}</span> +<span id="L18741" class="LineNr">18741 </span> 51/push-ecx +<span id="L18742" class="LineNr">18742 </span> 52/push-edx +<span id="L18743" class="LineNr">18743 </span> 89/<- %eax 4/r32/esp +<span id="L18744" class="LineNr">18744 </span> <span class="subxS1Comment"># .</span> +<span id="L18745" class="LineNr">18745 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %eax <span class="Constant">"0x"</span>) <span class="subxComment"># => eax</span> +<span id="L18746" class="LineNr">18746 </span> <span class="subxS1Comment"># . reclaim tmp</span> +<span id="L18747" class="LineNr">18747 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18748" class="LineNr">18748 </span> <span class="subxS1Comment"># .</span> +<span id="L18749" class="LineNr">18749 </span> 3d/compare-eax-with 0/imm32/false +<span id="L18750" class="LineNr">18750 </span> 75/jump-if-!= $check-mu-hex-int:end/disp8 +<span id="L18751" class="LineNr">18751 </span><span class="Constant">$check-mu-hex-int:abort</span>: +<span id="L18752" class="LineNr">18752 </span> <span class="subxComment"># otherwise abort</span> +<span id="L18753" class="LineNr">18753 </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="L18754" class="LineNr">18754 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *(ebp+8)) +<span id="L18755" class="LineNr">18755 </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="L18756" class="LineNr">18756 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L18757" class="LineNr">18757 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L18758" class="LineNr">18758 </span><span class="Constant">$check-mu-hex-int:end</span>: +<span id="L18759" class="LineNr">18759 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18760" class="LineNr">18760 </span> 5a/pop-to-edx +<span id="L18761" class="LineNr">18761 </span> 59/pop-to-ecx +<span id="L18762" class="LineNr">18762 </span> 58/pop-to-eax +<span id="L18763" class="LineNr">18763 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18764" class="LineNr">18764 </span> 89/<- %esp 5/r32/ebp +<span id="L18765" class="LineNr">18765 </span> 5d/pop-to-ebp +<span id="L18766" class="LineNr">18766 </span> c3/return +<span id="L18767" class="LineNr">18767 </span> +<span id="L18768" class="LineNr">18768 </span><span class="subxFunction">new-literal</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> +<span id="L18769" class="LineNr">18769 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18770" class="LineNr">18770 </span> 55/push-ebp +<span id="L18771" class="LineNr">18771 </span> 89/<- %ebp 4/r32/esp +<span id="L18772" class="LineNr">18772 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18773" class="LineNr">18773 </span> 50/push-eax +<span id="L18774" class="LineNr">18774 </span> 51/push-ecx +<span id="L18775" class="LineNr">18775 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> +<span id="L18776" class="LineNr">18776 </span> 68/push 0/imm32 +<span id="L18777" class="LineNr">18777 </span> 68/push 0/imm32 +<span id="L18778" class="LineNr">18778 </span> 89/<- %ecx 4/r32/esp +<span id="L18779" class="LineNr">18779 </span> <span class="subxComment"># s = slice-to-string(name)</span> +<span id="L18780" class="LineNr">18780 </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="L18781" class="LineNr">18781 </span> <span class="subxComment"># allocate to out</span> +<span id="L18782" class="LineNr">18782 </span> (<a href='mu.subx.html#L18622'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L18783" class="LineNr">18783 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L18784" class="LineNr">18784 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L18785" class="LineNr">18785 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L18786" class="LineNr">18786 </span> 89/<- %ecx 0/r32/eax +<span id="L18787" class="LineNr">18787 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L18788" class="LineNr">18788 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/r32/eax +<span id="L18789" class="LineNr">18789 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L18790" class="LineNr">18790 </span> <span class="subxComment"># out-addr->type/eax = new type</span> +<span id="L18791" class="LineNr">18791 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L18792" class="LineNr">18792 </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="L18793" class="LineNr">18793 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18794" class="LineNr">18794 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> +<span id="L18795" class="LineNr">18795 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L18796" class="LineNr">18796 </span><span class="Constant">$new-literal:end</span>: +<span id="L18797" class="LineNr">18797 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18798" class="LineNr">18798 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18799" class="LineNr">18799 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18800" class="LineNr">18800 </span> 59/pop-to-ecx +<span id="L18801" class="LineNr">18801 </span> 58/pop-to-eax +<span id="L18802" class="LineNr">18802 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18803" class="LineNr">18803 </span> 89/<- %esp 5/r32/ebp +<span id="L18804" class="LineNr">18804 </span> 5d/pop-to-ebp +<span id="L18805" class="LineNr">18805 </span> c3/return +<span id="L18806" class="LineNr">18806 </span> +<span id="L18807" class="LineNr">18807 </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="L18808" class="LineNr">18808 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18809" class="LineNr">18809 </span> 55/push-ebp +<span id="L18810" class="LineNr">18810 </span> 89/<- %ebp 4/r32/esp +<span id="L18811" class="LineNr">18811 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18812" class="LineNr">18812 </span> 50/push-eax +<span id="L18813" class="LineNr">18813 </span> 51/push-ecx +<span id="L18814" class="LineNr">18814 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> +<span id="L18815" class="LineNr">18815 </span> 68/push 0/imm32 +<span id="L18816" class="LineNr">18816 </span> 68/push 0/imm32 +<span id="L18817" class="LineNr">18817 </span> 89/<- %ecx 4/r32/esp +<span id="L18818" class="LineNr">18818 </span> <span class="subxComment"># s = slice-to-string(name)</span> +<span id="L18819" class="LineNr">18819 </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="L18820" class="LineNr">18820 </span> <span class="subxComment"># allocate to out</span> +<span id="L18821" class="LineNr">18821 </span> (<a href='mu.subx.html#L18622'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L18822" class="LineNr">18822 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L18823" class="LineNr">18823 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L18824" class="LineNr">18824 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L18825" class="LineNr">18825 </span> 89/<- %ecx 0/r32/eax +<span id="L18826" class="LineNr">18826 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L18827" class="LineNr">18827 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/r32/eax +<span id="L18828" class="LineNr">18828 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L18829" class="LineNr">18829 </span> <span class="subxComment"># out-addr->type/eax = new type</span> +<span id="L18830" class="LineNr">18830 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L18831" class="LineNr">18831 </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="L18832" class="LineNr">18832 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18833" class="LineNr">18833 </span> <span class="subxComment"># out-addr->type->value = literal-string</span> +<span id="L18834" class="LineNr">18834 </span> c7 0/subop/copy *(eax+4) 0x10/imm32/type-id-string-literal <span class="subxComment"># Type-tree-value</span> +<span id="L18835" class="LineNr">18835 </span> <span class="subxComment"># out-addr->type->is-atom? = true</span> +<span id="L18836" class="LineNr">18836 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L18837" class="LineNr">18837 </span><span class="Constant">$new-literal-string:end</span>: +<span id="L18838" class="LineNr">18838 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18839" class="LineNr">18839 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18840" class="LineNr">18840 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18841" class="LineNr">18841 </span> 59/pop-to-ecx +<span id="L18842" class="LineNr">18842 </span> 58/pop-to-eax +<span id="L18843" class="LineNr">18843 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18844" class="LineNr">18844 </span> 89/<- %esp 5/r32/ebp +<span id="L18845" class="LineNr">18845 </span> 5d/pop-to-ebp +<span id="L18846" class="LineNr">18846 </span> c3/return +<span id="L18847" class="LineNr">18847 </span> +<span id="L18848" class="LineNr">18848 </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="L18849" class="LineNr">18849 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18850" class="LineNr">18850 </span> 55/push-ebp +<span id="L18851" class="LineNr">18851 </span> 89/<- %ebp 4/r32/esp +<span id="L18852" class="LineNr">18852 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18853" class="LineNr">18853 </span> 51/push-ecx +<span id="L18854" class="LineNr">18854 </span> <span class="subxComment"># var tmp/ecx: (handle array byte)</span> +<span id="L18855" class="LineNr">18855 </span> 68/push 0/imm32 +<span id="L18856" class="LineNr">18856 </span> 68/push 0/imm32 +<span id="L18857" class="LineNr">18857 </span> 89/<- %ecx 4/r32/esp +<span id="L18858" class="LineNr">18858 </span> <span class="subxComment"># tmp = slice-to-string(name)</span> +<span id="L18859" class="LineNr">18859 </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="L18860" class="LineNr">18860 </span> <span class="subxComment"># out = new-var(tmp)</span> +<span id="L18861" class="LineNr">18861 </span> (<a href='mu.subx.html#L18622'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L18862" class="LineNr">18862 </span><span class="Constant">$new-var-from-slice:end</span>: +<span id="L18863" class="LineNr">18863 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18864" class="LineNr">18864 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18865" class="LineNr">18865 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18866" class="LineNr">18866 </span> 59/pop-to-ecx +<span id="L18867" class="LineNr">18867 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18868" class="LineNr">18868 </span> 89/<- %esp 5/r32/ebp +<span id="L18869" class="LineNr">18869 </span> 5d/pop-to-ebp +<span id="L18870" class="LineNr">18870 </span> c3/return +<span id="L18871" class="LineNr">18871 </span> +<span id="L18872" class="LineNr">18872 </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="L18873" class="LineNr">18873 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18874" class="LineNr">18874 </span> 55/push-ebp +<span id="L18875" class="LineNr">18875 </span> 89/<- %ebp 4/r32/esp +<span id="L18876" class="LineNr">18876 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18877" class="LineNr">18877 </span> 50/push-eax +<span id="L18878" class="LineNr">18878 </span> 51/push-ecx +<span id="L18879" class="LineNr">18879 </span> <span class="subxComment">#</span> +<span id="L18880" class="LineNr">18880 </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="L18881" class="LineNr">18881 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> +<span id="L18882" class="LineNr">18882 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18883" class="LineNr">18883 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L18884" class="LineNr">18884 </span> <span class="subxComment"># out-addr->tag = stmt</span> +<span id="L18885" class="LineNr">18885 </span> c7 0/subop/copy *eax 2/imm32/tag/var-on-stack <span class="subxComment"># Stmt-tag</span> +<span id="L18886" class="LineNr">18886 </span> <span class="subxComment"># result->var = var</span> +<span id="L18887" class="LineNr">18887 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L18888" class="LineNr">18888 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Vardef-var</span> +<span id="L18889" class="LineNr">18889 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L18890" class="LineNr">18890 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Vardef-var</span> +<span id="L18891" class="LineNr">18891 </span><span class="Constant">$new-var-def:end</span>: +<span id="L18892" class="LineNr">18892 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18893" class="LineNr">18893 </span> 59/pop-to-ecx +<span id="L18894" class="LineNr">18894 </span> 58/pop-to-eax +<span id="L18895" class="LineNr">18895 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18896" class="LineNr">18896 </span> 89/<- %esp 5/r32/ebp +<span id="L18897" class="LineNr">18897 </span> 5d/pop-to-ebp +<span id="L18898" class="LineNr">18898 </span> c3/return +<span id="L18899" class="LineNr">18899 </span> +<span id="L18900" class="LineNr">18900 </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="L18901" class="LineNr">18901 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18902" class="LineNr">18902 </span> 55/push-ebp +<span id="L18903" class="LineNr">18903 </span> 89/<- %ebp 4/r32/esp +<span id="L18904" class="LineNr">18904 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18905" class="LineNr">18905 </span> 50/push-eax +<span id="L18906" class="LineNr">18906 </span> <span class="subxComment"># eax = out</span> +<span id="L18907" class="LineNr">18907 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18908" class="LineNr">18908 </span> <span class="subxComment">#</span> +<span id="L18909" class="LineNr">18909 </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="L18910" class="LineNr">18910 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> +<span id="L18911" class="LineNr">18911 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L18912" class="LineNr">18912 </span> <span class="subxComment"># set tag</span> +<span id="L18913" class="LineNr">18913 </span> c7 0/subop/copy *eax 3/imm32/tag/var-in-register <span class="subxComment"># Stmt-tag</span> +<span id="L18914" class="LineNr">18914 </span> <span class="subxComment"># set output</span> +<span id="L18915" class="LineNr">18915 </span> 8d/copy-address *(eax+0x14) 0/r32/eax <span class="subxComment"># Regvardef-outputs</span> +<span id="L18916" class="LineNr">18916 </span> (<a href='mu.subx.html#L18983'>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="L18917" class="LineNr">18917 </span><span class="Constant">$new-reg-var-def:end</span>: +<span id="L18918" class="LineNr">18918 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18919" class="LineNr">18919 </span> 58/pop-to-eax +<span id="L18920" class="LineNr">18920 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18921" class="LineNr">18921 </span> 89/<- %esp 5/r32/ebp +<span id="L18922" class="LineNr">18922 </span> 5d/pop-to-ebp +<span id="L18923" class="LineNr">18923 </span> c3/return +<span id="L18924" class="LineNr">18924 </span> +<span id="L18925" class="LineNr">18925 </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="L18926" class="LineNr">18926 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18927" class="LineNr">18927 </span> 55/push-ebp +<span id="L18928" class="LineNr">18928 </span> 89/<- %ebp 4/r32/esp +<span id="L18929" class="LineNr">18929 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18930" class="LineNr">18930 </span> 50/push-eax +<span id="L18931" class="LineNr">18931 </span> 51/push-ecx +<span id="L18932" class="LineNr">18932 </span> 57/push-edi +<span id="L18933" class="LineNr">18933 </span> <span class="subxComment"># edi = out</span> +<span id="L18934" class="LineNr">18934 </span> 8b/-> *(ebp+0x1c) 7/r32/edi +<span id="L18935" class="LineNr">18935 </span> <span class="subxComment"># *out = new list</span> +<span id="L18936" class="LineNr">18936 </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="L18937" class="LineNr">18937 </span> <span class="subxComment"># var out-addr/edi: (addr list _type) = lookup(*out)</span> +<span id="L18938" class="LineNr">18938 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L18939" class="LineNr">18939 </span> 89/<- %edi 0/r32/eax +<span id="L18940" class="LineNr">18940 </span> <span class="subxComment"># out-addr->value = value</span> +<span id="L18941" class="LineNr">18941 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L18942" class="LineNr">18942 </span> 89/<- *edi 0/r32/eax <span class="subxComment"># List-value</span> +<span id="L18943" class="LineNr">18943 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L18944" class="LineNr">18944 </span> 89/<- *(edi+4) 0/r32/eax <span class="subxComment"># List-value</span> +<span id="L18945" class="LineNr">18945 </span> <span class="subxComment"># if (list == null) return</span> +<span id="L18946" class="LineNr">18946 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32 +<span id="L18947" class="LineNr">18947 </span> 74/jump-if-= $append-list:end/disp8 +<span id="L18948" class="LineNr">18948 </span> <span class="subxComment"># otherwise append</span> +<span id="L18949" class="LineNr">18949 </span><span class="Constant">$append-list:non-empty-list</span>: +<span id="L18950" class="LineNr">18950 </span> <span class="subxComment"># var curr/eax: (addr list _type) = lookup(list)</span> +<span id="L18951" class="LineNr">18951 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L18952" class="LineNr">18952 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> +<span id="L18953" class="LineNr">18953 </span> { +<span id="L18954" class="LineNr">18954 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># List-next</span> +<span id="L18955" class="LineNr">18955 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18956" class="LineNr">18956 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L18957" class="LineNr">18957 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># List-next, List-next => eax</span> +<span id="L18958" class="LineNr">18958 </span> <span class="subxComment">#</span> +<span id="L18959" class="LineNr">18959 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L18960" class="LineNr">18960 </span> } +<span id="L18961" class="LineNr">18961 </span> <span class="subxComment"># edi = out</span> +<span id="L18962" class="LineNr">18962 </span> 8b/-> *(ebp+0x1c) 7/r32/edi +<span id="L18963" class="LineNr">18963 </span> <span class="subxComment"># curr->next = out</span> +<span id="L18964" class="LineNr">18964 </span> 8b/-> *edi 1/r32/ecx +<span id="L18965" class="LineNr">18965 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># List-next</span> +<span id="L18966" class="LineNr">18966 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L18967" class="LineNr">18967 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># List-next</span> +<span id="L18968" class="LineNr">18968 </span> <span class="subxComment"># out = list</span> +<span id="L18969" class="LineNr">18969 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L18970" class="LineNr">18970 </span> 89/<- *edi 1/r32/ecx +<span id="L18971" class="LineNr">18971 </span> 8b/-> *(ebp+0x18) 1/r32/ecx +<span id="L18972" class="LineNr">18972 </span> 89/<- *(edi+4) 1/r32/ecx +<span id="L18973" class="LineNr">18973 </span><span class="Constant">$append-list:end</span>: +<span id="L18974" class="LineNr">18974 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18975" class="LineNr">18975 </span> 5f/pop-to-edi +<span id="L18976" class="LineNr">18976 </span> 59/pop-to-ecx +<span id="L18977" class="LineNr">18977 </span> 58/pop-to-eax +<span id="L18978" class="LineNr">18978 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18979" class="LineNr">18979 </span> 89/<- %esp 5/r32/ebp +<span id="L18980" class="LineNr">18980 </span> 5d/pop-to-ebp +<span id="L18981" class="LineNr">18981 </span> c3/return +<span id="L18982" class="LineNr">18982 </span> +<span id="L18983" class="LineNr">18983 </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="L18984" class="LineNr">18984 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18985" class="LineNr">18985 </span> 55/push-ebp +<span id="L18986" class="LineNr">18986 </span> 89/<- %ebp 4/r32/esp <span id="L18987" class="LineNr">18987 </span> <span class="subxS1Comment"># . save registers</span> <span id="L18988" class="LineNr">18988 </span> 50/push-eax <span id="L18989" class="LineNr">18989 </span> 51/push-ecx -<span id="L18990" class="LineNr">18990 </span> 52/push-edx -<span id="L18991" class="LineNr">18991 </span> 53/push-ebx -<span id="L18992" class="LineNr">18992 </span> 56/push-esi -<span id="L18993" class="LineNr">18993 </span> 57/push-edi -<span id="L18994" class="LineNr">18994 </span> <span class="subxComment"># edi = t</span> -<span id="L18995" class="LineNr">18995 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L18996" class="LineNr">18996 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L18997" class="LineNr">18997 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L18998" class="LineNr">18998 </span> 68/push 0x200/imm32/size -<span id="L18999" class="LineNr">18999 </span> 68/push 0/imm32/read -<span id="L19000" class="LineNr">19000 </span> 68/push 0/imm32/write -<span id="L19001" class="LineNr">19001 </span> 89/<- %ecx 4/r32/esp -<span id="L19002" class="LineNr">19002 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L19003" class="LineNr">19003 </span> 68/push 0/imm32/end -<span id="L19004" class="LineNr">19004 </span> 68/push 0/imm32/start -<span id="L19005" class="LineNr">19005 </span> 89/<- %edx 4/r32/esp -<span id="L19006" class="LineNr">19006 </span> <span class="subxComment"># var v/esi: (handle var)</span> -<span id="L19007" class="LineNr">19007 </span> 68/push 0/imm32 -<span id="L19008" class="LineNr">19008 </span> 68/push 0/imm32 -<span id="L19009" class="LineNr">19009 </span> 89/<- %esi 4/r32/esp -<span id="L19010" class="LineNr">19010 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> -<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> 89/<- %ebx 4/r32/esp -<span id="L19014" class="LineNr">19014 </span> { -<span id="L19015" class="LineNr">19015 </span><span class="Constant">$populate-mu-type:line-loop</span>: -<span id="L19016" class="LineNr">19016 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L19017" class="LineNr">19017 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L19018" class="LineNr">19018 </span> <span class="subxComment"># if (line->write == 0) abort</span> -<span id="L19019" class="LineNr">19019 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L19020" class="LineNr">19020 </span> 0f 84/jump-if-= $populate-mu-type:error1/disp32 -<span id="L19021" class="Folded">19021 </span><span class="Folded">+-- 6 lines: #? # dump line ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L19027" class="LineNr">19027 </span> (<a href='mu.subx.html#L15767'>next-mu-token</a> %ecx %edx) -<span id="L19028" class="LineNr">19028 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L19029" class="LineNr">19029 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L19030" class="LineNr">19030 </span> 3d/compare-eax-and 0/imm32 -<span id="L19031" class="LineNr">19031 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L19032" class="LineNr">19032 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> -<span id="L19033" class="LineNr">19033 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) -<span id="L19034" class="LineNr">19034 </span> 3d/compare-eax-and 0/imm32 -<span id="L19035" class="LineNr">19035 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L19036" class="LineNr">19036 </span><span class="Constant">$populate-mu-type:parse-element</span>: -<span id="L19037" class="LineNr">19037 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L19038" class="LineNr">19038 </span> <span class="subxComment"># must do this first to strip the trailing ':' from word-slice before</span> -<span id="L19039" class="LineNr">19039 </span> <span class="subxComment"># using it in find-or-create-typeinfo-fields below</span> -<span id="L19040" class="LineNr">19040 </span> <span class="subxComment"># TODO: clean up that mutation in parse-var-with-type</span> -<span id="L19041" class="LineNr">19041 </span> (<a href='mu.subx.html#L19185'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L19042" class="LineNr">19042 </span> (<a href='mu.subx.html#L15411'>parse-var-with-type</a> %edx %ecx %esi %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L19043" class="LineNr">19043 </span> <span class="subxComment"># if v is an addr, abort</span> -<span id="L19044" class="LineNr">19044 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L19045" class="LineNr">19045 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19046" class="LineNr">19046 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L19047" class="LineNr">19047 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19048" class="LineNr">19048 </span> 0f 85/jump-if-!= $populate-mu-type:error2/disp32 -<span id="L19049" class="LineNr">19049 </span> <span class="subxComment"># if v is an array, abort (we could support it, but initialization gets complex)</span> -<span id="L19050" class="LineNr">19050 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L19051" class="LineNr">19051 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19052" class="LineNr">19052 </span> (<a href='mu.subx.html#L33493'>is-mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L19053" class="LineNr">19053 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19054" class="LineNr">19054 </span> 0f 85/jump-if-!= $populate-mu-type:error3/disp32 -<span id="L19055" class="LineNr">19055 </span> <span class="subxComment"># if v is a byte, abort</span> -<span id="L19056" class="LineNr">19056 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L19057" class="LineNr">19057 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19058" class="LineNr">19058 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L19059" class="LineNr">19059 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19060" class="LineNr">19060 </span> 0f 85/jump-if-!= $populate-mu-type:error4/disp32 -<span id="L19061" class="LineNr">19061 </span> <span class="subxComment"># if v is a slice, abort</span> -<span id="L19062" class="LineNr">19062 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L19063" class="LineNr">19063 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19064" class="LineNr">19064 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0xc) <span class="subxComment"># slice => eax</span> -<span id="L19065" class="LineNr">19065 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19066" class="LineNr">19066 </span> 0f 85/jump-if-!= $populate-mu-type:error5/disp32 -<span id="L19067" class="LineNr">19067 </span> <span class="subxComment"># if v is a stream, abort (we could support it, but initialization gets even more complex)</span> -<span id="L19068" class="LineNr">19068 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L19069" class="LineNr">19069 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19070" class="LineNr">19070 </span> (<a href='mu.subx.html#L33555'>is-mu-stream-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L19071" class="LineNr">19071 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19072" class="LineNr">19072 </span> 0f 85/jump-if-!= $populate-mu-type:error6/disp32 -<span id="L19073" class="LineNr">19073 </span> <span class="subxComment"># var tmp/ecx</span> -<span id="L19074" class="LineNr">19074 </span> 51/push-ecx -<span id="L19075" class="LineNr">19075 </span><span class="Constant">$populate-mu-type:create-typeinfo-fields</span>: -<span id="L19076" class="LineNr">19076 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> -<span id="L19077" class="LineNr">19077 </span> (<a href='mu.subx.html#L18904'>find-or-create-typeinfo-fields</a> %edi %edx %ebx) -<span id="L19078" class="LineNr">19078 </span> <span class="subxComment"># r->index = curr-index</span> -<span id="L19079" class="LineNr">19079 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L19080" class="LineNr">19080 </span> 8b/-> *(ebp-4) 1/r32/ecx -<span id="L19081" class="LineNr">19081 </span><span class="CommentedCode">#? (write-buffered Stderr "saving index ")</span> -<span id="L19082" class="LineNr">19082 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L19083" class="LineNr">19083 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> -<span id="L19084" class="LineNr">19084 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edi)</span> -<span id="L19085" class="LineNr">19085 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L19086" class="LineNr">19086 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L19087" class="LineNr">19087 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-index</span> -<span id="L19088" class="LineNr">19088 </span> <span class="subxComment"># ++curr-index</span> -<span id="L19089" class="LineNr">19089 </span> ff 0/subop/increment *(ebp-4) -<span id="L19090" class="LineNr">19090 </span><span class="Constant">$populate-mu-type:set-input-type</span>: -<span id="L19091" class="LineNr">19091 </span> <span class="subxComment"># r->input-var = v</span> -<span id="L19092" class="LineNr">19092 </span> 8b/-> *esi 1/r32/ecx -<span id="L19093" class="LineNr">19093 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L19094" class="LineNr">19094 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L19095" class="LineNr">19095 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L19096" class="LineNr">19096 </span> <span class="subxComment"># restore line</span> -<span id="L19097" class="LineNr">19097 </span> 59/pop-to-ecx -<span id="L19098" class="LineNr">19098 </span> { -<span id="L19099" class="LineNr">19099 </span><span class="Constant">$populate-mu-type:create-output-type</span>: -<span id="L19100" class="LineNr">19100 </span> <span class="subxComment"># if (r->output-var == 0) create a new var with some placeholder data</span> -<span id="L19101" class="LineNr">19101 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L19102" class="LineNr">19102 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L19103" class="LineNr">19103 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L19104" class="LineNr">19104 </span> (<a href='mu.subx.html#L18335'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edx %eax) -<span id="L19105" class="LineNr">19105 </span> } -<span id="L19106" class="LineNr">19106 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19107" class="LineNr">19107 </span> } -<span id="L19108" class="LineNr">19108 </span><span class="Constant">$populate-mu-type:invalidate-total-size-in-bytes</span>: -<span id="L19109" class="LineNr">19109 </span> <span class="subxComment"># Offsets and total size may not be accurate here since we may not yet</span> -<span id="L19110" class="LineNr">19110 </span> <span class="subxComment"># have encountered the element types.</span> -<span id="L19111" class="LineNr">19111 </span> <span class="subxComment"># We'll recompute them separately after parsing the entire program.</span> -<span id="L19112" class="LineNr">19112 </span> c7 0/subop/copy *(edi+0xc) -2/imm32/uninitialized <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L19113" class="LineNr">19113 </span><span class="Constant">$populate-mu-type:end</span>: -<span id="L19114" class="LineNr">19114 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19115" class="LineNr">19115 </span> 81 0/subop/add %esp 0x224/imm32 -<span id="L19116" class="LineNr">19116 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19117" class="LineNr">19117 </span> 5f/pop-to-edi -<span id="L19118" class="LineNr">19118 </span> 5e/pop-to-esi -<span id="L19119" class="LineNr">19119 </span> 5b/pop-to-ebx -<span id="L19120" class="LineNr">19120 </span> 5a/pop-to-edx -<span id="L19121" class="LineNr">19121 </span> 59/pop-to-ecx -<span id="L19122" class="LineNr">19122 </span> 58/pop-to-eax -<span id="L19123" class="LineNr">19123 </span> <span class="subxComment"># reclaim curr-index</span> -<span id="L19124" class="LineNr">19124 </span> 81 0/subop/add %esp 4/imm32 -<span id="L19125" class="LineNr">19125 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19126" class="LineNr">19126 </span> 89/<- %esp 5/r32/ebp -<span id="L19127" class="LineNr">19127 </span> 5d/pop-to-ebp -<span id="L19128" class="LineNr">19128 </span> c3/return -<span id="L19129" class="LineNr">19129 </span> -<span id="L19130" class="LineNr">19130 </span><span class="Constant">$populate-mu-type:error1</span>: -<span id="L19131" class="LineNr">19131 </span> <span class="subxComment"># error("incomplete type definition '" t->name "'\n")</span> -<span id="L19132" class="LineNr">19132 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"incomplete type definition '"</span>) -<span id="L19133" class="LineNr">19133 </span> (<a href='mu.subx.html#L19185'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L19134" class="LineNr">19134 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L19135" class="LineNr">19135 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"\n"</span>) -<span id="L19136" class="LineNr">19136 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L19137" class="LineNr">19137 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L19138" class="LineNr">19138 </span> <span class="subxComment"># never gets here</span> +<span id="L18990" class="LineNr">18990 </span> 57/push-edi +<span id="L18991" class="LineNr">18991 </span> <span class="subxComment"># edi = out</span> +<span id="L18992" class="LineNr">18992 </span> 8b/-> *(ebp+0x20) 7/r32/edi +<span id="L18993" class="LineNr">18993 </span> <span class="subxComment"># out = new stmt-var</span> +<span id="L18994" class="LineNr">18994 </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="L18995" class="LineNr">18995 </span> <span class="subxComment"># var out-addr/ecx: (addr stmt-var) = lookup(*out)</span> +<span id="L18996" class="LineNr">18996 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L18997" class="LineNr">18997 </span> 89/<- %ecx 0/r32/eax +<span id="L18998" class="LineNr">18998 </span> <span class="subxComment"># out-addr->value = v</span> +<span id="L18999" class="LineNr">18999 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L19000" class="LineNr">19000 </span> 89/<- *ecx 0/r32/eax <span class="subxComment"># Stmt-var-value</span> +<span id="L19001" class="LineNr">19001 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L19002" class="LineNr">19002 </span> 89/<- *(ecx+4) 0/r32/eax <span class="subxComment"># Stmt-var-value</span> +<span id="L19003" class="LineNr">19003 </span> <span class="subxComment"># out-addr->is-deref? = is-deref?</span> +<span id="L19004" class="LineNr">19004 </span> 8b/-> *(ebp+0x1c) 0/r32/eax +<span id="L19005" class="LineNr">19005 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L19006" class="LineNr">19006 </span> <span class="subxComment"># if (vars == null) return result</span> +<span id="L19007" class="LineNr">19007 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32/null +<span id="L19008" class="LineNr">19008 </span> 74/jump-if-= $append-stmt-var:end/disp8 +<span id="L19009" class="LineNr">19009 </span> <span class="subxComment"># otherwise append</span> +<span id="L19010" class="LineNr">19010 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(vars)</span> +<span id="L19011" class="LineNr">19011 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L19012" class="LineNr">19012 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> +<span id="L19013" class="LineNr">19013 </span> { +<span id="L19014" class="LineNr">19014 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> +<span id="L19015" class="LineNr">19015 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19016" class="LineNr">19016 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L19017" class="LineNr">19017 </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="L19018" class="LineNr">19018 </span> <span class="subxComment">#</span> +<span id="L19019" class="LineNr">19019 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L19020" class="LineNr">19020 </span> } +<span id="L19021" class="LineNr">19021 </span> <span class="subxComment"># curr->next = out</span> +<span id="L19022" class="LineNr">19022 </span> 8b/-> *edi 1/r32/ecx +<span id="L19023" class="LineNr">19023 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> +<span id="L19024" class="LineNr">19024 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L19025" class="LineNr">19025 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> +<span id="L19026" class="LineNr">19026 </span> <span class="subxComment"># out = vars</span> +<span id="L19027" class="LineNr">19027 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L19028" class="LineNr">19028 </span> 89/<- *edi 1/r32/ecx +<span id="L19029" class="LineNr">19029 </span> 8b/-> *(ebp+0x18) 1/r32/ecx +<span id="L19030" class="LineNr">19030 </span> 89/<- *(edi+4) 1/r32/ecx +<span id="L19031" class="LineNr">19031 </span><span class="Constant">$append-stmt-var:end</span>: +<span id="L19032" class="LineNr">19032 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19033" class="LineNr">19033 </span> 5f/pop-to-edi +<span id="L19034" class="LineNr">19034 </span> 59/pop-to-ecx +<span id="L19035" class="LineNr">19035 </span> 58/pop-to-eax +<span id="L19036" class="LineNr">19036 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19037" class="LineNr">19037 </span> 89/<- %esp 5/r32/ebp +<span id="L19038" class="LineNr">19038 </span> 5d/pop-to-ebp +<span id="L19039" class="LineNr">19039 </span> c3/return +<span id="L19040" class="LineNr">19040 </span> +<span id="L19041" class="LineNr">19041 </span><span class="subxFunction">append-to-block</span>: <span class="subxComment"># ad: (addr allocation-descriptor), block: (addr block), x: (handle stmt)</span> +<span id="L19042" class="LineNr">19042 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19043" class="LineNr">19043 </span> 55/push-ebp +<span id="L19044" class="LineNr">19044 </span> 89/<- %ebp 4/r32/esp +<span id="L19045" class="LineNr">19045 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19046" class="LineNr">19046 </span> 50/push-eax +<span id="L19047" class="LineNr">19047 </span> 56/push-esi +<span id="L19048" class="LineNr">19048 </span> <span class="subxComment"># esi = block</span> +<span id="L19049" class="LineNr">19049 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L19050" class="LineNr">19050 </span> <span class="subxComment"># block->stmts = append(x, block->stmts)</span> +<span id="L19051" class="LineNr">19051 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Block-stmts</span> +<span id="L19052" class="LineNr">19052 </span> (<a href='mu.subx.html#L18925'>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="L19053" class="LineNr">19053 </span><span class="Constant">$append-to-block:end</span>: +<span id="L19054" class="LineNr">19054 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19055" class="LineNr">19055 </span> 5e/pop-to-esi +<span id="L19056" class="LineNr">19056 </span> 58/pop-to-eax +<span id="L19057" class="LineNr">19057 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19058" class="LineNr">19058 </span> 89/<- %esp 5/r32/ebp +<span id="L19059" class="LineNr">19059 </span> 5d/pop-to-ebp +<span id="L19060" class="LineNr">19060 </span> c3/return +<span id="L19061" class="LineNr">19061 </span> +<span id="L19062" class="LineNr">19062 </span><span class="subxComment">## Parsing types</span> +<span id="L19063" class="LineNr">19063 </span><span class="subxComment"># We need to create metadata on user-defined types, and we need to use this</span> +<span id="L19064" class="LineNr">19064 </span><span class="subxComment"># metadata as we parse instructions.</span> +<span id="L19065" class="LineNr">19065 </span><span class="subxComment"># However, we also want to allow types to be used before their definitions.</span> +<span id="L19066" class="LineNr">19066 </span><span class="subxComment"># This means we can't ever assume any type data structures exist.</span> +<span id="L19067" class="LineNr">19067 </span> +<span id="L19068" class="LineNr">19068 </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="L19069" class="LineNr">19069 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19070" class="LineNr">19070 </span> 55/push-ebp +<span id="L19071" class="LineNr">19071 </span> 89/<- %ebp 4/r32/esp +<span id="L19072" class="LineNr">19072 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19073" class="LineNr">19073 </span> 50/push-eax +<span id="L19074" class="LineNr">19074 </span> 56/push-esi +<span id="L19075" class="LineNr">19075 </span> <span class="subxComment"># var container-type/esi: type-id</span> +<span id="L19076" class="LineNr">19076 </span> (<a href='mu.subx.html#L19119'>container-type</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L19077" class="LineNr">19077 </span> 89/<- %esi 0/r32/eax +<span id="L19078" class="LineNr">19078 </span> <span class="subxComment"># var tmp/eax: (handle typeinfo) = find-or-create-typeinfo(container-type)</span> +<span id="L19079" class="LineNr">19079 </span> 68/push 0/imm32 +<span id="L19080" class="LineNr">19080 </span> 68/push 0/imm32 +<span id="L19081" class="LineNr">19081 </span> 89/<- %eax 4/r32/esp +<span id="L19082" class="LineNr">19082 </span> (<a href='mu.subx.html#L19156'>find-or-create-typeinfo</a> %esi %eax) +<span id="L19083" class="LineNr">19083 </span> <span class="subxComment"># var tmp-addr/eax: (addr typeinfo) = lookup(tmp)</span> +<span id="L19084" class="LineNr">19084 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L19085" class="LineNr">19085 </span> <span class="subxComment"># result = find-or-create-typeinfo-output-var(typeinfo, field-name)</span> +<span id="L19086" class="LineNr">19086 </span><span class="CommentedCode">#? (write-buffered Stderr "constant: ")</span> +<span id="L19087" class="LineNr">19087 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> +<span id="L19088" class="LineNr">19088 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19089" class="LineNr">19089 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19090" class="LineNr">19090 </span> (<a href='mu.subx.html#L19272'>find-or-create-typeinfo-output-var</a> %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L19091" class="LineNr">19091 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x10) 0/r32/eax</span> +<span id="L19092" class="LineNr">19092 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> +<span id="L19093" class="LineNr">19093 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> +<span id="L19094" class="LineNr">19094 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L19095" class="LineNr">19095 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> +<span id="L19096" class="LineNr">19096 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L19097" class="LineNr">19097 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19098" class="LineNr">19098 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19099" class="LineNr">19099 </span><span class="CommentedCode">#? (write-buffered Stderr "offset: ")</span> +<span id="L19100" class="LineNr">19100 </span><span class="CommentedCode">#? 8b/-> *(eax+0x14) 0/r32/eax</span> +<span id="L19101" class="LineNr">19101 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L19102" class="LineNr">19102 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19103" class="LineNr">19103 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19104" class="LineNr">19104 </span><span class="Constant">$lookup-or-create-constant:end</span>: +<span id="L19105" class="LineNr">19105 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19106" class="LineNr">19106 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19107" class="LineNr">19107 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19108" class="LineNr">19108 </span> 5e/pop-to-esi +<span id="L19109" class="LineNr">19109 </span> 58/pop-to-eax +<span id="L19110" class="LineNr">19110 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19111" class="LineNr">19111 </span> 89/<- %esp 5/r32/ebp +<span id="L19112" class="LineNr">19112 </span> 5d/pop-to-ebp +<span id="L19113" class="LineNr">19113 </span> c3/return +<span id="L19114" class="LineNr">19114 </span> +<span id="L19115" class="LineNr">19115 </span><span class="subxComment"># if addr var:</span> +<span id="L19116" class="LineNr">19116 </span><span class="subxComment"># container->var->type->right->left->value</span> +<span id="L19117" class="LineNr">19117 </span><span class="subxComment"># otherwise</span> +<span id="L19118" class="LineNr">19118 </span><span class="subxComment"># container->var->type->value</span> +<span id="L19119" class="LineNr">19119 </span><span class="subxFunction">container-type</span>: <span class="subxComment"># container: (addr stmt-var) -> result/eax: type-id</span> +<span id="L19120" class="LineNr">19120 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19121" class="LineNr">19121 </span> 55/push-ebp +<span id="L19122" class="LineNr">19122 </span> 89/<- %ebp 4/r32/esp +<span id="L19123" class="LineNr">19123 </span> <span class="subxComment">#</span> +<span id="L19124" class="LineNr">19124 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L19125" class="LineNr">19125 </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="L19126" class="LineNr">19126 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19127" class="LineNr">19127 </span> { +<span id="L19128" class="LineNr">19128 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L19129" class="LineNr">19129 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19130" class="LineNr">19130 </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="L19131" class="LineNr">19131 </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="L19132" class="LineNr">19132 </span> } +<span id="L19133" class="LineNr">19133 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L19134" class="LineNr">19134 </span><span class="Constant">$container-type:end</span>: +<span id="L19135" class="LineNr">19135 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19136" class="LineNr">19136 </span> 89/<- %esp 5/r32/ebp +<span id="L19137" class="LineNr">19137 </span> 5d/pop-to-ebp +<span id="L19138" class="LineNr">19138 </span> c3/return <span id="L19139" class="LineNr">19139 </span> -<span id="L19140" class="LineNr">19140 </span><span class="Constant">$populate-mu-type:error2</span>: -<span id="L19141" class="LineNr">19141 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L19142" class="LineNr">19142 </span> (<a href='mu.subx.html#L19185'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L19143" class="LineNr">19143 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L19144" class="LineNr">19144 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'addr' elements not allowed\n"</span>) -<span id="L19145" class="LineNr">19145 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L19146" class="LineNr">19146 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L19147" class="LineNr">19147 </span> <span class="subxComment"># never gets here</span> -<span id="L19148" class="LineNr">19148 </span> -<span id="L19149" class="LineNr">19149 </span><span class="Constant">$populate-mu-type:error3</span>: -<span id="L19150" class="LineNr">19150 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L19151" class="LineNr">19151 </span> (<a href='mu.subx.html#L19185'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L19152" class="LineNr">19152 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L19153" class="LineNr">19153 </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="L19154" class="LineNr">19154 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L19155" class="LineNr">19155 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L19156" class="LineNr">19156 </span> <span class="subxComment"># never gets here</span> -<span id="L19157" class="LineNr">19157 </span> -<span id="L19158" class="LineNr">19158 </span><span class="Constant">$populate-mu-type:error4</span>: -<span id="L19159" class="LineNr">19159 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L19160" class="LineNr">19160 </span> (<a href='mu.subx.html#L19185'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L19161" class="LineNr">19161 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L19162" class="LineNr">19162 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'byte' elements not allowed\n"</span>) -<span id="L19163" class="LineNr">19163 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L19164" class="LineNr">19164 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L19165" class="LineNr">19165 </span> <span class="subxComment"># never gets here</span> -<span id="L19166" class="LineNr">19166 </span> -<span id="L19167" class="LineNr">19167 </span><span class="Constant">$populate-mu-type:error5</span>: -<span id="L19168" class="LineNr">19168 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L19169" class="LineNr">19169 </span> (<a href='mu.subx.html#L19185'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L19170" class="LineNr">19170 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L19171" class="LineNr">19171 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'slice' elements not allowed\n"</span>) -<span id="L19172" class="LineNr">19172 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L19173" class="LineNr">19173 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L19174" class="LineNr">19174 </span> <span class="subxComment"># never gets here</span> -<span id="L19175" class="LineNr">19175 </span> -<span id="L19176" class="LineNr">19176 </span><span class="Constant">$populate-mu-type:error6</span>: -<span id="L19177" class="LineNr">19177 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L19178" class="LineNr">19178 </span> (<a href='mu.subx.html#L19185'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L19179" class="LineNr">19179 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L19180" class="LineNr">19180 </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="L19181" class="LineNr">19181 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L19182" class="LineNr">19182 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L19183" class="LineNr">19183 </span> <span class="subxComment"># never gets here</span> -<span id="L19184" class="LineNr">19184 </span> -<span id="L19185" class="LineNr">19185 </span><span class="subxFunction">type-name</span>: <span class="subxComment"># index: int -> result/eax: (addr array byte)</span> -<span id="L19186" class="LineNr">19186 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19187" class="LineNr">19187 </span> 55/push-ebp -<span id="L19188" class="LineNr">19188 </span> 89/<- %ebp 4/r32/esp -<span id="L19189" class="LineNr">19189 </span> <span class="subxComment">#</span> -<span id="L19190" class="LineNr">19190 </span> (index <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> *(ebp+8)) -<span id="L19191" class="LineNr">19191 </span><span class="Constant">$type-name:end</span>: -<span id="L19192" class="LineNr">19192 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19193" class="LineNr">19193 </span> 89/<- %esp 5/r32/ebp -<span id="L19194" class="LineNr">19194 </span> 5d/pop-to-ebp -<span id="L19195" class="LineNr">19195 </span> c3/return -<span id="L19196" class="LineNr">19196 </span> -<span id="L19197" class="LineNr">19197 </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="L19198" class="LineNr">19198 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19199" class="LineNr">19199 </span> 55/push-ebp -<span id="L19200" class="LineNr">19200 </span> 89/<- %ebp 4/r32/esp -<span id="L19201" class="LineNr">19201 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19202" class="LineNr">19202 </span> 56/push-esi -<span id="L19203" class="LineNr">19203 </span> <span class="subxComment"># TODO: bounds-check index</span> -<span id="L19204" class="LineNr">19204 </span> <span class="subxComment"># esi = arr</span> -<span id="L19205" class="LineNr">19205 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L19206" class="LineNr">19206 </span> <span class="subxComment"># eax = index</span> -<span id="L19207" class="LineNr">19207 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L19208" class="LineNr">19208 </span> <span class="subxComment"># eax = *(arr + 12 + index)</span> -<span id="L19209" class="LineNr">19209 </span> 8b/-> *(esi+eax<<2+0xc) 0/r32/eax -<span id="L19210" class="LineNr">19210 </span><span class="Constant">$index:end</span>: -<span id="L19211" class="LineNr">19211 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19212" class="LineNr">19212 </span> 5e/pop-to-esi -<span id="L19213" class="LineNr">19213 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19214" class="LineNr">19214 </span> 89/<- %esp 5/r32/ebp -<span id="L19215" class="LineNr">19215 </span> 5d/pop-to-ebp -<span id="L19216" class="LineNr">19216 </span> c3/return -<span id="L19217" class="LineNr">19217 </span> -<span id="L19218" class="LineNr">19218 </span><span class="subxComment">#######################################################</span> -<span id="L19219" class="LineNr">19219 </span><span class="subxComment"># Compute type sizes</span> -<span id="L19220" class="LineNr">19220 </span><span class="subxComment">#######################################################</span> -<span id="L19221" class="LineNr">19221 </span> -<span id="L19222" class="LineNr">19222 </span><span class="subxComment"># Compute the sizes of all user-defined types.</span> -<span id="L19223" class="LineNr">19223 </span><span class="subxComment"># We'll need the sizes of their elements, which may be other user-defined</span> -<span id="L19224" class="LineNr">19224 </span><span class="subxComment"># types, which we will compute as needed.</span> -<span id="L19225" class="LineNr">19225 </span> -<span id="L19226" class="LineNr">19226 </span><span class="subxComment"># Initially, all user-defined types have their sizes set to -2 (invalid)</span> -<span id="L19227" class="LineNr">19227 </span><span class="subxFunction">populate-mu-type-sizes</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L19228" class="LineNr">19228 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19229" class="LineNr">19229 </span> 55/push-ebp -<span id="L19230" class="LineNr">19230 </span> 89/<- %ebp 4/r32/esp -<span id="L19231" class="LineNr">19231 </span><span class="Constant">$populate-mu-type-sizes:total-sizes</span>: -<span id="L19232" class="LineNr">19232 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> -<span id="L19233" class="LineNr">19233 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L19234" class="LineNr">19234 </span> { -<span id="L19235" class="LineNr">19235 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L19236" class="LineNr">19236 </span> 3d/compare-eax-and 0/imm32/null -<span id="L19237" class="LineNr">19237 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19238" class="LineNr">19238 </span> (<a href='mu.subx.html#L19264'>populate-mu-type-sizes-in-type</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L19239" class="LineNr">19239 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L19240" class="LineNr">19240 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L19241" class="LineNr">19241 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L19242" class="LineNr">19242 </span> } -<span id="L19243" class="LineNr">19243 </span><span class="Constant">$populate-mu-type-sizes:offsets</span>: -<span id="L19244" class="LineNr">19244 </span> <span class="subxComment"># curr = *Program->types</span> -<span id="L19245" class="LineNr">19245 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L19246" class="LineNr">19246 </span> { -<span id="L19247" class="LineNr">19247 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L19248" class="LineNr">19248 </span> 3d/compare-eax-and 0/imm32/null -<span id="L19249" class="LineNr">19249 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19250" class="LineNr">19250 </span> (<a href='mu.subx.html#L19428'>populate-mu-type-offsets</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L19251" class="LineNr">19251 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L19252" class="LineNr">19252 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L19253" class="LineNr">19253 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L19254" class="LineNr">19254 </span> } -<span id="L19255" class="LineNr">19255 </span><span class="Constant">$populate-mu-type-sizes:end</span>: -<span id="L19256" class="LineNr">19256 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19257" class="LineNr">19257 </span> 89/<- %esp 5/r32/ebp -<span id="L19258" class="LineNr">19258 </span> 5d/pop-to-ebp -<span id="L19259" class="LineNr">19259 </span> c3/return -<span id="L19260" class="LineNr">19260 </span> -<span id="L19261" class="LineNr">19261 </span><span class="subxComment"># compute sizes of all fields, recursing as necessary</span> -<span id="L19262" class="LineNr">19262 </span><span class="subxComment"># sum up all their sizes to arrive at total size</span> -<span id="L19263" class="LineNr">19263 </span><span class="subxComment"># fields may be out of order, but that doesn't affect the answer</span> -<span id="L19264" class="LineNr">19264 </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="L19265" class="LineNr">19265 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19266" class="LineNr">19266 </span> 55/push-ebp -<span id="L19267" class="LineNr">19267 </span> 89/<- %ebp 4/r32/esp -<span id="L19268" class="LineNr">19268 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19269" class="LineNr">19269 </span> 50/push-eax -<span id="L19270" class="LineNr">19270 </span> 51/push-ecx -<span id="L19271" class="LineNr">19271 </span> 52/push-edx -<span id="L19272" class="LineNr">19272 </span> 56/push-esi -<span id="L19273" class="LineNr">19273 </span> 57/push-edi -<span id="L19274" class="LineNr">19274 </span> <span class="subxComment"># esi = T</span> -<span id="L19275" class="LineNr">19275 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L19276" class="LineNr">19276 </span> <span class="subxComment"># if T is already computed, return</span> -<span id="L19277" class="LineNr">19277 </span> 81 7/subop/compare *(esi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L19278" class="LineNr">19278 </span> 0f 8d/jump-if->= $populate-mu-type-sizes-in-type:end/disp32 -<span id="L19279" class="LineNr">19279 </span> <span class="subxComment"># if T is being computed, abort</span> -<span id="L19280" class="LineNr">19280 </span> 81 7/subop/compare *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L19281" class="LineNr">19281 </span> 0f 84/jump-if-= $populate-mu-type-sizes-in-type:abort/disp32 -<span id="L19282" class="LineNr">19282 </span> <span class="subxComment"># tag T (-2 to -1) to avoid infinite recursion</span> -<span id="L19283" class="LineNr">19283 </span> c7 0/subop/copy *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L19284" class="LineNr">19284 </span> <span class="subxComment"># var total-size/edi: int = 0</span> -<span id="L19285" class="LineNr">19285 </span> bf/copy-to-edi 0/imm32 -<span id="L19286" class="LineNr">19286 </span> <span class="subxH1Comment"># - for every field, if it's a user-defined type, compute its size</span> -<span id="L19287" class="LineNr">19287 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> -<span id="L19288" class="LineNr">19288 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L19289" class="LineNr">19289 </span> 89/<- %ecx 0/r32/eax -<span id="L19290" class="LineNr">19290 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> -<span id="L19291" class="LineNr">19291 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L19292" class="LineNr">19292 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> -<span id="L19293" class="LineNr">19293 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx -<span id="L19294" class="LineNr">19294 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> -<span id="L19295" class="LineNr">19295 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L19296" class="LineNr">19296 </span> { -<span id="L19297" class="LineNr">19297 </span><span class="Constant">$populate-mu-type-sizes-in-type:loop</span>: -<span id="L19298" class="LineNr">19298 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L19299" class="LineNr">19299 </span> 39/compare %ecx 2/r32/edx -<span id="L19300" class="LineNr">19300 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 -<span id="L19301" class="LineNr">19301 </span> <span class="subxComment"># var t/eax: (addr typeinfo-entry) = lookup(curr->value)</span> -<span id="L19302" class="LineNr">19302 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> -<span id="L19303" class="LineNr">19303 </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="L19304" class="LineNr">19304 </span> 81 7/subop/compare *eax 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L19305" class="LineNr">19305 </span> 74/jump-if-= $populate-mu-type-sizes-in-type:end/disp8 -<span id="L19306" class="LineNr">19306 </span> <span class="subxComment"># compute size of t->input-var</span> -<span id="L19307" class="LineNr">19307 </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="L19308" class="LineNr">19308 </span> (<a href='mu.subx.html#L19338'>compute-size-of-var</a> %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L19309" class="LineNr">19309 </span> <span class="subxComment"># result += eax</span> -<span id="L19310" class="LineNr">19310 </span> 01/add-to %edi 0/r32/eax -<span id="L19311" class="LineNr">19311 </span> <span class="subxComment"># curr += row-size</span> -<span id="L19312" class="LineNr">19312 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> -<span id="L19313" class="LineNr">19313 </span> <span class="subxComment">#</span> -<span id="L19314" class="LineNr">19314 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L19315" class="LineNr">19315 </span> } -<span id="L19316" class="LineNr">19316 </span> <span class="subxH1Comment"># - save result</span> -<span id="L19317" class="LineNr">19317 </span> 89/<- *(esi+0xc) 7/r32/edi <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L19318" class="LineNr">19318 </span><span class="Constant">$populate-mu-type-sizes-in-type:end</span>: -<span id="L19319" class="LineNr">19319 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19320" class="LineNr">19320 </span> 5f/pop-to-edi -<span id="L19321" class="LineNr">19321 </span> 5e/pop-to-esi -<span id="L19322" class="LineNr">19322 </span> 5a/pop-to-edx -<span id="L19323" class="LineNr">19323 </span> 59/pop-to-ecx -<span id="L19324" class="LineNr">19324 </span> 58/pop-to-eax -<span id="L19325" class="LineNr">19325 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19326" class="LineNr">19326 </span> 89/<- %esp 5/r32/ebp -<span id="L19327" class="LineNr">19327 </span> 5d/pop-to-ebp -<span id="L19328" class="LineNr">19328 </span> c3/return -<span id="L19329" class="LineNr">19329 </span> -<span id="L19330" class="LineNr">19330 </span><span class="Constant">$populate-mu-type-sizes-in-type:abort</span>: -<span id="L19331" class="LineNr">19331 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"cycle in type definitions\n"</span>) -<span id="L19332" class="LineNr">19332 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L19333" class="LineNr">19333 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L19334" class="LineNr">19334 </span> <span class="subxComment"># never gets here</span> -<span id="L19335" class="LineNr">19335 </span> -<span id="L19336" class="LineNr">19336 </span><span class="subxComment"># Analogous to size-of, except we need to compute what size-of can just read</span> -<span id="L19337" class="LineNr">19337 </span><span class="subxComment"># off the right data structures.</span> -<span id="L19338" class="LineNr">19338 </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="L19339" class="LineNr">19339 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19340" class="LineNr">19340 </span> 55/push-ebp -<span id="L19341" class="LineNr">19341 </span> 89/<- %ebp 4/r32/esp -<span id="L19342" class="LineNr">19342 </span> <span class="subxS1Comment"># . push registers</span> -<span id="L19343" class="LineNr">19343 </span> 51/push-ecx -<span id="L19344" class="LineNr">19344 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L19345" class="LineNr">19345 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L19346" class="LineNr">19346 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19347" class="LineNr">19347 </span> 89/<- %ecx 0/r32/eax -<span id="L19348" class="LineNr">19348 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> -<span id="L19349" class="LineNr">19349 </span> { -<span id="L19350" class="LineNr">19350 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L19351" class="LineNr">19351 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L19352" class="LineNr">19352 </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="L19353" class="LineNr">19353 </span> 89/<- %ecx 0/r32/eax -<span id="L19354" class="LineNr">19354 </span> } -<span id="L19355" class="LineNr">19355 </span> <span class="subxComment"># TODO: ensure t is an atom</span> -<span id="L19356" class="LineNr">19356 </span> (<a href='mu.subx.html#L19365'>compute-size-of-type-id</a> *(ecx+4) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L19357" class="LineNr">19357 </span><span class="Constant">$compute-size-of-var:end</span>: -<span id="L19358" class="LineNr">19358 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19359" class="LineNr">19359 </span> 59/pop-to-ecx -<span id="L19360" class="LineNr">19360 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19361" class="LineNr">19361 </span> 89/<- %esp 5/r32/ebp -<span id="L19362" class="LineNr">19362 </span> 5d/pop-to-ebp -<span id="L19363" class="LineNr">19363 </span> c3/return -<span id="L19364" class="LineNr">19364 </span> -<span id="L19365" class="LineNr">19365 </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="L19366" class="LineNr">19366 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19367" class="LineNr">19367 </span> 55/push-ebp -<span id="L19368" class="LineNr">19368 </span> 89/<- %ebp 4/r32/esp -<span id="L19369" class="LineNr">19369 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19370" class="LineNr">19370 </span> 51/push-ecx -<span id="L19371" class="LineNr">19371 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> -<span id="L19372" class="LineNr">19372 </span> 68/push 0/imm32 -<span id="L19373" class="LineNr">19373 </span> 68/push 0/imm32 -<span id="L19374" class="LineNr">19374 </span> 89/<- %ecx 4/r32/esp -<span id="L19375" class="LineNr">19375 </span> <span class="subxComment"># eax = t</span> -<span id="L19376" class="LineNr">19376 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L19377" class="LineNr">19377 </span> <span class="subxComment"># if t is a literal, return 0</span> -<span id="L19378" class="LineNr">19378 </span> 3d/compare-eax-and 0/imm32/literal -<span id="L19379" class="LineNr">19379 </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="L19380" class="LineNr">19380 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> -<span id="L19381" class="LineNr">19381 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L19382" class="LineNr">19382 </span> { -<span id="L19383" class="LineNr">19383 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L19384" class="LineNr">19384 </span> b8/copy-to-eax 4/imm32 -<span id="L19385" class="LineNr">19385 </span> eb/jump $compute-size-of-type-id:end/disp8 -<span id="L19386" class="LineNr">19386 </span> } -<span id="L19387" class="LineNr">19387 </span> <span class="subxComment"># if t is a handle, return 8</span> -<span id="L19388" class="LineNr">19388 </span> 3d/compare-eax-and 4/imm32/handle -<span id="L19389" class="LineNr">19389 </span> { -<span id="L19390" class="LineNr">19390 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L19391" class="LineNr">19391 </span> b8/copy-to-eax 8/imm32 -<span id="L19392" class="LineNr">19392 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L19393" class="LineNr">19393 </span> } -<span id="L19394" class="LineNr">19394 </span> <span class="subxComment"># if t is a slice, return 8</span> -<span id="L19395" class="LineNr">19395 </span> 3d/compare-eax-and 0xc/imm32/slice -<span id="L19396" class="LineNr">19396 </span> { -<span id="L19397" class="LineNr">19397 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L19398" class="LineNr">19398 </span> b8/copy-to-eax 8/imm32 -<span id="L19399" class="LineNr">19399 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L19400" class="LineNr">19400 </span> } -<span id="L19401" class="LineNr">19401 </span> <span class="subxComment"># if t is a user-defined type, compute its size</span> -<span id="L19402" class="LineNr">19402 </span> <span class="subxComment"># TODO: support non-atom type</span> -<span id="L19403" class="LineNr">19403 </span> (<a href='mu.subx.html#L18790'>find-typeinfo</a> %eax %ecx) -<span id="L19404" class="LineNr">19404 </span> { -<span id="L19405" class="LineNr">19405 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L19406" class="LineNr">19406 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19407" class="LineNr">19407 </span><span class="Constant">$compute-size-of-type-id:user-defined</span>: -<span id="L19408" class="LineNr">19408 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L19409" class="LineNr">19409 </span> (<a href='mu.subx.html#L19264'>populate-mu-type-sizes-in-type</a> %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L19410" class="LineNr">19410 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L19411" class="LineNr">19411 </span> eb/jump $compute-size-of-type-id:end/disp8 -<span id="L19412" class="LineNr">19412 </span> } -<span id="L19413" class="LineNr">19413 </span> <span class="subxComment"># otherwise return the word size</span> -<span id="L19414" class="LineNr">19414 </span> b8/copy-to-eax 4/imm32 -<span id="L19415" class="LineNr">19415 </span><span class="Constant">$compute-size-of-type-id:end</span>: -<span id="L19416" class="LineNr">19416 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19417" class="LineNr">19417 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19418" class="LineNr">19418 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19419" class="LineNr">19419 </span> 59/pop-to-ecx -<span id="L19420" class="LineNr">19420 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19421" class="LineNr">19421 </span> 89/<- %esp 5/r32/ebp -<span id="L19422" class="LineNr">19422 </span> 5d/pop-to-ebp -<span id="L19423" class="LineNr">19423 </span> c3/return -<span id="L19424" class="LineNr">19424 </span> -<span id="L19425" class="LineNr">19425 </span><span class="subxComment"># at this point we have total sizes for all user-defined types</span> -<span id="L19426" class="LineNr">19426 </span><span class="subxComment"># compute offsets for each element</span> -<span id="L19427" class="LineNr">19427 </span><span class="subxComment"># complication: fields may be out of order</span> -<span id="L19428" class="LineNr">19428 </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="L19429" class="LineNr">19429 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19430" class="LineNr">19430 </span> 55/push-ebp -<span id="L19431" class="LineNr">19431 </span> 89/<- %ebp 4/r32/esp -<span id="L19432" class="LineNr">19432 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19433" class="LineNr">19433 </span> 50/push-eax -<span id="L19434" class="LineNr">19434 </span> 51/push-ecx -<span id="L19435" class="LineNr">19435 </span> 52/push-edx -<span id="L19436" class="LineNr">19436 </span> 53/push-ebx -<span id="L19437" class="LineNr">19437 </span> 56/push-esi -<span id="L19438" class="LineNr">19438 </span> 57/push-edi -<span id="L19439" class="LineNr">19439 </span><span class="CommentedCode">#? (dump-typeinfos "aaa\n")</span> -<span id="L19440" class="LineNr">19440 </span> <span class="subxComment"># var curr-offset/edi: int = 0</span> -<span id="L19441" class="LineNr">19441 </span> bf/copy-to-edi 0/imm32 -<span id="L19442" class="LineNr">19442 </span> <span class="subxComment"># var table/ecx: (addr table string_key (handle typeinfo-entry)) = lookup(in->fields)</span> -<span id="L19443" class="LineNr">19443 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L19444" class="LineNr">19444 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L19445" class="LineNr">19445 </span> 89/<- %ecx 0/r32/eax -<span id="L19446" class="LineNr">19446 </span> <span class="subxComment"># var num-elems/edx: int = table->write / Typeinfo-fields-row-size</span> -<span id="L19447" class="LineNr">19447 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L19448" class="LineNr">19448 </span> c1 5/subop/shift-right-logical %edx 4/imm8 -<span id="L19449" class="LineNr">19449 </span> <span class="subxComment"># var i/ebx: int = 0</span> -<span id="L19450" class="LineNr">19450 </span> bb/copy-to-ebx 0/imm32 -<span id="L19451" class="LineNr">19451 </span> { -<span id="L19452" class="LineNr">19452 </span><span class="Constant">$populate-mu-type-offsets:loop</span>: -<span id="L19453" class="LineNr">19453 </span> 39/compare %ebx 2/r32/edx -<span id="L19454" class="LineNr">19454 </span> 0f 8d/jump-if->= <span class="Constant">break</span>/disp32 -<span id="L19455" class="LineNr">19455 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up index ")</span> -<span id="L19456" class="LineNr">19456 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L19457" class="LineNr">19457 </span><span class="CommentedCode">#? (write-buffered Stderr " in ")</span> -<span id="L19458" class="LineNr">19458 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L19459" class="LineNr">19459 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L19460" class="LineNr">19460 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L19461" class="LineNr">19461 </span> <span class="subxComment"># var v/esi: (addr typeinfo-entry)</span> -<span id="L19462" class="LineNr">19462 </span> (<a href='mu.subx.html#L19495'>locate-typeinfo-entry-with-index</a> %ecx %ebx *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L19463" class="LineNr">19463 </span> 89/<- %esi 0/r32/eax -<span id="L19464" class="LineNr">19464 </span> <span class="subxComment"># if v is null, silently move on; we'll emit a nice error message while type-checking</span> -<span id="L19465" class="LineNr">19465 </span> 81 7/subop/compare %esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L19466" class="LineNr">19466 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 -<span id="L19467" class="LineNr">19467 </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="L19468" class="LineNr">19468 </span> 81 7/subop/compare *esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L19469" class="LineNr">19469 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 -<span id="L19470" class="LineNr">19470 </span> <span class="subxComment"># v->output-var->offset = curr-offset</span> -<span id="L19471" class="LineNr">19471 </span> <span class="subxS1Comment"># . eax: (addr var)</span> -<span id="L19472" class="LineNr">19472 </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="L19473" class="LineNr">19473 </span> 89/<- *(eax+0x14) 7/r32/edi <span class="subxComment"># Var-offset</span> -<span id="L19474" class="LineNr">19474 </span> <span class="subxComment"># curr-offset += size-of(v->input-var)</span> -<span id="L19475" class="LineNr">19475 </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="L19476" class="LineNr">19476 </span> (<a href='mu.subx.html#L24381'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L19477" class="LineNr">19477 </span> 01/add-to %edi 0/r32/eax -<span id="L19478" class="LineNr">19478 </span> <span class="subxComment"># ++i</span> -<span id="L19479" class="LineNr">19479 </span> 43/increment-ebx -<span id="L19480" class="LineNr">19480 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19481" class="LineNr">19481 </span> } -<span id="L19482" class="LineNr">19482 </span><span class="Constant">$populate-mu-type-offsets:end</span>: -<span id="L19483" class="LineNr">19483 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19484" class="LineNr">19484 </span> 5f/pop-to-edi -<span id="L19485" class="LineNr">19485 </span> 5e/pop-to-esi -<span id="L19486" class="LineNr">19486 </span> 5b/pop-to-ebx -<span id="L19487" class="LineNr">19487 </span> 5a/pop-to-edx -<span id="L19488" class="LineNr">19488 </span> 59/pop-to-ecx -<span id="L19489" class="LineNr">19489 </span> 58/pop-to-eax -<span id="L19490" class="LineNr">19490 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19491" class="LineNr">19491 </span> 89/<- %esp 5/r32/ebp -<span id="L19492" class="LineNr">19492 </span> 5d/pop-to-ebp -<span id="L19493" class="LineNr">19493 </span> c3/return -<span id="L19494" class="LineNr">19494 </span> -<span id="L19495" class="LineNr">19495 </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="L19496" class="LineNr">19496 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19497" class="LineNr">19497 </span> 55/push-ebp -<span id="L19498" class="LineNr">19498 </span> 89/<- %ebp 4/r32/esp -<span id="L19499" class="LineNr">19499 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19500" class="LineNr">19500 </span> 51/push-ecx -<span id="L19501" class="LineNr">19501 </span> 52/push-edx -<span id="L19502" class="LineNr">19502 </span> 53/push-ebx -<span id="L19503" class="LineNr">19503 </span> 56/push-esi -<span id="L19504" class="LineNr">19504 </span> 57/push-edi -<span id="L19505" class="LineNr">19505 </span> <span class="subxComment"># esi = table</span> -<span id="L19506" class="LineNr">19506 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L19507" class="LineNr">19507 </span> <span class="subxComment"># var curr/ecx: (addr row (handle array byte) (handle typeinfo-entry)) = table->data</span> -<span id="L19508" class="LineNr">19508 </span> 8d/copy-address *(esi+0xc) 1/r32/ecx -<span id="L19509" class="LineNr">19509 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> -<span id="L19510" class="LineNr">19510 </span> 8b/-> *esi 2/r32/edx -<span id="L19511" class="LineNr">19511 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L19512" class="LineNr">19512 </span> { -<span id="L19513" class="LineNr">19513 </span><span class="Constant">$locate-typeinfo-entry-with-index:loop</span>: -<span id="L19514" class="LineNr">19514 </span> 39/compare %ecx 2/r32/edx -<span id="L19515" class="LineNr">19515 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 -<span id="L19516" class="LineNr">19516 </span> <span class="subxComment"># var v/eax: (addr typeinfo-entry)</span> -<span id="L19517" class="LineNr">19517 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> -<span id="L19518" class="LineNr">19518 </span> <span class="subxComment"># if (v->index == idx) return v</span> -<span id="L19519" class="LineNr">19519 </span> 8b/-> *(eax+8) 3/r32/ebx <span class="subxComment"># Typeinfo-entry-index</span> -<span id="L19520" class="LineNr">19520 </span><span class="CommentedCode">#? (write-buffered Stderr "comparing ")</span> -<span id="L19521" class="LineNr">19521 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L19522" class="LineNr">19522 </span><span class="CommentedCode">#? (write-buffered Stderr " and ")</span> -<span id="L19523" class="LineNr">19523 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+0xc))</span> -<span id="L19524" class="LineNr">19524 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L19525" class="LineNr">19525 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L19526" class="LineNr">19526 </span> 39/compare *(ebp+0xc) 3/r32/ebx -<span id="L19527" class="LineNr">19527 </span> 74/jump-if-= $locate-typeinfo-entry-with-index:end/disp8 -<span id="L19528" class="LineNr">19528 </span> <span class="subxComment"># curr += Typeinfo-entry-size</span> -<span id="L19529" class="LineNr">19529 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-entry-size</span> -<span id="L19530" class="LineNr">19530 </span> <span class="subxComment">#</span> -<span id="L19531" class="LineNr">19531 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L19532" class="LineNr">19532 </span> } -<span id="L19533" class="LineNr">19533 </span> <span class="subxComment"># return 0</span> -<span id="L19534" class="LineNr">19534 </span> b8/copy-to-eax 0/imm32 -<span id="L19535" class="LineNr">19535 </span><span class="Constant">$locate-typeinfo-entry-with-index:end</span>: -<span id="L19536" class="LineNr">19536 </span><span class="CommentedCode">#? (write-buffered Stderr "returning ")</span> -<span id="L19537" class="LineNr">19537 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L19538" class="LineNr">19538 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L19539" class="LineNr">19539 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L19540" class="LineNr">19540 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19541" class="LineNr">19541 </span> 5f/pop-to-edi -<span id="L19542" class="LineNr">19542 </span> 5e/pop-to-esi -<span id="L19543" class="LineNr">19543 </span> 5b/pop-to-ebx -<span id="L19544" class="LineNr">19544 </span> 5a/pop-to-edx -<span id="L19545" class="LineNr">19545 </span> 59/pop-to-ecx -<span id="L19546" class="LineNr">19546 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19547" class="LineNr">19547 </span> 89/<- %esp 5/r32/ebp -<span id="L19548" class="LineNr">19548 </span> 5d/pop-to-ebp -<span id="L19549" class="LineNr">19549 </span> c3/return -<span id="L19550" class="LineNr">19550 </span> -<span id="L19551" class="LineNr">19551 </span><span class="subxFunction">dump-typeinfos</span>: <span class="subxComment"># hdr: (addr array byte)</span> -<span id="L19552" class="LineNr">19552 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19553" class="LineNr">19553 </span> 55/push-ebp -<span id="L19554" class="LineNr">19554 </span> 89/<- %ebp 4/r32/esp -<span id="L19555" class="LineNr">19555 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19556" class="LineNr">19556 </span> 50/push-eax -<span id="L19557" class="LineNr">19557 </span> <span class="subxComment">#</span> -<span id="L19558" class="LineNr">19558 </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="L19559" class="LineNr">19559 </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="L19560" class="LineNr">19560 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> -<span id="L19561" class="LineNr">19561 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L19562" class="LineNr">19562 </span> { -<span id="L19563" class="LineNr">19563 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L19564" class="LineNr">19564 </span> 3d/compare-eax-and 0/imm32 -<span id="L19565" class="LineNr">19565 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19566" class="LineNr">19566 </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="L19567" class="LineNr">19567 </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="L19568" class="LineNr">19568 </span> (<a href='mu.subx.html#L19581'>dump-typeinfo</a> %eax) -<span id="L19569" class="LineNr">19569 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L19570" class="LineNr">19570 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L19571" class="LineNr">19571 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L19572" class="LineNr">19572 </span> } -<span id="L19573" class="LineNr">19573 </span><span class="Constant">$dump-typeinfos:end</span>: -<span id="L19574" class="LineNr">19574 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19575" class="LineNr">19575 </span> 58/pop-to-eax -<span id="L19576" class="LineNr">19576 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19577" class="LineNr">19577 </span> 89/<- %esp 5/r32/ebp -<span id="L19578" class="LineNr">19578 </span> 5d/pop-to-ebp -<span id="L19579" class="LineNr">19579 </span> c3/return -<span id="L19580" class="LineNr">19580 </span> -<span id="L19581" class="LineNr">19581 </span><span class="subxFunction">dump-typeinfo</span>: <span class="subxComment"># in: (addr typeinfo)</span> -<span id="L19582" class="LineNr">19582 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19583" class="LineNr">19583 </span> 55/push-ebp -<span id="L19584" class="LineNr">19584 </span> 89/<- %ebp 4/r32/esp -<span id="L19585" class="LineNr">19585 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19586" class="LineNr">19586 </span> 50/push-eax -<span id="L19587" class="LineNr">19587 </span> 51/push-ecx -<span id="L19588" class="LineNr">19588 </span> 52/push-edx -<span id="L19589" class="LineNr">19589 </span> 53/push-ebx -<span id="L19590" class="LineNr">19590 </span> 56/push-esi -<span id="L19591" class="LineNr">19591 </span> 57/push-edi -<span id="L19592" class="LineNr">19592 </span> <span class="subxComment"># esi = in</span> -<span id="L19593" class="LineNr">19593 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L19594" class="LineNr">19594 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> -<span id="L19595" class="LineNr">19595 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L19596" class="LineNr">19596 </span> 89/<- %ecx 0/r32/eax -<span id="L19597" class="LineNr">19597 </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="L19598" class="LineNr">19598 </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="L19599" class="LineNr">19599 </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="L19600" class="LineNr">19600 </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="L19601" class="LineNr">19601 </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="L19602" class="LineNr">19602 </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="L19603" class="LineNr">19603 </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="L19604" class="LineNr">19604 </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="L19605" class="LineNr">19605 </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="L19606" class="LineNr">19606 </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="L19607" class="LineNr">19607 </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="L19608" class="LineNr">19608 </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="L19609" class="LineNr">19609 </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="L19610" class="LineNr">19610 </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="L19611" class="LineNr">19611 </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="L19612" class="LineNr">19612 </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="L19613" class="LineNr">19613 </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="L19614" class="LineNr">19614 </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="L19615" class="LineNr">19615 </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="L19616" class="LineNr">19616 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> -<span id="L19617" class="LineNr">19617 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L19618" class="LineNr">19618 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> -<span id="L19619" class="LineNr">19619 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx -<span id="L19620" class="LineNr">19620 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> -<span id="L19621" class="LineNr">19621 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L19622" class="LineNr">19622 </span> { -<span id="L19623" class="LineNr">19623 </span><span class="Constant">$dump-typeinfo:loop</span>: -<span id="L19624" class="LineNr">19624 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L19625" class="LineNr">19625 </span> 39/compare %ecx 2/r32/edx -<span id="L19626" class="LineNr">19626 </span> 0f 83/jump-if-addr>= <span class="Constant">break</span>/disp32 -<span id="L19627" class="LineNr">19627 </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="L19628" class="LineNr">19628 </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="L19629" class="LineNr">19629 </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="L19630" class="LineNr">19630 </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="L19631" class="LineNr">19631 </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="L19632" class="LineNr">19632 </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="L19633" class="LineNr">19633 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) -<span id="L19634" class="LineNr">19634 </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="L19635" class="LineNr">19635 </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="L19636" class="LineNr">19636 </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="L19637" class="LineNr">19637 </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="L19638" class="LineNr">19638 </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="L19639" class="LineNr">19639 </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="L19640" class="LineNr">19640 </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="L19641" class="LineNr">19641 </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="L19642" class="LineNr">19642 </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="L19643" class="LineNr">19643 </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="L19644" class="LineNr">19644 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) -<span id="L19645" class="LineNr">19645 </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="L19646" class="LineNr">19646 </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="L19647" class="LineNr">19647 </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="L19648" class="LineNr">19648 </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="L19649" class="LineNr">19649 </span> (<a href='mu.subx.html#L19677'>dump-var</a> 5 %eax) -<span id="L19650" class="LineNr">19650 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) -<span id="L19651" class="LineNr">19651 </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="L19652" class="LineNr">19652 </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="L19653" class="LineNr">19653 </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="L19654" class="LineNr">19654 </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="L19655" class="LineNr">19655 </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="L19656" class="LineNr">19656 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L19657" class="LineNr">19657 </span> (<a href='mu.subx.html#L19677'>dump-var</a> 5 %eax) -<span id="L19658" class="LineNr">19658 </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="L19659" class="LineNr">19659 </span> <span class="subxComment"># curr += row-size</span> -<span id="L19660" class="LineNr">19660 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> -<span id="L19661" class="LineNr">19661 </span> <span class="subxComment">#</span> -<span id="L19662" class="LineNr">19662 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19663" class="LineNr">19663 </span> } -<span id="L19664" class="LineNr">19664 </span><span class="Constant">$dump-typeinfo:end</span>: -<span id="L19665" class="LineNr">19665 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19666" class="LineNr">19666 </span> 5f/pop-to-edi -<span id="L19667" class="LineNr">19667 </span> 5e/pop-to-esi -<span id="L19668" class="LineNr">19668 </span> 5b/pop-to-ebx -<span id="L19669" class="LineNr">19669 </span> 5a/pop-to-edx -<span id="L19670" class="LineNr">19670 </span> 59/pop-to-ecx -<span id="L19671" class="LineNr">19671 </span> 58/pop-to-eax -<span id="L19672" class="LineNr">19672 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19673" class="LineNr">19673 </span> 89/<- %esp 5/r32/ebp -<span id="L19674" class="LineNr">19674 </span> 5d/pop-to-ebp -<span id="L19675" class="LineNr">19675 </span> c3/return -<span id="L19676" class="LineNr">19676 </span> -<span id="L19677" class="LineNr">19677 </span><span class="subxFunction">dump-var</span>: <span class="subxComment"># indent: int, v: (addr handle var)</span> -<span id="L19678" class="LineNr">19678 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19679" class="LineNr">19679 </span> 55/push-ebp -<span id="L19680" class="LineNr">19680 </span> 89/<- %ebp 4/r32/esp -<span id="L19681" class="LineNr">19681 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19682" class="LineNr">19682 </span> 50/push-eax -<span id="L19683" class="LineNr">19683 </span> 53/push-ebx -<span id="L19684" class="LineNr">19684 </span> <span class="subxComment"># eax = v</span> -<span id="L19685" class="LineNr">19685 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L19686" class="LineNr">19686 </span> <span class="subxComment">#</span> -<span id="L19687" class="LineNr">19687 </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="L19688" class="LineNr">19688 </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="L19689" class="LineNr">19689 </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="L19690" class="LineNr">19690 </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="L19691" class="LineNr">19691 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) -<span id="L19692" class="LineNr">19692 </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="L19693" class="LineNr">19693 </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="L19694" class="LineNr">19694 </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="L19695" class="LineNr">19695 </span> { -<span id="L19696" class="LineNr">19696 </span> 3d/compare-eax-and 0/imm32 -<span id="L19697" class="LineNr">19697 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L19698" class="LineNr">19698 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L19699" class="LineNr">19699 </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="L19700" class="LineNr">19700 </span> 89/<- %ebx 0/r32/eax -<span id="L19701" class="LineNr">19701 </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="L19702" class="LineNr">19702 </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="L19703" class="LineNr">19703 </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="L19704" class="LineNr">19704 </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="L19705" class="LineNr">19705 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name</span> -<span id="L19706" class="LineNr">19706 </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="L19707" class="LineNr">19707 </span> { -<span id="L19708" class="LineNr">19708 </span> 3d/compare-eax-and 0/imm32 -<span id="L19709" class="LineNr">19709 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19710" class="LineNr">19710 </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="L19711" class="LineNr">19711 </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="L19712" class="LineNr">19712 </span> } -<span id="L19713" class="LineNr">19713 </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="L19714" class="LineNr">19714 </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="L19715" class="LineNr">19715 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L19716" class="LineNr">19716 </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="L19717" class="LineNr">19717 </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="L19718" class="LineNr">19718 </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="L19719" class="LineNr">19719 </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="L19720" class="LineNr">19720 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L19721" class="LineNr">19721 </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="L19722" class="LineNr">19722 </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="L19723" class="LineNr">19723 </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="L19724" class="LineNr">19724 </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="L19725" class="LineNr">19725 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L19726" class="LineNr">19726 </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="L19727" class="LineNr">19727 </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="L19728" class="LineNr">19728 </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="L19729" class="LineNr">19729 </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="L19730" class="LineNr">19730 </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="L19731" class="LineNr">19731 </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="L19732" class="LineNr">19732 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register</span> -<span id="L19733" class="LineNr">19733 </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="L19734" class="LineNr">19734 </span> { -<span id="L19735" class="LineNr">19735 </span> 3d/compare-eax-and 0/imm32 -<span id="L19736" class="LineNr">19736 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19737" class="LineNr">19737 </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="L19738" class="LineNr">19738 </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="L19739" class="LineNr">19739 </span> } -<span id="L19740" class="LineNr">19740 </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="L19741" class="LineNr">19741 </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="L19742" class="LineNr">19742 </span> } -<span id="L19743" class="LineNr">19743 </span><span class="Constant">$dump-var:end</span>: -<span id="L19744" class="LineNr">19744 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19745" class="LineNr">19745 </span> 5b/pop-to-ebx -<span id="L19746" class="LineNr">19746 </span> 58/pop-to-eax -<span id="L19747" class="LineNr">19747 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19748" class="LineNr">19748 </span> 89/<- %esp 5/r32/ebp -<span id="L19749" class="LineNr">19749 </span> 5d/pop-to-ebp -<span id="L19750" class="LineNr">19750 </span> c3/return -<span id="L19751" class="LineNr">19751 </span> -<span id="L19752" class="LineNr">19752 </span><span class="subxComment">#######################################################</span> -<span id="L19753" class="LineNr">19753 </span><span class="subxComment"># Type-checking</span> -<span id="L19754" class="LineNr">19754 </span><span class="subxComment">#######################################################</span> -<span id="L19755" class="LineNr">19755 </span> -<span id="L19756" class="LineNr">19756 </span><span class="subxFunction">check-mu-types</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L19757" class="LineNr">19757 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19758" class="LineNr">19758 </span> 55/push-ebp -<span id="L19759" class="LineNr">19759 </span> 89/<- %ebp 4/r32/esp -<span id="L19760" class="LineNr">19760 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19761" class="LineNr">19761 </span> 50/push-eax -<span id="L19762" class="LineNr">19762 </span> <span class="subxComment"># var curr/eax: (addr function) = lookup(Program->functions)</span> -<span id="L19763" class="LineNr">19763 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L19764" class="LineNr">19764 </span> { -<span id="L19765" class="LineNr">19765 </span><span class="Constant">$check-mu-types:loop</span>: -<span id="L19766" class="LineNr">19766 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L19767" class="LineNr">19767 </span> 3d/compare-eax-and 0/imm32 -<span id="L19768" class="LineNr">19768 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L19769" class="Folded">19769 </span><span class="Folded">+-- 8 lines: #? # dump curr->name ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L19777" class="LineNr">19777 </span> (<a href='mu.subx.html#L19790'>check-mu-function</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L19778" class="LineNr">19778 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L19779" class="LineNr">19779 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L19780" class="LineNr">19780 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19781" class="LineNr">19781 </span> } -<span id="L19782" class="LineNr">19782 </span><span class="Constant">$check-mu-types:end</span>: -<span id="L19783" class="LineNr">19783 </span> <span class="subxS1Comment"># . restore registers</span> -<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">check-mu-function</span>: <span class="subxComment"># fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</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> 56/push-esi -<span id="L19797" class="LineNr">19797 </span> <span class="subxComment"># esi = f</span> -<span id="L19798" class="LineNr">19798 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L19799" class="LineNr">19799 </span> <span class="subxComment"># outputs</span> -<span id="L19800" class="LineNr">19800 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x10) *(esi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L19801" class="LineNr">19801 </span> (<a href='mu.subx.html#L21385'>check-all-unique-registers</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) -<span id="L19802" class="LineNr">19802 </span> <span class="subxComment"># body</span> -<span id="L19803" class="LineNr">19803 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> -<span id="L19804" class="LineNr">19804 </span> (<a href='mu.subx.html#L19820'>check-mu-block</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10)) -<span id="L19805" class="LineNr">19805 </span> <span class="subxComment"># if function has no outputs, we're done</span> -<span id="L19806" class="LineNr">19806 </span> 81 7/subop/compare *(esi+0x10) 0/imm32 -<span id="L19807" class="LineNr">19807 </span> 74/jump-if-= $check-mu-function:end/disp8 -<span id="L19808" class="LineNr">19808 </span> <span class="subxComment"># some final checks on body</span> -<span id="L19809" class="LineNr">19809 </span> (<a href='mu.subx.html#L21598'>check-final-stmt-is-return</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) -<span id="L19810" class="LineNr">19810 </span> (<a href='mu.subx.html#L21650'>check-no-breaks</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) -<span id="L19811" class="LineNr">19811 </span><span class="Constant">$check-mu-function:end</span>: -<span id="L19812" class="LineNr">19812 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19813" class="LineNr">19813 </span> 5e/pop-to-esi -<span id="L19814" class="LineNr">19814 </span> 58/pop-to-eax -<span id="L19815" class="LineNr">19815 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19816" class="LineNr">19816 </span> 89/<- %esp 5/r32/ebp -<span id="L19817" class="LineNr">19817 </span> 5d/pop-to-ebp -<span id="L19818" class="LineNr">19818 </span> c3/return -<span id="L19819" class="LineNr">19819 </span> -<span id="L19820" class="LineNr">19820 </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="L19821" class="LineNr">19821 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19822" class="LineNr">19822 </span> 55/push-ebp -<span id="L19823" class="LineNr">19823 </span> 89/<- %ebp 4/r32/esp -<span id="L19824" class="LineNr">19824 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19825" class="LineNr">19825 </span> 50/push-eax -<span id="L19826" class="LineNr">19826 </span> <span class="subxComment"># eax = block</span> -<span id="L19827" class="LineNr">19827 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L19828" class="LineNr">19828 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> -<span id="L19829" class="LineNr">19829 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L19830" class="LineNr">19830 </span> <span class="subxComment">#</span> -<span id="L19831" class="LineNr">19831 </span> { -<span id="L19832" class="LineNr">19832 </span><span class="Constant">$check-mu-block:check-empty</span>: -<span id="L19833" class="LineNr">19833 </span> 3d/compare-eax-and 0/imm32 -<span id="L19834" class="LineNr">19834 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L19835" class="LineNr">19835 </span> <span class="subxComment"># emit block->statements</span> -<span id="L19836" class="LineNr">19836 </span> (<a href='mu.subx.html#L19846'>check-mu-stmt-list</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L19837" class="LineNr">19837 </span> } -<span id="L19838" class="LineNr">19838 </span><span class="Constant">$check-mu-block:end</span>: -<span id="L19839" class="LineNr">19839 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19840" class="LineNr">19840 </span> 58/pop-to-eax -<span id="L19841" class="LineNr">19841 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19842" class="LineNr">19842 </span> 89/<- %esp 5/r32/ebp -<span id="L19843" class="LineNr">19843 </span> 5d/pop-to-ebp -<span id="L19844" class="LineNr">19844 </span> c3/return -<span id="L19845" class="LineNr">19845 </span> -<span id="L19846" class="LineNr">19846 </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="L19847" class="LineNr">19847 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19848" class="LineNr">19848 </span> 55/push-ebp -<span id="L19849" class="LineNr">19849 </span> 89/<- %ebp 4/r32/esp -<span id="L19850" class="LineNr">19850 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19851" class="LineNr">19851 </span> 50/push-eax -<span id="L19852" class="LineNr">19852 </span> 56/push-esi -<span id="L19853" class="LineNr">19853 </span> <span class="subxComment"># esi = stmts</span> -<span id="L19854" class="LineNr">19854 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L19855" class="LineNr">19855 </span> { -<span id="L19856" class="LineNr">19856 </span><span class="Constant">$check-mu-stmt-list:loop</span>: -<span id="L19857" class="LineNr">19857 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L19858" class="LineNr">19858 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L19859" class="LineNr">19859 </span> <span class="subxComment"># var curr-stmt/eax: (addr stmt) = lookup(stmts->value)</span> -<span id="L19860" class="LineNr">19860 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L19861" class="LineNr">19861 </span> { -<span id="L19862" class="LineNr">19862 </span><span class="Constant">$check-mu-stmt-list:check-for-block</span>: -<span id="L19863" class="LineNr">19863 </span> 81 7/subop/compare *eax 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L19864" class="LineNr">19864 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L19865" class="LineNr">19865 </span><span class="Constant">$check-mu-stmt-list:block</span>: -<span id="L19866" class="LineNr">19866 </span> (<a href='mu.subx.html#L19820'>check-mu-block</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L19867" class="LineNr">19867 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L19868" class="LineNr">19868 </span> } -<span id="L19869" class="LineNr">19869 </span> { -<span id="L19870" class="LineNr">19870 </span><span class="Constant">$check-mu-stmt-list:check-for-stmt1</span>: -<span id="L19871" class="LineNr">19871 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L19872" class="LineNr">19872 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L19873" class="LineNr">19873 </span><span class="Constant">$check-mu-stmt-list:stmt1</span>: -<span id="L19874" class="LineNr">19874 </span> (<a href='mu.subx.html#L19900'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L19875" class="LineNr">19875 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L19876" class="LineNr">19876 </span> } -<span id="L19877" class="LineNr">19877 </span> { -<span id="L19878" class="LineNr">19878 </span><span class="Constant">$check-mu-stmt-list:check-for-reg-var-def</span>: -<span id="L19879" class="LineNr">19879 </span> 81 7/subop/compare *eax 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> -<span id="L19880" class="LineNr">19880 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L19881" class="LineNr">19881 </span><span class="Constant">$check-mu-stmt-list:reg-var-def</span>: -<span id="L19882" class="LineNr">19882 </span> (<a href='mu.subx.html#L19900'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L19883" class="LineNr">19883 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L19884" class="LineNr">19884 </span> } -<span id="L19885" class="LineNr">19885 </span><span class="Constant">$check-mu-stmt-list:continue</span>: -<span id="L19886" class="LineNr">19886 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> -<span id="L19887" class="LineNr">19887 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L19888" class="LineNr">19888 </span> 89/<- %esi 0/r32/eax -<span id="L19889" class="LineNr">19889 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19890" class="LineNr">19890 </span> } -<span id="L19891" class="LineNr">19891 </span><span class="Constant">$check-mu-stmt-list:end</span>: -<span id="L19892" class="LineNr">19892 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19893" class="LineNr">19893 </span> 5e/pop-to-esi -<span id="L19894" class="LineNr">19894 </span> 58/pop-to-eax -<span id="L19895" class="LineNr">19895 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19896" class="LineNr">19896 </span> 89/<- %esp 5/r32/ebp -<span id="L19897" class="LineNr">19897 </span> 5d/pop-to-ebp -<span id="L19898" class="LineNr">19898 </span> c3/return -<span id="L19899" class="LineNr">19899 </span> -<span id="L19900" class="LineNr">19900 </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="L19901" class="LineNr">19901 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19902" class="LineNr">19902 </span> 55/push-ebp -<span id="L19903" class="LineNr">19903 </span> 89/<- %ebp 4/r32/esp -<span id="L19904" class="LineNr">19904 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19905" class="LineNr">19905 </span> 50/push-eax -<span id="L19906" class="LineNr">19906 </span> <span class="subxH1Comment"># - if stmt's operation matches a primitive, check against it</span> -<span id="L19907" class="LineNr">19907 </span> (<a href='mu.subx.html#L19953'>has-primitive-name?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L19908" class="LineNr">19908 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19909" class="LineNr">19909 </span> { -<span id="L19910" class="LineNr">19910 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19911" class="LineNr">19911 </span> (<a href='mu.subx.html#L20045'>check-mu-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L19912" class="LineNr">19912 </span> e9/jump $check-mu-stmt:end/disp32 -<span id="L19913" class="LineNr">19913 </span> } -<span id="L19914" class="LineNr">19914 </span> <span class="subxH1Comment"># - otherwise find a function to check against</span> -<span id="L19915" class="LineNr">19915 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->functions)</span> -<span id="L19916" class="LineNr">19916 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L19917" class="LineNr">19917 </span> (<a href='mu.subx.html#L33341'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L19918" class="LineNr">19918 </span> 3d/compare-eax-and 0/imm32 -<span id="L19919" class="LineNr">19919 </span> { -<span id="L19920" class="LineNr">19920 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19921" class="LineNr">19921 </span> (<a href='mu.subx.html#L23924'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L19922" class="LineNr">19922 </span> eb/jump $check-mu-stmt:end/disp8 -<span id="L19923" class="LineNr">19923 </span> } -<span id="L19924" class="LineNr">19924 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->signatures)</span> -<span id="L19925" class="LineNr">19925 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> -<span id="L19926" class="LineNr">19926 </span> (<a href='mu.subx.html#L33341'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L19927" class="LineNr">19927 </span> 3d/compare-eax-and 0/imm32 -<span id="L19928" class="LineNr">19928 </span> { -<span id="L19929" class="LineNr">19929 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19930" class="LineNr">19930 </span> (<a href='mu.subx.html#L23924'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L19931" class="LineNr">19931 </span> eb/jump $check-mu-stmt:end/disp8 -<span id="L19932" class="LineNr">19932 </span> } -<span id="L19933" class="LineNr">19933 </span> <span class="subxH1Comment"># - otherwise abort</span> -<span id="L19934" class="LineNr">19934 </span> e9/jump $check-mu-stmt:unknown-call/disp32 -<span id="L19935" class="LineNr">19935 </span><span class="Constant">$check-mu-stmt:end</span>: -<span id="L19936" class="LineNr">19936 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19937" class="LineNr">19937 </span> 58/pop-to-eax -<span id="L19938" class="LineNr">19938 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19939" class="LineNr">19939 </span> 89/<- %esp 5/r32/ebp -<span id="L19940" class="LineNr">19940 </span> 5d/pop-to-ebp -<span id="L19941" class="LineNr">19941 </span> c3/return -<span id="L19942" class="LineNr">19942 </span> -<span id="L19943" class="LineNr">19943 </span><span class="Constant">$check-mu-stmt:unknown-call</span>: -<span id="L19944" class="LineNr">19944 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"unknown function '"</span>) -<span id="L19945" class="LineNr">19945 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L19946" class="LineNr">19946 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L19947" class="LineNr">19947 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L19948" class="LineNr">19948 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L19949" class="LineNr">19949 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L19950" class="LineNr">19950 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L19951" class="LineNr">19951 </span> <span class="subxComment"># never gets here</span> -<span id="L19952" class="LineNr">19952 </span> -<span id="L19953" class="LineNr">19953 </span><span class="subxFunction">has-primitive-name?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> -<span id="L19954" class="LineNr">19954 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19955" class="LineNr">19955 </span> 55/push-ebp -<span id="L19956" class="LineNr">19956 </span> 89/<- %ebp 4/r32/esp -<span id="L19957" class="LineNr">19957 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19958" class="LineNr">19958 </span> 51/push-ecx -<span id="L19959" class="LineNr">19959 </span> 56/push-esi -<span id="L19960" class="LineNr">19960 </span> <span class="subxComment"># var name/esi: (addr array byte) = lookup(stmt->operation)</span> -<span id="L19961" class="LineNr">19961 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L19962" class="LineNr">19962 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L19963" class="LineNr">19963 </span> 89/<- %esi 0/r32/eax -<span id="L19964" class="LineNr">19964 </span> <span class="subxComment"># if (name == "return") return true</span> -<span id="L19965" class="LineNr">19965 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> -<span id="L19966" class="LineNr">19966 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19967" class="LineNr">19967 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L19968" class="LineNr">19968 </span> <span class="subxComment"># if (name == "get") return true</span> -<span id="L19969" class="LineNr">19969 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L19970" class="LineNr">19970 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19971" class="LineNr">19971 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L19972" class="LineNr">19972 </span> <span class="subxComment"># if (name == "index") return true</span> -<span id="L19973" class="LineNr">19973 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L19974" class="LineNr">19974 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19975" class="LineNr">19975 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L19976" class="LineNr">19976 </span> <span class="subxComment"># if (name == "length") return true</span> -<span id="L19977" class="LineNr">19977 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L19978" class="LineNr">19978 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19979" class="LineNr">19979 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L19980" class="LineNr">19980 </span> <span class="subxComment"># if (name == "compute-offset") return true</span> -<span id="L19981" class="LineNr">19981 </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="L19982" class="LineNr">19982 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19983" class="LineNr">19983 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L19984" class="LineNr">19984 </span> <span class="subxComment"># if (name == "copy-object") return true</span> -<span id="L19985" class="LineNr">19985 </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="L19986" class="LineNr">19986 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19987" class="LineNr">19987 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L19988" class="LineNr">19988 </span> <span class="subxComment"># if (name == "clear-object") return true</span> -<span id="L19989" class="LineNr">19989 </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="L19990" class="LineNr">19990 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19991" class="LineNr">19991 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L19992" class="LineNr">19992 </span> <span class="subxComment"># if (name == "allocate") return true</span> -<span id="L19993" class="LineNr">19993 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L19994" class="LineNr">19994 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19995" class="LineNr">19995 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L19996" class="LineNr">19996 </span> <span class="subxComment"># if (name == "populate") return true</span> -<span id="L19997" class="LineNr">19997 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L19998" class="LineNr">19998 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19999" class="LineNr">19999 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L20000" class="LineNr">20000 </span> <span class="subxComment"># if (name == "populate-stream") return true</span> -<span id="L20001" class="LineNr">20001 </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="L20002" class="LineNr">20002 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20003" class="LineNr">20003 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L20004" class="LineNr">20004 </span> <span class="subxComment"># if (name == "read-from-stream") return true</span> -<span id="L20005" class="LineNr">20005 </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="L20006" class="LineNr">20006 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20007" class="LineNr">20007 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L20008" class="LineNr">20008 </span> <span class="subxComment"># if (name == "write-to-stream") return true</span> -<span id="L20009" class="LineNr">20009 </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="L20010" class="LineNr">20010 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20011" class="LineNr">20011 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L20012" class="LineNr">20012 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = Primitives</span> -<span id="L20013" class="LineNr">20013 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='mu.subx.html#L27949'>Primitives</a></span>/imm32 -<span id="L20014" class="LineNr">20014 </span> { -<span id="L20015" class="LineNr">20015 </span><span class="Constant">$has-primitive-name?:loop</span>: -<span id="L20016" class="LineNr">20016 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L20017" class="LineNr">20017 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L20018" class="LineNr">20018 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20019" class="LineNr">20019 </span> <span class="subxComment"># if (primitive->name == name) return true</span> -<span id="L20020" class="LineNr">20020 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> -<span id="L20021" class="LineNr">20021 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L20022" class="LineNr">20022 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20023" class="LineNr">20023 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20024" class="LineNr">20024 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L20025" class="LineNr">20025 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20026" class="LineNr">20026 </span> 75/jump-if-!= $has-primitive-name?:end/disp8 -<span id="L20027" class="LineNr">20027 </span><span class="Constant">$has-primitive-name?:next-primitive</span>: -<span id="L20028" class="LineNr">20028 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L20029" class="LineNr">20029 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> -<span id="L20030" class="LineNr">20030 </span> 89/<- %ecx 0/r32/eax -<span id="L20031" class="LineNr">20031 </span> <span class="subxComment">#</span> -<span id="L20032" class="LineNr">20032 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L20033" class="LineNr">20033 </span> } -<span id="L20034" class="LineNr">20034 </span> <span class="subxComment"># return null</span> -<span id="L20035" class="LineNr">20035 </span> b8/copy-to-eax 0/imm32 -<span id="L20036" class="LineNr">20036 </span><span class="Constant">$has-primitive-name?:end</span>: -<span id="L20037" class="LineNr">20037 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20038" class="LineNr">20038 </span> 5e/pop-to-esi -<span id="L20039" class="LineNr">20039 </span> 59/pop-to-ecx -<span id="L20040" class="LineNr">20040 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20041" class="LineNr">20041 </span> 89/<- %esp 5/r32/ebp -<span id="L20042" class="LineNr">20042 </span> 5d/pop-to-ebp -<span id="L20043" class="LineNr">20043 </span> c3/return -<span id="L20044" class="LineNr">20044 </span> -<span id="L20045" class="LineNr">20045 </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="L20046" class="LineNr">20046 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20047" class="LineNr">20047 </span> 55/push-ebp -<span id="L20048" class="LineNr">20048 </span> 89/<- %ebp 4/r32/esp -<span id="L20049" class="LineNr">20049 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20050" class="LineNr">20050 </span> 50/push-eax -<span id="L20051" class="LineNr">20051 </span> 51/push-ecx -<span id="L20052" class="LineNr">20052 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L20053" class="LineNr">20053 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20054" class="LineNr">20054 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L20055" class="LineNr">20055 </span> 89/<- %ecx 0/r32/eax -<span id="L20056" class="LineNr">20056 </span> <span class="subxComment"># if (op == "copy") check-mu-copy-stmt</span> -<span id="L20057" class="LineNr">20057 </span> { -<span id="L20058" class="LineNr">20058 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> -<span id="L20059" class="LineNr">20059 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20060" class="LineNr">20060 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20061" class="LineNr">20061 </span> (<a href='mu.subx.html#L20448'>check-mu-copy-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20062" class="LineNr">20062 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20063" class="LineNr">20063 </span> } -<span id="L20064" class="LineNr">20064 </span> <span class="subxComment"># if (op == "copy-to") check-mu-copy-to-stmt</span> -<span id="L20065" class="LineNr">20065 </span> { -<span id="L20066" class="LineNr">20066 </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="L20067" class="LineNr">20067 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20068" class="LineNr">20068 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20069" class="LineNr">20069 </span> (<a href='mu.subx.html#L20639'>check-mu-copy-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20070" class="LineNr">20070 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20071" class="LineNr">20071 </span> } -<span id="L20072" class="LineNr">20072 </span> <span class="subxComment"># if (op == "compare") check-mu-compare-stmt</span> -<span id="L20073" class="LineNr">20073 </span> { -<span id="L20074" class="LineNr">20074 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compare"</span>) <span class="subxComment"># => eax</span> -<span id="L20075" class="LineNr">20075 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20076" class="LineNr">20076 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20077" class="LineNr">20077 </span> (<a href='mu.subx.html#L20802'>check-mu-compare-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20078" class="LineNr">20078 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20079" class="LineNr">20079 </span> } -<span id="L20080" class="LineNr">20080 </span> <span class="subxComment"># if (op == "address") check-mu-address-stmt</span> -<span id="L20081" class="LineNr">20081 </span> { -<span id="L20082" class="LineNr">20082 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"address"</span>) <span class="subxComment"># => eax</span> -<span id="L20083" class="LineNr">20083 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20084" class="LineNr">20084 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20085" class="LineNr">20085 </span> (<a href='mu.subx.html#L21007'>check-mu-address-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20086" class="LineNr">20086 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20087" class="LineNr">20087 </span> } -<span id="L20088" class="LineNr">20088 </span> <span class="subxComment"># if (op == "return") check-mu-return-stmt</span> -<span id="L20089" class="LineNr">20089 </span> { -<span id="L20090" class="LineNr">20090 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> -<span id="L20091" class="LineNr">20091 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20092" class="LineNr">20092 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20093" class="LineNr">20093 </span> (<a href='mu.subx.html#L21251'>check-mu-return-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20094" class="LineNr">20094 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20095" class="LineNr">20095 </span> } -<span id="L20096" class="LineNr">20096 </span> <span class="subxComment"># if (op == "get") check-mu-get-stmt</span> -<span id="L20097" class="LineNr">20097 </span> { -<span id="L20098" class="LineNr">20098 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L20099" class="LineNr">20099 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20100" class="LineNr">20100 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20101" class="LineNr">20101 </span> (<a href='mu.subx.html#L21702'>check-mu-get-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20102" class="LineNr">20102 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20103" class="LineNr">20103 </span> } -<span id="L20104" class="LineNr">20104 </span> <span class="subxComment"># if (op == "index") check-mu-index-stmt</span> -<span id="L20105" class="LineNr">20105 </span> { -<span id="L20106" class="LineNr">20106 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L20107" class="LineNr">20107 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20108" class="LineNr">20108 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20109" class="LineNr">20109 </span> (<a href='mu.subx.html#L21997'>check-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20110" class="LineNr">20110 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20111" class="LineNr">20111 </span> } -<span id="L20112" class="LineNr">20112 </span> <span class="subxComment"># if (op == "length") check-mu-length-stmt</span> -<span id="L20113" class="LineNr">20113 </span> { -<span id="L20114" class="LineNr">20114 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L20115" class="LineNr">20115 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20116" class="LineNr">20116 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20117" class="LineNr">20117 </span> (<a href='mu.subx.html#L22380'>check-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20118" class="LineNr">20118 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20119" class="LineNr">20119 </span> } -<span id="L20120" class="LineNr">20120 </span> <span class="subxComment"># if (op == "compute-offset") check-mu-compute-offset-stmt</span> -<span id="L20121" class="LineNr">20121 </span> { -<span id="L20122" class="LineNr">20122 </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="L20123" class="LineNr">20123 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20124" class="LineNr">20124 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20125" class="LineNr">20125 </span> (<a href='mu.subx.html#L22670'>check-mu-compute-offset-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20126" class="LineNr">20126 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20127" class="LineNr">20127 </span> } -<span id="L20128" class="LineNr">20128 </span> <span class="subxComment"># if (op == "copy-object") check-mu-copy-object-stmt</span> -<span id="L20129" class="LineNr">20129 </span> { -<span id="L20130" class="LineNr">20130 </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="L20131" class="LineNr">20131 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20132" class="LineNr">20132 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20133" class="LineNr">20133 </span> (<a href='mu.subx.html#L22958'>check-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20134" class="LineNr">20134 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20135" class="LineNr">20135 </span> } -<span id="L20136" class="LineNr">20136 </span> <span class="subxComment"># if (op == "clear-object") check-mu-clear-object-stmt</span> -<span id="L20137" class="LineNr">20137 </span> { -<span id="L20138" class="LineNr">20138 </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="L20139" class="LineNr">20139 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20140" class="LineNr">20140 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20141" class="LineNr">20141 </span> (<a href='mu.subx.html#L23080'>check-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20142" class="LineNr">20142 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20143" class="LineNr">20143 </span> } -<span id="L20144" class="LineNr">20144 </span> <span class="subxComment"># if (op == "allocate") check-mu-allocate-stmt</span> -<span id="L20145" class="LineNr">20145 </span> { -<span id="L20146" class="LineNr">20146 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L20147" class="LineNr">20147 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20148" class="LineNr">20148 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20149" class="LineNr">20149 </span> (<a href='mu.subx.html#L23174'>check-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20150" class="LineNr">20150 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20151" class="LineNr">20151 </span> } -<span id="L20152" class="LineNr">20152 </span> <span class="subxComment"># if (op == "populate") check-mu-populate-stmt</span> -<span id="L20153" class="LineNr">20153 </span> { -<span id="L20154" class="LineNr">20154 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L20155" class="LineNr">20155 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20156" class="LineNr">20156 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20157" class="LineNr">20157 </span> (<a href='mu.subx.html#L23278'>check-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20158" class="LineNr">20158 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20159" class="LineNr">20159 </span> } -<span id="L20160" class="LineNr">20160 </span> <span class="subxComment"># if (op == "populate-stream") check-mu-populate-stream-stmt</span> -<span id="L20161" class="LineNr">20161 </span> { -<span id="L20162" class="LineNr">20162 </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="L20163" class="LineNr">20163 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20164" class="LineNr">20164 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20165" class="LineNr">20165 </span> (<a href='mu.subx.html#L23428'>check-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20166" class="LineNr">20166 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20167" class="LineNr">20167 </span> } -<span id="L20168" class="LineNr">20168 </span> <span class="subxComment"># if (op == "read-from-stream") check-mu-read-from-stream-stmt</span> -<span id="L20169" class="LineNr">20169 </span> { -<span id="L20170" class="LineNr">20170 </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="L20171" class="LineNr">20171 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20172" class="LineNr">20172 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20173" class="LineNr">20173 </span> (<a href='mu.subx.html#L23578'>check-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20174" class="LineNr">20174 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L19140" class="LineNr">19140 </span><span class="subxFunction">is-container?</span>: <span class="subxComment"># t: type-id -> result/eax: boolean</span> +<span id="L19141" class="LineNr">19141 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19142" class="LineNr">19142 </span> 55/push-ebp +<span id="L19143" class="LineNr">19143 </span> 89/<- %ebp 4/r32/esp +<span id="L19144" class="LineNr">19144 </span> <span class="subxComment">#</span> +<span id="L19145" class="LineNr">19145 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L19146" class="LineNr">19146 </span> c1/shift 4/subop/left %eax 2/imm8 +<span id="L19147" class="LineNr">19147 </span> 3b/compare 0/r32/eax *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> +<span id="L19148" class="LineNr">19148 </span> 0f 9d/set-if->= %al +<span id="L19149" class="LineNr">19149 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L19150" class="LineNr">19150 </span><span class="Constant">$is-container?:end</span>: +<span id="L19151" class="LineNr">19151 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19152" class="LineNr">19152 </span> 89/<- %esp 5/r32/ebp +<span id="L19153" class="LineNr">19153 </span> 5d/pop-to-ebp +<span id="L19154" class="LineNr">19154 </span> c3/return +<span id="L19155" class="LineNr">19155 </span> +<span id="L19156" class="LineNr">19156 </span><span class="subxFunction">find-or-create-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> +<span id="L19157" class="LineNr">19157 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19158" class="LineNr">19158 </span> 55/push-ebp +<span id="L19159" class="LineNr">19159 </span> 89/<- %ebp 4/r32/esp +<span id="L19160" class="LineNr">19160 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19161" class="LineNr">19161 </span> 50/push-eax +<span id="L19162" class="LineNr">19162 </span> 51/push-ecx +<span id="L19163" class="LineNr">19163 </span> 52/push-edx +<span id="L19164" class="LineNr">19164 </span> 57/push-edi +<span id="L19165" class="LineNr">19165 </span> <span class="subxComment"># edi = out</span> +<span id="L19166" class="LineNr">19166 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L19167" class="LineNr">19167 </span> <span class="subxComment"># var fields/ecx: (handle table (handle array byte) (handle typeinfo-entry))</span> +<span id="L19168" class="LineNr">19168 </span> 68/push 0/imm32 +<span id="L19169" class="LineNr">19169 </span> 68/push 0/imm32 +<span id="L19170" class="LineNr">19170 </span> 89/<- %ecx 4/r32/esp +<span id="L19171" class="LineNr">19171 </span> <span class="subxComment"># find-typeinfo(t, out)</span> +<span id="L19172" class="LineNr">19172 </span> (<a href='mu.subx.html#L19223'>find-typeinfo</a> *(ebp+8) %edi) +<span id="L19173" class="LineNr">19173 </span> { +<span id="L19174" class="LineNr">19174 </span> <span class="subxComment"># if (*out != 0) break</span> +<span id="L19175" class="LineNr">19175 </span> 81 7/subop/compare *edi 0/imm32 +<span id="L19176" class="LineNr">19176 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L19177" class="LineNr">19177 </span><span class="Constant">$find-or-create-typeinfo:create</span>: +<span id="L19178" class="LineNr">19178 </span> <span class="subxComment"># *out = allocate</span> +<span id="L19179" class="LineNr">19179 </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="L19180" class="LineNr">19180 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> +<span id="L19181" class="LineNr">19181 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L19182" class="LineNr">19182 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo at ")</span> +<span id="L19183" class="LineNr">19183 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L19184" class="LineNr">19184 </span><span class="CommentedCode">#? (write-buffered Stderr " for type-id ")</span> +<span id="L19185" class="LineNr">19185 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L19186" class="LineNr">19186 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19187" class="LineNr">19187 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19188" class="LineNr">19188 </span> <span class="subxComment"># tmp->id = t</span> +<span id="L19189" class="LineNr">19189 </span> 8b/-> *(ebp+8) 2/r32/edx +<span id="L19190" class="LineNr">19190 </span> 89/<- *eax 2/r32/edx <span class="subxComment"># Typeinfo-id</span> +<span id="L19191" class="LineNr">19191 </span> <span class="subxComment"># tmp->fields = new table</span> +<span id="L19192" class="LineNr">19192 </span> <span class="subxS1Comment"># . fields = new table</span> +<span id="L19193" class="LineNr">19193 </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="L19194" class="LineNr">19194 </span> <span class="subxS1Comment"># . tmp->fields = fields</span> +<span id="L19195" class="LineNr">19195 </span> 8b/-> *ecx 2/r32/edx +<span id="L19196" class="LineNr">19196 </span> 89/<- *(eax+4) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> +<span id="L19197" class="LineNr">19197 </span> 8b/-> *(ecx+4) 2/r32/edx +<span id="L19198" class="LineNr">19198 </span> 89/<- *(eax+8) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> +<span id="L19199" class="LineNr">19199 </span> <span class="subxComment"># tmp->next = Program->types</span> +<span id="L19200" class="LineNr">19200 </span> 8b/-> *_Program-types 1/r32/ecx +<span id="L19201" class="LineNr">19201 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> +<span id="L19202" class="LineNr">19202 </span> 8b/-> *_Program-types->payload 1/r32/ecx +<span id="L19203" class="LineNr">19203 </span> 89/<- *(eax+0x14) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> +<span id="L19204" class="LineNr">19204 </span> <span class="subxComment"># Program->types = out</span> +<span id="L19205" class="LineNr">19205 </span> 8b/-> *edi 1/r32/ecx +<span id="L19206" class="LineNr">19206 </span> 89/<- *_Program-types 1/r32/ecx +<span id="L19207" class="LineNr">19207 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L19208" class="LineNr">19208 </span> 89/<- *_Program-types->payload 1/r32/ecx +<span id="L19209" class="LineNr">19209 </span> } +<span id="L19210" class="LineNr">19210 </span><span class="Constant">$find-or-create-typeinfo:end</span>: +<span id="L19211" class="LineNr">19211 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19212" class="LineNr">19212 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19213" class="LineNr">19213 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19214" class="LineNr">19214 </span> 5f/pop-to-edi +<span id="L19215" class="LineNr">19215 </span> 5a/pop-to-edx +<span id="L19216" class="LineNr">19216 </span> 59/pop-to-ecx +<span id="L19217" class="LineNr">19217 </span> 58/pop-to-eax +<span id="L19218" class="LineNr">19218 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19219" class="LineNr">19219 </span> 89/<- %esp 5/r32/ebp +<span id="L19220" class="LineNr">19220 </span> 5d/pop-to-ebp +<span id="L19221" class="LineNr">19221 </span> c3/return +<span id="L19222" class="LineNr">19222 </span> +<span id="L19223" class="LineNr">19223 </span><span class="subxFunction">find-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> +<span id="L19224" class="LineNr">19224 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19225" class="LineNr">19225 </span> 55/push-ebp +<span id="L19226" class="LineNr">19226 </span> 89/<- %ebp 4/r32/esp +<span id="L19227" class="LineNr">19227 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19228" class="LineNr">19228 </span> 50/push-eax +<span id="L19229" class="LineNr">19229 </span> 51/push-ecx +<span id="L19230" class="LineNr">19230 </span> 52/push-edx +<span id="L19231" class="LineNr">19231 </span> 57/push-edi +<span id="L19232" class="LineNr">19232 </span> <span class="subxComment"># ecx = t</span> +<span id="L19233" class="LineNr">19233 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L19234" class="LineNr">19234 </span> <span class="subxComment"># edi = out</span> +<span id="L19235" class="LineNr">19235 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L19236" class="LineNr">19236 </span> <span class="subxComment"># *out = Program->types</span> +<span id="L19237" class="LineNr">19237 </span> 8b/-> *_Program-types 0/r32/eax +<span id="L19238" class="LineNr">19238 </span> 89/<- *edi 0/r32/eax +<span id="L19239" class="LineNr">19239 </span> 8b/-> *_Program-types->payload 0/r32/eax +<span id="L19240" class="LineNr">19240 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L19241" class="LineNr">19241 </span> { +<span id="L19242" class="LineNr">19242 </span><span class="Constant">$find-typeinfo:loop</span>: +<span id="L19243" class="LineNr">19243 </span> <span class="subxComment"># if (*out == 0) break</span> +<span id="L19244" class="LineNr">19244 </span> 81 7/subop/compare *edi 0/imm32 +<span id="L19245" class="LineNr">19245 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19246" class="LineNr">19246 </span><span class="Constant">$find-typeinfo:check</span>: +<span id="L19247" class="LineNr">19247 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> +<span id="L19248" class="LineNr">19248 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L19249" class="LineNr">19249 </span> <span class="subxComment"># if (tmp->id == t) break</span> +<span id="L19250" class="LineNr">19250 </span> 39/compare *eax 1/r32/ecx <span class="subxComment"># Typeinfo-id</span> +<span id="L19251" class="LineNr">19251 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19252" class="LineNr">19252 </span><span class="Constant">$find-typeinfo:continue</span>: +<span id="L19253" class="LineNr">19253 </span> <span class="subxComment"># *out = tmp->next</span> +<span id="L19254" class="LineNr">19254 </span> 8b/-> *(eax+0x10) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> +<span id="L19255" class="LineNr">19255 </span> 89/<- *edi 2/r32/edx +<span id="L19256" class="LineNr">19256 </span> 8b/-> *(eax+0x14) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> +<span id="L19257" class="LineNr">19257 </span> 89/<- *(edi+4) 2/r32/edx +<span id="L19258" class="LineNr">19258 </span> <span class="subxComment">#</span> +<span id="L19259" class="LineNr">19259 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L19260" class="LineNr">19260 </span> } +<span id="L19261" class="LineNr">19261 </span><span class="Constant">$find-typeinfo:end</span>: +<span id="L19262" class="LineNr">19262 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19263" class="LineNr">19263 </span> 5f/pop-to-edi +<span id="L19264" class="LineNr">19264 </span> 5a/pop-to-edx +<span id="L19265" class="LineNr">19265 </span> 59/pop-to-ecx +<span id="L19266" class="LineNr">19266 </span> 58/pop-to-eax +<span id="L19267" class="LineNr">19267 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19268" class="LineNr">19268 </span> 89/<- %esp 5/r32/ebp +<span id="L19269" class="LineNr">19269 </span> 5d/pop-to-ebp +<span id="L19270" class="LineNr">19270 </span> c3/return +<span id="L19271" class="LineNr">19271 </span> +<span id="L19272" class="LineNr">19272 </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="L19273" class="LineNr">19273 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19274" class="LineNr">19274 </span> 55/push-ebp +<span id="L19275" class="LineNr">19275 </span> 89/<- %ebp 4/r32/esp +<span id="L19276" class="LineNr">19276 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19277" class="LineNr">19277 </span> 50/push-eax +<span id="L19278" class="LineNr">19278 </span> 52/push-edx +<span id="L19279" class="LineNr">19279 </span> 57/push-edi +<span id="L19280" class="LineNr">19280 </span> <span class="subxComment"># var dest/edi: (handle typeinfo-entry)</span> +<span id="L19281" class="LineNr">19281 </span> 68/push 0/imm32 +<span id="L19282" class="LineNr">19282 </span> 68/push 0/imm32 +<span id="L19283" class="LineNr">19283 </span> 89/<- %edi 4/r32/esp +<span id="L19284" class="LineNr">19284 </span> <span class="subxComment"># find-or-create-typeinfo-fields(T, f, dest)</span> +<span id="L19285" class="LineNr">19285 </span> (<a href='mu.subx.html#L19337'>find-or-create-typeinfo-fields</a> *(ebp+8) *(ebp+0xc) %edi) +<span id="L19286" class="LineNr">19286 </span> <span class="subxComment"># var dest-addr/edi: (addr typeinfo-entry) = lookup(dest)</span> +<span id="L19287" class="LineNr">19287 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L19288" class="LineNr">19288 </span> 89/<- %edi 0/r32/eax +<span id="L19289" class="LineNr">19289 </span> <span class="subxComment"># if dest-addr->output-var doesn't exist, create it</span> +<span id="L19290" class="LineNr">19290 </span> { +<span id="L19291" class="LineNr">19291 </span> 81 7/subop/compare *(edi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L19292" class="LineNr">19292 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L19293" class="LineNr">19293 </span> <span class="subxComment"># dest-addr->output-var = new var(dummy name, type, -1 offset)</span> +<span id="L19294" class="LineNr">19294 </span> <span class="subxS1Comment"># . var name/eax: (handle array byte) = "field"</span> +<span id="L19295" class="LineNr">19295 </span> 68/push 0/imm32 +<span id="L19296" class="LineNr">19296 </span> 68/push 0/imm32 +<span id="L19297" class="LineNr">19297 </span> 89/<- %eax 4/r32/esp +<span id="L19298" class="LineNr">19298 </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="L19299" class="LineNr">19299 </span> <span class="subxS1Comment"># . new var</span> +<span id="L19300" class="LineNr">19300 </span> 8d/copy-address *(edi+0xc) 2/r32/edx +<span id="L19301" class="LineNr">19301 </span> (<a href='mu.subx.html#L18622'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L19302" class="LineNr">19302 </span> <span class="subxS1Comment"># . reclaim name</span> +<span id="L19303" class="LineNr">19303 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19304" class="LineNr">19304 </span> <span class="subxComment"># var result/edx: (addr var) = lookup(dest-addr->output-var)</span> +<span id="L19305" class="LineNr">19305 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># => eax</span> +<span id="L19306" class="LineNr">19306 </span> 89/<- %edx 0/r32/eax +<span id="L19307" class="LineNr">19307 </span> <span class="subxComment"># result->type = new constant type</span> +<span id="L19308" class="LineNr">19308 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L19309" class="LineNr">19309 </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="L19310" class="LineNr">19310 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># => eax</span> +<span id="L19311" class="LineNr">19311 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L19312" class="LineNr">19312 </span> c7 0/subop/copy *(eax+4) 6/imm32/constant <span class="subxComment"># Type-tree-value</span> +<span id="L19313" class="LineNr">19313 </span> c7 0/subop/copy *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-left</span> +<span id="L19314" class="LineNr">19314 </span> c7 0/subop/copy *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L19315" class="LineNr">19315 </span> c7 0/subop/copy *(eax+0x10) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L19316" class="LineNr">19316 </span> <span class="subxComment"># result->offset isn't filled out yet</span> +<span id="L19317" class="LineNr">19317 </span> c7 0/subop/copy *(edx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> +<span id="L19318" class="LineNr">19318 </span> } +<span id="L19319" class="LineNr">19319 </span> <span class="subxComment"># out = dest-addr->output-var</span> +<span id="L19320" class="LineNr">19320 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L19321" class="LineNr">19321 </span> 8b/-> *(edi+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L19322" class="LineNr">19322 </span> 89/<- *edx 0/r32/eax +<span id="L19323" class="LineNr">19323 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L19324" class="LineNr">19324 </span> 89/<- *(edx+4) 0/r32/eax +<span id="L19325" class="LineNr">19325 </span><span class="Constant">$find-or-create-typeinfo-output-var:end</span>: +<span id="L19326" class="LineNr">19326 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19327" class="LineNr">19327 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19328" class="LineNr">19328 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19329" class="LineNr">19329 </span> 5f/pop-to-edi +<span id="L19330" class="LineNr">19330 </span> 5a/pop-to-edx +<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="subxFunction">find-or-create-typeinfo-fields</span>: <span class="subxComment"># T: (addr typeinfo), f: (addr slice), out: (addr handle typeinfo-entry)</span> +<span id="L19338" class="LineNr">19338 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19339" class="LineNr">19339 </span> 55/push-ebp +<span id="L19340" class="LineNr">19340 </span> 89/<- %ebp 4/r32/esp +<span id="L19341" class="LineNr">19341 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19342" class="LineNr">19342 </span> 50/push-eax +<span id="L19343" class="LineNr">19343 </span> 56/push-esi +<span id="L19344" class="LineNr">19344 </span> 57/push-edi +<span id="L19345" class="LineNr">19345 </span> <span class="subxComment"># eax = lookup(T->fields)</span> +<span id="L19346" class="LineNr">19346 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L19347" class="LineNr">19347 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L19348" class="LineNr">19348 </span> <span class="subxComment"># edi = out</span> +<span id="L19349" class="LineNr">19349 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L19350" class="LineNr">19350 </span> <span class="subxComment"># var src/esi: (addr handle typeinfo-entry) = get-or-insert-slice(T->fields, f)</span> +<span id="L19351" class="LineNr">19351 </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="L19352" class="LineNr">19352 </span> 89/<- %esi 0/r32/eax +<span id="L19353" class="LineNr">19353 </span> <span class="subxComment"># if src doesn't exist, allocate it</span> +<span id="L19354" class="LineNr">19354 </span> { +<span id="L19355" class="LineNr">19355 </span> 81 7/subop/compare *esi 0/imm32 +<span id="L19356" class="LineNr">19356 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L19357" class="LineNr">19357 </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="L19358" class="LineNr">19358 </span><span class="CommentedCode">#? (write-buffered Stderr "handle at ")</span> +<span id="L19359" class="LineNr">19359 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> +<span id="L19360" class="LineNr">19360 </span><span class="CommentedCode">#? (write-buffered Stderr ": ")</span> +<span id="L19361" class="LineNr">19361 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *esi)</span> +<span id="L19362" class="LineNr">19362 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> +<span id="L19363" class="LineNr">19363 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(esi+4))</span> +<span id="L19364" class="LineNr">19364 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19365" class="LineNr">19365 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19366" class="LineNr">19366 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> +<span id="L19367" class="LineNr">19367 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo fields at ")</span> +<span id="L19368" class="LineNr">19368 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> +<span id="L19369" class="LineNr">19369 </span><span class="CommentedCode">#? (write-buffered Stderr " for ")</span> +<span id="L19370" class="LineNr">19370 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L19371" class="LineNr">19371 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19372" class="LineNr">19372 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19373" class="LineNr">19373 </span> } +<span id="L19374" class="LineNr">19374 </span> <span class="subxComment"># *out = src</span> +<span id="L19375" class="LineNr">19375 </span> <span class="subxS1Comment"># . *edi = *src</span> +<span id="L19376" class="LineNr">19376 </span> 8b/-> *esi 0/r32/eax +<span id="L19377" class="LineNr">19377 </span> 89/<- *edi 0/r32/eax +<span id="L19378" class="LineNr">19378 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L19379" class="LineNr">19379 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L19380" class="LineNr">19380 </span><span class="Constant">$find-or-create-typeinfo-fields:end</span>: +<span id="L19381" class="LineNr">19381 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19382" class="LineNr">19382 </span> 5f/pop-to-edi +<span id="L19383" class="LineNr">19383 </span> 5e/pop-to-esi +<span id="L19384" class="LineNr">19384 </span> 58/pop-to-eax +<span id="L19385" class="LineNr">19385 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19386" class="LineNr">19386 </span> 89/<- %esp 5/r32/ebp +<span id="L19387" class="LineNr">19387 </span> 5d/pop-to-ebp +<span id="L19388" class="LineNr">19388 </span> c3/return +<span id="L19389" class="LineNr">19389 </span> +<span id="L19390" class="LineNr">19390 </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="L19391" class="LineNr">19391 </span> <span class="subxComment"># pseudocode:</span> +<span id="L19392" class="LineNr">19392 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L19393" class="LineNr">19393 </span> <span class="subxComment"># curr-index = 0</span> +<span id="L19394" class="LineNr">19394 </span> <span class="subxComment"># while true</span> +<span id="L19395" class="LineNr">19395 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L19396" class="LineNr">19396 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L19397" class="LineNr">19397 </span> <span class="subxComment"># if line->write == 0</span> +<span id="L19398" class="LineNr">19398 </span> <span class="subxComment"># abort</span> +<span id="L19399" class="LineNr">19399 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L19400" class="LineNr">19400 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L19401" class="LineNr">19401 </span> <span class="subxComment"># continue</span> +<span id="L19402" class="LineNr">19402 </span> <span class="subxComment"># if slice-equal?(word-slice, "}")</span> +<span id="L19403" class="LineNr">19403 </span> <span class="subxComment"># break</span> +<span id="L19404" class="LineNr">19404 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, line)</span> +<span id="L19405" class="LineNr">19405 </span> <span class="subxComment"># var r: (handle typeinfo-fields) = find-or-create-typeinfo-fields(t, word-slice/v->name)</span> +<span id="L19406" class="LineNr">19406 </span> <span class="subxComment"># TODO: ensure that r->first is null</span> +<span id="L19407" class="LineNr">19407 </span> <span class="subxComment"># r->index = curr-index</span> +<span id="L19408" class="LineNr">19408 </span> <span class="subxComment"># curr-index++</span> +<span id="L19409" class="LineNr">19409 </span> <span class="subxComment"># r->input-var = v</span> +<span id="L19410" class="LineNr">19410 </span> <span class="subxComment"># if r->output-var == 0</span> +<span id="L19411" class="LineNr">19411 </span> <span class="subxComment"># r->output-var = new literal</span> +<span id="L19412" class="LineNr">19412 </span> <span class="subxComment"># TODO: ensure nothing else in line</span> +<span id="L19413" class="LineNr">19413 </span> <span class="subxComment"># t->total-size-in-bytes = -2 (not yet initialized)</span> +<span id="L19414" class="LineNr">19414 </span> <span class="subxComment">#</span> +<span id="L19415" class="LineNr">19415 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19416" class="LineNr">19416 </span> 55/push-ebp +<span id="L19417" class="LineNr">19417 </span> 89/<- %ebp 4/r32/esp +<span id="L19418" class="LineNr">19418 </span> <span class="subxComment"># var curr-index: int at *(ebp-4)</span> +<span id="L19419" class="LineNr">19419 </span> 68/push 0/imm32 +<span id="L19420" class="LineNr">19420 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19421" class="LineNr">19421 </span> 50/push-eax +<span id="L19422" class="LineNr">19422 </span> 51/push-ecx +<span id="L19423" class="LineNr">19423 </span> 52/push-edx +<span id="L19424" class="LineNr">19424 </span> 53/push-ebx +<span id="L19425" class="LineNr">19425 </span> 56/push-esi +<span id="L19426" class="LineNr">19426 </span> 57/push-edi +<span id="L19427" class="LineNr">19427 </span> <span class="subxComment"># edi = t</span> +<span id="L19428" class="LineNr">19428 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L19429" class="LineNr">19429 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L19430" class="LineNr">19430 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L19431" class="LineNr">19431 </span> 68/push 0x200/imm32/size +<span id="L19432" class="LineNr">19432 </span> 68/push 0/imm32/read +<span id="L19433" class="LineNr">19433 </span> 68/push 0/imm32/write +<span id="L19434" class="LineNr">19434 </span> 89/<- %ecx 4/r32/esp +<span id="L19435" class="LineNr">19435 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L19436" class="LineNr">19436 </span> 68/push 0/imm32/end +<span id="L19437" class="LineNr">19437 </span> 68/push 0/imm32/start +<span id="L19438" class="LineNr">19438 </span> 89/<- %edx 4/r32/esp +<span id="L19439" class="LineNr">19439 </span> <span class="subxComment"># var v/esi: (handle var)</span> +<span id="L19440" class="LineNr">19440 </span> 68/push 0/imm32 +<span id="L19441" class="LineNr">19441 </span> 68/push 0/imm32 +<span id="L19442" class="LineNr">19442 </span> 89/<- %esi 4/r32/esp +<span id="L19443" class="LineNr">19443 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> +<span id="L19444" class="LineNr">19444 </span> 68/push 0/imm32 +<span id="L19445" class="LineNr">19445 </span> 68/push 0/imm32 +<span id="L19446" class="LineNr">19446 </span> 89/<- %ebx 4/r32/esp +<span id="L19447" class="LineNr">19447 </span> { +<span id="L19448" class="LineNr">19448 </span><span class="Constant">$populate-mu-type:line-loop</span>: +<span id="L19449" class="LineNr">19449 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L19450" class="LineNr">19450 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L19451" class="LineNr">19451 </span> <span class="subxComment"># if (line->write == 0) abort</span> +<span id="L19452" class="LineNr">19452 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L19453" class="LineNr">19453 </span> 0f 84/jump-if-= $populate-mu-type:error1/disp32 +<span id="L19454" class="Folded">19454 </span><span class="Folded">+-- 6 lines: #? # dump line ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L19460" class="LineNr">19460 </span> (<a href='mu.subx.html#L16200'>next-mu-token</a> %ecx %edx) +<span id="L19461" class="LineNr">19461 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L19462" class="LineNr">19462 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L19463" class="LineNr">19463 </span> 3d/compare-eax-and 0/imm32 +<span id="L19464" class="LineNr">19464 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L19465" class="LineNr">19465 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> +<span id="L19466" class="LineNr">19466 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) +<span id="L19467" class="LineNr">19467 </span> 3d/compare-eax-and 0/imm32 +<span id="L19468" class="LineNr">19468 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L19469" class="LineNr">19469 </span><span class="Constant">$populate-mu-type:parse-element</span>: +<span id="L19470" class="LineNr">19470 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L19471" class="LineNr">19471 </span> <span class="subxComment"># must do this first to strip the trailing ':' from word-slice before</span> +<span id="L19472" class="LineNr">19472 </span> <span class="subxComment"># using it in find-or-create-typeinfo-fields below</span> +<span id="L19473" class="LineNr">19473 </span> <span class="subxComment"># TODO: clean up that mutation in parse-var-with-type</span> +<span id="L19474" class="LineNr">19474 </span> (<a href='mu.subx.html#L19618'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L19475" class="LineNr">19475 </span> (<a href='mu.subx.html#L15844'>parse-var-with-type</a> %edx %ecx %esi %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L19476" class="LineNr">19476 </span> <span class="subxComment"># if v is an addr, abort</span> +<span id="L19477" class="LineNr">19477 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19478" class="LineNr">19478 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19479" class="LineNr">19479 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L19480" class="LineNr">19480 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19481" class="LineNr">19481 </span> 0f 85/jump-if-!= $populate-mu-type:error2/disp32 +<span id="L19482" class="LineNr">19482 </span> <span class="subxComment"># if v is an array, abort (we could support it, but initialization gets complex)</span> +<span id="L19483" class="LineNr">19483 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19484" class="LineNr">19484 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19485" class="LineNr">19485 </span> (<a href='mu.subx.html#L34130'>is-mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L19486" class="LineNr">19486 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19487" class="LineNr">19487 </span> 0f 85/jump-if-!= $populate-mu-type:error3/disp32 +<span id="L19488" class="LineNr">19488 </span> <span class="subxComment"># if v is a byte, abort</span> +<span id="L19489" class="LineNr">19489 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19490" class="LineNr">19490 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19491" class="LineNr">19491 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L19492" class="LineNr">19492 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19493" class="LineNr">19493 </span> 0f 85/jump-if-!= $populate-mu-type:error4/disp32 +<span id="L19494" class="LineNr">19494 </span> <span class="subxComment"># if v is a slice, abort</span> +<span id="L19495" class="LineNr">19495 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19496" class="LineNr">19496 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19497" class="LineNr">19497 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0xc) <span class="subxComment"># slice => eax</span> +<span id="L19498" class="LineNr">19498 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19499" class="LineNr">19499 </span> 0f 85/jump-if-!= $populate-mu-type:error5/disp32 +<span id="L19500" class="LineNr">19500 </span> <span class="subxComment"># if v is a stream, abort (we could support it, but initialization gets even more complex)</span> +<span id="L19501" class="LineNr">19501 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19502" class="LineNr">19502 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19503" class="LineNr">19503 </span> (<a href='mu.subx.html#L34192'>is-mu-stream-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L19504" class="LineNr">19504 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19505" class="LineNr">19505 </span> 0f 85/jump-if-!= $populate-mu-type:error6/disp32 +<span id="L19506" class="LineNr">19506 </span> <span class="subxComment"># var tmp/ecx</span> +<span id="L19507" class="LineNr">19507 </span> 51/push-ecx +<span id="L19508" class="LineNr">19508 </span><span class="Constant">$populate-mu-type:create-typeinfo-fields</span>: +<span id="L19509" class="LineNr">19509 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> +<span id="L19510" class="LineNr">19510 </span> (<a href='mu.subx.html#L19337'>find-or-create-typeinfo-fields</a> %edi %edx %ebx) +<span id="L19511" class="LineNr">19511 </span> <span class="subxComment"># r->index = curr-index</span> +<span id="L19512" class="LineNr">19512 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L19513" class="LineNr">19513 </span> 8b/-> *(ebp-4) 1/r32/ecx +<span id="L19514" class="LineNr">19514 </span><span class="CommentedCode">#? (write-buffered Stderr "saving index ")</span> +<span id="L19515" class="LineNr">19515 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L19516" class="LineNr">19516 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> +<span id="L19517" class="LineNr">19517 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edi)</span> +<span id="L19518" class="LineNr">19518 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19519" class="LineNr">19519 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19520" class="LineNr">19520 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-index</span> +<span id="L19521" class="LineNr">19521 </span> <span class="subxComment"># ++curr-index</span> +<span id="L19522" class="LineNr">19522 </span> ff 0/subop/increment *(ebp-4) +<span id="L19523" class="LineNr">19523 </span><span class="Constant">$populate-mu-type:set-input-type</span>: +<span id="L19524" class="LineNr">19524 </span> <span class="subxComment"># r->input-var = v</span> +<span id="L19525" class="LineNr">19525 </span> 8b/-> *esi 1/r32/ecx +<span id="L19526" class="LineNr">19526 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L19527" class="LineNr">19527 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L19528" class="LineNr">19528 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L19529" class="LineNr">19529 </span> <span class="subxComment"># restore line</span> +<span id="L19530" class="LineNr">19530 </span> 59/pop-to-ecx +<span id="L19531" class="LineNr">19531 </span> { +<span id="L19532" class="LineNr">19532 </span><span class="Constant">$populate-mu-type:create-output-type</span>: +<span id="L19533" class="LineNr">19533 </span> <span class="subxComment"># if (r->output-var == 0) create a new var with some placeholder data</span> +<span id="L19534" class="LineNr">19534 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L19535" class="LineNr">19535 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L19536" class="LineNr">19536 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L19537" class="LineNr">19537 </span> (<a href='mu.subx.html#L18768'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edx %eax) +<span id="L19538" class="LineNr">19538 </span> } +<span id="L19539" class="LineNr">19539 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L19540" class="LineNr">19540 </span> } +<span id="L19541" class="LineNr">19541 </span><span class="Constant">$populate-mu-type:invalidate-total-size-in-bytes</span>: +<span id="L19542" class="LineNr">19542 </span> <span class="subxComment"># Offsets and total size may not be accurate here since we may not yet</span> +<span id="L19543" class="LineNr">19543 </span> <span class="subxComment"># have encountered the element types.</span> +<span id="L19544" class="LineNr">19544 </span> <span class="subxComment"># We'll recompute them separately after parsing the entire program.</span> +<span id="L19545" class="LineNr">19545 </span> c7 0/subop/copy *(edi+0xc) -2/imm32/uninitialized <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L19546" class="LineNr">19546 </span><span class="Constant">$populate-mu-type:end</span>: +<span id="L19547" class="LineNr">19547 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19548" class="LineNr">19548 </span> 81 0/subop/add %esp 0x224/imm32 +<span id="L19549" class="LineNr">19549 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19550" class="LineNr">19550 </span> 5f/pop-to-edi +<span id="L19551" class="LineNr">19551 </span> 5e/pop-to-esi +<span id="L19552" class="LineNr">19552 </span> 5b/pop-to-ebx +<span id="L19553" class="LineNr">19553 </span> 5a/pop-to-edx +<span id="L19554" class="LineNr">19554 </span> 59/pop-to-ecx +<span id="L19555" class="LineNr">19555 </span> 58/pop-to-eax +<span id="L19556" class="LineNr">19556 </span> <span class="subxComment"># reclaim curr-index</span> +<span id="L19557" class="LineNr">19557 </span> 81 0/subop/add %esp 4/imm32 +<span id="L19558" class="LineNr">19558 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19559" class="LineNr">19559 </span> 89/<- %esp 5/r32/ebp +<span id="L19560" class="LineNr">19560 </span> 5d/pop-to-ebp +<span id="L19561" class="LineNr">19561 </span> c3/return +<span id="L19562" class="LineNr">19562 </span> +<span id="L19563" class="LineNr">19563 </span><span class="Constant">$populate-mu-type:error1</span>: +<span id="L19564" class="LineNr">19564 </span> <span class="subxComment"># error("incomplete type definition '" t->name "'\n")</span> +<span id="L19565" class="LineNr">19565 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"incomplete type definition '"</span>) +<span id="L19566" class="LineNr">19566 </span> (<a href='mu.subx.html#L19618'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L19567" class="LineNr">19567 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L19568" class="LineNr">19568 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"\n"</span>) +<span id="L19569" class="LineNr">19569 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L19570" class="LineNr">19570 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L19571" class="LineNr">19571 </span> <span class="subxComment"># never gets here</span> +<span id="L19572" class="LineNr">19572 </span> +<span id="L19573" class="LineNr">19573 </span><span class="Constant">$populate-mu-type:error2</span>: +<span id="L19574" class="LineNr">19574 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L19575" class="LineNr">19575 </span> (<a href='mu.subx.html#L19618'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L19576" class="LineNr">19576 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L19577" class="LineNr">19577 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'addr' elements not allowed\n"</span>) +<span id="L19578" class="LineNr">19578 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L19579" class="LineNr">19579 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L19580" class="LineNr">19580 </span> <span class="subxComment"># never gets here</span> +<span id="L19581" class="LineNr">19581 </span> +<span id="L19582" class="LineNr">19582 </span><span class="Constant">$populate-mu-type:error3</span>: +<span id="L19583" class="LineNr">19583 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L19584" class="LineNr">19584 </span> (<a href='mu.subx.html#L19618'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L19585" class="LineNr">19585 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L19586" class="LineNr">19586 </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="L19587" class="LineNr">19587 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L19588" class="LineNr">19588 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L19589" class="LineNr">19589 </span> <span class="subxComment"># never gets here</span> +<span id="L19590" class="LineNr">19590 </span> +<span id="L19591" class="LineNr">19591 </span><span class="Constant">$populate-mu-type:error4</span>: +<span id="L19592" class="LineNr">19592 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L19593" class="LineNr">19593 </span> (<a href='mu.subx.html#L19618'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L19594" class="LineNr">19594 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L19595" class="LineNr">19595 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'byte' elements not allowed\n"</span>) +<span id="L19596" class="LineNr">19596 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L19597" class="LineNr">19597 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L19598" class="LineNr">19598 </span> <span class="subxComment"># never gets here</span> +<span id="L19599" class="LineNr">19599 </span> +<span id="L19600" class="LineNr">19600 </span><span class="Constant">$populate-mu-type:error5</span>: +<span id="L19601" class="LineNr">19601 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L19602" class="LineNr">19602 </span> (<a href='mu.subx.html#L19618'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L19603" class="LineNr">19603 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L19604" class="LineNr">19604 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'slice' elements not allowed\n"</span>) +<span id="L19605" class="LineNr">19605 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L19606" class="LineNr">19606 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L19607" class="LineNr">19607 </span> <span class="subxComment"># never gets here</span> +<span id="L19608" class="LineNr">19608 </span> +<span id="L19609" class="LineNr">19609 </span><span class="Constant">$populate-mu-type:error6</span>: +<span id="L19610" class="LineNr">19610 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L19611" class="LineNr">19611 </span> (<a href='mu.subx.html#L19618'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L19612" class="LineNr">19612 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L19613" class="LineNr">19613 </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="L19614" class="LineNr">19614 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L19615" class="LineNr">19615 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L19616" class="LineNr">19616 </span> <span class="subxComment"># never gets here</span> +<span id="L19617" class="LineNr">19617 </span> +<span id="L19618" class="LineNr">19618 </span><span class="subxFunction">type-name</span>: <span class="subxComment"># index: int -> result/eax: (addr array byte)</span> +<span id="L19619" class="LineNr">19619 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19620" class="LineNr">19620 </span> 55/push-ebp +<span id="L19621" class="LineNr">19621 </span> 89/<- %ebp 4/r32/esp +<span id="L19622" class="LineNr">19622 </span> <span class="subxComment">#</span> +<span id="L19623" class="LineNr">19623 </span> (index <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> *(ebp+8)) +<span id="L19624" class="LineNr">19624 </span><span class="Constant">$type-name:end</span>: +<span id="L19625" class="LineNr">19625 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19626" class="LineNr">19626 </span> 89/<- %esp 5/r32/ebp +<span id="L19627" class="LineNr">19627 </span> 5d/pop-to-ebp +<span id="L19628" class="LineNr">19628 </span> c3/return +<span id="L19629" class="LineNr">19629 </span> +<span id="L19630" class="LineNr">19630 </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="L19631" class="LineNr">19631 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19632" class="LineNr">19632 </span> 55/push-ebp +<span id="L19633" class="LineNr">19633 </span> 89/<- %ebp 4/r32/esp +<span id="L19634" class="LineNr">19634 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19635" class="LineNr">19635 </span> 56/push-esi +<span id="L19636" class="LineNr">19636 </span> <span class="subxComment"># TODO: bounds-check index</span> +<span id="L19637" class="LineNr">19637 </span> <span class="subxComment"># esi = arr</span> +<span id="L19638" class="LineNr">19638 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L19639" class="LineNr">19639 </span> <span class="subxComment"># eax = index</span> +<span id="L19640" class="LineNr">19640 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L19641" class="LineNr">19641 </span> <span class="subxComment"># eax = *(arr + 12 + index)</span> +<span id="L19642" class="LineNr">19642 </span> 8b/-> *(esi+eax<<2+0xc) 0/r32/eax +<span id="L19643" class="LineNr">19643 </span><span class="Constant">$index:end</span>: +<span id="L19644" class="LineNr">19644 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19645" class="LineNr">19645 </span> 5e/pop-to-esi +<span id="L19646" class="LineNr">19646 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19647" class="LineNr">19647 </span> 89/<- %esp 5/r32/ebp +<span id="L19648" class="LineNr">19648 </span> 5d/pop-to-ebp +<span id="L19649" class="LineNr">19649 </span> c3/return +<span id="L19650" class="LineNr">19650 </span> +<span id="L19651" class="LineNr">19651 </span><span class="subxComment">#######################################################</span> +<span id="L19652" class="LineNr">19652 </span><span class="subxComment"># Compute type sizes</span> +<span id="L19653" class="LineNr">19653 </span><span class="subxComment">#######################################################</span> +<span id="L19654" class="LineNr">19654 </span> +<span id="L19655" class="LineNr">19655 </span><span class="subxComment"># Compute the sizes of all user-defined types.</span> +<span id="L19656" class="LineNr">19656 </span><span class="subxComment"># We'll need the sizes of their elements, which may be other user-defined</span> +<span id="L19657" class="LineNr">19657 </span><span class="subxComment"># types, which we will compute as needed.</span> +<span id="L19658" class="LineNr">19658 </span> +<span id="L19659" class="LineNr">19659 </span><span class="subxComment"># Initially, all user-defined types have their sizes set to -2 (invalid)</span> +<span id="L19660" class="LineNr">19660 </span><span class="subxFunction">populate-mu-type-sizes</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L19661" class="LineNr">19661 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19662" class="LineNr">19662 </span> 55/push-ebp +<span id="L19663" class="LineNr">19663 </span> 89/<- %ebp 4/r32/esp +<span id="L19664" class="LineNr">19664 </span><span class="Constant">$populate-mu-type-sizes:total-sizes</span>: +<span id="L19665" class="LineNr">19665 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> +<span id="L19666" class="LineNr">19666 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L19667" class="LineNr">19667 </span> { +<span id="L19668" class="LineNr">19668 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L19669" class="LineNr">19669 </span> 3d/compare-eax-and 0/imm32/null +<span id="L19670" class="LineNr">19670 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19671" class="LineNr">19671 </span> (<a href='mu.subx.html#L19697'>populate-mu-type-sizes-in-type</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L19672" class="LineNr">19672 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L19673" class="LineNr">19673 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L19674" class="LineNr">19674 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L19675" class="LineNr">19675 </span> } +<span id="L19676" class="LineNr">19676 </span><span class="Constant">$populate-mu-type-sizes:offsets</span>: +<span id="L19677" class="LineNr">19677 </span> <span class="subxComment"># curr = *Program->types</span> +<span id="L19678" class="LineNr">19678 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L19679" class="LineNr">19679 </span> { +<span id="L19680" class="LineNr">19680 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L19681" class="LineNr">19681 </span> 3d/compare-eax-and 0/imm32/null +<span id="L19682" class="LineNr">19682 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19683" class="LineNr">19683 </span> (<a href='mu.subx.html#L19861'>populate-mu-type-offsets</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L19684" class="LineNr">19684 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L19685" class="LineNr">19685 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L19686" class="LineNr">19686 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L19687" class="LineNr">19687 </span> } +<span id="L19688" class="LineNr">19688 </span><span class="Constant">$populate-mu-type-sizes:end</span>: +<span id="L19689" class="LineNr">19689 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19690" class="LineNr">19690 </span> 89/<- %esp 5/r32/ebp +<span id="L19691" class="LineNr">19691 </span> 5d/pop-to-ebp +<span id="L19692" class="LineNr">19692 </span> c3/return +<span id="L19693" class="LineNr">19693 </span> +<span id="L19694" class="LineNr">19694 </span><span class="subxComment"># compute sizes of all fields, recursing as necessary</span> +<span id="L19695" class="LineNr">19695 </span><span class="subxComment"># sum up all their sizes to arrive at total size</span> +<span id="L19696" class="LineNr">19696 </span><span class="subxComment"># fields may be out of order, but that doesn't affect the answer</span> +<span id="L19697" class="LineNr">19697 </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="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> 52/push-edx +<span id="L19705" class="LineNr">19705 </span> 56/push-esi +<span id="L19706" class="LineNr">19706 </span> 57/push-edi +<span id="L19707" class="LineNr">19707 </span> <span class="subxComment"># esi = T</span> +<span id="L19708" class="LineNr">19708 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L19709" class="LineNr">19709 </span> <span class="subxComment"># if T is already computed, return</span> +<span id="L19710" class="LineNr">19710 </span> 81 7/subop/compare *(esi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L19711" class="LineNr">19711 </span> 0f 8d/jump-if->= $populate-mu-type-sizes-in-type:end/disp32 +<span id="L19712" class="LineNr">19712 </span> <span class="subxComment"># if T is being computed, abort</span> +<span id="L19713" class="LineNr">19713 </span> 81 7/subop/compare *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L19714" class="LineNr">19714 </span> 0f 84/jump-if-= $populate-mu-type-sizes-in-type:abort/disp32 +<span id="L19715" class="LineNr">19715 </span> <span class="subxComment"># tag T (-2 to -1) to avoid infinite recursion</span> +<span id="L19716" class="LineNr">19716 </span> c7 0/subop/copy *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L19717" class="LineNr">19717 </span> <span class="subxComment"># var total-size/edi: int = 0</span> +<span id="L19718" class="LineNr">19718 </span> bf/copy-to-edi 0/imm32 +<span id="L19719" class="LineNr">19719 </span> <span class="subxH1Comment"># - for every field, if it's a user-defined type, compute its size</span> +<span id="L19720" class="LineNr">19720 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> +<span id="L19721" class="LineNr">19721 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L19722" class="LineNr">19722 </span> 89/<- %ecx 0/r32/eax +<span id="L19723" class="LineNr">19723 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> +<span id="L19724" class="LineNr">19724 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L19725" class="LineNr">19725 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> +<span id="L19726" class="LineNr">19726 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx +<span id="L19727" class="LineNr">19727 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> +<span id="L19728" class="LineNr">19728 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L19729" class="LineNr">19729 </span> { +<span id="L19730" class="LineNr">19730 </span><span class="Constant">$populate-mu-type-sizes-in-type:loop</span>: +<span id="L19731" class="LineNr">19731 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L19732" class="LineNr">19732 </span> 39/compare %ecx 2/r32/edx +<span id="L19733" class="LineNr">19733 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 +<span id="L19734" class="LineNr">19734 </span> <span class="subxComment"># var t/eax: (addr typeinfo-entry) = lookup(curr->value)</span> +<span id="L19735" class="LineNr">19735 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> +<span id="L19736" class="LineNr">19736 </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="L19737" class="LineNr">19737 </span> 81 7/subop/compare *eax 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L19738" class="LineNr">19738 </span> 74/jump-if-= $populate-mu-type-sizes-in-type:end/disp8 +<span id="L19739" class="LineNr">19739 </span> <span class="subxComment"># compute size of t->input-var</span> +<span id="L19740" class="LineNr">19740 </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="L19741" class="LineNr">19741 </span> (<a href='mu.subx.html#L19771'>compute-size-of-var</a> %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L19742" class="LineNr">19742 </span> <span class="subxComment"># result += eax</span> +<span id="L19743" class="LineNr">19743 </span> 01/add-to %edi 0/r32/eax +<span id="L19744" class="LineNr">19744 </span> <span class="subxComment"># curr += row-size</span> +<span id="L19745" class="LineNr">19745 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> +<span id="L19746" class="LineNr">19746 </span> <span class="subxComment">#</span> +<span id="L19747" class="LineNr">19747 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L19748" class="LineNr">19748 </span> } +<span id="L19749" class="LineNr">19749 </span> <span class="subxH1Comment"># - save result</span> +<span id="L19750" class="LineNr">19750 </span> 89/<- *(esi+0xc) 7/r32/edi <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L19751" class="LineNr">19751 </span><span class="Constant">$populate-mu-type-sizes-in-type:end</span>: +<span id="L19752" class="LineNr">19752 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19753" class="LineNr">19753 </span> 5f/pop-to-edi +<span id="L19754" class="LineNr">19754 </span> 5e/pop-to-esi +<span id="L19755" class="LineNr">19755 </span> 5a/pop-to-edx +<span id="L19756" class="LineNr">19756 </span> 59/pop-to-ecx +<span id="L19757" class="LineNr">19757 </span> 58/pop-to-eax +<span id="L19758" class="LineNr">19758 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19759" class="LineNr">19759 </span> 89/<- %esp 5/r32/ebp +<span id="L19760" class="LineNr">19760 </span> 5d/pop-to-ebp +<span id="L19761" class="LineNr">19761 </span> c3/return +<span id="L19762" class="LineNr">19762 </span> +<span id="L19763" class="LineNr">19763 </span><span class="Constant">$populate-mu-type-sizes-in-type:abort</span>: +<span id="L19764" class="LineNr">19764 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"cycle in type definitions\n"</span>) +<span id="L19765" class="LineNr">19765 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L19766" class="LineNr">19766 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L19767" class="LineNr">19767 </span> <span class="subxComment"># never gets here</span> +<span id="L19768" class="LineNr">19768 </span> +<span id="L19769" class="LineNr">19769 </span><span class="subxComment"># Analogous to size-of, except we need to compute what size-of can just read</span> +<span id="L19770" class="LineNr">19770 </span><span class="subxComment"># off the right data structures.</span> +<span id="L19771" class="LineNr">19771 </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="L19772" class="LineNr">19772 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19773" class="LineNr">19773 </span> 55/push-ebp +<span id="L19774" class="LineNr">19774 </span> 89/<- %ebp 4/r32/esp +<span id="L19775" class="LineNr">19775 </span> <span class="subxS1Comment"># . push registers</span> +<span id="L19776" class="LineNr">19776 </span> 51/push-ecx +<span id="L19777" class="LineNr">19777 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L19778" class="LineNr">19778 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L19779" class="LineNr">19779 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19780" class="LineNr">19780 </span> 89/<- %ecx 0/r32/eax +<span id="L19781" class="LineNr">19781 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> +<span id="L19782" class="LineNr">19782 </span> { +<span id="L19783" class="LineNr">19783 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L19784" class="LineNr">19784 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L19785" class="LineNr">19785 </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="L19786" class="LineNr">19786 </span> 89/<- %ecx 0/r32/eax +<span id="L19787" class="LineNr">19787 </span> } +<span id="L19788" class="LineNr">19788 </span> <span class="subxComment"># TODO: ensure t is an atom</span> +<span id="L19789" class="LineNr">19789 </span> (<a href='mu.subx.html#L19798'>compute-size-of-type-id</a> *(ecx+4) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L19790" class="LineNr">19790 </span><span class="Constant">$compute-size-of-var:end</span>: +<span id="L19791" class="LineNr">19791 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19792" class="LineNr">19792 </span> 59/pop-to-ecx +<span id="L19793" class="LineNr">19793 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19794" class="LineNr">19794 </span> 89/<- %esp 5/r32/ebp +<span id="L19795" class="LineNr">19795 </span> 5d/pop-to-ebp +<span id="L19796" class="LineNr">19796 </span> c3/return +<span id="L19797" class="LineNr">19797 </span> +<span id="L19798" class="LineNr">19798 </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="L19799" class="LineNr">19799 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19800" class="LineNr">19800 </span> 55/push-ebp +<span id="L19801" class="LineNr">19801 </span> 89/<- %ebp 4/r32/esp +<span id="L19802" class="LineNr">19802 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19803" class="LineNr">19803 </span> 51/push-ecx +<span id="L19804" class="LineNr">19804 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> +<span id="L19805" class="LineNr">19805 </span> 68/push 0/imm32 +<span id="L19806" class="LineNr">19806 </span> 68/push 0/imm32 +<span id="L19807" class="LineNr">19807 </span> 89/<- %ecx 4/r32/esp +<span id="L19808" class="LineNr">19808 </span> <span class="subxComment"># eax = t</span> +<span id="L19809" class="LineNr">19809 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L19810" class="LineNr">19810 </span> <span class="subxComment"># if t is a literal, return 0</span> +<span id="L19811" class="LineNr">19811 </span> 3d/compare-eax-and 0/imm32/literal +<span id="L19812" class="LineNr">19812 </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="L19813" class="LineNr">19813 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> +<span id="L19814" class="LineNr">19814 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L19815" class="LineNr">19815 </span> { +<span id="L19816" class="LineNr">19816 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L19817" class="LineNr">19817 </span> b8/copy-to-eax 4/imm32 +<span id="L19818" class="LineNr">19818 </span> eb/jump $compute-size-of-type-id:end/disp8 +<span id="L19819" class="LineNr">19819 </span> } +<span id="L19820" class="LineNr">19820 </span> <span class="subxComment"># if t is a handle, return 8</span> +<span id="L19821" class="LineNr">19821 </span> 3d/compare-eax-and 4/imm32/handle +<span id="L19822" class="LineNr">19822 </span> { +<span id="L19823" class="LineNr">19823 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L19824" class="LineNr">19824 </span> b8/copy-to-eax 8/imm32 +<span id="L19825" class="LineNr">19825 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L19826" class="LineNr">19826 </span> } +<span id="L19827" class="LineNr">19827 </span> <span class="subxComment"># if t is a slice, return 8</span> +<span id="L19828" class="LineNr">19828 </span> 3d/compare-eax-and 0xc/imm32/slice +<span id="L19829" class="LineNr">19829 </span> { +<span id="L19830" class="LineNr">19830 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L19831" class="LineNr">19831 </span> b8/copy-to-eax 8/imm32 +<span id="L19832" class="LineNr">19832 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L19833" class="LineNr">19833 </span> } +<span id="L19834" class="LineNr">19834 </span> <span class="subxComment"># if t is a user-defined type, compute its size</span> +<span id="L19835" class="LineNr">19835 </span> <span class="subxComment"># TODO: support non-atom type</span> +<span id="L19836" class="LineNr">19836 </span> (<a href='mu.subx.html#L19223'>find-typeinfo</a> %eax %ecx) +<span id="L19837" class="LineNr">19837 </span> { +<span id="L19838" class="LineNr">19838 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L19839" class="LineNr">19839 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19840" class="LineNr">19840 </span><span class="Constant">$compute-size-of-type-id:user-defined</span>: +<span id="L19841" class="LineNr">19841 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L19842" class="LineNr">19842 </span> (<a href='mu.subx.html#L19697'>populate-mu-type-sizes-in-type</a> %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L19843" class="LineNr">19843 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L19844" class="LineNr">19844 </span> eb/jump $compute-size-of-type-id:end/disp8 +<span id="L19845" class="LineNr">19845 </span> } +<span id="L19846" class="LineNr">19846 </span> <span class="subxComment"># otherwise return the word size</span> +<span id="L19847" class="LineNr">19847 </span> b8/copy-to-eax 4/imm32 +<span id="L19848" class="LineNr">19848 </span><span class="Constant">$compute-size-of-type-id:end</span>: +<span id="L19849" class="LineNr">19849 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19850" class="LineNr">19850 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19851" class="LineNr">19851 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19852" class="LineNr">19852 </span> 59/pop-to-ecx +<span id="L19853" class="LineNr">19853 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19854" class="LineNr">19854 </span> 89/<- %esp 5/r32/ebp +<span id="L19855" class="LineNr">19855 </span> 5d/pop-to-ebp +<span id="L19856" class="LineNr">19856 </span> c3/return +<span id="L19857" class="LineNr">19857 </span> +<span id="L19858" class="LineNr">19858 </span><span class="subxComment"># at this point we have total sizes for all user-defined types</span> +<span id="L19859" class="LineNr">19859 </span><span class="subxComment"># compute offsets for each element</span> +<span id="L19860" class="LineNr">19860 </span><span class="subxComment"># complication: fields may be out of order</span> +<span id="L19861" class="LineNr">19861 </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="L19862" class="LineNr">19862 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19863" class="LineNr">19863 </span> 55/push-ebp +<span id="L19864" class="LineNr">19864 </span> 89/<- %ebp 4/r32/esp +<span id="L19865" class="LineNr">19865 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19866" class="LineNr">19866 </span> 50/push-eax +<span id="L19867" class="LineNr">19867 </span> 51/push-ecx +<span id="L19868" class="LineNr">19868 </span> 52/push-edx +<span id="L19869" class="LineNr">19869 </span> 53/push-ebx +<span id="L19870" class="LineNr">19870 </span> 56/push-esi +<span id="L19871" class="LineNr">19871 </span> 57/push-edi +<span id="L19872" class="LineNr">19872 </span><span class="CommentedCode">#? (dump-typeinfos "aaa\n")</span> +<span id="L19873" class="LineNr">19873 </span> <span class="subxComment"># var curr-offset/edi: int = 0</span> +<span id="L19874" class="LineNr">19874 </span> bf/copy-to-edi 0/imm32 +<span id="L19875" class="LineNr">19875 </span> <span class="subxComment"># var table/ecx: (addr table string_key (handle typeinfo-entry)) = lookup(in->fields)</span> +<span id="L19876" class="LineNr">19876 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L19877" class="LineNr">19877 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L19878" class="LineNr">19878 </span> 89/<- %ecx 0/r32/eax +<span id="L19879" class="LineNr">19879 </span> <span class="subxComment"># var num-elems/edx: int = table->write / Typeinfo-fields-row-size</span> +<span id="L19880" class="LineNr">19880 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L19881" class="LineNr">19881 </span> c1 5/subop/shift-right-logical %edx 4/imm8 +<span id="L19882" class="LineNr">19882 </span> <span class="subxComment"># var i/ebx: int = 0</span> +<span id="L19883" class="LineNr">19883 </span> bb/copy-to-ebx 0/imm32 +<span id="L19884" class="LineNr">19884 </span> { +<span id="L19885" class="LineNr">19885 </span><span class="Constant">$populate-mu-type-offsets:loop</span>: +<span id="L19886" class="LineNr">19886 </span> 39/compare %ebx 2/r32/edx +<span id="L19887" class="LineNr">19887 </span> 0f 8d/jump-if->= <span class="Constant">break</span>/disp32 +<span id="L19888" class="LineNr">19888 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up index ")</span> +<span id="L19889" class="LineNr">19889 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L19890" class="LineNr">19890 </span><span class="CommentedCode">#? (write-buffered Stderr " in ")</span> +<span id="L19891" class="LineNr">19891 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L19892" class="LineNr">19892 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19893" class="LineNr">19893 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19894" class="LineNr">19894 </span> <span class="subxComment"># var v/esi: (addr typeinfo-entry)</span> +<span id="L19895" class="LineNr">19895 </span> (<a href='mu.subx.html#L19928'>locate-typeinfo-entry-with-index</a> %ecx %ebx *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L19896" class="LineNr">19896 </span> 89/<- %esi 0/r32/eax +<span id="L19897" class="LineNr">19897 </span> <span class="subxComment"># if v is null, silently move on; we'll emit a nice error message while type-checking</span> +<span id="L19898" class="LineNr">19898 </span> 81 7/subop/compare %esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L19899" class="LineNr">19899 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 +<span id="L19900" class="LineNr">19900 </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="L19901" class="LineNr">19901 </span> 81 7/subop/compare *esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L19902" class="LineNr">19902 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 +<span id="L19903" class="LineNr">19903 </span> <span class="subxComment"># v->output-var->offset = curr-offset</span> +<span id="L19904" class="LineNr">19904 </span> <span class="subxS1Comment"># . eax: (addr var)</span> +<span id="L19905" class="LineNr">19905 </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="L19906" class="LineNr">19906 </span> 89/<- *(eax+0x14) 7/r32/edi <span class="subxComment"># Var-offset</span> +<span id="L19907" class="LineNr">19907 </span> <span class="subxComment"># curr-offset += size-of(v->input-var)</span> +<span id="L19908" class="LineNr">19908 </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="L19909" class="LineNr">19909 </span> (<a href='mu.subx.html#L25018'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L19910" class="LineNr">19910 </span> 01/add-to %edi 0/r32/eax +<span id="L19911" class="LineNr">19911 </span> <span class="subxComment"># ++i</span> +<span id="L19912" class="LineNr">19912 </span> 43/increment-ebx +<span id="L19913" class="LineNr">19913 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L19914" class="LineNr">19914 </span> } +<span id="L19915" class="LineNr">19915 </span><span class="Constant">$populate-mu-type-offsets:end</span>: +<span id="L19916" class="LineNr">19916 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19917" class="LineNr">19917 </span> 5f/pop-to-edi +<span id="L19918" class="LineNr">19918 </span> 5e/pop-to-esi +<span id="L19919" class="LineNr">19919 </span> 5b/pop-to-ebx +<span id="L19920" class="LineNr">19920 </span> 5a/pop-to-edx +<span id="L19921" class="LineNr">19921 </span> 59/pop-to-ecx +<span id="L19922" class="LineNr">19922 </span> 58/pop-to-eax +<span id="L19923" class="LineNr">19923 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19924" class="LineNr">19924 </span> 89/<- %esp 5/r32/ebp +<span id="L19925" class="LineNr">19925 </span> 5d/pop-to-ebp +<span id="L19926" class="LineNr">19926 </span> c3/return +<span id="L19927" class="LineNr">19927 </span> +<span id="L19928" class="LineNr">19928 </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="L19929" class="LineNr">19929 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19930" class="LineNr">19930 </span> 55/push-ebp +<span id="L19931" class="LineNr">19931 </span> 89/<- %ebp 4/r32/esp +<span id="L19932" class="LineNr">19932 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19933" class="LineNr">19933 </span> 51/push-ecx +<span id="L19934" class="LineNr">19934 </span> 52/push-edx +<span id="L19935" class="LineNr">19935 </span> 53/push-ebx +<span id="L19936" class="LineNr">19936 </span> 56/push-esi +<span id="L19937" class="LineNr">19937 </span> 57/push-edi +<span id="L19938" class="LineNr">19938 </span> <span class="subxComment"># esi = table</span> +<span id="L19939" class="LineNr">19939 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L19940" class="LineNr">19940 </span> <span class="subxComment"># var curr/ecx: (addr row (handle array byte) (handle typeinfo-entry)) = table->data</span> +<span id="L19941" class="LineNr">19941 </span> 8d/copy-address *(esi+0xc) 1/r32/ecx +<span id="L19942" class="LineNr">19942 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L19943" class="LineNr">19943 </span> 8b/-> *esi 2/r32/edx +<span id="L19944" class="LineNr">19944 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L19945" class="LineNr">19945 </span> { +<span id="L19946" class="LineNr">19946 </span><span class="Constant">$locate-typeinfo-entry-with-index:loop</span>: +<span id="L19947" class="LineNr">19947 </span> 39/compare %ecx 2/r32/edx +<span id="L19948" class="LineNr">19948 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 +<span id="L19949" class="LineNr">19949 </span> <span class="subxComment"># var v/eax: (addr typeinfo-entry)</span> +<span id="L19950" class="LineNr">19950 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> +<span id="L19951" class="LineNr">19951 </span> <span class="subxComment"># if (v->index == idx) return v</span> +<span id="L19952" class="LineNr">19952 </span> 8b/-> *(eax+8) 3/r32/ebx <span class="subxComment"># Typeinfo-entry-index</span> +<span id="L19953" class="LineNr">19953 </span><span class="CommentedCode">#? (write-buffered Stderr "comparing ")</span> +<span id="L19954" class="LineNr">19954 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L19955" class="LineNr">19955 </span><span class="CommentedCode">#? (write-buffered Stderr " and ")</span> +<span id="L19956" class="LineNr">19956 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+0xc))</span> +<span id="L19957" class="LineNr">19957 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19958" class="LineNr">19958 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19959" class="LineNr">19959 </span> 39/compare *(ebp+0xc) 3/r32/ebx +<span id="L19960" class="LineNr">19960 </span> 74/jump-if-= $locate-typeinfo-entry-with-index:end/disp8 +<span id="L19961" class="LineNr">19961 </span> <span class="subxComment"># curr += Typeinfo-entry-size</span> +<span id="L19962" class="LineNr">19962 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-entry-size</span> +<span id="L19963" class="LineNr">19963 </span> <span class="subxComment">#</span> +<span id="L19964" class="LineNr">19964 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L19965" class="LineNr">19965 </span> } +<span id="L19966" class="LineNr">19966 </span> <span class="subxComment"># return 0</span> +<span id="L19967" class="LineNr">19967 </span> b8/copy-to-eax 0/imm32 +<span id="L19968" class="LineNr">19968 </span><span class="Constant">$locate-typeinfo-entry-with-index:end</span>: +<span id="L19969" class="LineNr">19969 </span><span class="CommentedCode">#? (write-buffered Stderr "returning ")</span> +<span id="L19970" class="LineNr">19970 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L19971" class="LineNr">19971 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19972" class="LineNr">19972 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19973" class="LineNr">19973 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19974" class="LineNr">19974 </span> 5f/pop-to-edi +<span id="L19975" class="LineNr">19975 </span> 5e/pop-to-esi +<span id="L19976" class="LineNr">19976 </span> 5b/pop-to-ebx +<span id="L19977" class="LineNr">19977 </span> 5a/pop-to-edx +<span id="L19978" class="LineNr">19978 </span> 59/pop-to-ecx +<span id="L19979" class="LineNr">19979 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19980" class="LineNr">19980 </span> 89/<- %esp 5/r32/ebp +<span id="L19981" class="LineNr">19981 </span> 5d/pop-to-ebp +<span id="L19982" class="LineNr">19982 </span> c3/return +<span id="L19983" class="LineNr">19983 </span> +<span id="L19984" class="LineNr">19984 </span><span class="subxFunction">dump-typeinfos</span>: <span class="subxComment"># hdr: (addr array byte)</span> +<span id="L19985" class="LineNr">19985 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19986" class="LineNr">19986 </span> 55/push-ebp +<span id="L19987" class="LineNr">19987 </span> 89/<- %ebp 4/r32/esp +<span id="L19988" class="LineNr">19988 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19989" class="LineNr">19989 </span> 50/push-eax +<span id="L19990" class="LineNr">19990 </span> <span class="subxComment">#</span> +<span id="L19991" class="LineNr">19991 </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="L19992" class="LineNr">19992 </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="L19993" class="LineNr">19993 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> +<span id="L19994" class="LineNr">19994 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L19995" class="LineNr">19995 </span> { +<span id="L19996" class="LineNr">19996 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L19997" class="LineNr">19997 </span> 3d/compare-eax-and 0/imm32 +<span id="L19998" class="LineNr">19998 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19999" class="LineNr">19999 </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="L20000" class="LineNr">20000 </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="L20001" class="LineNr">20001 </span> (<a href='mu.subx.html#L20014'>dump-typeinfo</a> %eax) +<span id="L20002" class="LineNr">20002 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L20003" class="LineNr">20003 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L20004" class="LineNr">20004 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20005" class="LineNr">20005 </span> } +<span id="L20006" class="LineNr">20006 </span><span class="Constant">$dump-typeinfos:end</span>: +<span id="L20007" class="LineNr">20007 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20008" class="LineNr">20008 </span> 58/pop-to-eax +<span id="L20009" class="LineNr">20009 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20010" class="LineNr">20010 </span> 89/<- %esp 5/r32/ebp +<span id="L20011" class="LineNr">20011 </span> 5d/pop-to-ebp +<span id="L20012" class="LineNr">20012 </span> c3/return +<span id="L20013" class="LineNr">20013 </span> +<span id="L20014" class="LineNr">20014 </span><span class="subxFunction">dump-typeinfo</span>: <span class="subxComment"># in: (addr typeinfo)</span> +<span id="L20015" class="LineNr">20015 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20016" class="LineNr">20016 </span> 55/push-ebp +<span id="L20017" class="LineNr">20017 </span> 89/<- %ebp 4/r32/esp +<span id="L20018" class="LineNr">20018 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20019" class="LineNr">20019 </span> 50/push-eax +<span id="L20020" class="LineNr">20020 </span> 51/push-ecx +<span id="L20021" class="LineNr">20021 </span> 52/push-edx +<span id="L20022" class="LineNr">20022 </span> 53/push-ebx +<span id="L20023" class="LineNr">20023 </span> 56/push-esi +<span id="L20024" class="LineNr">20024 </span> 57/push-edi +<span id="L20025" class="LineNr">20025 </span> <span class="subxComment"># esi = in</span> +<span id="L20026" class="LineNr">20026 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L20027" class="LineNr">20027 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> +<span id="L20028" class="LineNr">20028 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L20029" class="LineNr">20029 </span> 89/<- %ecx 0/r32/eax +<span id="L20030" class="LineNr">20030 </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="L20031" class="LineNr">20031 </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="L20032" class="LineNr">20032 </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="L20033" class="LineNr">20033 </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="L20034" class="LineNr">20034 </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="L20035" class="LineNr">20035 </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="L20036" class="LineNr">20036 </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="L20037" class="LineNr">20037 </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="L20038" class="LineNr">20038 </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="L20039" class="LineNr">20039 </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="L20040" class="LineNr">20040 </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="L20041" class="LineNr">20041 </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="L20042" class="LineNr">20042 </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="L20043" class="LineNr">20043 </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="L20044" class="LineNr">20044 </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="L20045" class="LineNr">20045 </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="L20046" class="LineNr">20046 </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="L20047" class="LineNr">20047 </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="L20048" class="LineNr">20048 </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="L20049" class="LineNr">20049 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> +<span id="L20050" class="LineNr">20050 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L20051" class="LineNr">20051 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> +<span id="L20052" class="LineNr">20052 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx +<span id="L20053" class="LineNr">20053 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> +<span id="L20054" class="LineNr">20054 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L20055" class="LineNr">20055 </span> { +<span id="L20056" class="LineNr">20056 </span><span class="Constant">$dump-typeinfo:loop</span>: +<span id="L20057" class="LineNr">20057 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L20058" class="LineNr">20058 </span> 39/compare %ecx 2/r32/edx +<span id="L20059" class="LineNr">20059 </span> 0f 83/jump-if-addr>= <span class="Constant">break</span>/disp32 +<span id="L20060" class="LineNr">20060 </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="L20061" class="LineNr">20061 </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="L20062" class="LineNr">20062 </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="L20063" class="LineNr">20063 </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="L20064" class="LineNr">20064 </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="L20065" class="LineNr">20065 </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="L20066" class="LineNr">20066 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) +<span id="L20067" class="LineNr">20067 </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="L20068" class="LineNr">20068 </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="L20069" class="LineNr">20069 </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="L20070" class="LineNr">20070 </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="L20071" class="LineNr">20071 </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="L20072" class="LineNr">20072 </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="L20073" class="LineNr">20073 </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="L20074" class="LineNr">20074 </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="L20075" class="LineNr">20075 </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="L20076" class="LineNr">20076 </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="L20077" class="LineNr">20077 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) +<span id="L20078" class="LineNr">20078 </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="L20079" class="LineNr">20079 </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="L20080" class="LineNr">20080 </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="L20081" class="LineNr">20081 </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="L20082" class="LineNr">20082 </span> (<a href='mu.subx.html#L20110'>dump-var</a> 5 %eax) +<span id="L20083" class="LineNr">20083 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) +<span id="L20084" class="LineNr">20084 </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="L20085" class="LineNr">20085 </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="L20086" class="LineNr">20086 </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="L20087" class="LineNr">20087 </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="L20088" class="LineNr">20088 </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="L20089" class="LineNr">20089 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20090" class="LineNr">20090 </span> (<a href='mu.subx.html#L20110'>dump-var</a> 5 %eax) +<span id="L20091" class="LineNr">20091 </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="L20092" class="LineNr">20092 </span> <span class="subxComment"># curr += row-size</span> +<span id="L20093" class="LineNr">20093 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> +<span id="L20094" class="LineNr">20094 </span> <span class="subxComment">#</span> +<span id="L20095" class="LineNr">20095 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L20096" class="LineNr">20096 </span> } +<span id="L20097" class="LineNr">20097 </span><span class="Constant">$dump-typeinfo:end</span>: +<span id="L20098" class="LineNr">20098 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20099" class="LineNr">20099 </span> 5f/pop-to-edi +<span id="L20100" class="LineNr">20100 </span> 5e/pop-to-esi +<span id="L20101" class="LineNr">20101 </span> 5b/pop-to-ebx +<span id="L20102" class="LineNr">20102 </span> 5a/pop-to-edx +<span id="L20103" class="LineNr">20103 </span> 59/pop-to-ecx +<span id="L20104" class="LineNr">20104 </span> 58/pop-to-eax +<span id="L20105" class="LineNr">20105 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20106" class="LineNr">20106 </span> 89/<- %esp 5/r32/ebp +<span id="L20107" class="LineNr">20107 </span> 5d/pop-to-ebp +<span id="L20108" class="LineNr">20108 </span> c3/return +<span id="L20109" class="LineNr">20109 </span> +<span id="L20110" class="LineNr">20110 </span><span class="subxFunction">dump-var</span>: <span class="subxComment"># indent: int, v: (addr handle var)</span> +<span id="L20111" class="LineNr">20111 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20112" class="LineNr">20112 </span> 55/push-ebp +<span id="L20113" class="LineNr">20113 </span> 89/<- %ebp 4/r32/esp +<span id="L20114" class="LineNr">20114 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20115" class="LineNr">20115 </span> 50/push-eax +<span id="L20116" class="LineNr">20116 </span> 53/push-ebx +<span id="L20117" class="LineNr">20117 </span> <span class="subxComment"># eax = v</span> +<span id="L20118" class="LineNr">20118 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L20119" class="LineNr">20119 </span> <span class="subxComment">#</span> +<span id="L20120" class="LineNr">20120 </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="L20121" class="LineNr">20121 </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="L20122" class="LineNr">20122 </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="L20123" class="LineNr">20123 </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="L20124" class="LineNr">20124 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) +<span id="L20125" class="LineNr">20125 </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="L20126" class="LineNr">20126 </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="L20127" class="LineNr">20127 </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="L20128" class="LineNr">20128 </span> { +<span id="L20129" class="LineNr">20129 </span> 3d/compare-eax-and 0/imm32 +<span id="L20130" class="LineNr">20130 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L20131" class="LineNr">20131 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L20132" class="LineNr">20132 </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="L20133" class="LineNr">20133 </span> 89/<- %ebx 0/r32/eax +<span id="L20134" class="LineNr">20134 </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="L20135" class="LineNr">20135 </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="L20136" class="LineNr">20136 </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="L20137" class="LineNr">20137 </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="L20138" class="LineNr">20138 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name</span> +<span id="L20139" class="LineNr">20139 </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="L20140" class="LineNr">20140 </span> { +<span id="L20141" class="LineNr">20141 </span> 3d/compare-eax-and 0/imm32 +<span id="L20142" class="LineNr">20142 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20143" class="LineNr">20143 </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="L20144" class="LineNr">20144 </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="L20145" class="LineNr">20145 </span> } +<span id="L20146" class="LineNr">20146 </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="L20147" class="LineNr">20147 </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="L20148" class="LineNr">20148 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L20149" class="LineNr">20149 </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="L20150" class="LineNr">20150 </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="L20151" class="LineNr">20151 </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="L20152" class="LineNr">20152 </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="L20153" class="LineNr">20153 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L20154" class="LineNr">20154 </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="L20155" class="LineNr">20155 </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="L20156" class="LineNr">20156 </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="L20157" class="LineNr">20157 </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="L20158" class="LineNr">20158 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L20159" class="LineNr">20159 </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="L20160" class="LineNr">20160 </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="L20161" class="LineNr">20161 </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="L20162" class="LineNr">20162 </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="L20163" class="LineNr">20163 </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="L20164" class="LineNr">20164 </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="L20165" class="LineNr">20165 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register</span> +<span id="L20166" class="LineNr">20166 </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="L20167" class="LineNr">20167 </span> { +<span id="L20168" class="LineNr">20168 </span> 3d/compare-eax-and 0/imm32 +<span id="L20169" class="LineNr">20169 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20170" class="LineNr">20170 </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="L20171" class="LineNr">20171 </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="L20172" class="LineNr">20172 </span> } +<span id="L20173" class="LineNr">20173 </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="L20174" class="LineNr">20174 </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="L20175" class="LineNr">20175 </span> } -<span id="L20176" class="LineNr">20176 </span> <span class="subxComment"># if (op == "write-to-stream") check-mu-write-to-stream-stmt</span> -<span id="L20177" class="LineNr">20177 </span> { -<span id="L20178" class="LineNr">20178 </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="L20179" class="LineNr">20179 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20180" class="LineNr">20180 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20181" class="LineNr">20181 </span> (<a href='mu.subx.html#L23745'>check-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20182" class="LineNr">20182 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20183" class="LineNr">20183 </span> } -<span id="L20184" class="LineNr">20184 </span> <span class="subxComment"># if (op == "convert") check-mu-convert-stmt</span> -<span id="L20185" class="LineNr">20185 </span> { -<span id="L20186" class="LineNr">20186 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"convert"</span>) <span class="subxComment"># => eax</span> -<span id="L20187" class="LineNr">20187 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20188" class="LineNr">20188 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20189" class="LineNr">20189 </span> (<a href='mu.subx.html#L23912'>check-mu-convert-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20190" class="LineNr">20190 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L20191" class="LineNr">20191 </span> } -<span id="L20192" class="LineNr">20192 </span> <span class="subxComment"># otherwise check-numberlike-stmt</span> -<span id="L20193" class="LineNr">20193 </span> (<a href='mu.subx.html#L20204'>check-mu-numberlike-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20194" class="LineNr">20194 </span><span class="Constant">$check-mu-primitive:end</span>: -<span id="L20195" class="LineNr">20195 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20196" class="LineNr">20196 </span> 59/pop-to-ecx -<span id="L20197" class="LineNr">20197 </span> 58/pop-to-eax -<span id="L20198" class="LineNr">20198 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20199" class="LineNr">20199 </span> 89/<- %esp 5/r32/ebp -<span id="L20200" class="LineNr">20200 </span> 5d/pop-to-ebp -<span id="L20201" class="LineNr">20201 </span> c3/return -<span id="L20202" class="LineNr">20202 </span> -<span id="L20203" class="LineNr">20203 </span><span class="subxComment"># by default, Mu primitives should only operate on 'number-like' types</span> -<span id="L20204" class="LineNr">20204 </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="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="subxS1Comment"># . save registers</span> -<span id="L20209" class="LineNr">20209 </span> 50/push-eax -<span id="L20210" class="LineNr">20210 </span> 51/push-ecx -<span id="L20211" class="LineNr">20211 </span> 56/push-esi -<span id="L20212" class="LineNr">20212 </span> <span class="subxComment"># esi = stmt</span> -<span id="L20213" class="LineNr">20213 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L20214" class="LineNr">20214 </span> <span class="subxComment"># var gas/ecx: int = 2</span> -<span id="L20215" class="LineNr">20215 </span> b9/copy-to-ecx 2/imm32 -<span id="L20216" class="LineNr">20216 </span> <span class="subxH1Comment"># - check at most 1 output</span> -<span id="L20217" class="LineNr">20217 </span> <span class="subxComment"># var output/eax: (addr stmt-var) = stmt->outputs</span> -<span id="L20218" class="LineNr">20218 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L20219" class="LineNr">20219 </span> { -<span id="L20220" class="LineNr">20220 </span> 3d/compare-eax-and 0/imm32 -<span id="L20221" class="LineNr">20221 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20222" class="LineNr">20222 </span><span class="Constant">$check-mu-numberlike-primitive:output</span>: -<span id="L20223" class="LineNr">20223 </span> (<a href='mu.subx.html#L20344'>check-mu-numberlike-output</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20224" class="LineNr">20224 </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="L20225" class="LineNr">20225 </span> 3d/compare-eax-and 0/imm32 -<span id="L20226" class="LineNr">20226 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-outputs/disp32 -<span id="L20227" class="LineNr">20227 </span> <span class="subxComment"># check output is in a register</span> -<span id="L20228" class="LineNr">20228 </span> <span class="subxComment"># --gas</span> -<span id="L20229" class="LineNr">20229 </span> 49/decrement-ecx -<span id="L20230" class="LineNr">20230 </span> } -<span id="L20231" class="LineNr">20231 </span> <span class="subxH1Comment"># - check first inout</span> -<span id="L20232" class="LineNr">20232 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L20233" class="LineNr">20233 </span> { -<span id="L20234" class="LineNr">20234 </span> 3d/compare-eax-and 0/imm32 -<span id="L20235" class="LineNr">20235 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:end/disp32 -<span id="L20236" class="LineNr">20236 </span><span class="Constant">$check-mu-numberlike-primitive:first-inout</span>: -<span id="L20237" class="LineNr">20237 </span> (<a href='mu.subx.html#L20293'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20238" class="LineNr">20238 </span> <span class="subxComment"># --gas</span> -<span id="L20239" class="LineNr">20239 </span> 49/decrement-ecx -<span id="L20240" class="LineNr">20240 </span> } -<span id="L20241" class="LineNr">20241 </span> <span class="subxH1Comment"># - check second inout</span> -<span id="L20242" class="LineNr">20242 </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="L20243" class="LineNr">20243 </span> { -<span id="L20244" class="LineNr">20244 </span> 3d/compare-eax-and 0/imm32 -<span id="L20245" class="LineNr">20245 </span> 74/jump-if-= $check-mu-numberlike-primitive:end/disp8 -<span id="L20246" class="LineNr">20246 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout</span>: -<span id="L20247" class="LineNr">20247 </span> <span class="subxComment"># is a second inout allowed?</span> -<span id="L20248" class="LineNr">20248 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L20249" class="LineNr">20249 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 -<span id="L20250" class="LineNr">20250 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout-permitted</span>: -<span id="L20251" class="LineNr">20251 </span> (<a href='mu.subx.html#L20293'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20252" class="LineNr">20252 </span> } -<span id="L20253" class="LineNr">20253 </span><span class="Constant">$check-mu-numberlike-primitive:third-inout</span>: -<span id="L20254" class="LineNr">20254 </span> <span class="subxComment"># if there's a third arg, raise an error</span> -<span id="L20255" class="LineNr">20255 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> -<span id="L20256" class="LineNr">20256 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 -<span id="L20257" class="LineNr">20257 </span><span class="Constant">$check-mu-numberlike-primitive:end</span>: -<span id="L20258" class="LineNr">20258 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20259" class="LineNr">20259 </span> 5e/pop-to-esi -<span id="L20260" class="LineNr">20260 </span> 59/pop-to-ecx -<span id="L20261" class="LineNr">20261 </span> 58/pop-to-eax -<span id="L20262" class="LineNr">20262 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20263" class="LineNr">20263 </span> 89/<- %esp 5/r32/ebp -<span id="L20264" class="LineNr">20264 </span> 5d/pop-to-ebp -<span id="L20265" class="LineNr">20265 </span> c3/return -<span id="L20266" class="LineNr">20266 </span> -<span id="L20267" class="LineNr">20267 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-inouts</span>: -<span id="L20268" class="LineNr">20268 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20269" class="LineNr">20269 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20270" class="LineNr">20270 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20271" class="LineNr">20271 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20272" class="LineNr">20272 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) -<span id="L20273" class="LineNr">20273 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L20274" class="LineNr">20274 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20275" class="LineNr">20275 </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="L20276" class="LineNr">20276 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20277" class="LineNr">20277 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20278" class="LineNr">20278 </span> <span class="subxComment"># never gets here</span> -<span id="L20279" class="LineNr">20279 </span> -<span id="L20280" class="LineNr">20280 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-outputs</span>: -<span id="L20281" class="LineNr">20281 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20282" class="LineNr">20282 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20283" class="LineNr">20283 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20284" class="LineNr">20284 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20285" class="LineNr">20285 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) -<span id="L20286" class="LineNr">20286 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L20287" class="LineNr">20287 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20288" class="LineNr">20288 </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="L20289" class="LineNr">20289 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20290" class="LineNr">20290 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20291" class="LineNr">20291 </span> <span class="subxComment"># never gets here</span> -<span id="L20292" class="LineNr">20292 </span> -<span id="L20293" class="LineNr">20293 </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="L20294" class="LineNr">20294 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20295" class="LineNr">20295 </span> 55/push-ebp -<span id="L20296" class="LineNr">20296 </span> 89/<- %ebp 4/r32/esp -<span id="L20297" class="LineNr">20297 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20298" class="LineNr">20298 </span> 50/push-eax -<span id="L20299" class="LineNr">20299 </span> 56/push-esi -<span id="L20300" class="LineNr">20300 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> -<span id="L20301" class="LineNr">20301 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20302" class="LineNr">20302 </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="L20303" class="LineNr">20303 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20304" class="LineNr">20304 </span> 89/<- %esi 0/r32/eax -<span id="L20305" class="LineNr">20305 </span><span class="Constant">$check-mu-numberlike-arg:check-literal</span>: -<span id="L20306" class="LineNr">20306 </span> <span class="subxComment"># if t is an int, return</span> -<span id="L20307" class="LineNr">20307 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %esi 0) <span class="subxComment"># literal => eax</span> -<span id="L20308" class="LineNr">20308 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20309" class="LineNr">20309 </span> 0f 85/jump-if-!= $check-mu-numberlike-arg:end/disp32 -<span id="L20310" class="LineNr">20310 </span><span class="Constant">$check-mu-numberlike-arg:check-addr</span>: -<span id="L20311" class="LineNr">20311 </span> <span class="subxComment"># if t is an addr and v is dereferenced, return whether t->payload is an addr</span> -<span id="L20312" class="LineNr">20312 </span> { -<span id="L20313" class="LineNr">20313 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> -<span id="L20314" class="LineNr">20314 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20315" class="LineNr">20315 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20316" class="LineNr">20316 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20317" class="LineNr">20317 </span> 8b/-> *(eax+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L20318" class="LineNr">20318 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20319" class="LineNr">20319 </span> { -<span id="L20320" class="LineNr">20320 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20321" class="LineNr">20321 </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="L20322" class="LineNr">20322 </span> <span class="subxComment"># if t->right is null, t = t->left</span> -<span id="L20323" class="LineNr">20323 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20324" class="LineNr">20324 </span> { -<span id="L20325" class="LineNr">20325 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20326" class="LineNr">20326 </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="L20327" class="LineNr">20327 </span> } -<span id="L20328" class="LineNr">20328 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20329" class="LineNr">20329 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20330" class="LineNr">20330 </span> 74/jump-if-= $check-mu-numberlike-arg:end/disp8 -<span id="L20331" class="LineNr">20331 </span> } -<span id="L20332" class="LineNr">20332 </span> } -<span id="L20333" class="LineNr">20333 </span><span class="Constant">$check-mu-numberlike-arg:output-checks</span>: -<span id="L20334" class="LineNr">20334 </span> (<a href='mu.subx.html#L20344'>check-mu-numberlike-output</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) -<span id="L20335" class="LineNr">20335 </span><span class="Constant">$check-mu-numberlike-arg:end</span>: -<span id="L20336" class="LineNr">20336 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20337" class="LineNr">20337 </span> 5e/pop-to-esi -<span id="L20338" class="LineNr">20338 </span> 58/pop-to-eax -<span id="L20339" class="LineNr">20339 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20340" class="LineNr">20340 </span> 89/<- %esp 5/r32/ebp -<span id="L20341" class="LineNr">20341 </span> 5d/pop-to-ebp -<span id="L20342" class="LineNr">20342 </span> c3/return -<span id="L20343" class="LineNr">20343 </span> -<span id="L20344" class="LineNr">20344 </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="L20345" class="LineNr">20345 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20346" class="LineNr">20346 </span> 55/push-ebp -<span id="L20347" class="LineNr">20347 </span> 89/<- %ebp 4/r32/esp -<span id="L20348" class="LineNr">20348 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20349" class="LineNr">20349 </span> 50/push-eax -<span id="L20350" class="LineNr">20350 </span> <span class="subxComment">#</span> -<span id="L20351" class="LineNr">20351 </span> (<a href='mu.subx.html#L20382'>is-mu-numberlike-output-var?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L20352" class="LineNr">20352 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20353" class="LineNr">20353 </span> 0f 84/jump-if-= $check-mu-numberlike-output:fail/disp32 -<span id="L20354" class="LineNr">20354 </span><span class="Constant">$check-mu-numberlike-output:end</span>: -<span id="L20355" class="LineNr">20355 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20356" class="LineNr">20356 </span> 58/pop-to-eax -<span id="L20357" class="LineNr">20357 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20358" class="LineNr">20358 </span> 89/<- %esp 5/r32/ebp -<span id="L20359" class="LineNr">20359 </span> 5d/pop-to-ebp -<span id="L20360" class="LineNr">20360 </span> c3/return -<span id="L20361" class="LineNr">20361 </span> -<span id="L20362" class="LineNr">20362 </span><span class="Constant">$check-mu-numberlike-output:fail</span>: -<span id="L20363" class="LineNr">20363 </span> <span class="subxComment"># otherwise raise an error</span> -<span id="L20364" class="LineNr">20364 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L20365" class="LineNr">20365 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L20366" class="LineNr">20366 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20367" class="LineNr">20367 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L20368" class="LineNr">20368 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": stmt "</span>) -<span id="L20369" class="LineNr">20369 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20370" class="LineNr">20370 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L20371" class="LineNr">20371 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L20372" class="LineNr">20372 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": '"</span>) -<span id="L20373" class="LineNr">20373 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20374" class="LineNr">20374 </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="L20375" class="LineNr">20375 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L20376" class="LineNr">20376 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L20377" class="LineNr">20377 </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="L20378" class="LineNr">20378 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L20379" class="LineNr">20379 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L20380" class="LineNr">20380 </span> <span class="subxComment"># never gets here</span> -<span id="L20381" class="LineNr">20381 </span> -<span id="L20382" class="LineNr">20382 </span><span class="subxFunction">is-mu-numberlike-output-var?</span>: <span class="subxComment"># v: (addr stmt-var) -> result/eax: boolean</span> -<span id="L20383" class="LineNr">20383 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20384" class="LineNr">20384 </span> 55/push-ebp -<span id="L20385" class="LineNr">20385 </span> 89/<- %ebp 4/r32/esp -<span id="L20386" class="LineNr">20386 </span> <span class="subxComment">#</span> -<span id="L20387" class="LineNr">20387 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20388" class="LineNr">20388 </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="L20389" class="LineNr">20389 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20390" class="LineNr">20390 </span> (<a href='mu.subx.html#L20397'>is-mu-numberlike-output?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20391" class="LineNr">20391 </span><span class="Constant">$is-mu-numberlike-output-var?:end</span>: -<span id="L20392" class="LineNr">20392 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20393" class="LineNr">20393 </span> 89/<- %esp 5/r32/ebp -<span id="L20394" class="LineNr">20394 </span> 5d/pop-to-ebp -<span id="L20395" class="LineNr">20395 </span> c3/return -<span id="L20396" class="LineNr">20396 </span> -<span id="L20397" class="LineNr">20397 </span><span class="subxFunction">is-mu-numberlike-output?</span>: <span class="subxComment"># v: (addr type-tree) -> result/eax: boolean</span> -<span id="L20398" class="LineNr">20398 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20399" class="LineNr">20399 </span> 55/push-ebp -<span id="L20400" class="LineNr">20400 </span> 89/<- %ebp 4/r32/esp -<span id="L20401" class="LineNr">20401 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20402" class="LineNr">20402 </span> 56/push-esi -<span id="L20403" class="LineNr">20403 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> -<span id="L20404" class="LineNr">20404 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L20405" class="LineNr">20405 </span><span class="Constant">$is-mu-numberlike-output?:check-int</span>: -<span id="L20406" class="LineNr">20406 </span> <span class="subxComment"># if t is an int, return</span> -<span id="L20407" class="LineNr">20407 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %esi 1) <span class="subxComment"># int => eax</span> -<span id="L20408" class="LineNr">20408 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20409" class="LineNr">20409 </span> 0f 85/jump-if-!= $is-mu-numberlike-output?:return-true/disp32 -<span id="L20410" class="LineNr">20410 </span><span class="Constant">$is-mu-numberlike-output?:check-float</span>: -<span id="L20411" class="LineNr">20411 </span> <span class="subxComment"># if t is a float, return</span> -<span id="L20412" class="LineNr">20412 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %esi 0xf) <span class="subxComment"># float => eax</span> -<span id="L20413" class="LineNr">20413 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20414" class="LineNr">20414 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 -<span id="L20415" class="LineNr">20415 </span><span class="Constant">$is-mu-numberlike-output?:check-boolean</span>: -<span id="L20416" class="LineNr">20416 </span> <span class="subxComment"># if t is a boolean, return</span> -<span id="L20417" class="LineNr">20417 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %esi 5) <span class="subxComment"># boolean => eax</span> -<span id="L20418" class="LineNr">20418 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20419" class="LineNr">20419 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 -<span id="L20420" class="LineNr">20420 </span><span class="Constant">$is-mu-numberlike-output?:check-byte</span>: -<span id="L20421" class="LineNr">20421 </span> <span class="subxComment"># if t is a byte, return</span> -<span id="L20422" class="LineNr">20422 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %esi 8) <span class="subxComment"># byte => eax</span> +<span id="L20176" class="LineNr">20176 </span><span class="Constant">$dump-var:end</span>: +<span id="L20177" class="LineNr">20177 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20178" class="LineNr">20178 </span> 5b/pop-to-ebx +<span id="L20179" class="LineNr">20179 </span> 58/pop-to-eax +<span id="L20180" class="LineNr">20180 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20181" class="LineNr">20181 </span> 89/<- %esp 5/r32/ebp +<span id="L20182" class="LineNr">20182 </span> 5d/pop-to-ebp +<span id="L20183" class="LineNr">20183 </span> c3/return +<span id="L20184" class="LineNr">20184 </span> +<span id="L20185" class="LineNr">20185 </span><span class="subxComment">#######################################################</span> +<span id="L20186" class="LineNr">20186 </span><span class="subxComment"># Type-checking</span> +<span id="L20187" class="LineNr">20187 </span><span class="subxComment">#######################################################</span> +<span id="L20188" class="LineNr">20188 </span> +<span id="L20189" class="LineNr">20189 </span><span class="subxFunction">check-mu-types</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L20190" class="LineNr">20190 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20191" class="LineNr">20191 </span> 55/push-ebp +<span id="L20192" class="LineNr">20192 </span> 89/<- %ebp 4/r32/esp +<span id="L20193" class="LineNr">20193 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20194" class="LineNr">20194 </span> 50/push-eax +<span id="L20195" class="LineNr">20195 </span> <span class="subxComment"># var curr/eax: (addr function) = lookup(Program->functions)</span> +<span id="L20196" class="LineNr">20196 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L20197" class="LineNr">20197 </span> { +<span id="L20198" class="LineNr">20198 </span><span class="Constant">$check-mu-types:loop</span>: +<span id="L20199" class="LineNr">20199 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L20200" class="LineNr">20200 </span> 3d/compare-eax-and 0/imm32 +<span id="L20201" class="LineNr">20201 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L20202" class="Folded">20202 </span><span class="Folded">+-- 8 lines: #? # dump curr->name ----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L20210" class="LineNr">20210 </span> (<a href='mu.subx.html#L20223'>check-mu-function</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L20211" class="LineNr">20211 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L20212" class="LineNr">20212 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L20213" class="LineNr">20213 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L20214" class="LineNr">20214 </span> } +<span id="L20215" class="LineNr">20215 </span><span class="Constant">$check-mu-types:end</span>: +<span id="L20216" class="LineNr">20216 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20217" class="LineNr">20217 </span> 58/pop-to-eax +<span id="L20218" class="LineNr">20218 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20219" class="LineNr">20219 </span> 89/<- %esp 5/r32/ebp +<span id="L20220" class="LineNr">20220 </span> 5d/pop-to-ebp +<span id="L20221" class="LineNr">20221 </span> c3/return +<span id="L20222" class="LineNr">20222 </span> +<span id="L20223" class="LineNr">20223 </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="L20224" class="LineNr">20224 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20225" class="LineNr">20225 </span> 55/push-ebp +<span id="L20226" class="LineNr">20226 </span> 89/<- %ebp 4/r32/esp +<span id="L20227" class="LineNr">20227 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20228" class="LineNr">20228 </span> 50/push-eax +<span id="L20229" class="LineNr">20229 </span> 56/push-esi +<span id="L20230" class="LineNr">20230 </span> <span class="subxComment"># esi = f</span> +<span id="L20231" class="LineNr">20231 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L20232" class="LineNr">20232 </span> <span class="subxComment"># outputs</span> +<span id="L20233" class="LineNr">20233 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x10) *(esi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L20234" class="LineNr">20234 </span> (<a href='mu.subx.html#L21818'>check-all-unique-registers</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) +<span id="L20235" class="LineNr">20235 </span> <span class="subxComment"># body</span> +<span id="L20236" class="LineNr">20236 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> +<span id="L20237" class="LineNr">20237 </span> (<a href='mu.subx.html#L20253'>check-mu-block</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10)) +<span id="L20238" class="LineNr">20238 </span> <span class="subxComment"># if function has no outputs, we're done</span> +<span id="L20239" class="LineNr">20239 </span> 81 7/subop/compare *(esi+0x10) 0/imm32 +<span id="L20240" class="LineNr">20240 </span> 74/jump-if-= $check-mu-function:end/disp8 +<span id="L20241" class="LineNr">20241 </span> <span class="subxComment"># some final checks on body</span> +<span id="L20242" class="LineNr">20242 </span> (<a href='mu.subx.html#L22031'>check-final-stmt-is-return</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) +<span id="L20243" class="LineNr">20243 </span> (<a href='mu.subx.html#L22083'>check-no-breaks</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) +<span id="L20244" class="LineNr">20244 </span><span class="Constant">$check-mu-function:end</span>: +<span id="L20245" class="LineNr">20245 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20246" class="LineNr">20246 </span> 5e/pop-to-esi +<span id="L20247" class="LineNr">20247 </span> 58/pop-to-eax +<span id="L20248" class="LineNr">20248 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20249" class="LineNr">20249 </span> 89/<- %esp 5/r32/ebp +<span id="L20250" class="LineNr">20250 </span> 5d/pop-to-ebp +<span id="L20251" class="LineNr">20251 </span> c3/return +<span id="L20252" class="LineNr">20252 </span> +<span id="L20253" class="LineNr">20253 </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="L20254" class="LineNr">20254 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20255" class="LineNr">20255 </span> 55/push-ebp +<span id="L20256" class="LineNr">20256 </span> 89/<- %ebp 4/r32/esp +<span id="L20257" class="LineNr">20257 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20258" class="LineNr">20258 </span> 50/push-eax +<span id="L20259" class="LineNr">20259 </span> <span class="subxComment"># eax = block</span> +<span id="L20260" class="LineNr">20260 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20261" class="LineNr">20261 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> +<span id="L20262" class="LineNr">20262 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L20263" class="LineNr">20263 </span> <span class="subxComment">#</span> +<span id="L20264" class="LineNr">20264 </span> { +<span id="L20265" class="LineNr">20265 </span><span class="Constant">$check-mu-block:check-empty</span>: +<span id="L20266" class="LineNr">20266 </span> 3d/compare-eax-and 0/imm32 +<span id="L20267" class="LineNr">20267 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L20268" class="LineNr">20268 </span> <span class="subxComment"># emit block->statements</span> +<span id="L20269" class="LineNr">20269 </span> (<a href='mu.subx.html#L20279'>check-mu-stmt-list</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20270" class="LineNr">20270 </span> } +<span id="L20271" class="LineNr">20271 </span><span class="Constant">$check-mu-block:end</span>: +<span id="L20272" class="LineNr">20272 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20273" class="LineNr">20273 </span> 58/pop-to-eax +<span id="L20274" class="LineNr">20274 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20275" class="LineNr">20275 </span> 89/<- %esp 5/r32/ebp +<span id="L20276" class="LineNr">20276 </span> 5d/pop-to-ebp +<span id="L20277" class="LineNr">20277 </span> c3/return +<span id="L20278" class="LineNr">20278 </span> +<span id="L20279" class="LineNr">20279 </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="L20280" class="LineNr">20280 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20281" class="LineNr">20281 </span> 55/push-ebp +<span id="L20282" class="LineNr">20282 </span> 89/<- %ebp 4/r32/esp +<span id="L20283" class="LineNr">20283 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20284" class="LineNr">20284 </span> 50/push-eax +<span id="L20285" class="LineNr">20285 </span> 56/push-esi +<span id="L20286" class="LineNr">20286 </span> <span class="subxComment"># esi = stmts</span> +<span id="L20287" class="LineNr">20287 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L20288" class="LineNr">20288 </span> { +<span id="L20289" class="LineNr">20289 </span><span class="Constant">$check-mu-stmt-list:loop</span>: +<span id="L20290" class="LineNr">20290 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L20291" class="LineNr">20291 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L20292" class="LineNr">20292 </span> <span class="subxComment"># var curr-stmt/eax: (addr stmt) = lookup(stmts->value)</span> +<span id="L20293" class="LineNr">20293 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L20294" class="LineNr">20294 </span> { +<span id="L20295" class="LineNr">20295 </span><span class="Constant">$check-mu-stmt-list:check-for-block</span>: +<span id="L20296" class="LineNr">20296 </span> 81 7/subop/compare *eax 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L20297" class="LineNr">20297 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20298" class="LineNr">20298 </span><span class="Constant">$check-mu-stmt-list:block</span>: +<span id="L20299" class="LineNr">20299 </span> (<a href='mu.subx.html#L20253'>check-mu-block</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20300" class="LineNr">20300 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L20301" class="LineNr">20301 </span> } +<span id="L20302" class="LineNr">20302 </span> { +<span id="L20303" class="LineNr">20303 </span><span class="Constant">$check-mu-stmt-list:check-for-stmt1</span>: +<span id="L20304" class="LineNr">20304 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L20305" class="LineNr">20305 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L20306" class="LineNr">20306 </span><span class="Constant">$check-mu-stmt-list:stmt1</span>: +<span id="L20307" class="LineNr">20307 </span> (<a href='mu.subx.html#L20333'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20308" class="LineNr">20308 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L20309" class="LineNr">20309 </span> } +<span id="L20310" class="LineNr">20310 </span> { +<span id="L20311" class="LineNr">20311 </span><span class="Constant">$check-mu-stmt-list:check-for-reg-var-def</span>: +<span id="L20312" class="LineNr">20312 </span> 81 7/subop/compare *eax 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> +<span id="L20313" class="LineNr">20313 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L20314" class="LineNr">20314 </span><span class="Constant">$check-mu-stmt-list:reg-var-def</span>: +<span id="L20315" class="LineNr">20315 </span> (<a href='mu.subx.html#L20333'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20316" class="LineNr">20316 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L20317" class="LineNr">20317 </span> } +<span id="L20318" class="LineNr">20318 </span><span class="Constant">$check-mu-stmt-list:continue</span>: +<span id="L20319" class="LineNr">20319 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> +<span id="L20320" class="LineNr">20320 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L20321" class="LineNr">20321 </span> 89/<- %esi 0/r32/eax +<span id="L20322" class="LineNr">20322 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L20323" class="LineNr">20323 </span> } +<span id="L20324" class="LineNr">20324 </span><span class="Constant">$check-mu-stmt-list:end</span>: +<span id="L20325" class="LineNr">20325 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20326" class="LineNr">20326 </span> 5e/pop-to-esi +<span id="L20327" class="LineNr">20327 </span> 58/pop-to-eax +<span id="L20328" class="LineNr">20328 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20329" class="LineNr">20329 </span> 89/<- %esp 5/r32/ebp +<span id="L20330" class="LineNr">20330 </span> 5d/pop-to-ebp +<span id="L20331" class="LineNr">20331 </span> c3/return +<span id="L20332" class="LineNr">20332 </span> +<span id="L20333" class="LineNr">20333 </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="L20334" class="LineNr">20334 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20335" class="LineNr">20335 </span> 55/push-ebp +<span id="L20336" class="LineNr">20336 </span> 89/<- %ebp 4/r32/esp +<span id="L20337" class="LineNr">20337 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20338" class="LineNr">20338 </span> 50/push-eax +<span id="L20339" class="LineNr">20339 </span> <span class="subxH1Comment"># - if stmt's operation matches a primitive, check against it</span> +<span id="L20340" class="LineNr">20340 </span> (<a href='mu.subx.html#L20386'>has-primitive-name?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L20341" class="LineNr">20341 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20342" class="LineNr">20342 </span> { +<span id="L20343" class="LineNr">20343 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20344" class="LineNr">20344 </span> (<a href='mu.subx.html#L20478'>check-mu-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20345" class="LineNr">20345 </span> e9/jump $check-mu-stmt:end/disp32 +<span id="L20346" class="LineNr">20346 </span> } +<span id="L20347" class="LineNr">20347 </span> <span class="subxH1Comment"># - otherwise find a function to check against</span> +<span id="L20348" class="LineNr">20348 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->functions)</span> +<span id="L20349" class="LineNr">20349 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L20350" class="LineNr">20350 </span> (<a href='mu.subx.html#L33978'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L20351" class="LineNr">20351 </span> 3d/compare-eax-and 0/imm32 +<span id="L20352" class="LineNr">20352 </span> { +<span id="L20353" class="LineNr">20353 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20354" class="LineNr">20354 </span> (<a href='mu.subx.html#L24561'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20355" class="LineNr">20355 </span> eb/jump $check-mu-stmt:end/disp8 +<span id="L20356" class="LineNr">20356 </span> } +<span id="L20357" class="LineNr">20357 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->signatures)</span> +<span id="L20358" class="LineNr">20358 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> +<span id="L20359" class="LineNr">20359 </span> (<a href='mu.subx.html#L33978'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L20360" class="LineNr">20360 </span> 3d/compare-eax-and 0/imm32 +<span id="L20361" class="LineNr">20361 </span> { +<span id="L20362" class="LineNr">20362 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20363" class="LineNr">20363 </span> (<a href='mu.subx.html#L24561'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20364" class="LineNr">20364 </span> eb/jump $check-mu-stmt:end/disp8 +<span id="L20365" class="LineNr">20365 </span> } +<span id="L20366" class="LineNr">20366 </span> <span class="subxH1Comment"># - otherwise abort</span> +<span id="L20367" class="LineNr">20367 </span> e9/jump $check-mu-stmt:unknown-call/disp32 +<span id="L20368" class="LineNr">20368 </span><span class="Constant">$check-mu-stmt:end</span>: +<span id="L20369" class="LineNr">20369 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20370" class="LineNr">20370 </span> 58/pop-to-eax +<span id="L20371" class="LineNr">20371 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20372" class="LineNr">20372 </span> 89/<- %esp 5/r32/ebp +<span id="L20373" class="LineNr">20373 </span> 5d/pop-to-ebp +<span id="L20374" class="LineNr">20374 </span> c3/return +<span id="L20375" class="LineNr">20375 </span> +<span id="L20376" class="LineNr">20376 </span><span class="Constant">$check-mu-stmt:unknown-call</span>: +<span id="L20377" class="LineNr">20377 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"unknown function '"</span>) +<span id="L20378" class="LineNr">20378 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20379" class="LineNr">20379 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L20380" class="LineNr">20380 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20381" class="LineNr">20381 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L20382" class="LineNr">20382 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20383" class="LineNr">20383 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20384" class="LineNr">20384 </span> <span class="subxComment"># never gets here</span> +<span id="L20385" class="LineNr">20385 </span> +<span id="L20386" class="LineNr">20386 </span><span class="subxFunction">has-primitive-name?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> +<span id="L20387" class="LineNr">20387 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20388" class="LineNr">20388 </span> 55/push-ebp +<span id="L20389" class="LineNr">20389 </span> 89/<- %ebp 4/r32/esp +<span id="L20390" class="LineNr">20390 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20391" class="LineNr">20391 </span> 51/push-ecx +<span id="L20392" class="LineNr">20392 </span> 56/push-esi +<span id="L20393" class="LineNr">20393 </span> <span class="subxComment"># var name/esi: (addr array byte) = lookup(stmt->operation)</span> +<span id="L20394" class="LineNr">20394 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L20395" class="LineNr">20395 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L20396" class="LineNr">20396 </span> 89/<- %esi 0/r32/eax +<span id="L20397" class="LineNr">20397 </span> <span class="subxComment"># if (name == "return") return true</span> +<span id="L20398" class="LineNr">20398 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> +<span id="L20399" class="LineNr">20399 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20400" class="LineNr">20400 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L20401" class="LineNr">20401 </span> <span class="subxComment"># if (name == "get") return true</span> +<span id="L20402" class="LineNr">20402 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L20403" class="LineNr">20403 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20404" class="LineNr">20404 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L20405" class="LineNr">20405 </span> <span class="subxComment"># if (name == "index") return true</span> +<span id="L20406" class="LineNr">20406 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L20407" class="LineNr">20407 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20408" class="LineNr">20408 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L20409" class="LineNr">20409 </span> <span class="subxComment"># if (name == "length") return true</span> +<span id="L20410" class="LineNr">20410 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L20411" class="LineNr">20411 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20412" class="LineNr">20412 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L20413" class="LineNr">20413 </span> <span class="subxComment"># if (name == "compute-offset") return true</span> +<span id="L20414" class="LineNr">20414 </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="L20415" class="LineNr">20415 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20416" class="LineNr">20416 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L20417" class="LineNr">20417 </span> <span class="subxComment"># if (name == "copy-object") return true</span> +<span id="L20418" class="LineNr">20418 </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="L20419" class="LineNr">20419 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20420" class="LineNr">20420 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L20421" class="LineNr">20421 </span> <span class="subxComment"># if (name == "clear-object") return true</span> +<span id="L20422" class="LineNr">20422 </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="L20423" class="LineNr">20423 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20424" class="LineNr">20424 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 -<span id="L20425" class="LineNr">20425 </span><span class="Constant">$is-mu-numberlike-output?:check-code-point</span>: -<span id="L20426" class="LineNr">20426 </span> <span class="subxComment"># if t is a code-point, return</span> -<span id="L20427" class="LineNr">20427 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %esi 0xd) <span class="subxComment"># code-point => eax</span> -<span id="L20428" class="LineNr">20428 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20429" class="LineNr">20429 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 -<span id="L20430" class="LineNr">20430 </span><span class="Constant">$is-mu-numberlike-output?:check-grapheme</span>: -<span id="L20431" class="LineNr">20431 </span> <span class="subxComment"># if t is a grapheme, return</span> -<span id="L20432" class="LineNr">20432 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %esi 0xe) <span class="subxComment"># grapheme => eax</span> -<span id="L20433" class="LineNr">20433 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20434" class="LineNr">20434 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 -<span id="L20435" class="LineNr">20435 </span><span class="Constant">$is-mu-numberlike-output?:return-false</span>: -<span id="L20436" class="LineNr">20436 </span> b8/copy-to-eax 0/imm32/false -<span id="L20437" class="LineNr">20437 </span> eb/jump $is-mu-numberlike-output?:end/disp8 -<span id="L20438" class="LineNr">20438 </span><span class="Constant">$is-mu-numberlike-output?:return-true</span>: -<span id="L20439" class="LineNr">20439 </span> b8/copy-to-eax 1/imm32/true -<span id="L20440" class="LineNr">20440 </span><span class="Constant">$is-mu-numberlike-output?:end</span>: -<span id="L20441" class="LineNr">20441 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20442" class="LineNr">20442 </span> 5e/pop-to-esi -<span id="L20443" class="LineNr">20443 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20444" class="LineNr">20444 </span> 89/<- %esp 5/r32/ebp -<span id="L20445" class="LineNr">20445 </span> 5d/pop-to-ebp -<span id="L20446" class="LineNr">20446 </span> c3/return -<span id="L20447" class="LineNr">20447 </span> -<span id="L20448" class="LineNr">20448 </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="L20449" class="LineNr">20449 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20450" class="LineNr">20450 </span> 55/push-ebp -<span id="L20451" class="LineNr">20451 </span> 89/<- %ebp 4/r32/esp -<span id="L20452" class="LineNr">20452 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20453" class="LineNr">20453 </span> 50/push-eax -<span id="L20454" class="LineNr">20454 </span> 51/push-ecx -<span id="L20455" class="LineNr">20455 </span> 52/push-edx -<span id="L20456" class="LineNr">20456 </span> 56/push-esi -<span id="L20457" class="LineNr">20457 </span> 57/push-edi -<span id="L20458" class="LineNr">20458 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L20459" class="LineNr">20459 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L20460" class="LineNr">20460 </span> 68/push 0x60/imm32/size -<span id="L20461" class="LineNr">20461 </span> 68/push 0/imm32/read -<span id="L20462" class="LineNr">20462 </span> 68/push 0/imm32/write -<span id="L20463" class="LineNr">20463 </span> 89/<- %edx 4/r32/esp -<span id="L20464" class="LineNr">20464 </span><span class="Constant">$check-mu-copy-stmt:get-output</span>: -<span id="L20465" class="LineNr">20465 </span> <span class="subxComment"># esi = stmt</span> -<span id="L20466" class="LineNr">20466 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L20467" class="LineNr">20467 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L20468" class="LineNr">20468 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L20469" class="LineNr">20469 </span> 89/<- %edi 0/r32/eax -<span id="L20470" class="LineNr">20470 </span> <span class="subxComment"># zero outputs</span> -<span id="L20471" class="LineNr">20471 </span> 3d/compare-eax-and 0/imm32 -<span id="L20472" class="LineNr">20472 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-output/disp32 -<span id="L20473" class="LineNr">20473 </span> <span class="subxComment"># > 1 output</span> -<span id="L20474" class="LineNr">20474 </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="L20475" class="LineNr">20475 </span> 3d/compare-eax-and 0/imm32 -<span id="L20476" class="LineNr">20476 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-outputs/disp32 -<span id="L20477" class="LineNr">20477 </span><span class="Constant">$check-mu-copy-stmt:get-inout</span>: -<span id="L20478" class="LineNr">20478 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L20479" class="LineNr">20479 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L20480" class="LineNr">20480 </span> 89/<- %esi 0/r32/eax -<span id="L20481" class="LineNr">20481 </span> <span class="subxComment"># zero inouts</span> -<span id="L20482" class="LineNr">20482 </span> 3d/compare-eax-and 0/imm32 -<span id="L20483" class="LineNr">20483 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-inout/disp32 -<span id="L20484" class="LineNr">20484 </span> <span class="subxComment"># > 1 inout</span> -<span id="L20485" class="LineNr">20485 </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="L20486" class="LineNr">20486 </span> 3d/compare-eax-and 0/imm32 -<span id="L20487" class="LineNr">20487 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-inouts/disp32 -<span id="L20488" class="LineNr">20488 </span><span class="Constant">$check-mu-copy-stmt:types</span>: -<span id="L20489" class="LineNr">20489 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L20490" class="LineNr">20490 </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="L20491" class="LineNr">20491 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20492" class="LineNr">20492 </span> 89/<- %ecx 0/r32/eax -<span id="L20493" class="LineNr">20493 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L20494" class="LineNr">20494 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L20495" class="LineNr">20495 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20496" class="LineNr">20496 </span> { -<span id="L20497" class="LineNr">20497 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20498" class="LineNr">20498 </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="L20499" class="LineNr">20499 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L20500" class="LineNr">20500 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20501" class="LineNr">20501 </span> { -<span id="L20502" class="LineNr">20502 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20503" class="LineNr">20503 </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="L20504" class="LineNr">20504 </span> } -<span id="L20505" class="LineNr">20505 </span> 89/<- %ecx 0/r32/eax -<span id="L20506" class="LineNr">20506 </span> } -<span id="L20507" class="LineNr">20507 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L20508" class="LineNr">20508 </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="L20509" class="LineNr">20509 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L20510" class="LineNr">20510 </span> 3d/compare-eax-and 0/imm32 -<span id="L20511" class="LineNr">20511 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-output-not-in-register/disp32 -<span id="L20512" class="LineNr">20512 </span> <span class="subxComment"># if inout is not a scalar, abort</span> -<span id="L20513" class="LineNr">20513 </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="L20514" class="LineNr">20514 </span> (<a href='mu.subx.html#L24381'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20515" class="LineNr">20515 </span> 3d/compare-eax-and 4/imm32 -<span id="L20516" class="LineNr">20516 </span> 0f 8f/jump-if-> $check-mu-copy-stmt:error-inout-too-large/disp32 -<span id="L20517" class="LineNr">20517 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> -<span id="L20518" class="LineNr">20518 </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="L20519" class="LineNr">20519 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20520" class="LineNr">20520 </span> <span class="subxComment"># if (inout-type == output-type) return</span> -<span id="L20521" class="LineNr">20521 </span> (<a href='mu.subx.html#L24222'>type-match?</a> %eax %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L20522" class="LineNr">20522 </span> 3d/compare-eax-and 0/imm32 -<span id="L20523" class="LineNr">20523 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:end/disp32 -<span id="L20524" class="LineNr">20524 </span> <span class="subxComment"># if output is an addr and inout is 0, return</span> -<span id="L20525" class="LineNr">20525 </span> { -<span id="L20526" class="LineNr">20526 </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="L20527" class="LineNr">20527 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20528" class="LineNr">20528 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20529" class="LineNr">20529 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20530" class="LineNr">20530 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20531" class="LineNr">20531 </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="L20532" class="LineNr">20532 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L20533" class="LineNr">20533 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L20534" class="LineNr">20534 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20535" class="LineNr">20535 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20536" class="LineNr">20536 </span> e9/jump $check-mu-copy-stmt:end/disp32 -<span id="L20537" class="LineNr">20537 </span> } -<span id="L20538" class="LineNr">20538 </span> <span class="subxComment"># if output is an offset and inout is 0, return</span> -<span id="L20539" class="LineNr">20539 </span> { -<span id="L20540" class="LineNr">20540 </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="L20541" class="LineNr">20541 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20542" class="LineNr">20542 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L20543" class="LineNr">20543 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20544" class="LineNr">20544 </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="L20545" class="LineNr">20545 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L20546" class="LineNr">20546 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20547" class="LineNr">20547 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20548" class="LineNr">20548 </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="L20549" class="LineNr">20549 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L20550" class="LineNr">20550 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L20551" class="LineNr">20551 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20552" class="LineNr">20552 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20553" class="LineNr">20553 </span> eb/jump $check-mu-copy-stmt:end/disp8 -<span id="L20554" class="LineNr">20554 </span> } -<span id="L20555" class="LineNr">20555 </span> <span class="subxComment"># if output is not number-like, abort</span> -<span id="L20556" class="LineNr">20556 </span> (<a href='mu.subx.html#L20344'>check-mu-numberlike-output</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20557" class="LineNr">20557 </span><span class="Constant">$check-mu-copy-stmt:end</span>: -<span id="L20558" class="LineNr">20558 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20559" class="LineNr">20559 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L20560" class="LineNr">20560 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20561" class="LineNr">20561 </span> 5f/pop-to-edi -<span id="L20562" class="LineNr">20562 </span> 5e/pop-to-esi -<span id="L20563" class="LineNr">20563 </span> 5a/pop-to-edx -<span id="L20564" class="LineNr">20564 </span> 59/pop-to-ecx -<span id="L20565" class="LineNr">20565 </span> 58/pop-to-eax -<span id="L20566" class="LineNr">20566 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20567" class="LineNr">20567 </span> 89/<- %esp 5/r32/ebp -<span id="L20568" class="LineNr">20568 </span> 5d/pop-to-ebp -<span id="L20569" class="LineNr">20569 </span> c3/return -<span id="L20570" class="LineNr">20570 </span> -<span id="L20571" class="LineNr">20571 </span><span class="Constant">$check-mu-copy-stmt:error-no-inout</span>: -<span id="L20572" class="LineNr">20572 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20573" class="LineNr">20573 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20574" class="LineNr">20574 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20575" class="LineNr">20575 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20576" class="LineNr">20576 </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="L20577" class="LineNr">20577 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20578" class="LineNr">20578 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20579" class="LineNr">20579 </span> <span class="subxComment"># never gets here</span> -<span id="L20580" class="LineNr">20580 </span> -<span id="L20581" class="LineNr">20581 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-inouts</span>: -<span id="L20582" class="LineNr">20582 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20583" class="LineNr">20583 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20584" class="LineNr">20584 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20585" class="LineNr">20585 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20586" class="LineNr">20586 </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="L20587" class="LineNr">20587 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20588" class="LineNr">20588 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20589" class="LineNr">20589 </span> <span class="subxComment"># never gets here</span> -<span id="L20590" class="LineNr">20590 </span> -<span id="L20591" class="LineNr">20591 </span><span class="Constant">$check-mu-copy-stmt:error-no-output</span>: -<span id="L20592" class="LineNr">20592 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20593" class="LineNr">20593 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20594" class="LineNr">20594 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20595" class="LineNr">20595 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20596" class="LineNr">20596 </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="L20597" class="LineNr">20597 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20598" class="LineNr">20598 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20599" class="LineNr">20599 </span> <span class="subxComment"># never gets here</span> -<span id="L20600" class="LineNr">20600 </span> -<span id="L20601" class="LineNr">20601 </span><span class="Constant">$check-mu-copy-stmt:error-output-not-in-register</span>: -<span id="L20602" class="LineNr">20602 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20603" class="LineNr">20603 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20604" class="LineNr">20604 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20605" class="LineNr">20605 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20606" class="LineNr">20606 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: output '"</span>) -<span id="L20607" class="LineNr">20607 </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="L20608" class="LineNr">20608 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L20609" class="LineNr">20609 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20610" class="LineNr">20610 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L20611" class="LineNr">20611 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20612" class="LineNr">20612 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20613" class="LineNr">20613 </span> <span class="subxComment"># never gets here</span> -<span id="L20614" class="LineNr">20614 </span> -<span id="L20615" class="LineNr">20615 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-outputs</span>: -<span id="L20616" class="LineNr">20616 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20617" class="LineNr">20617 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20618" class="LineNr">20618 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20619" class="LineNr">20619 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20620" class="LineNr">20620 </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="L20621" class="LineNr">20621 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20622" class="LineNr">20622 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20623" class="LineNr">20623 </span> <span class="subxComment"># never gets here</span> -<span id="L20624" class="LineNr">20624 </span> -<span id="L20625" class="LineNr">20625 </span><span class="Constant">$check-mu-copy-stmt:error-inout-too-large</span>: -<span id="L20626" class="LineNr">20626 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20627" class="LineNr">20627 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20628" class="LineNr">20628 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20629" class="LineNr">20629 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20630" class="LineNr">20630 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: '"</span>) -<span id="L20631" class="LineNr">20631 </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="L20632" class="LineNr">20632 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L20633" class="LineNr">20633 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20634" class="LineNr">20634 </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="L20635" class="LineNr">20635 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20636" class="LineNr">20636 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20637" class="LineNr">20637 </span> <span class="subxComment"># never gets here</span> -<span id="L20638" class="LineNr">20638 </span> -<span id="L20639" class="LineNr">20639 </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="L20640" class="LineNr">20640 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20641" class="LineNr">20641 </span> 55/push-ebp -<span id="L20642" class="LineNr">20642 </span> 89/<- %ebp 4/r32/esp -<span id="L20643" class="LineNr">20643 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20644" class="LineNr">20644 </span> 50/push-eax -<span id="L20645" class="LineNr">20645 </span> 51/push-ecx -<span id="L20646" class="LineNr">20646 </span> 52/push-edx -<span id="L20647" class="LineNr">20647 </span> 53/push-ebx -<span id="L20648" class="LineNr">20648 </span> 56/push-esi -<span id="L20649" class="LineNr">20649 </span> 57/push-edi -<span id="L20650" class="LineNr">20650 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L20651" class="LineNr">20651 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L20652" class="LineNr">20652 </span> 68/push 0x60/imm32/size -<span id="L20653" class="LineNr">20653 </span> 68/push 0/imm32/read -<span id="L20654" class="LineNr">20654 </span> 68/push 0/imm32/write -<span id="L20655" class="LineNr">20655 </span> 89/<- %edx 4/r32/esp -<span id="L20656" class="LineNr">20656 </span> <span class="subxComment"># esi = stmt</span> -<span id="L20657" class="LineNr">20657 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L20658" class="LineNr">20658 </span><span class="Constant">$check-mu-copy-to-stmt:check-for-output</span>: -<span id="L20659" class="LineNr">20659 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L20660" class="LineNr">20660 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L20661" class="LineNr">20661 </span> 3d/compare-eax-and 0/imm32 -<span id="L20662" class="LineNr">20662 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-too-many-outputs/disp32 -<span id="L20663" class="LineNr">20663 </span><span class="Constant">$check-mu-copy-to-stmt:get-dest</span>: -<span id="L20664" class="LineNr">20664 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L20424" class="LineNr">20424 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L20425" class="LineNr">20425 </span> <span class="subxComment"># if (name == "allocate") return true</span> +<span id="L20426" class="LineNr">20426 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L20427" class="LineNr">20427 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20428" class="LineNr">20428 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L20429" class="LineNr">20429 </span> <span class="subxComment"># if (name == "populate") return true</span> +<span id="L20430" class="LineNr">20430 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L20431" class="LineNr">20431 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20432" class="LineNr">20432 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L20433" class="LineNr">20433 </span> <span class="subxComment"># if (name == "populate-stream") return true</span> +<span id="L20434" class="LineNr">20434 </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="L20435" class="LineNr">20435 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20436" class="LineNr">20436 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L20437" class="LineNr">20437 </span> <span class="subxComment"># if (name == "read-from-stream") return true</span> +<span id="L20438" class="LineNr">20438 </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="L20439" class="LineNr">20439 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20440" class="LineNr">20440 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L20441" class="LineNr">20441 </span> <span class="subxComment"># if (name == "write-to-stream") return true</span> +<span id="L20442" class="LineNr">20442 </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="L20443" class="LineNr">20443 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20444" class="LineNr">20444 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L20445" class="LineNr">20445 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = Primitives</span> +<span id="L20446" class="LineNr">20446 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='mu.subx.html#L28586'>Primitives</a></span>/imm32 +<span id="L20447" class="LineNr">20447 </span> { +<span id="L20448" class="LineNr">20448 </span><span class="Constant">$has-primitive-name?:loop</span>: +<span id="L20449" class="LineNr">20449 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L20450" class="LineNr">20450 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L20451" class="LineNr">20451 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20452" class="LineNr">20452 </span> <span class="subxComment"># if (primitive->name == name) return true</span> +<span id="L20453" class="LineNr">20453 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> +<span id="L20454" class="LineNr">20454 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L20455" class="LineNr">20455 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20456" class="LineNr">20456 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20457" class="LineNr">20457 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L20458" class="LineNr">20458 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20459" class="LineNr">20459 </span> 75/jump-if-!= $has-primitive-name?:end/disp8 +<span id="L20460" class="LineNr">20460 </span><span class="Constant">$has-primitive-name?:next-primitive</span>: +<span id="L20461" class="LineNr">20461 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L20462" class="LineNr">20462 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> +<span id="L20463" class="LineNr">20463 </span> 89/<- %ecx 0/r32/eax +<span id="L20464" class="LineNr">20464 </span> <span class="subxComment">#</span> +<span id="L20465" class="LineNr">20465 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L20466" class="LineNr">20466 </span> } +<span id="L20467" class="LineNr">20467 </span> <span class="subxComment"># return null</span> +<span id="L20468" class="LineNr">20468 </span> b8/copy-to-eax 0/imm32 +<span id="L20469" class="LineNr">20469 </span><span class="Constant">$has-primitive-name?:end</span>: +<span id="L20470" class="LineNr">20470 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20471" class="LineNr">20471 </span> 5e/pop-to-esi +<span id="L20472" class="LineNr">20472 </span> 59/pop-to-ecx +<span id="L20473" class="LineNr">20473 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20474" class="LineNr">20474 </span> 89/<- %esp 5/r32/ebp +<span id="L20475" class="LineNr">20475 </span> 5d/pop-to-ebp +<span id="L20476" class="LineNr">20476 </span> c3/return +<span id="L20477" class="LineNr">20477 </span> +<span id="L20478" class="LineNr">20478 </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="L20479" class="LineNr">20479 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20480" class="LineNr">20480 </span> 55/push-ebp +<span id="L20481" class="LineNr">20481 </span> 89/<- %ebp 4/r32/esp +<span id="L20482" class="LineNr">20482 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20483" class="LineNr">20483 </span> 50/push-eax +<span id="L20484" class="LineNr">20484 </span> 51/push-ecx +<span id="L20485" class="LineNr">20485 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L20486" class="LineNr">20486 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20487" class="LineNr">20487 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L20488" class="LineNr">20488 </span> 89/<- %ecx 0/r32/eax +<span id="L20489" class="LineNr">20489 </span> <span class="subxComment"># if (op == "copy") check-mu-copy-stmt</span> +<span id="L20490" class="LineNr">20490 </span> { +<span id="L20491" class="LineNr">20491 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> +<span id="L20492" class="LineNr">20492 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20493" class="LineNr">20493 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20494" class="LineNr">20494 </span> (<a href='mu.subx.html#L20881'>check-mu-copy-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20495" class="LineNr">20495 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20496" class="LineNr">20496 </span> } +<span id="L20497" class="LineNr">20497 </span> <span class="subxComment"># if (op == "copy-to") check-mu-copy-to-stmt</span> +<span id="L20498" class="LineNr">20498 </span> { +<span id="L20499" class="LineNr">20499 </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="L20500" class="LineNr">20500 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20501" class="LineNr">20501 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20502" class="LineNr">20502 </span> (<a href='mu.subx.html#L21072'>check-mu-copy-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20503" class="LineNr">20503 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20504" class="LineNr">20504 </span> } +<span id="L20505" class="LineNr">20505 </span> <span class="subxComment"># if (op == "compare") check-mu-compare-stmt</span> +<span id="L20506" class="LineNr">20506 </span> { +<span id="L20507" class="LineNr">20507 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compare"</span>) <span class="subxComment"># => eax</span> +<span id="L20508" class="LineNr">20508 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20509" class="LineNr">20509 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20510" class="LineNr">20510 </span> (<a href='mu.subx.html#L21235'>check-mu-compare-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20511" class="LineNr">20511 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20512" class="LineNr">20512 </span> } +<span id="L20513" class="LineNr">20513 </span> <span class="subxComment"># if (op == "address") check-mu-address-stmt</span> +<span id="L20514" class="LineNr">20514 </span> { +<span id="L20515" class="LineNr">20515 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"address"</span>) <span class="subxComment"># => eax</span> +<span id="L20516" class="LineNr">20516 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20517" class="LineNr">20517 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20518" class="LineNr">20518 </span> (<a href='mu.subx.html#L21440'>check-mu-address-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20519" class="LineNr">20519 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20520" class="LineNr">20520 </span> } +<span id="L20521" class="LineNr">20521 </span> <span class="subxComment"># if (op == "return") check-mu-return-stmt</span> +<span id="L20522" class="LineNr">20522 </span> { +<span id="L20523" class="LineNr">20523 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> +<span id="L20524" class="LineNr">20524 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20525" class="LineNr">20525 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20526" class="LineNr">20526 </span> (<a href='mu.subx.html#L21684'>check-mu-return-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20527" class="LineNr">20527 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20528" class="LineNr">20528 </span> } +<span id="L20529" class="LineNr">20529 </span> <span class="subxComment"># if (op == "get") check-mu-get-stmt</span> +<span id="L20530" class="LineNr">20530 </span> { +<span id="L20531" class="LineNr">20531 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L20532" class="LineNr">20532 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20533" class="LineNr">20533 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20534" class="LineNr">20534 </span> (<a href='mu.subx.html#L22135'>check-mu-get-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20535" class="LineNr">20535 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20536" class="LineNr">20536 </span> } +<span id="L20537" class="LineNr">20537 </span> <span class="subxComment"># if (op == "index") check-mu-index-stmt</span> +<span id="L20538" class="LineNr">20538 </span> { +<span id="L20539" class="LineNr">20539 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L20540" class="LineNr">20540 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20541" class="LineNr">20541 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20542" class="LineNr">20542 </span> (<a href='mu.subx.html#L22430'>check-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20543" class="LineNr">20543 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20544" class="LineNr">20544 </span> } +<span id="L20545" class="LineNr">20545 </span> <span class="subxComment"># if (op == "length") check-mu-length-stmt</span> +<span id="L20546" class="LineNr">20546 </span> { +<span id="L20547" class="LineNr">20547 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L20548" class="LineNr">20548 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20549" class="LineNr">20549 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20550" class="LineNr">20550 </span> (<a href='mu.subx.html#L22813'>check-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20551" class="LineNr">20551 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20552" class="LineNr">20552 </span> } +<span id="L20553" class="LineNr">20553 </span> <span class="subxComment"># if (op == "compute-offset") check-mu-compute-offset-stmt</span> +<span id="L20554" class="LineNr">20554 </span> { +<span id="L20555" class="LineNr">20555 </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="L20556" class="LineNr">20556 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20557" class="LineNr">20557 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20558" class="LineNr">20558 </span> (<a href='mu.subx.html#L23103'>check-mu-compute-offset-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20559" class="LineNr">20559 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20560" class="LineNr">20560 </span> } +<span id="L20561" class="LineNr">20561 </span> <span class="subxComment"># if (op == "copy-object") check-mu-copy-object-stmt</span> +<span id="L20562" class="LineNr">20562 </span> { +<span id="L20563" class="LineNr">20563 </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="L20564" class="LineNr">20564 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20565" class="LineNr">20565 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20566" class="LineNr">20566 </span> (<a href='mu.subx.html#L23391'>check-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20567" class="LineNr">20567 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20568" class="LineNr">20568 </span> } +<span id="L20569" class="LineNr">20569 </span> <span class="subxComment"># if (op == "clear-object") check-mu-clear-object-stmt</span> +<span id="L20570" class="LineNr">20570 </span> { +<span id="L20571" class="LineNr">20571 </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="L20572" class="LineNr">20572 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20573" class="LineNr">20573 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20574" class="LineNr">20574 </span> (<a href='mu.subx.html#L23513'>check-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20575" class="LineNr">20575 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20576" class="LineNr">20576 </span> } +<span id="L20577" class="LineNr">20577 </span> <span class="subxComment"># if (op == "allocate") check-mu-allocate-stmt</span> +<span id="L20578" class="LineNr">20578 </span> { +<span id="L20579" class="LineNr">20579 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L20580" class="LineNr">20580 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20581" class="LineNr">20581 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20582" class="LineNr">20582 </span> (<a href='mu.subx.html#L23607'>check-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20583" class="LineNr">20583 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20584" class="LineNr">20584 </span> } +<span id="L20585" class="LineNr">20585 </span> <span class="subxComment"># if (op == "populate") check-mu-populate-stmt</span> +<span id="L20586" class="LineNr">20586 </span> { +<span id="L20587" class="LineNr">20587 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L20588" class="LineNr">20588 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20589" class="LineNr">20589 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20590" class="LineNr">20590 </span> (<a href='mu.subx.html#L23711'>check-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20591" class="LineNr">20591 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20592" class="LineNr">20592 </span> } +<span id="L20593" class="LineNr">20593 </span> <span class="subxComment"># if (op == "populate-stream") check-mu-populate-stream-stmt</span> +<span id="L20594" class="LineNr">20594 </span> { +<span id="L20595" class="LineNr">20595 </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="L20596" class="LineNr">20596 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20597" class="LineNr">20597 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20598" class="LineNr">20598 </span> (<a href='mu.subx.html#L23861'>check-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20599" class="LineNr">20599 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20600" class="LineNr">20600 </span> } +<span id="L20601" class="LineNr">20601 </span> <span class="subxComment"># if (op == "read-from-stream") check-mu-read-from-stream-stmt</span> +<span id="L20602" class="LineNr">20602 </span> { +<span id="L20603" class="LineNr">20603 </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="L20604" class="LineNr">20604 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20605" class="LineNr">20605 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20606" class="LineNr">20606 </span> (<a href='mu.subx.html#L24011'>check-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20607" class="LineNr">20607 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20608" class="LineNr">20608 </span> } +<span id="L20609" class="LineNr">20609 </span> <span class="subxComment"># if (op == "write-to-stream") check-mu-write-to-stream-stmt</span> +<span id="L20610" class="LineNr">20610 </span> { +<span id="L20611" class="LineNr">20611 </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="L20612" class="LineNr">20612 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20613" class="LineNr">20613 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20614" class="LineNr">20614 </span> (<a href='mu.subx.html#L24178'>check-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20615" class="LineNr">20615 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20616" class="LineNr">20616 </span> } +<span id="L20617" class="LineNr">20617 </span> <span class="subxComment"># if (op == "convert") check-mu-convert-stmt</span> +<span id="L20618" class="LineNr">20618 </span> { +<span id="L20619" class="LineNr">20619 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"convert"</span>) <span class="subxComment"># => eax</span> +<span id="L20620" class="LineNr">20620 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20621" class="LineNr">20621 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20622" class="LineNr">20622 </span> (<a href='mu.subx.html#L24345'>check-mu-convert-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20623" class="LineNr">20623 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L20624" class="LineNr">20624 </span> } +<span id="L20625" class="LineNr">20625 </span> <span class="subxComment"># otherwise check-numberlike-stmt</span> +<span id="L20626" class="LineNr">20626 </span> (<a href='mu.subx.html#L20637'>check-mu-numberlike-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20627" class="LineNr">20627 </span><span class="Constant">$check-mu-primitive:end</span>: +<span id="L20628" class="LineNr">20628 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20629" class="LineNr">20629 </span> 59/pop-to-ecx +<span id="L20630" class="LineNr">20630 </span> 58/pop-to-eax +<span id="L20631" class="LineNr">20631 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20632" class="LineNr">20632 </span> 89/<- %esp 5/r32/ebp +<span id="L20633" class="LineNr">20633 </span> 5d/pop-to-ebp +<span id="L20634" class="LineNr">20634 </span> c3/return +<span id="L20635" class="LineNr">20635 </span> +<span id="L20636" class="LineNr">20636 </span><span class="subxComment"># by default, Mu primitives should only operate on 'number-like' types</span> +<span id="L20637" class="LineNr">20637 </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="L20638" class="LineNr">20638 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20639" class="LineNr">20639 </span> 55/push-ebp +<span id="L20640" class="LineNr">20640 </span> 89/<- %ebp 4/r32/esp +<span id="L20641" class="LineNr">20641 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20642" class="LineNr">20642 </span> 50/push-eax +<span id="L20643" class="LineNr">20643 </span> 51/push-ecx +<span id="L20644" class="LineNr">20644 </span> 56/push-esi +<span id="L20645" class="LineNr">20645 </span> <span class="subxComment"># esi = stmt</span> +<span id="L20646" class="LineNr">20646 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L20647" class="LineNr">20647 </span> <span class="subxComment"># var gas/ecx: int = 2</span> +<span id="L20648" class="LineNr">20648 </span> b9/copy-to-ecx 2/imm32 +<span id="L20649" class="LineNr">20649 </span> <span class="subxH1Comment"># - check at most 1 output</span> +<span id="L20650" class="LineNr">20650 </span> <span class="subxComment"># var output/eax: (addr stmt-var) = stmt->outputs</span> +<span id="L20651" class="LineNr">20651 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L20652" class="LineNr">20652 </span> { +<span id="L20653" class="LineNr">20653 </span> 3d/compare-eax-and 0/imm32 +<span id="L20654" class="LineNr">20654 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20655" class="LineNr">20655 </span><span class="Constant">$check-mu-numberlike-primitive:output</span>: +<span id="L20656" class="LineNr">20656 </span> (<a href='mu.subx.html#L20777'>check-mu-numberlike-output</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20657" class="LineNr">20657 </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="L20658" class="LineNr">20658 </span> 3d/compare-eax-and 0/imm32 +<span id="L20659" class="LineNr">20659 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-outputs/disp32 +<span id="L20660" class="LineNr">20660 </span> <span class="subxComment"># check output is in a register</span> +<span id="L20661" class="LineNr">20661 </span> <span class="subxComment"># --gas</span> +<span id="L20662" class="LineNr">20662 </span> 49/decrement-ecx +<span id="L20663" class="LineNr">20663 </span> } +<span id="L20664" class="LineNr">20664 </span> <span class="subxH1Comment"># - check first inout</span> <span id="L20665" class="LineNr">20665 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L20666" class="LineNr">20666 </span> 89/<- %edi 0/r32/eax -<span id="L20667" class="LineNr">20667 </span> <span class="subxComment"># zero inouts</span> -<span id="L20668" class="LineNr">20668 </span> 3d/compare-eax-and 0/imm32 -<span id="L20669" class="LineNr">20669 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 -<span id="L20670" class="LineNr">20670 </span><span class="Constant">$check-mu-copy-to-stmt:get-src</span>: -<span id="L20671" class="LineNr">20671 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> -<span id="L20672" class="LineNr">20672 </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="L20673" class="LineNr">20673 </span> 89/<- %esi 0/r32/eax -<span id="L20674" class="LineNr">20674 </span> <span class="subxComment"># 1 inout</span> -<span id="L20675" class="LineNr">20675 </span> 3d/compare-eax-and 0/imm32 -<span id="L20676" class="LineNr">20676 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 -<span id="L20677" class="LineNr">20677 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L20678" class="LineNr">20678 </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="L20679" class="LineNr">20679 </span> 3d/compare-eax-and 0/imm32 -<span id="L20680" class="LineNr">20680 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 -<span id="L20681" class="LineNr">20681 </span><span class="Constant">$check-mu-copy-to-stmt:types</span>: -<span id="L20682" class="LineNr">20682 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> -<span id="L20683" class="LineNr">20683 </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="L20684" class="LineNr">20684 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20685" class="LineNr">20685 </span> 89/<- %ecx 0/r32/eax -<span id="L20686" class="LineNr">20686 </span> <span class="subxComment"># if src not in register or literal, abort</span> -<span id="L20687" class="LineNr">20687 </span> <span class="subxComment"># (we can't use stack-offset because it hasn't been computed yet)</span> -<span id="L20688" class="LineNr">20688 </span> { -<span id="L20689" class="LineNr">20689 </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="L20690" class="LineNr">20690 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20691" class="LineNr">20691 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L20692" class="LineNr">20692 </span> 3d/compare-eax-and 0/imm32 -<span id="L20693" class="LineNr">20693 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20694" class="LineNr">20694 </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="L20695" class="LineNr">20695 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L20696" class="LineNr">20696 </span> 3d/compare-eax-and 0/imm32 -<span id="L20697" class="LineNr">20697 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20698" class="LineNr">20698 </span> e9/jump $check-mu-copy-to-stmt:error-src-not-literal-or-in-register/disp32 -<span id="L20699" class="LineNr">20699 </span> } -<span id="L20700" class="LineNr">20700 </span> <span class="subxComment"># if src is not a scalar, abort</span> -<span id="L20701" class="LineNr">20701 </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="L20702" class="LineNr">20702 </span> (<a href='mu.subx.html#L24381'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20703" class="LineNr">20703 </span> 3d/compare-eax-and 4/imm32 -<span id="L20704" class="LineNr">20704 </span> 0f 8f/jump-if-> $check-mu-copy-to-stmt:error-src-too-large/disp32 -<span id="L20705" class="LineNr">20705 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> -<span id="L20706" class="LineNr">20706 </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="L20707" class="LineNr">20707 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20708" class="LineNr">20708 </span> 89/<- %ebx 0/r32/eax -<span id="L20709" class="LineNr">20709 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> -<span id="L20710" class="LineNr">20710 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L20711" class="LineNr">20711 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20712" class="LineNr">20712 </span> { -<span id="L20713" class="LineNr">20713 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20714" class="LineNr">20714 </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="L20715" class="LineNr">20715 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> -<span id="L20716" class="LineNr">20716 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20717" class="LineNr">20717 </span> { -<span id="L20718" class="LineNr">20718 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20719" class="LineNr">20719 </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="L20720" class="LineNr">20720 </span> } -<span id="L20721" class="LineNr">20721 </span> 89/<- %ebx 0/r32/eax -<span id="L20722" class="LineNr">20722 </span> } -<span id="L20723" class="LineNr">20723 </span> <span class="subxComment"># if (src-type == dest-type) return</span> -<span id="L20724" class="LineNr">20724 </span> (<a href='mu.subx.html#L24222'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L20725" class="LineNr">20725 </span> 3d/compare-eax-and 0/imm32 -<span id="L20726" class="LineNr">20726 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:end/disp32 -<span id="L20727" class="LineNr">20727 </span> <span class="subxComment"># if dest is an addr and src is 0, return</span> -<span id="L20728" class="LineNr">20728 </span> { -<span id="L20729" class="LineNr">20729 </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="L20730" class="LineNr">20730 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20731" class="LineNr">20731 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20732" class="LineNr">20732 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20733" class="LineNr">20733 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20734" class="LineNr">20734 </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="L20735" class="LineNr">20735 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L20736" class="LineNr">20736 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L20737" class="LineNr">20737 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20738" class="LineNr">20738 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20739" class="LineNr">20739 </span> eb/jump $check-mu-copy-to-stmt:end/disp8 -<span id="L20740" class="LineNr">20740 </span> } -<span id="L20741" class="LineNr">20741 </span> <span class="subxComment"># if dest is not number-like, abort</span> -<span id="L20742" class="LineNr">20742 </span> (<a href='mu.subx.html#L20293'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20743" class="LineNr">20743 </span><span class="Constant">$check-mu-copy-to-stmt:end</span>: -<span id="L20744" class="LineNr">20744 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20745" class="LineNr">20745 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L20746" class="LineNr">20746 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20747" class="LineNr">20747 </span> 5f/pop-to-edi -<span id="L20748" class="LineNr">20748 </span> 5e/pop-to-esi -<span id="L20749" class="LineNr">20749 </span> 5b/pop-to-ebx -<span id="L20750" class="LineNr">20750 </span> 5a/pop-to-edx -<span id="L20751" class="LineNr">20751 </span> 59/pop-to-ecx -<span id="L20752" class="LineNr">20752 </span> 58/pop-to-eax -<span id="L20753" class="LineNr">20753 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20754" class="LineNr">20754 </span> 89/<- %esp 5/r32/ebp -<span id="L20755" class="LineNr">20755 </span> 5d/pop-to-ebp -<span id="L20756" class="LineNr">20756 </span> c3/return -<span id="L20757" class="LineNr">20757 </span> -<span id="L20758" class="LineNr">20758 </span><span class="Constant">$check-mu-copy-to-stmt:error-incorrect-inouts</span>: -<span id="L20759" class="LineNr">20759 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20760" class="LineNr">20760 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20761" class="LineNr">20761 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20762" class="LineNr">20762 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20763" class="LineNr">20763 </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="L20764" class="LineNr">20764 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20765" class="LineNr">20765 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20766" class="LineNr">20766 </span> <span class="subxComment"># never gets here</span> -<span id="L20767" class="LineNr">20767 </span> -<span id="L20768" class="LineNr">20768 </span><span class="Constant">$check-mu-copy-to-stmt:error-too-many-outputs</span>: -<span id="L20769" class="LineNr">20769 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20770" class="LineNr">20770 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20771" class="LineNr">20771 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20772" class="LineNr">20772 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20773" class="LineNr">20773 </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="L20774" class="LineNr">20774 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20775" class="LineNr">20775 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20776" class="LineNr">20776 </span> <span class="subxComment"># never gets here</span> -<span id="L20777" class="LineNr">20777 </span> -<span id="L20778" class="LineNr">20778 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-not-literal-or-in-register</span>: -<span id="L20779" class="LineNr">20779 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20780" class="LineNr">20780 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20781" class="LineNr">20781 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20782" class="LineNr">20782 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20783" class="LineNr">20783 </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="L20784" class="LineNr">20784 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20785" class="LineNr">20785 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20786" class="LineNr">20786 </span> <span class="subxComment"># never gets here</span> -<span id="L20787" class="LineNr">20787 </span> -<span id="L20788" class="LineNr">20788 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-too-large</span>: -<span id="L20789" class="LineNr">20789 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20790" class="LineNr">20790 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20791" class="LineNr">20791 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20792" class="LineNr">20792 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20793" class="LineNr">20793 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: '"</span>) -<span id="L20794" class="LineNr">20794 </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="L20795" class="LineNr">20795 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L20796" class="LineNr">20796 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20797" class="LineNr">20797 </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="L20798" class="LineNr">20798 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20799" class="LineNr">20799 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20800" class="LineNr">20800 </span> <span class="subxComment"># never gets here</span> -<span id="L20801" class="LineNr">20801 </span> -<span id="L20802" class="LineNr">20802 </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="L20803" class="LineNr">20803 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20804" class="LineNr">20804 </span> 55/push-ebp -<span id="L20805" class="LineNr">20805 </span> 89/<- %ebp 4/r32/esp -<span id="L20806" class="LineNr">20806 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20807" class="LineNr">20807 </span> 50/push-eax -<span id="L20808" class="LineNr">20808 </span> 51/push-ecx -<span id="L20809" class="LineNr">20809 </span> 52/push-edx -<span id="L20810" class="LineNr">20810 </span> 53/push-ebx -<span id="L20811" class="LineNr">20811 </span> 56/push-esi -<span id="L20812" class="LineNr">20812 </span> 57/push-edi -<span id="L20813" class="LineNr">20813 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L20814" class="LineNr">20814 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L20815" class="LineNr">20815 </span> 68/push 0x60/imm32/size -<span id="L20816" class="LineNr">20816 </span> 68/push 0/imm32/read -<span id="L20817" class="LineNr">20817 </span> 68/push 0/imm32/write -<span id="L20818" class="LineNr">20818 </span> 89/<- %edx 4/r32/esp -<span id="L20819" class="LineNr">20819 </span> <span class="subxComment"># esi = stmt</span> -<span id="L20820" class="LineNr">20820 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L20821" class="LineNr">20821 </span><span class="Constant">$check-mu-compare-stmt:check-for-output</span>: -<span id="L20822" class="LineNr">20822 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L20823" class="LineNr">20823 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L20824" class="LineNr">20824 </span> 3d/compare-eax-and 0/imm32 -<span id="L20825" class="LineNr">20825 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-too-many-outputs/disp32 -<span id="L20826" class="LineNr">20826 </span><span class="Constant">$check-mu-compare-stmt:get-left</span>: -<span id="L20827" class="LineNr">20827 </span> <span class="subxComment"># var left/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L20828" class="LineNr">20828 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L20829" class="LineNr">20829 </span> 89/<- %edi 0/r32/eax -<span id="L20830" class="LineNr">20830 </span> <span class="subxComment"># zero inouts</span> -<span id="L20831" class="LineNr">20831 </span> 3d/compare-eax-and 0/imm32 -<span id="L20832" class="LineNr">20832 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 -<span id="L20833" class="LineNr">20833 </span><span class="Constant">$check-mu-compare-stmt:get-right</span>: -<span id="L20834" class="LineNr">20834 </span> <span class="subxComment"># var right/esi: (addr stmt-var) = left->next</span> -<span id="L20835" class="LineNr">20835 </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="L20836" class="LineNr">20836 </span> 89/<- %esi 0/r32/eax -<span id="L20837" class="LineNr">20837 </span> <span class="subxComment"># 1 inout</span> -<span id="L20838" class="LineNr">20838 </span> 3d/compare-eax-and 0/imm32 -<span id="L20839" class="LineNr">20839 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 -<span id="L20840" class="LineNr">20840 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L20841" class="LineNr">20841 </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="L20842" class="LineNr">20842 </span> 3d/compare-eax-and 0/imm32 -<span id="L20843" class="LineNr">20843 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-incorrect-inouts/disp32 -<span id="L20844" class="LineNr">20844 </span> <span class="subxComment"># if both inouts are in memory, abort</span> -<span id="L20845" class="LineNr">20845 </span> { -<span id="L20846" class="LineNr">20846 </span><span class="Constant">$check-mu-compare-stmt:both-in-mem</span>: -<span id="L20847" class="LineNr">20847 </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="L20848" class="LineNr">20848 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20849" class="LineNr">20849 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L20850" class="LineNr">20850 </span> 3d/compare-eax-and 0/imm32 -<span id="L20851" class="LineNr">20851 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L20852" class="LineNr">20852 </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="L20853" class="LineNr">20853 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L20854" class="LineNr">20854 </span> 3d/compare-eax-and 0/imm32 -<span id="L20855" class="LineNr">20855 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20856" class="LineNr">20856 </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="L20857" class="LineNr">20857 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20858" class="LineNr">20858 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L20859" class="LineNr">20859 </span> 3d/compare-eax-and 0/imm32 -<span id="L20860" class="LineNr">20860 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20861" class="LineNr">20861 </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="L20862" class="LineNr">20862 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L20863" class="LineNr">20863 </span> 3d/compare-eax-and 0/imm32 -<span id="L20864" class="LineNr">20864 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20865" class="LineNr">20865 </span> e9/jump $check-mu-compare-stmt:error-both-in-memory/disp32 -<span id="L20866" class="LineNr">20866 </span> } -<span id="L20867" class="LineNr">20867 </span><span class="Constant">$check-mu-compare-stmt:types</span>: -<span id="L20868" class="LineNr">20868 </span> <span class="subxComment"># var right-type/ecx: (addr type-tree) = right->value->type</span> -<span id="L20869" class="LineNr">20869 </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="L20870" class="LineNr">20870 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20871" class="LineNr">20871 </span> 89/<- %ecx 0/r32/eax -<span id="L20872" class="LineNr">20872 </span> <span class="subxComment"># if (right->is-deref?) right-type = right-type->payload</span> -<span id="L20873" class="LineNr">20873 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L20874" class="LineNr">20874 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20875" class="LineNr">20875 </span> { -<span id="L20876" class="LineNr">20876 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20877" class="LineNr">20877 </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="L20878" class="LineNr">20878 </span> <span class="subxComment"># if right-type->right is null, right-type = right-type->left</span> -<span id="L20879" class="LineNr">20879 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20880" class="LineNr">20880 </span> { -<span id="L20881" class="LineNr">20881 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20882" class="LineNr">20882 </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="L20883" class="LineNr">20883 </span> } -<span id="L20884" class="LineNr">20884 </span> 89/<- %ecx 0/r32/eax -<span id="L20885" class="LineNr">20885 </span> } -<span id="L20886" class="LineNr">20886 </span> <span class="subxComment"># if right is not a scalar, abort</span> -<span id="L20887" class="LineNr">20887 </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="L20888" class="LineNr">20888 </span> (<a href='mu.subx.html#L24381'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20889" class="LineNr">20889 </span> 3d/compare-eax-and 4/imm32 -<span id="L20890" class="LineNr">20890 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-right-too-large/disp32 -<span id="L20891" class="LineNr">20891 </span> <span class="subxComment"># if left is not a scalar, abort</span> -<span id="L20892" class="LineNr">20892 </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="L20893" class="LineNr">20893 </span> (<a href='mu.subx.html#L24381'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20894" class="LineNr">20894 </span> 3d/compare-eax-and 4/imm32 -<span id="L20895" class="LineNr">20895 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-left-too-large/disp32 -<span id="L20896" class="LineNr">20896 </span> <span class="subxComment"># var left-type/ebx: (addr type-tree) = left->value->type</span> -<span id="L20897" class="LineNr">20897 </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="L20898" class="LineNr">20898 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20899" class="LineNr">20899 </span> 89/<- %ebx 0/r32/eax -<span id="L20900" class="LineNr">20900 </span> <span class="subxComment"># if (left->is-deref?) left-type = left-type->payload</span> -<span id="L20901" class="LineNr">20901 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L20902" class="LineNr">20902 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20903" class="LineNr">20903 </span> { -<span id="L20904" class="LineNr">20904 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20905" class="LineNr">20905 </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="L20906" class="LineNr">20906 </span> <span class="subxComment"># if left-type->right is null, left-type = left-type->left</span> -<span id="L20907" class="LineNr">20907 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20908" class="LineNr">20908 </span> { -<span id="L20909" class="LineNr">20909 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20910" class="LineNr">20910 </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="L20911" class="LineNr">20911 </span> } -<span id="L20912" class="LineNr">20912 </span> 89/<- %ebx 0/r32/eax -<span id="L20913" class="LineNr">20913 </span> } -<span id="L20914" class="LineNr">20914 </span> <span class="subxComment"># if (left-type == right-type) return</span> -<span id="L20915" class="LineNr">20915 </span> (<a href='mu.subx.html#L24222'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L20916" class="LineNr">20916 </span> 3d/compare-eax-and 0/imm32 -<span id="L20917" class="LineNr">20917 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:end/disp32 -<span id="L20918" class="LineNr">20918 </span> <span class="subxComment"># if left is an addr and right is 0, return</span> -<span id="L20919" class="LineNr">20919 </span> { -<span id="L20920" class="LineNr">20920 </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="L20921" class="LineNr">20921 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20922" class="LineNr">20922 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20923" class="LineNr">20923 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20924" class="LineNr">20924 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20925" class="LineNr">20925 </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="L20926" class="LineNr">20926 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L20927" class="LineNr">20927 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L20928" class="LineNr">20928 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20929" class="LineNr">20929 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20930" class="LineNr">20930 </span> eb/jump $check-mu-compare-stmt:end/disp8 -<span id="L20931" class="LineNr">20931 </span> } -<span id="L20932" class="LineNr">20932 </span> <span class="subxComment"># if left is not number-like, abort</span> -<span id="L20933" class="LineNr">20933 </span> (<a href='mu.subx.html#L20293'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L20934" class="LineNr">20934 </span><span class="Constant">$check-mu-compare-stmt:end</span>: -<span id="L20935" class="LineNr">20935 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20936" class="LineNr">20936 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L20937" class="LineNr">20937 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20938" class="LineNr">20938 </span> 5f/pop-to-edi -<span id="L20939" class="LineNr">20939 </span> 5e/pop-to-esi -<span id="L20940" class="LineNr">20940 </span> 5b/pop-to-ebx -<span id="L20941" class="LineNr">20941 </span> 5a/pop-to-edx -<span id="L20942" class="LineNr">20942 </span> 59/pop-to-ecx -<span id="L20943" class="LineNr">20943 </span> 58/pop-to-eax -<span id="L20944" class="LineNr">20944 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20945" class="LineNr">20945 </span> 89/<- %esp 5/r32/ebp -<span id="L20946" class="LineNr">20946 </span> 5d/pop-to-ebp -<span id="L20947" class="LineNr">20947 </span> c3/return -<span id="L20948" class="LineNr">20948 </span> -<span id="L20949" class="LineNr">20949 </span><span class="Constant">$check-mu-compare-stmt:error-incorrect-inouts</span>: -<span id="L20950" class="LineNr">20950 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20951" class="LineNr">20951 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20952" class="LineNr">20952 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20953" class="LineNr">20953 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20954" class="LineNr">20954 </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="L20955" class="LineNr">20955 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20956" class="LineNr">20956 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20957" class="LineNr">20957 </span> <span class="subxComment"># never gets here</span> -<span id="L20958" class="LineNr">20958 </span> -<span id="L20959" class="LineNr">20959 </span><span class="Constant">$check-mu-compare-stmt:error-too-many-outputs</span>: -<span id="L20960" class="LineNr">20960 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20961" class="LineNr">20961 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20962" class="LineNr">20962 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20963" class="LineNr">20963 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20964" class="LineNr">20964 </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="L20965" class="LineNr">20965 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20966" class="LineNr">20966 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20967" class="LineNr">20967 </span> <span class="subxComment"># never gets here</span> -<span id="L20968" class="LineNr">20968 </span> -<span id="L20969" class="LineNr">20969 </span><span class="Constant">$check-mu-compare-stmt:error-both-in-memory</span>: -<span id="L20970" class="LineNr">20970 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20971" class="LineNr">20971 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20972" class="LineNr">20972 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20973" class="LineNr">20973 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20974" class="LineNr">20974 </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="L20975" class="LineNr">20975 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20976" class="LineNr">20976 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20977" class="LineNr">20977 </span> <span class="subxComment"># never gets here</span> -<span id="L20978" class="LineNr">20978 </span> -<span id="L20979" class="LineNr">20979 </span><span class="Constant">$check-mu-compare-stmt:error-left-too-large</span>: -<span id="L20980" class="LineNr">20980 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20981" class="LineNr">20981 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20982" class="LineNr">20982 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20983" class="LineNr">20983 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20984" class="LineNr">20984 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) -<span id="L20985" class="LineNr">20985 </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="L20986" class="LineNr">20986 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L20987" class="LineNr">20987 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20988" class="LineNr">20988 </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="L20989" class="LineNr">20989 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20990" class="LineNr">20990 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20991" class="LineNr">20991 </span> <span class="subxComment"># never gets here</span> -<span id="L20992" class="LineNr">20992 </span> -<span id="L20993" class="LineNr">20993 </span><span class="Constant">$check-mu-compare-stmt:error-right-too-large</span>: -<span id="L20994" class="LineNr">20994 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L20995" class="LineNr">20995 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20996" class="LineNr">20996 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L20997" class="LineNr">20997 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20998" class="LineNr">20998 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) -<span id="L20999" class="LineNr">20999 </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="L21000" class="LineNr">21000 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21001" class="LineNr">21001 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21002" class="LineNr">21002 </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="L21003" class="LineNr">21003 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21004" class="LineNr">21004 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21005" class="LineNr">21005 </span> <span class="subxComment"># never gets here</span> -<span id="L21006" class="LineNr">21006 </span> -<span id="L21007" class="LineNr">21007 </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="L21008" class="LineNr">21008 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21009" class="LineNr">21009 </span> 55/push-ebp -<span id="L21010" class="LineNr">21010 </span> 89/<- %ebp 4/r32/esp -<span id="L21011" class="LineNr">21011 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21012" class="LineNr">21012 </span> 50/push-eax -<span id="L21013" class="LineNr">21013 </span> 51/push-ecx -<span id="L21014" class="LineNr">21014 </span> 52/push-edx -<span id="L21015" class="LineNr">21015 </span> 56/push-esi -<span id="L21016" class="LineNr">21016 </span> 57/push-edi -<span id="L21017" class="LineNr">21017 </span><span class="Constant">$check-mu-address-stmt:get-output</span>: -<span id="L21018" class="LineNr">21018 </span> <span class="subxComment"># esi = stmt</span> -<span id="L21019" class="LineNr">21019 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21020" class="LineNr">21020 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L21021" class="LineNr">21021 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L21022" class="LineNr">21022 </span> 89/<- %edi 0/r32/eax -<span id="L21023" class="LineNr">21023 </span> <span class="subxComment"># zero outputs</span> -<span id="L21024" class="LineNr">21024 </span> 3d/compare-eax-and 0/imm32 -<span id="L21025" class="LineNr">21025 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-output/disp32 -<span id="L21026" class="LineNr">21026 </span> <span class="subxComment"># > 1 output</span> -<span id="L21027" class="LineNr">21027 </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="L21028" class="LineNr">21028 </span> 3d/compare-eax-and 0/imm32 -<span id="L21029" class="LineNr">21029 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-outputs/disp32 -<span id="L21030" class="LineNr">21030 </span><span class="Constant">$check-mu-address-stmt:get-inout</span>: -<span id="L21031" class="LineNr">21031 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L21032" class="LineNr">21032 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L21033" class="LineNr">21033 </span> 89/<- %esi 0/r32/eax -<span id="L21034" class="LineNr">21034 </span> <span class="subxComment"># zero inouts</span> -<span id="L21035" class="LineNr">21035 </span> 3d/compare-eax-and 0/imm32 -<span id="L21036" class="LineNr">21036 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-inout/disp32 -<span id="L21037" class="LineNr">21037 </span> <span class="subxComment"># > 1 inout</span> -<span id="L21038" class="LineNr">21038 </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="L21039" class="LineNr">21039 </span> 3d/compare-eax-and 0/imm32 -<span id="L21040" class="LineNr">21040 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-inouts/disp32 -<span id="L21041" class="LineNr">21041 </span><span class="Constant">$check-mu-address-stmt:types</span>: -<span id="L21042" class="LineNr">21042 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L21043" class="LineNr">21043 </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="L21044" class="LineNr">21044 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L21045" class="LineNr">21045 </span> 3d/compare-eax-and 0/imm32 -<span id="L21046" class="LineNr">21046 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-in-register/disp32 -<span id="L21047" class="LineNr">21047 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> -<span id="L21048" class="LineNr">21048 </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="L21049" class="LineNr">21049 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21050" class="LineNr">21050 </span> 89/<- %edx 0/r32/eax -<span id="L21051" class="LineNr">21051 </span> <span class="subxComment"># if output-type not an addr, abort</span> -<span id="L21052" class="LineNr">21052 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L21053" class="LineNr">21053 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21054" class="LineNr">21054 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-address/disp32 -<span id="L21055" class="LineNr">21055 </span> <span class="subxComment"># output-type = output-type->right</span> -<span id="L21056" class="LineNr">21056 </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="L21057" class="LineNr">21057 </span> <span class="subxComment"># if output-type->right is null, output-type = output-type->left</span> -<span id="L21058" class="LineNr">21058 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L21059" class="LineNr">21059 </span> { -<span id="L21060" class="LineNr">21060 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21061" class="LineNr">21061 </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="L21062" class="LineNr">21062 </span> } -<span id="L21063" class="LineNr">21063 </span> 89/<- %edx 0/r32/eax -<span id="L21064" class="LineNr">21064 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L21065" class="LineNr">21065 </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="L21066" class="LineNr">21066 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21067" class="LineNr">21067 </span> 89/<- %ecx 0/r32/eax -<span id="L21068" class="LineNr">21068 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L21069" class="LineNr">21069 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L21070" class="LineNr">21070 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21071" class="LineNr">21071 </span> { -<span id="L21072" class="LineNr">21072 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21073" class="LineNr">21073 </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="L21074" class="LineNr">21074 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L21075" class="LineNr">21075 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L21076" class="LineNr">21076 </span> { -<span id="L21077" class="LineNr">21077 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21078" class="LineNr">21078 </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="L21079" class="LineNr">21079 </span> } -<span id="L21080" class="LineNr">21080 </span> 89/<- %ecx 0/r32/eax -<span id="L21081" class="LineNr">21081 </span> } -<span id="L21082" class="LineNr">21082 </span> <span class="subxComment"># if (inout-type != output-type) abort</span> -<span id="L21083" class="LineNr">21083 </span> (<a href='mu.subx.html#L21184'>type-equal-ignoring-capacity?</a> %edx %ecx) <span class="subxComment"># => eax</span> -<span id="L21084" class="LineNr">21084 </span> 3d/compare-eax-and 0/imm32 -<span id="L21085" class="LineNr">21085 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-type-mismatch/disp32 -<span id="L21086" class="LineNr">21086 </span><span class="Constant">$check-mu-address-stmt:end</span>: -<span id="L21087" class="LineNr">21087 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21088" class="LineNr">21088 </span> 5f/pop-to-edi -<span id="L21089" class="LineNr">21089 </span> 5e/pop-to-esi -<span id="L21090" class="LineNr">21090 </span> 5a/pop-to-edx -<span id="L21091" class="LineNr">21091 </span> 59/pop-to-ecx -<span id="L21092" class="LineNr">21092 </span> 58/pop-to-eax -<span id="L21093" class="LineNr">21093 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21094" class="LineNr">21094 </span> 89/<- %esp 5/r32/ebp -<span id="L21095" class="LineNr">21095 </span> 5d/pop-to-ebp -<span id="L21096" class="LineNr">21096 </span> c3/return -<span id="L21097" class="LineNr">21097 </span> -<span id="L21098" class="LineNr">21098 </span><span class="Constant">$check-mu-address-stmt:error-no-inout</span>: -<span id="L21099" class="LineNr">21099 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21100" class="LineNr">21100 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21101" class="LineNr">21101 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21102" class="LineNr">21102 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21103" class="LineNr">21103 </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="L21104" class="LineNr">21104 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21105" class="LineNr">21105 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21106" class="LineNr">21106 </span> <span class="subxComment"># never gets here</span> -<span id="L21107" class="LineNr">21107 </span> -<span id="L21108" class="LineNr">21108 </span><span class="Constant">$check-mu-address-stmt:error-too-many-inouts</span>: -<span id="L21109" class="LineNr">21109 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21110" class="LineNr">21110 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21111" class="LineNr">21111 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21112" class="LineNr">21112 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21113" class="LineNr">21113 </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="L21114" class="LineNr">21114 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21115" class="LineNr">21115 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21116" class="LineNr">21116 </span> <span class="subxComment"># never gets here</span> -<span id="L21117" class="LineNr">21117 </span> -<span id="L21118" class="LineNr">21118 </span><span class="Constant">$check-mu-address-stmt:error-no-output</span>: -<span id="L21119" class="LineNr">21119 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21120" class="LineNr">21120 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21121" class="LineNr">21121 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21122" class="LineNr">21122 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21123" class="LineNr">21123 </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="L21124" class="LineNr">21124 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21125" class="LineNr">21125 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21126" class="LineNr">21126 </span> <span class="subxComment"># never gets here</span> -<span id="L21127" class="LineNr">21127 </span> -<span id="L21128" class="LineNr">21128 </span><span class="Constant">$check-mu-address-stmt:error-output-not-in-register</span>: -<span id="L21129" class="LineNr">21129 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21130" class="LineNr">21130 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21131" class="LineNr">21131 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21132" class="LineNr">21132 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21133" class="LineNr">21133 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) -<span id="L21134" class="LineNr">21134 </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="L21135" class="LineNr">21135 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21136" class="LineNr">21136 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21137" class="LineNr">21137 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L21138" class="LineNr">21138 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21139" class="LineNr">21139 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21140" class="LineNr">21140 </span> <span class="subxComment"># never gets here</span> -<span id="L21141" class="LineNr">21141 </span> -<span id="L21142" class="LineNr">21142 </span><span class="Constant">$check-mu-address-stmt:error-too-many-outputs</span>: -<span id="L21143" class="LineNr">21143 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21144" class="LineNr">21144 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21145" class="LineNr">21145 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21146" class="LineNr">21146 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21147" class="LineNr">21147 </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="L21148" class="LineNr">21148 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21149" class="LineNr">21149 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21150" class="LineNr">21150 </span> <span class="subxComment"># never gets here</span> -<span id="L21151" class="LineNr">21151 </span> -<span id="L21152" class="LineNr">21152 </span><span class="Constant">$check-mu-address-stmt:error-output-not-address</span>: -<span id="L21153" class="LineNr">21153 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21154" class="LineNr">21154 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21155" class="LineNr">21155 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21156" class="LineNr">21156 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21157" class="LineNr">21157 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) -<span id="L21158" class="LineNr">21158 </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="L21159" class="LineNr">21159 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21160" class="LineNr">21160 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21161" class="LineNr">21161 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an addr\n"</span>) -<span id="L21162" class="LineNr">21162 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21163" class="LineNr">21163 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21164" class="LineNr">21164 </span> <span class="subxComment"># never gets here</span> -<span id="L21165" class="LineNr">21165 </span> -<span id="L21166" class="LineNr">21166 </span><span class="Constant">$check-mu-address-stmt:error-type-mismatch</span>: -<span id="L21167" class="LineNr">21167 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21168" class="LineNr">21168 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21169" class="LineNr">21169 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21170" class="LineNr">21170 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21171" class="LineNr">21171 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) -<span id="L21172" class="LineNr">21172 </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="L21173" class="LineNr">21173 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21174" class="LineNr">21174 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21175" class="LineNr">21175 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot hold address of '"</span>) -<span id="L21176" class="LineNr">21176 </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="L21177" class="LineNr">21177 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21178" class="LineNr">21178 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21179" class="LineNr">21179 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L21180" class="LineNr">21180 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21181" class="LineNr">21181 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21182" class="LineNr">21182 </span> <span class="subxComment"># never gets here</span> -<span id="L21183" class="LineNr">21183 </span> -<span id="L21184" class="LineNr">21184 </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="L21185" class="LineNr">21185 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21186" class="LineNr">21186 </span> 55/push-ebp -<span id="L21187" class="LineNr">21187 </span> 89/<- %ebp 4/r32/esp -<span id="L21188" class="LineNr">21188 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21189" class="LineNr">21189 </span> 51/push-ecx -<span id="L21190" class="LineNr">21190 </span> 52/push-edx -<span id="L21191" class="LineNr">21191 </span> 53/push-ebx -<span id="L21192" class="LineNr">21192 </span> <span class="subxComment"># var curr-a/ecx: (addr type-tree) = a</span> -<span id="L21193" class="LineNr">21193 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L21194" class="LineNr">21194 </span> <span class="subxComment"># var curr-b/ebx: (addr type-tree) = b</span> -<span id="L21195" class="LineNr">21195 </span> 8b/-> *(ebp+0xc) 3/r32/ebx -<span id="L21196" class="LineNr">21196 </span> <span class="subxComment"># if (curr-a->is-atom?) fall back to regular equality</span> -<span id="L21197" class="LineNr">21197 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L21198" class="LineNr">21198 </span> 0f 85/jump-if-!= $type-equal-ignoring-capacity?:base-case/disp32 -<span id="L21199" class="LineNr">21199 </span> <span class="subxComment"># if (curr-a->left != curr-b->left) return false</span> -<span id="L21200" class="LineNr">21200 </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="L21201" class="LineNr">21201 </span> 89/<- %edx 0/r32/eax -<span id="L21202" class="LineNr">21202 </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="L21203" class="LineNr">21203 </span> (<a href='mu.subx.html#L24708'>type-equal?</a> %edx %eax) <span class="subxComment"># => eax</span> -<span id="L21204" class="LineNr">21204 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21205" class="LineNr">21205 </span> 0f 84/jump-if-= $type-equal-ignoring-capacity?:end/disp32 <span class="subxComment"># eax switches meaning</span> -<span id="L21206" class="LineNr">21206 </span> <span class="subxComment"># if (curr-a->left == "array") curr-a = curr-a->element-type</span> -<span id="L21207" class="LineNr">21207 </span> { -<span id="L21208" class="LineNr">21208 </span> (<a href='mu.subx.html#L24478'>is-mu-array?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L21209" class="LineNr">21209 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21210" class="LineNr">21210 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21211" class="LineNr">21211 </span><span class="Constant">$type-equal-ignoring-capacity?:array</span>: -<span id="L21212" class="LineNr">21212 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> -<span id="L21213" class="LineNr">21213 </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="L21214" class="LineNr">21214 </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="L21215" class="LineNr">21215 </span> 89/<- %ecx 0/r32/eax -<span id="L21216" class="LineNr">21216 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> -<span id="L21217" class="LineNr">21217 </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="L21218" class="LineNr">21218 </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="L21219" class="LineNr">21219 </span> 89/<- %ebx 0/r32/eax -<span id="L21220" class="LineNr">21220 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 -<span id="L21221" class="LineNr">21221 </span> } -<span id="L21222" class="LineNr">21222 </span> <span class="subxComment"># if (curr-a->left == "stream") curr-a = curr-a->element-type</span> -<span id="L21223" class="LineNr">21223 </span> { -<span id="L21224" class="LineNr">21224 </span> (<a href='mu.subx.html#L24543'>is-mu-stream?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L21225" class="LineNr">21225 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21226" class="LineNr">21226 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21227" class="LineNr">21227 </span><span class="Constant">$type-equal-ignoring-capacity?:stream</span>: -<span id="L21228" class="LineNr">21228 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> -<span id="L21229" class="LineNr">21229 </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="L21230" class="LineNr">21230 </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="L21231" class="LineNr">21231 </span> 89/<- %ecx 0/r32/eax -<span id="L21232" class="LineNr">21232 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> -<span id="L21233" class="LineNr">21233 </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="L21234" class="LineNr">21234 </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="L21235" class="LineNr">21235 </span> 89/<- %ebx 0/r32/eax -<span id="L21236" class="LineNr">21236 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 -<span id="L21237" class="LineNr">21237 </span> } -<span id="L21238" class="LineNr">21238 </span><span class="Constant">$type-equal-ignoring-capacity?:base-case</span>: -<span id="L21239" class="LineNr">21239 </span> <span class="subxComment"># return type-equal?(curr-a, curr-b)</span> -<span id="L21240" class="LineNr">21240 </span> (<a href='mu.subx.html#L24708'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> -<span id="L21241" class="LineNr">21241 </span><span class="Constant">$type-equal-ignoring-capacity?:end</span>: -<span id="L21242" class="LineNr">21242 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21243" class="LineNr">21243 </span> 5b/pop-to-ebx -<span id="L21244" class="LineNr">21244 </span> 5a/pop-to-edx -<span id="L21245" class="LineNr">21245 </span> 59/pop-to-ecx -<span id="L21246" class="LineNr">21246 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21247" class="LineNr">21247 </span> 89/<- %esp 5/r32/ebp -<span id="L21248" class="LineNr">21248 </span> 5d/pop-to-ebp -<span id="L21249" class="LineNr">21249 </span> c3/return -<span id="L21250" class="LineNr">21250 </span> -<span id="L21251" class="LineNr">21251 </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="L21252" class="LineNr">21252 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21253" class="LineNr">21253 </span> 55/push-ebp -<span id="L21254" class="LineNr">21254 </span> 89/<- %ebp 4/r32/esp -<span id="L21255" class="LineNr">21255 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21256" class="LineNr">21256 </span> 50/push-eax -<span id="L21257" class="LineNr">21257 </span> 51/push-ecx -<span id="L21258" class="LineNr">21258 </span> 52/push-edx -<span id="L21259" class="LineNr">21259 </span> 53/push-ebx -<span id="L21260" class="LineNr">21260 </span> 56/push-esi -<span id="L21261" class="LineNr">21261 </span> 57/push-edi -<span id="L21262" class="LineNr">21262 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L21263" class="LineNr">21263 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L21264" class="LineNr">21264 </span> 68/push 0x60/imm32/size -<span id="L21265" class="LineNr">21265 </span> 68/push 0/imm32/read -<span id="L21266" class="LineNr">21266 </span> 68/push 0/imm32/write -<span id="L21267" class="LineNr">21267 </span> 89/<- %edx 4/r32/esp -<span id="L21268" class="LineNr">21268 </span> <span class="subxComment"># var template/esi: (addr list var) = fn->outputs</span> -<span id="L21269" class="LineNr">21269 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21270" class="LineNr">21270 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L21271" class="LineNr">21271 </span> 89/<- %esi 0/r32/eax -<span id="L21272" class="LineNr">21272 </span> <span class="subxComment"># var curr-template/ebx: (addr list var) = fn->outputs</span> -<span id="L21273" class="LineNr">21273 </span> 89/<- %ebx 0/r32/eax -<span id="L21274" class="LineNr">21274 </span> <span class="subxComment"># var curr/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L21275" class="LineNr">21275 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21276" class="LineNr">21276 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L21277" class="LineNr">21277 </span> 89/<- %edi 0/r32/eax +<span id="L20666" class="LineNr">20666 </span> { +<span id="L20667" class="LineNr">20667 </span> 3d/compare-eax-and 0/imm32 +<span id="L20668" class="LineNr">20668 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:end/disp32 +<span id="L20669" class="LineNr">20669 </span><span class="Constant">$check-mu-numberlike-primitive:first-inout</span>: +<span id="L20670" class="LineNr">20670 </span> (<a href='mu.subx.html#L20726'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20671" class="LineNr">20671 </span> <span class="subxComment"># --gas</span> +<span id="L20672" class="LineNr">20672 </span> 49/decrement-ecx +<span id="L20673" class="LineNr">20673 </span> } +<span id="L20674" class="LineNr">20674 </span> <span class="subxH1Comment"># - check second inout</span> +<span id="L20675" class="LineNr">20675 </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="L20676" class="LineNr">20676 </span> { +<span id="L20677" class="LineNr">20677 </span> 3d/compare-eax-and 0/imm32 +<span id="L20678" class="LineNr">20678 </span> 74/jump-if-= $check-mu-numberlike-primitive:end/disp8 +<span id="L20679" class="LineNr">20679 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout</span>: +<span id="L20680" class="LineNr">20680 </span> <span class="subxComment"># is a second inout allowed?</span> +<span id="L20681" class="LineNr">20681 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L20682" class="LineNr">20682 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 +<span id="L20683" class="LineNr">20683 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout-permitted</span>: +<span id="L20684" class="LineNr">20684 </span> (<a href='mu.subx.html#L20726'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20685" class="LineNr">20685 </span> } +<span id="L20686" class="LineNr">20686 </span><span class="Constant">$check-mu-numberlike-primitive:third-inout</span>: +<span id="L20687" class="LineNr">20687 </span> <span class="subxComment"># if there's a third arg, raise an error</span> +<span id="L20688" class="LineNr">20688 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> +<span id="L20689" class="LineNr">20689 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 +<span id="L20690" class="LineNr">20690 </span><span class="Constant">$check-mu-numberlike-primitive:end</span>: +<span id="L20691" class="LineNr">20691 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20692" class="LineNr">20692 </span> 5e/pop-to-esi +<span id="L20693" class="LineNr">20693 </span> 59/pop-to-ecx +<span id="L20694" class="LineNr">20694 </span> 58/pop-to-eax +<span id="L20695" class="LineNr">20695 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20696" class="LineNr">20696 </span> 89/<- %esp 5/r32/ebp +<span id="L20697" class="LineNr">20697 </span> 5d/pop-to-ebp +<span id="L20698" class="LineNr">20698 </span> c3/return +<span id="L20699" class="LineNr">20699 </span> +<span id="L20700" class="LineNr">20700 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-inouts</span>: +<span id="L20701" class="LineNr">20701 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L20702" class="LineNr">20702 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L20703" class="LineNr">20703 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L20704" class="LineNr">20704 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20705" class="LineNr">20705 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) +<span id="L20706" class="LineNr">20706 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L20707" class="LineNr">20707 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20708" class="LineNr">20708 </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="L20709" class="LineNr">20709 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20710" class="LineNr">20710 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20711" class="LineNr">20711 </span> <span class="subxComment"># never gets here</span> +<span id="L20712" class="LineNr">20712 </span> +<span id="L20713" class="LineNr">20713 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-outputs</span>: +<span id="L20714" class="LineNr">20714 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L20715" class="LineNr">20715 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L20716" class="LineNr">20716 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L20717" class="LineNr">20717 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20718" class="LineNr">20718 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) +<span id="L20719" class="LineNr">20719 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L20720" class="LineNr">20720 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20721" class="LineNr">20721 </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="L20722" class="LineNr">20722 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20723" class="LineNr">20723 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20724" class="LineNr">20724 </span> <span class="subxComment"># never gets here</span> +<span id="L20725" class="LineNr">20725 </span> +<span id="L20726" class="LineNr">20726 </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="L20727" class="LineNr">20727 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20728" class="LineNr">20728 </span> 55/push-ebp +<span id="L20729" class="LineNr">20729 </span> 89/<- %ebp 4/r32/esp +<span id="L20730" class="LineNr">20730 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20731" class="LineNr">20731 </span> 50/push-eax +<span id="L20732" class="LineNr">20732 </span> 56/push-esi +<span id="L20733" class="LineNr">20733 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> +<span id="L20734" class="LineNr">20734 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20735" class="LineNr">20735 </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="L20736" class="LineNr">20736 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20737" class="LineNr">20737 </span> 89/<- %esi 0/r32/eax +<span id="L20738" class="LineNr">20738 </span><span class="Constant">$check-mu-numberlike-arg:check-literal</span>: +<span id="L20739" class="LineNr">20739 </span> <span class="subxComment"># if t is an int, return</span> +<span id="L20740" class="LineNr">20740 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %esi 0) <span class="subxComment"># literal => eax</span> +<span id="L20741" class="LineNr">20741 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20742" class="LineNr">20742 </span> 0f 85/jump-if-!= $check-mu-numberlike-arg:end/disp32 +<span id="L20743" class="LineNr">20743 </span><span class="Constant">$check-mu-numberlike-arg:check-addr</span>: +<span id="L20744" class="LineNr">20744 </span> <span class="subxComment"># if t is an addr and v is dereferenced, return whether t->payload is an addr</span> +<span id="L20745" class="LineNr">20745 </span> { +<span id="L20746" class="LineNr">20746 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L20747" class="LineNr">20747 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20748" class="LineNr">20748 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20749" class="LineNr">20749 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20750" class="LineNr">20750 </span> 8b/-> *(eax+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L20751" class="LineNr">20751 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20752" class="LineNr">20752 </span> { +<span id="L20753" class="LineNr">20753 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20754" class="LineNr">20754 </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="L20755" class="LineNr">20755 </span> <span class="subxComment"># if t->right is null, t = t->left</span> +<span id="L20756" class="LineNr">20756 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L20757" class="LineNr">20757 </span> { +<span id="L20758" class="LineNr">20758 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20759" class="LineNr">20759 </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="L20760" class="LineNr">20760 </span> } +<span id="L20761" class="LineNr">20761 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20762" class="LineNr">20762 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20763" class="LineNr">20763 </span> 74/jump-if-= $check-mu-numberlike-arg:end/disp8 +<span id="L20764" class="LineNr">20764 </span> } +<span id="L20765" class="LineNr">20765 </span> } +<span id="L20766" class="LineNr">20766 </span><span class="Constant">$check-mu-numberlike-arg:output-checks</span>: +<span id="L20767" class="LineNr">20767 </span> (<a href='mu.subx.html#L20777'>check-mu-numberlike-output</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) +<span id="L20768" class="LineNr">20768 </span><span class="Constant">$check-mu-numberlike-arg:end</span>: +<span id="L20769" class="LineNr">20769 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20770" class="LineNr">20770 </span> 5e/pop-to-esi +<span id="L20771" class="LineNr">20771 </span> 58/pop-to-eax +<span id="L20772" class="LineNr">20772 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20773" class="LineNr">20773 </span> 89/<- %esp 5/r32/ebp +<span id="L20774" class="LineNr">20774 </span> 5d/pop-to-ebp +<span id="L20775" class="LineNr">20775 </span> c3/return +<span id="L20776" class="LineNr">20776 </span> +<span id="L20777" class="LineNr">20777 </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="L20778" class="LineNr">20778 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20779" class="LineNr">20779 </span> 55/push-ebp +<span id="L20780" class="LineNr">20780 </span> 89/<- %ebp 4/r32/esp +<span id="L20781" class="LineNr">20781 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20782" class="LineNr">20782 </span> 50/push-eax +<span id="L20783" class="LineNr">20783 </span> <span class="subxComment">#</span> +<span id="L20784" class="LineNr">20784 </span> (<a href='mu.subx.html#L20815'>is-mu-numberlike-output-var?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L20785" class="LineNr">20785 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20786" class="LineNr">20786 </span> 0f 84/jump-if-= $check-mu-numberlike-output:fail/disp32 +<span id="L20787" class="LineNr">20787 </span><span class="Constant">$check-mu-numberlike-output:end</span>: +<span id="L20788" class="LineNr">20788 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20789" class="LineNr">20789 </span> 58/pop-to-eax +<span id="L20790" class="LineNr">20790 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20791" class="LineNr">20791 </span> 89/<- %esp 5/r32/ebp +<span id="L20792" class="LineNr">20792 </span> 5d/pop-to-ebp +<span id="L20793" class="LineNr">20793 </span> c3/return +<span id="L20794" class="LineNr">20794 </span> +<span id="L20795" class="LineNr">20795 </span><span class="Constant">$check-mu-numberlike-output:fail</span>: +<span id="L20796" class="LineNr">20796 </span> <span class="subxComment"># otherwise raise an error</span> +<span id="L20797" class="LineNr">20797 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L20798" class="LineNr">20798 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L20799" class="LineNr">20799 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L20800" class="LineNr">20800 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L20801" class="LineNr">20801 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": stmt "</span>) +<span id="L20802" class="LineNr">20802 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L20803" class="LineNr">20803 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L20804" class="LineNr">20804 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L20805" class="LineNr">20805 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": '"</span>) +<span id="L20806" class="LineNr">20806 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20807" class="LineNr">20807 </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="L20808" class="LineNr">20808 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L20809" class="LineNr">20809 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L20810" class="LineNr">20810 </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="L20811" class="LineNr">20811 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L20812" class="LineNr">20812 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L20813" class="LineNr">20813 </span> <span class="subxComment"># never gets here</span> +<span id="L20814" class="LineNr">20814 </span> +<span id="L20815" class="LineNr">20815 </span><span class="subxFunction">is-mu-numberlike-output-var?</span>: <span class="subxComment"># v: (addr stmt-var) -> result/eax: boolean</span> +<span id="L20816" class="LineNr">20816 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20817" class="LineNr">20817 </span> 55/push-ebp +<span id="L20818" class="LineNr">20818 </span> 89/<- %ebp 4/r32/esp +<span id="L20819" class="LineNr">20819 </span> <span class="subxComment">#</span> +<span id="L20820" class="LineNr">20820 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20821" class="LineNr">20821 </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="L20822" class="LineNr">20822 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20823" class="LineNr">20823 </span> (<a href='mu.subx.html#L20830'>is-mu-numberlike-output?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20824" class="LineNr">20824 </span><span class="Constant">$is-mu-numberlike-output-var?:end</span>: +<span id="L20825" class="LineNr">20825 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20826" class="LineNr">20826 </span> 89/<- %esp 5/r32/ebp +<span id="L20827" class="LineNr">20827 </span> 5d/pop-to-ebp +<span id="L20828" class="LineNr">20828 </span> c3/return +<span id="L20829" class="LineNr">20829 </span> +<span id="L20830" class="LineNr">20830 </span><span class="subxFunction">is-mu-numberlike-output?</span>: <span class="subxComment"># v: (addr type-tree) -> result/eax: boolean</span> +<span id="L20831" class="LineNr">20831 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20832" class="LineNr">20832 </span> 55/push-ebp +<span id="L20833" class="LineNr">20833 </span> 89/<- %ebp 4/r32/esp +<span id="L20834" class="LineNr">20834 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20835" class="LineNr">20835 </span> 56/push-esi +<span id="L20836" class="LineNr">20836 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> +<span id="L20837" class="LineNr">20837 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L20838" class="LineNr">20838 </span><span class="Constant">$is-mu-numberlike-output?:check-int</span>: +<span id="L20839" class="LineNr">20839 </span> <span class="subxComment"># if t is an int, return</span> +<span id="L20840" class="LineNr">20840 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %esi 1) <span class="subxComment"># int => eax</span> +<span id="L20841" class="LineNr">20841 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20842" class="LineNr">20842 </span> 0f 85/jump-if-!= $is-mu-numberlike-output?:return-true/disp32 +<span id="L20843" class="LineNr">20843 </span><span class="Constant">$is-mu-numberlike-output?:check-float</span>: +<span id="L20844" class="LineNr">20844 </span> <span class="subxComment"># if t is a float, return</span> +<span id="L20845" class="LineNr">20845 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %esi 0xf) <span class="subxComment"># float => eax</span> +<span id="L20846" class="LineNr">20846 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20847" class="LineNr">20847 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 +<span id="L20848" class="LineNr">20848 </span><span class="Constant">$is-mu-numberlike-output?:check-boolean</span>: +<span id="L20849" class="LineNr">20849 </span> <span class="subxComment"># if t is a boolean, return</span> +<span id="L20850" class="LineNr">20850 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %esi 5) <span class="subxComment"># boolean => eax</span> +<span id="L20851" class="LineNr">20851 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20852" class="LineNr">20852 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 +<span id="L20853" class="LineNr">20853 </span><span class="Constant">$is-mu-numberlike-output?:check-byte</span>: +<span id="L20854" class="LineNr">20854 </span> <span class="subxComment"># if t is a byte, return</span> +<span id="L20855" class="LineNr">20855 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %esi 8) <span class="subxComment"># byte => eax</span> +<span id="L20856" class="LineNr">20856 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20857" class="LineNr">20857 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 +<span id="L20858" class="LineNr">20858 </span><span class="Constant">$is-mu-numberlike-output?:check-code-point</span>: +<span id="L20859" class="LineNr">20859 </span> <span class="subxComment"># if t is a code-point, return</span> +<span id="L20860" class="LineNr">20860 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %esi 0xd) <span class="subxComment"># code-point => eax</span> +<span id="L20861" class="LineNr">20861 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20862" class="LineNr">20862 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 +<span id="L20863" class="LineNr">20863 </span><span class="Constant">$is-mu-numberlike-output?:check-grapheme</span>: +<span id="L20864" class="LineNr">20864 </span> <span class="subxComment"># if t is a grapheme, return</span> +<span id="L20865" class="LineNr">20865 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %esi 0xe) <span class="subxComment"># grapheme => eax</span> +<span id="L20866" class="LineNr">20866 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20867" class="LineNr">20867 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 +<span id="L20868" class="LineNr">20868 </span><span class="Constant">$is-mu-numberlike-output?:return-false</span>: +<span id="L20869" class="LineNr">20869 </span> b8/copy-to-eax 0/imm32/false +<span id="L20870" class="LineNr">20870 </span> eb/jump $is-mu-numberlike-output?:end/disp8 +<span id="L20871" class="LineNr">20871 </span><span class="Constant">$is-mu-numberlike-output?:return-true</span>: +<span id="L20872" class="LineNr">20872 </span> b8/copy-to-eax 1/imm32/true +<span id="L20873" class="LineNr">20873 </span><span class="Constant">$is-mu-numberlike-output?:end</span>: +<span id="L20874" class="LineNr">20874 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20875" class="LineNr">20875 </span> 5e/pop-to-esi +<span id="L20876" class="LineNr">20876 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20877" class="LineNr">20877 </span> 89/<- %esp 5/r32/ebp +<span id="L20878" class="LineNr">20878 </span> 5d/pop-to-ebp +<span id="L20879" class="LineNr">20879 </span> c3/return +<span id="L20880" class="LineNr">20880 </span> +<span id="L20881" class="LineNr">20881 </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="L20882" class="LineNr">20882 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20883" class="LineNr">20883 </span> 55/push-ebp +<span id="L20884" class="LineNr">20884 </span> 89/<- %ebp 4/r32/esp +<span id="L20885" class="LineNr">20885 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20886" class="LineNr">20886 </span> 50/push-eax +<span id="L20887" class="LineNr">20887 </span> 51/push-ecx +<span id="L20888" class="LineNr">20888 </span> 52/push-edx +<span id="L20889" class="LineNr">20889 </span> 56/push-esi +<span id="L20890" class="LineNr">20890 </span> 57/push-edi +<span id="L20891" class="LineNr">20891 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L20892" class="LineNr">20892 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L20893" class="LineNr">20893 </span> 68/push 0x60/imm32/size +<span id="L20894" class="LineNr">20894 </span> 68/push 0/imm32/read +<span id="L20895" class="LineNr">20895 </span> 68/push 0/imm32/write +<span id="L20896" class="LineNr">20896 </span> 89/<- %edx 4/r32/esp +<span id="L20897" class="LineNr">20897 </span><span class="Constant">$check-mu-copy-stmt:get-output</span>: +<span id="L20898" class="LineNr">20898 </span> <span class="subxComment"># esi = stmt</span> +<span id="L20899" class="LineNr">20899 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L20900" class="LineNr">20900 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L20901" class="LineNr">20901 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L20902" class="LineNr">20902 </span> 89/<- %edi 0/r32/eax +<span id="L20903" class="LineNr">20903 </span> <span class="subxComment"># zero outputs</span> +<span id="L20904" class="LineNr">20904 </span> 3d/compare-eax-and 0/imm32 +<span id="L20905" class="LineNr">20905 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-output/disp32 +<span id="L20906" class="LineNr">20906 </span> <span class="subxComment"># > 1 output</span> +<span id="L20907" class="LineNr">20907 </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="L20908" class="LineNr">20908 </span> 3d/compare-eax-and 0/imm32 +<span id="L20909" class="LineNr">20909 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-outputs/disp32 +<span id="L20910" class="LineNr">20910 </span><span class="Constant">$check-mu-copy-stmt:get-inout</span>: +<span id="L20911" class="LineNr">20911 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L20912" class="LineNr">20912 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L20913" class="LineNr">20913 </span> 89/<- %esi 0/r32/eax +<span id="L20914" class="LineNr">20914 </span> <span class="subxComment"># zero inouts</span> +<span id="L20915" class="LineNr">20915 </span> 3d/compare-eax-and 0/imm32 +<span id="L20916" class="LineNr">20916 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-inout/disp32 +<span id="L20917" class="LineNr">20917 </span> <span class="subxComment"># > 1 inout</span> +<span id="L20918" class="LineNr">20918 </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="L20919" class="LineNr">20919 </span> 3d/compare-eax-and 0/imm32 +<span id="L20920" class="LineNr">20920 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-inouts/disp32 +<span id="L20921" class="LineNr">20921 </span><span class="Constant">$check-mu-copy-stmt:types</span>: +<span id="L20922" class="LineNr">20922 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L20923" class="LineNr">20923 </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="L20924" class="LineNr">20924 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20925" class="LineNr">20925 </span> 89/<- %ecx 0/r32/eax +<span id="L20926" class="LineNr">20926 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L20927" class="LineNr">20927 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L20928" class="LineNr">20928 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20929" class="LineNr">20929 </span> { +<span id="L20930" class="LineNr">20930 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20931" class="LineNr">20931 </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="L20932" class="LineNr">20932 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L20933" class="LineNr">20933 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L20934" class="LineNr">20934 </span> { +<span id="L20935" class="LineNr">20935 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20936" class="LineNr">20936 </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="L20937" class="LineNr">20937 </span> } +<span id="L20938" class="LineNr">20938 </span> 89/<- %ecx 0/r32/eax +<span id="L20939" class="LineNr">20939 </span> } +<span id="L20940" class="LineNr">20940 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L20941" class="LineNr">20941 </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="L20942" class="LineNr">20942 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L20943" class="LineNr">20943 </span> 3d/compare-eax-and 0/imm32 +<span id="L20944" class="LineNr">20944 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-output-not-in-register/disp32 +<span id="L20945" class="LineNr">20945 </span> <span class="subxComment"># if inout is not a scalar, abort</span> +<span id="L20946" class="LineNr">20946 </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="L20947" class="LineNr">20947 </span> (<a href='mu.subx.html#L25018'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20948" class="LineNr">20948 </span> 3d/compare-eax-and 4/imm32 +<span id="L20949" class="LineNr">20949 </span> 0f 8f/jump-if-> $check-mu-copy-stmt:error-inout-too-large/disp32 +<span id="L20950" class="LineNr">20950 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> +<span id="L20951" class="LineNr">20951 </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="L20952" class="LineNr">20952 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20953" class="LineNr">20953 </span> <span class="subxComment"># if (inout-type == output-type) return</span> +<span id="L20954" class="LineNr">20954 </span> (<a href='mu.subx.html#L24859'>type-match?</a> %eax %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L20955" class="LineNr">20955 </span> 3d/compare-eax-and 0/imm32 +<span id="L20956" class="LineNr">20956 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:end/disp32 +<span id="L20957" class="LineNr">20957 </span> <span class="subxComment"># if output is an addr and inout is 0, return</span> +<span id="L20958" class="LineNr">20958 </span> { +<span id="L20959" class="LineNr">20959 </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="L20960" class="LineNr">20960 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20961" class="LineNr">20961 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20962" class="LineNr">20962 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20963" class="LineNr">20963 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20964" class="LineNr">20964 </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="L20965" class="LineNr">20965 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L20966" class="LineNr">20966 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L20967" class="LineNr">20967 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20968" class="LineNr">20968 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20969" class="LineNr">20969 </span> e9/jump $check-mu-copy-stmt:end/disp32 +<span id="L20970" class="LineNr">20970 </span> } +<span id="L20971" class="LineNr">20971 </span> <span class="subxComment"># if output is an offset and inout is 0, return</span> +<span id="L20972" class="LineNr">20972 </span> { +<span id="L20973" class="LineNr">20973 </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="L20974" class="LineNr">20974 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20975" class="LineNr">20975 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L20976" class="LineNr">20976 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20977" class="LineNr">20977 </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="L20978" class="LineNr">20978 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L20979" class="LineNr">20979 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20980" class="LineNr">20980 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20981" class="LineNr">20981 </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="L20982" class="LineNr">20982 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L20983" class="LineNr">20983 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L20984" class="LineNr">20984 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20985" class="LineNr">20985 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20986" class="LineNr">20986 </span> eb/jump $check-mu-copy-stmt:end/disp8 +<span id="L20987" class="LineNr">20987 </span> } +<span id="L20988" class="LineNr">20988 </span> <span class="subxComment"># if output is not number-like, abort</span> +<span id="L20989" class="LineNr">20989 </span> (<a href='mu.subx.html#L20777'>check-mu-numberlike-output</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L20990" class="LineNr">20990 </span><span class="Constant">$check-mu-copy-stmt:end</span>: +<span id="L20991" class="LineNr">20991 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20992" class="LineNr">20992 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L20993" class="LineNr">20993 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20994" class="LineNr">20994 </span> 5f/pop-to-edi +<span id="L20995" class="LineNr">20995 </span> 5e/pop-to-esi +<span id="L20996" class="LineNr">20996 </span> 5a/pop-to-edx +<span id="L20997" class="LineNr">20997 </span> 59/pop-to-ecx +<span id="L20998" class="LineNr">20998 </span> 58/pop-to-eax +<span id="L20999" class="LineNr">20999 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21000" class="LineNr">21000 </span> 89/<- %esp 5/r32/ebp +<span id="L21001" class="LineNr">21001 </span> 5d/pop-to-ebp +<span id="L21002" class="LineNr">21002 </span> c3/return +<span id="L21003" class="LineNr">21003 </span> +<span id="L21004" class="LineNr">21004 </span><span class="Constant">$check-mu-copy-stmt:error-no-inout</span>: +<span id="L21005" class="LineNr">21005 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21006" class="LineNr">21006 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21007" class="LineNr">21007 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21008" class="LineNr">21008 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21009" class="LineNr">21009 </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="L21010" class="LineNr">21010 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21011" class="LineNr">21011 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21012" class="LineNr">21012 </span> <span class="subxComment"># never gets here</span> +<span id="L21013" class="LineNr">21013 </span> +<span id="L21014" class="LineNr">21014 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-inouts</span>: +<span id="L21015" class="LineNr">21015 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21016" class="LineNr">21016 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21017" class="LineNr">21017 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21018" class="LineNr">21018 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21019" class="LineNr">21019 </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="L21020" class="LineNr">21020 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21021" class="LineNr">21021 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21022" class="LineNr">21022 </span> <span class="subxComment"># never gets here</span> +<span id="L21023" class="LineNr">21023 </span> +<span id="L21024" class="LineNr">21024 </span><span class="Constant">$check-mu-copy-stmt:error-no-output</span>: +<span id="L21025" class="LineNr">21025 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21026" class="LineNr">21026 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21027" class="LineNr">21027 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21028" class="LineNr">21028 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21029" class="LineNr">21029 </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="L21030" class="LineNr">21030 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21031" class="LineNr">21031 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21032" class="LineNr">21032 </span> <span class="subxComment"># never gets here</span> +<span id="L21033" class="LineNr">21033 </span> +<span id="L21034" class="LineNr">21034 </span><span class="Constant">$check-mu-copy-stmt:error-output-not-in-register</span>: +<span id="L21035" class="LineNr">21035 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21036" class="LineNr">21036 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21037" class="LineNr">21037 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21038" class="LineNr">21038 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21039" class="LineNr">21039 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: output '"</span>) +<span id="L21040" class="LineNr">21040 </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="L21041" class="LineNr">21041 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21042" class="LineNr">21042 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21043" class="LineNr">21043 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) +<span id="L21044" class="LineNr">21044 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21045" class="LineNr">21045 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21046" class="LineNr">21046 </span> <span class="subxComment"># never gets here</span> +<span id="L21047" class="LineNr">21047 </span> +<span id="L21048" class="LineNr">21048 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-outputs</span>: +<span id="L21049" class="LineNr">21049 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21050" class="LineNr">21050 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21051" class="LineNr">21051 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21052" class="LineNr">21052 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21053" class="LineNr">21053 </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="L21054" class="LineNr">21054 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21055" class="LineNr">21055 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21056" class="LineNr">21056 </span> <span class="subxComment"># never gets here</span> +<span id="L21057" class="LineNr">21057 </span> +<span id="L21058" class="LineNr">21058 </span><span class="Constant">$check-mu-copy-stmt:error-inout-too-large</span>: +<span id="L21059" class="LineNr">21059 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21060" class="LineNr">21060 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21061" class="LineNr">21061 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21062" class="LineNr">21062 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21063" class="LineNr">21063 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: '"</span>) +<span id="L21064" class="LineNr">21064 </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="L21065" class="LineNr">21065 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21066" class="LineNr">21066 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21067" class="LineNr">21067 </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="L21068" class="LineNr">21068 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21069" class="LineNr">21069 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21070" class="LineNr">21070 </span> <span class="subxComment"># never gets here</span> +<span id="L21071" class="LineNr">21071 </span> +<span id="L21072" class="LineNr">21072 </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="L21073" class="LineNr">21073 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21074" class="LineNr">21074 </span> 55/push-ebp +<span id="L21075" class="LineNr">21075 </span> 89/<- %ebp 4/r32/esp +<span id="L21076" class="LineNr">21076 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21077" class="LineNr">21077 </span> 50/push-eax +<span id="L21078" class="LineNr">21078 </span> 51/push-ecx +<span id="L21079" class="LineNr">21079 </span> 52/push-edx +<span id="L21080" class="LineNr">21080 </span> 53/push-ebx +<span id="L21081" class="LineNr">21081 </span> 56/push-esi +<span id="L21082" class="LineNr">21082 </span> 57/push-edi +<span id="L21083" class="LineNr">21083 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L21084" class="LineNr">21084 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L21085" class="LineNr">21085 </span> 68/push 0x60/imm32/size +<span id="L21086" class="LineNr">21086 </span> 68/push 0/imm32/read +<span id="L21087" class="LineNr">21087 </span> 68/push 0/imm32/write +<span id="L21088" class="LineNr">21088 </span> 89/<- %edx 4/r32/esp +<span id="L21089" class="LineNr">21089 </span> <span class="subxComment"># esi = stmt</span> +<span id="L21090" class="LineNr">21090 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21091" class="LineNr">21091 </span><span class="Constant">$check-mu-copy-to-stmt:check-for-output</span>: +<span id="L21092" class="LineNr">21092 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L21093" class="LineNr">21093 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L21094" class="LineNr">21094 </span> 3d/compare-eax-and 0/imm32 +<span id="L21095" class="LineNr">21095 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-too-many-outputs/disp32 +<span id="L21096" class="LineNr">21096 </span><span class="Constant">$check-mu-copy-to-stmt:get-dest</span>: +<span id="L21097" class="LineNr">21097 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L21098" class="LineNr">21098 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L21099" class="LineNr">21099 </span> 89/<- %edi 0/r32/eax +<span id="L21100" class="LineNr">21100 </span> <span class="subxComment"># zero inouts</span> +<span id="L21101" class="LineNr">21101 </span> 3d/compare-eax-and 0/imm32 +<span id="L21102" class="LineNr">21102 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 +<span id="L21103" class="LineNr">21103 </span><span class="Constant">$check-mu-copy-to-stmt:get-src</span>: +<span id="L21104" class="LineNr">21104 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> +<span id="L21105" class="LineNr">21105 </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="L21106" class="LineNr">21106 </span> 89/<- %esi 0/r32/eax +<span id="L21107" class="LineNr">21107 </span> <span class="subxComment"># 1 inout</span> +<span id="L21108" class="LineNr">21108 </span> 3d/compare-eax-and 0/imm32 +<span id="L21109" class="LineNr">21109 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 +<span id="L21110" class="LineNr">21110 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L21111" class="LineNr">21111 </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="L21112" class="LineNr">21112 </span> 3d/compare-eax-and 0/imm32 +<span id="L21113" class="LineNr">21113 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 +<span id="L21114" class="LineNr">21114 </span><span class="Constant">$check-mu-copy-to-stmt:types</span>: +<span id="L21115" class="LineNr">21115 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> +<span id="L21116" class="LineNr">21116 </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="L21117" class="LineNr">21117 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21118" class="LineNr">21118 </span> 89/<- %ecx 0/r32/eax +<span id="L21119" class="LineNr">21119 </span> <span class="subxComment"># if src not in register or literal, abort</span> +<span id="L21120" class="LineNr">21120 </span> <span class="subxComment"># (we can't use stack-offset because it hasn't been computed yet)</span> +<span id="L21121" class="LineNr">21121 </span> { +<span id="L21122" class="LineNr">21122 </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="L21123" class="LineNr">21123 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21124" class="LineNr">21124 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L21125" class="LineNr">21125 </span> 3d/compare-eax-and 0/imm32 +<span id="L21126" class="LineNr">21126 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21127" class="LineNr">21127 </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="L21128" class="LineNr">21128 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L21129" class="LineNr">21129 </span> 3d/compare-eax-and 0/imm32 +<span id="L21130" class="LineNr">21130 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21131" class="LineNr">21131 </span> e9/jump $check-mu-copy-to-stmt:error-src-not-literal-or-in-register/disp32 +<span id="L21132" class="LineNr">21132 </span> } +<span id="L21133" class="LineNr">21133 </span> <span class="subxComment"># if src is not a scalar, abort</span> +<span id="L21134" class="LineNr">21134 </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="L21135" class="LineNr">21135 </span> (<a href='mu.subx.html#L25018'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L21136" class="LineNr">21136 </span> 3d/compare-eax-and 4/imm32 +<span id="L21137" class="LineNr">21137 </span> 0f 8f/jump-if-> $check-mu-copy-to-stmt:error-src-too-large/disp32 +<span id="L21138" class="LineNr">21138 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> +<span id="L21139" class="LineNr">21139 </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="L21140" class="LineNr">21140 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21141" class="LineNr">21141 </span> 89/<- %ebx 0/r32/eax +<span id="L21142" class="LineNr">21142 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> +<span id="L21143" class="LineNr">21143 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L21144" class="LineNr">21144 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21145" class="LineNr">21145 </span> { +<span id="L21146" class="LineNr">21146 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21147" class="LineNr">21147 </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="L21148" class="LineNr">21148 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> +<span id="L21149" class="LineNr">21149 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L21150" class="LineNr">21150 </span> { +<span id="L21151" class="LineNr">21151 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21152" class="LineNr">21152 </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="L21153" class="LineNr">21153 </span> } +<span id="L21154" class="LineNr">21154 </span> 89/<- %ebx 0/r32/eax +<span id="L21155" class="LineNr">21155 </span> } +<span id="L21156" class="LineNr">21156 </span> <span class="subxComment"># if (src-type == dest-type) return</span> +<span id="L21157" class="LineNr">21157 </span> (<a href='mu.subx.html#L24859'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L21158" class="LineNr">21158 </span> 3d/compare-eax-and 0/imm32 +<span id="L21159" class="LineNr">21159 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:end/disp32 +<span id="L21160" class="LineNr">21160 </span> <span class="subxComment"># if dest is an addr and src is 0, return</span> +<span id="L21161" class="LineNr">21161 </span> { +<span id="L21162" class="LineNr">21162 </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="L21163" class="LineNr">21163 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21164" class="LineNr">21164 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L21165" class="LineNr">21165 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21166" class="LineNr">21166 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21167" class="LineNr">21167 </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="L21168" class="LineNr">21168 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21169" class="LineNr">21169 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L21170" class="LineNr">21170 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21171" class="LineNr">21171 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21172" class="LineNr">21172 </span> eb/jump $check-mu-copy-to-stmt:end/disp8 +<span id="L21173" class="LineNr">21173 </span> } +<span id="L21174" class="LineNr">21174 </span> <span class="subxComment"># if dest is not number-like, abort</span> +<span id="L21175" class="LineNr">21175 </span> (<a href='mu.subx.html#L20726'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21176" class="LineNr">21176 </span><span class="Constant">$check-mu-copy-to-stmt:end</span>: +<span id="L21177" class="LineNr">21177 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L21178" class="LineNr">21178 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L21179" class="LineNr">21179 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21180" class="LineNr">21180 </span> 5f/pop-to-edi +<span id="L21181" class="LineNr">21181 </span> 5e/pop-to-esi +<span id="L21182" class="LineNr">21182 </span> 5b/pop-to-ebx +<span id="L21183" class="LineNr">21183 </span> 5a/pop-to-edx +<span id="L21184" class="LineNr">21184 </span> 59/pop-to-ecx +<span id="L21185" class="LineNr">21185 </span> 58/pop-to-eax +<span id="L21186" class="LineNr">21186 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21187" class="LineNr">21187 </span> 89/<- %esp 5/r32/ebp +<span id="L21188" class="LineNr">21188 </span> 5d/pop-to-ebp +<span id="L21189" class="LineNr">21189 </span> c3/return +<span id="L21190" class="LineNr">21190 </span> +<span id="L21191" class="LineNr">21191 </span><span class="Constant">$check-mu-copy-to-stmt:error-incorrect-inouts</span>: +<span id="L21192" class="LineNr">21192 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21193" class="LineNr">21193 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21194" class="LineNr">21194 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21195" class="LineNr">21195 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21196" class="LineNr">21196 </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="L21197" class="LineNr">21197 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21198" class="LineNr">21198 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21199" class="LineNr">21199 </span> <span class="subxComment"># never gets here</span> +<span id="L21200" class="LineNr">21200 </span> +<span id="L21201" class="LineNr">21201 </span><span class="Constant">$check-mu-copy-to-stmt:error-too-many-outputs</span>: +<span id="L21202" class="LineNr">21202 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21203" class="LineNr">21203 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21204" class="LineNr">21204 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21205" class="LineNr">21205 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21206" class="LineNr">21206 </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="L21207" class="LineNr">21207 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21208" class="LineNr">21208 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21209" class="LineNr">21209 </span> <span class="subxComment"># never gets here</span> +<span id="L21210" class="LineNr">21210 </span> +<span id="L21211" class="LineNr">21211 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-not-literal-or-in-register</span>: +<span id="L21212" class="LineNr">21212 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21213" class="LineNr">21213 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21214" class="LineNr">21214 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21215" class="LineNr">21215 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21216" class="LineNr">21216 </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="L21217" class="LineNr">21217 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21218" class="LineNr">21218 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21219" class="LineNr">21219 </span> <span class="subxComment"># never gets here</span> +<span id="L21220" class="LineNr">21220 </span> +<span id="L21221" class="LineNr">21221 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-too-large</span>: +<span id="L21222" class="LineNr">21222 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21223" class="LineNr">21223 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21224" class="LineNr">21224 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21225" class="LineNr">21225 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21226" class="LineNr">21226 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: '"</span>) +<span id="L21227" class="LineNr">21227 </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="L21228" class="LineNr">21228 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21229" class="LineNr">21229 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21230" class="LineNr">21230 </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="L21231" class="LineNr">21231 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21232" class="LineNr">21232 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21233" class="LineNr">21233 </span> <span class="subxComment"># never gets here</span> +<span id="L21234" class="LineNr">21234 </span> +<span id="L21235" class="LineNr">21235 </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="L21236" class="LineNr">21236 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21237" class="LineNr">21237 </span> 55/push-ebp +<span id="L21238" class="LineNr">21238 </span> 89/<- %ebp 4/r32/esp +<span id="L21239" class="LineNr">21239 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21240" class="LineNr">21240 </span> 50/push-eax +<span id="L21241" class="LineNr">21241 </span> 51/push-ecx +<span id="L21242" class="LineNr">21242 </span> 52/push-edx +<span id="L21243" class="LineNr">21243 </span> 53/push-ebx +<span id="L21244" class="LineNr">21244 </span> 56/push-esi +<span id="L21245" class="LineNr">21245 </span> 57/push-edi +<span id="L21246" class="LineNr">21246 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L21247" class="LineNr">21247 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L21248" class="LineNr">21248 </span> 68/push 0x60/imm32/size +<span id="L21249" class="LineNr">21249 </span> 68/push 0/imm32/read +<span id="L21250" class="LineNr">21250 </span> 68/push 0/imm32/write +<span id="L21251" class="LineNr">21251 </span> 89/<- %edx 4/r32/esp +<span id="L21252" class="LineNr">21252 </span> <span class="subxComment"># esi = stmt</span> +<span id="L21253" class="LineNr">21253 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21254" class="LineNr">21254 </span><span class="Constant">$check-mu-compare-stmt:check-for-output</span>: +<span id="L21255" class="LineNr">21255 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L21256" class="LineNr">21256 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L21257" class="LineNr">21257 </span> 3d/compare-eax-and 0/imm32 +<span id="L21258" class="LineNr">21258 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-too-many-outputs/disp32 +<span id="L21259" class="LineNr">21259 </span><span class="Constant">$check-mu-compare-stmt:get-left</span>: +<span id="L21260" class="LineNr">21260 </span> <span class="subxComment"># var left/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L21261" class="LineNr">21261 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L21262" class="LineNr">21262 </span> 89/<- %edi 0/r32/eax +<span id="L21263" class="LineNr">21263 </span> <span class="subxComment"># zero inouts</span> +<span id="L21264" class="LineNr">21264 </span> 3d/compare-eax-and 0/imm32 +<span id="L21265" class="LineNr">21265 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 +<span id="L21266" class="LineNr">21266 </span><span class="Constant">$check-mu-compare-stmt:get-right</span>: +<span id="L21267" class="LineNr">21267 </span> <span class="subxComment"># var right/esi: (addr stmt-var) = left->next</span> +<span id="L21268" class="LineNr">21268 </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="L21269" class="LineNr">21269 </span> 89/<- %esi 0/r32/eax +<span id="L21270" class="LineNr">21270 </span> <span class="subxComment"># 1 inout</span> +<span id="L21271" class="LineNr">21271 </span> 3d/compare-eax-and 0/imm32 +<span id="L21272" class="LineNr">21272 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 +<span id="L21273" class="LineNr">21273 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L21274" class="LineNr">21274 </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="L21275" class="LineNr">21275 </span> 3d/compare-eax-and 0/imm32 +<span id="L21276" class="LineNr">21276 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-incorrect-inouts/disp32 +<span id="L21277" class="LineNr">21277 </span> <span class="subxComment"># if both inouts are in memory, abort</span> <span id="L21278" class="LineNr">21278 </span> { -<span id="L21279" class="LineNr">21279 </span> <span class="subxComment"># if template is null, break</span> -<span id="L21280" class="LineNr">21280 </span> 81 7/subop/compare %ebx 0/imm32 -<span id="L21281" class="LineNr">21281 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21282" class="LineNr">21282 </span> <span class="subxComment"># if curr is null, abort</span> -<span id="L21283" class="LineNr">21283 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L21284" class="LineNr">21284 </span> 0f 84/jump-if-= $check-mu-return-stmt:error-too-few-inouts/disp32 -<span id="L21285" class="LineNr">21285 </span> <span class="subxComment"># var template-type/ecx: (addr type-tree) = template->value->type</span> -<span id="L21286" class="LineNr">21286 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L21287" class="LineNr">21287 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21288" class="LineNr">21288 </span> 89/<- %ecx 0/r32/eax -<span id="L21289" class="LineNr">21289 </span> <span class="subxComment"># var curr-type/eax: (addr type-tree) = curr->value->type</span> -<span id="L21290" class="LineNr">21290 </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="L21291" class="LineNr">21291 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21292" class="LineNr">21292 </span> <span class="subxComment"># if (curr->is-deref?) curr-type = payload of curr-type</span> -<span id="L21293" class="LineNr">21293 </span> 81 7/subop/compare *(edi+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L21294" class="LineNr">21294 </span> { -<span id="L21295" class="LineNr">21295 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21296" class="LineNr">21296 </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="L21297" class="LineNr">21297 </span> <span class="subxComment"># if t->right is null, t = t->left</span> -<span id="L21298" class="LineNr">21298 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L21299" class="LineNr">21299 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21300" class="LineNr">21300 </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="L21301" class="LineNr">21301 </span> } -<span id="L21302" class="LineNr">21302 </span> <span class="subxComment"># if (curr-type != template-type) abort</span> -<span id="L21303" class="LineNr">21303 </span> (<a href='mu.subx.html#L24222'>type-match?</a> %ecx %eax %edx) <span class="subxComment"># => eax</span> -<span id="L21304" class="LineNr">21304 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21305" class="LineNr">21305 </span> 0f 84/jump-if-= $check-mu-return-stmt:error1/disp32 -<span id="L21306" class="LineNr">21306 </span> <span class="subxComment"># if register-within-list-with-conflict?(curr, original template, curr-template, stmt) abort</span> -<span id="L21307" class="LineNr">21307 </span> (<a href='mu.subx.html#L21446'>register-within-list-with-conflict?</a> %edi %esi %ebx *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21308" class="LineNr">21308 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21309" class="LineNr">21309 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error2/disp32 -<span id="L21310" class="LineNr">21310 </span> <span class="subxComment"># template = template->next</span> -<span id="L21311" class="LineNr">21311 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L21312" class="LineNr">21312 </span> 89/<- %ebx 0/r32/eax -<span id="L21313" class="LineNr">21313 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L21314" class="LineNr">21314 </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="L21315" class="LineNr">21315 </span> 89/<- %edi 0/r32/eax -<span id="L21316" class="LineNr">21316 </span> <span class="subxComment">#</span> -<span id="L21317" class="LineNr">21317 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21279" class="LineNr">21279 </span><span class="Constant">$check-mu-compare-stmt:both-in-mem</span>: +<span id="L21280" class="LineNr">21280 </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="L21281" class="LineNr">21281 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21282" class="LineNr">21282 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L21283" class="LineNr">21283 </span> 3d/compare-eax-and 0/imm32 +<span id="L21284" class="LineNr">21284 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L21285" class="LineNr">21285 </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="L21286" class="LineNr">21286 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L21287" class="LineNr">21287 </span> 3d/compare-eax-and 0/imm32 +<span id="L21288" class="LineNr">21288 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21289" class="LineNr">21289 </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="L21290" class="LineNr">21290 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21291" class="LineNr">21291 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L21292" class="LineNr">21292 </span> 3d/compare-eax-and 0/imm32 +<span id="L21293" class="LineNr">21293 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21294" class="LineNr">21294 </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="L21295" class="LineNr">21295 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L21296" class="LineNr">21296 </span> 3d/compare-eax-and 0/imm32 +<span id="L21297" class="LineNr">21297 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21298" class="LineNr">21298 </span> e9/jump $check-mu-compare-stmt:error-both-in-memory/disp32 +<span id="L21299" class="LineNr">21299 </span> } +<span id="L21300" class="LineNr">21300 </span><span class="Constant">$check-mu-compare-stmt:types</span>: +<span id="L21301" class="LineNr">21301 </span> <span class="subxComment"># var right-type/ecx: (addr type-tree) = right->value->type</span> +<span id="L21302" class="LineNr">21302 </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="L21303" class="LineNr">21303 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21304" class="LineNr">21304 </span> 89/<- %ecx 0/r32/eax +<span id="L21305" class="LineNr">21305 </span> <span class="subxComment"># if (right->is-deref?) right-type = right-type->payload</span> +<span id="L21306" class="LineNr">21306 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L21307" class="LineNr">21307 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21308" class="LineNr">21308 </span> { +<span id="L21309" class="LineNr">21309 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21310" class="LineNr">21310 </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="L21311" class="LineNr">21311 </span> <span class="subxComment"># if right-type->right is null, right-type = right-type->left</span> +<span id="L21312" class="LineNr">21312 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L21313" class="LineNr">21313 </span> { +<span id="L21314" class="LineNr">21314 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21315" class="LineNr">21315 </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="L21316" class="LineNr">21316 </span> } +<span id="L21317" class="LineNr">21317 </span> 89/<- %ecx 0/r32/eax <span id="L21318" class="LineNr">21318 </span> } -<span id="L21319" class="LineNr">21319 </span> <span class="subxComment"># if curr is not null, abort</span> -<span id="L21320" class="LineNr">21320 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L21321" class="LineNr">21321 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-too-many-inouts/disp32 -<span id="L21322" class="LineNr">21322 </span><span class="Constant">$check-mu-return-stmt:end</span>: -<span id="L21323" class="LineNr">21323 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L21324" class="LineNr">21324 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L21325" class="LineNr">21325 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21326" class="LineNr">21326 </span> 5f/pop-to-edi -<span id="L21327" class="LineNr">21327 </span> 5e/pop-to-esi -<span id="L21328" class="LineNr">21328 </span> 5b/pop-to-ebx -<span id="L21329" class="LineNr">21329 </span> 5a/pop-to-edx -<span id="L21330" class="LineNr">21330 </span> 59/pop-to-ecx -<span id="L21331" class="LineNr">21331 </span> 58/pop-to-eax -<span id="L21332" class="LineNr">21332 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21333" class="LineNr">21333 </span> 89/<- %esp 5/r32/ebp -<span id="L21334" class="LineNr">21334 </span> 5d/pop-to-ebp -<span id="L21335" class="LineNr">21335 </span> c3/return -<span id="L21336" class="LineNr">21336 </span> -<span id="L21337" class="LineNr">21337 </span><span class="Constant">$check-mu-return-stmt:error1</span>: -<span id="L21338" class="LineNr">21338 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21339" class="LineNr">21339 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21340" class="LineNr">21340 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21341" class="LineNr">21341 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21342" class="LineNr">21342 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) -<span id="L21343" class="LineNr">21343 </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="L21344" class="LineNr">21344 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21345" class="LineNr">21345 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21346" class="LineNr">21346 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has the wrong type\n"</span>) -<span id="L21347" class="LineNr">21347 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21348" class="LineNr">21348 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21349" class="LineNr">21349 </span> <span class="subxComment"># never gets here</span> -<span id="L21350" class="LineNr">21350 </span> -<span id="L21351" class="LineNr">21351 </span><span class="Constant">$check-mu-return-stmt:error2</span>: -<span id="L21352" class="LineNr">21352 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21353" class="LineNr">21353 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21354" class="LineNr">21354 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21355" class="LineNr">21355 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21356" class="LineNr">21356 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) -<span id="L21357" class="LineNr">21357 </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="L21358" class="LineNr">21358 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21359" class="LineNr">21359 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21360" class="LineNr">21360 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is no longer available\n"</span>) -<span id="L21361" class="LineNr">21361 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21362" class="LineNr">21362 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21363" class="LineNr">21363 </span> <span class="subxComment"># never gets here</span> -<span id="L21364" class="LineNr">21364 </span> -<span id="L21365" class="LineNr">21365 </span><span class="Constant">$check-mu-return-stmt:error-too-few-inouts</span>: -<span id="L21366" class="LineNr">21366 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21367" class="LineNr">21367 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21368" class="LineNr">21368 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21369" class="LineNr">21369 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21370" class="LineNr">21370 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too few inouts\n"</span>) -<span id="L21371" class="LineNr">21371 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21372" class="LineNr">21372 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21373" class="LineNr">21373 </span> <span class="subxComment"># never gets here</span> -<span id="L21374" class="LineNr">21374 </span> -<span id="L21375" class="LineNr">21375 </span><span class="Constant">$check-mu-return-stmt:error-too-many-inouts</span>: -<span id="L21376" class="LineNr">21376 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21377" class="LineNr">21377 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21378" class="LineNr">21378 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21379" class="LineNr">21379 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21380" class="LineNr">21380 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too many inouts\n"</span>) -<span id="L21381" class="LineNr">21381 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21382" class="LineNr">21382 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21383" class="LineNr">21383 </span> <span class="subxComment"># never gets here</span> -<span id="L21384" class="LineNr">21384 </span> -<span id="L21385" class="LineNr">21385 </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="L21386" class="LineNr">21386 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21387" class="LineNr">21387 </span> 55/push-ebp -<span id="L21388" class="LineNr">21388 </span> 89/<- %ebp 4/r32/esp -<span id="L21389" class="LineNr">21389 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21390" class="LineNr">21390 </span> 50/push-eax -<span id="L21391" class="LineNr">21391 </span> 51/push-ecx -<span id="L21392" class="LineNr">21392 </span> 56/push-esi -<span id="L21393" class="LineNr">21393 </span> <span class="subxComment"># var table/esi: (addr table (handle array byte) int 8)</span> -<span id="L21394" class="LineNr">21394 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L21395" class="LineNr">21395 </span> 68/push 0x60/imm32/size -<span id="L21396" class="LineNr">21396 </span> 68/push 0/imm32/read -<span id="L21397" class="LineNr">21397 </span> 68/push 0/imm32/write -<span id="L21398" class="LineNr">21398 </span> 89/<- %esi 4/r32/esp -<span id="L21399" class="LineNr">21399 </span> <span class="subxComment"># var curr/ecx: (addr list var) = outputs</span> -<span id="L21400" class="LineNr">21400 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L21401" class="LineNr">21401 </span> { -<span id="L21402" class="LineNr">21402 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L21403" class="LineNr">21403 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L21404" class="LineNr">21404 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21405" class="LineNr">21405 </span> <span class="subxComment"># var reg/eax: (addr array byte) = curr->value->register # guaranteed to exist</span> -<span id="L21406" class="LineNr">21406 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L21407" class="LineNr">21407 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L21408" class="LineNr">21408 </span> <span class="subxComment"># if reg exists in table, abort</span> -<span id="L21409" class="LineNr">21409 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> %esi %eax 0xc) <span class="subxComment"># => eax</span> -<span id="L21410" class="LineNr">21410 </span> 3d/compare-eax-and 0/imm32 -<span id="L21411" class="LineNr">21411 </span> 0f 85/jump-if-!= $check-all-unique-registers:abort/disp32 -<span id="L21412" class="LineNr">21412 </span> <span class="subxComment"># insert reg in table</span> -<span id="L21413" class="LineNr">21413 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L21414" class="LineNr">21414 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L21415" class="LineNr">21415 </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="L21416" class="LineNr">21416 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L21417" class="LineNr">21417 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L21418" class="LineNr">21418 </span> 89/<- %ecx 0/r32/eax -<span id="L21419" class="LineNr">21419 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21420" class="LineNr">21420 </span> } -<span id="L21421" class="LineNr">21421 </span><span class="Constant">$check-all-unique-registers:end</span>: -<span id="L21422" class="LineNr">21422 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L21423" class="LineNr">21423 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L21424" class="LineNr">21424 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21425" class="LineNr">21425 </span> 5e/pop-to-esi -<span id="L21426" class="LineNr">21426 </span> 59/pop-to-ecx -<span id="L21427" class="LineNr">21427 </span> 58/pop-to-eax -<span id="L21428" class="LineNr">21428 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21429" class="LineNr">21429 </span> 89/<- %esp 5/r32/ebp -<span id="L21430" class="LineNr">21430 </span> 5d/pop-to-ebp -<span id="L21431" class="LineNr">21431 </span> c3/return -<span id="L21432" class="LineNr">21432 </span> -<span id="L21433" class="LineNr">21433 </span><span class="Constant">$check-all-unique-registers:abort</span>: -<span id="L21434" class="LineNr">21434 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21435" class="LineNr">21435 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21436" class="LineNr">21436 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21437" class="LineNr">21437 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21438" class="LineNr">21438 </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="L21439" class="LineNr">21439 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21440" class="LineNr">21440 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21441" class="LineNr">21441 </span> <span class="subxComment"># never gets here</span> -<span id="L21442" class="LineNr">21442 </span> -<span id="L21443" class="LineNr">21443 </span><span class="subxComment"># return false if s's register is not between start (inclusive) and end (exclusive)</span> -<span id="L21444" class="LineNr">21444 </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="L21445" class="LineNr">21445 </span><span class="subxComment"># otherwise return true</span> -<span id="L21446" class="LineNr">21446 </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="L21447" class="LineNr">21447 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21448" class="LineNr">21448 </span> 55/push-ebp -<span id="L21449" class="LineNr">21449 </span> 89/<- %ebp 4/r32/esp -<span id="L21450" class="LineNr">21450 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21451" class="LineNr">21451 </span> 51/push-ecx -<span id="L21452" class="LineNr">21452 </span> 52/push-edx -<span id="L21453" class="LineNr">21453 </span> 53/push-ebx -<span id="L21454" class="LineNr">21454 </span> 56/push-esi -<span id="L21455" class="LineNr">21455 </span> 57/push-edi -<span id="L21456" class="LineNr">21456 </span> <span class="subxComment"># var target/ebx: (addr array byte) = s->value->register</span> -<span id="L21457" class="LineNr">21457 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21458" class="LineNr">21458 </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="L21459" class="LineNr">21459 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L21460" class="LineNr">21460 </span><span class="CommentedCode">#? (write-buffered Stderr "AA: ")</span> -<span id="L21461" class="LineNr">21461 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L21462" class="LineNr">21462 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L21463" class="LineNr">21463 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21464" class="LineNr">21464 </span> <span class="subxComment"># if (var->register == 0) return false</span> -<span id="L21465" class="LineNr">21465 </span> 3d/compare-eax-and 0/imm32 -<span id="L21466" class="LineNr">21466 </span> 0f 84/jump-if-= $register-within-list-with-conflict?:end/disp32 <span class="subxComment"># eax turns into result</span> -<span id="L21467" class="LineNr">21467 </span> 89/<- %ebx 0/r32/eax -<span id="L21468" class="LineNr">21468 </span> <span class="subxComment"># var curr/ecx: (addr list var) = start</span> -<span id="L21469" class="LineNr">21469 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L21470" class="LineNr">21470 </span> <span class="subxComment"># edx = end</span> -<span id="L21471" class="LineNr">21471 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L21472" class="LineNr">21472 </span> { -<span id="L21473" class="LineNr">21473 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L21474" class="LineNr">21474 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L21475" class="LineNr">21475 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21476" class="LineNr">21476 </span> <span class="subxComment"># if (curr == end) break</span> -<span id="L21477" class="LineNr">21477 </span> 39/compare %ecx 2/r32/edx -<span id="L21478" class="LineNr">21478 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21479" class="LineNr">21479 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr->value->register</span> -<span id="L21480" class="LineNr">21480 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L21481" class="LineNr">21481 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L21482" class="LineNr">21482 </span> <span class="subxComment"># if (curr-reg == 0) continue</span> -<span id="L21483" class="LineNr">21483 </span> 3d/compare-eax-and 0/imm32 -<span id="L21484" class="LineNr">21484 </span> 74/jump-if-= $register-within-list-with-conflict?:continue/disp8 -<span id="L21485" class="LineNr">21485 </span> <span class="subxComment"># if (curr-reg == target) check for conflict</span> -<span id="L21486" class="LineNr">21486 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L21487" class="LineNr">21487 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21488" class="LineNr">21488 </span> { -<span id="L21489" class="LineNr">21489 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21490" class="LineNr">21490 </span><span class="CommentedCode">#? (write-buffered Stderr "conflict?\n")</span> -<span id="L21491" class="LineNr">21491 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21492" class="LineNr">21492 </span> <span class="subxComment"># var return-inouts/eax: (addr stmt-var) = stmt->inouts</span> -<span id="L21493" class="LineNr">21493 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L21494" class="LineNr">21494 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L21495" class="LineNr">21495 </span> (<a href='mu.subx.html#L21522'>register-conflict?</a> %ebx %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L21496" class="LineNr">21496 </span> eb/jump $register-within-list-with-conflict?:end/disp8 -<span id="L21497" class="LineNr">21497 </span> } -<span id="L21498" class="LineNr">21498 </span><span class="Constant">$register-within-list-with-conflict?:continue</span>: -<span id="L21499" class="LineNr">21499 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L21500" class="LineNr">21500 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L21501" class="LineNr">21501 </span> 89/<- %ecx 0/r32/eax -<span id="L21502" class="LineNr">21502 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21503" class="LineNr">21503 </span> } -<span id="L21504" class="LineNr">21504 </span> <span class="subxComment"># return false</span> -<span id="L21505" class="LineNr">21505 </span> b8/copy-to-eax 0/imm32/false -<span id="L21506" class="LineNr">21506 </span><span class="Constant">$register-within-list-with-conflict?:end</span>: -<span id="L21507" class="LineNr">21507 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21508" class="LineNr">21508 </span> 5f/pop-to-edi -<span id="L21509" class="LineNr">21509 </span> 5e/pop-to-esi -<span id="L21510" class="LineNr">21510 </span> 5b/pop-to-ebx -<span id="L21511" class="LineNr">21511 </span> 5a/pop-to-edx -<span id="L21512" class="LineNr">21512 </span> 59/pop-to-ecx -<span id="L21513" class="LineNr">21513 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21514" class="LineNr">21514 </span> 89/<- %esp 5/r32/ebp -<span id="L21515" class="LineNr">21515 </span> 5d/pop-to-ebp -<span id="L21516" class="LineNr">21516 </span> c3/return -<span id="L21517" class="LineNr">21517 </span> -<span id="L21518" class="LineNr">21518 </span><span class="subxComment"># At the first occurrence of register 'reg' in fn-outputs,</span> -<span id="L21519" class="LineNr">21519 </span><span class="subxComment"># check if the corresponding element of return-inouts has a different register.</span> -<span id="L21520" class="LineNr">21520 </span><span class="subxComment"># This hacky helper is intended to be called in one specific place. Don't</span> -<span id="L21521" class="LineNr">21521 </span><span class="subxComment"># reuse it as is.</span> -<span id="L21522" class="LineNr">21522 </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="L21523" class="LineNr">21523 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21524" class="LineNr">21524 </span> 55/push-ebp -<span id="L21525" class="LineNr">21525 </span> 89/<- %ebp 4/r32/esp -<span id="L21526" class="LineNr">21526 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21527" class="LineNr">21527 </span> 51/push-ecx -<span id="L21528" class="LineNr">21528 </span> 52/push-edx -<span id="L21529" class="LineNr">21529 </span> 53/push-ebx -<span id="L21530" class="LineNr">21530 </span> 56/push-esi -<span id="L21531" class="LineNr">21531 </span> 57/push-edi -<span id="L21532" class="LineNr">21532 </span><span class="CommentedCode">#? (write-buffered Stderr "BB: ")</span> -<span id="L21533" class="LineNr">21533 </span><span class="CommentedCode">#? (write-buffered Stderr *(ebp+8))</span> -<span id="L21534" class="LineNr">21534 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L21535" class="LineNr">21535 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21536" class="LineNr">21536 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn-outputs</span> -<span id="L21537" class="LineNr">21537 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L21538" class="LineNr">21538 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-inouts</span> -<span id="L21539" class="LineNr">21539 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L21540" class="LineNr">21540 </span> { -<span id="L21541" class="LineNr">21541 </span> <span class="subxComment"># if (curr-output == 0) abort</span> -<span id="L21542" class="LineNr">21542 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L21543" class="LineNr">21543 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21544" class="LineNr">21544 </span> <span class="subxComment"># if (curr-output->value->register != reg) continue</span> -<span id="L21545" class="LineNr">21545 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L21546" class="LineNr">21546 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L21547" class="LineNr">21547 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21548" class="LineNr">21548 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21549" class="LineNr">21549 </span> 0f 84/jump-if= $register-conflict?:continue/disp32 -<span id="L21550" class="LineNr">21550 </span><span class="CommentedCode">#? (write-buffered Stderr "rescan\n")</span> -<span id="L21551" class="LineNr">21551 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21552" class="LineNr">21552 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr-inout->value->register</span> -<span id="L21553" class="LineNr">21553 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L21554" class="LineNr">21554 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L21555" class="LineNr">21555 </span> <span class="subxComment"># if (curr-reg == 0) return true</span> -<span id="L21556" class="LineNr">21556 </span> 3d/compare-eax-and 0/imm32 -<span id="L21557" class="LineNr">21557 </span> { -<span id="L21558" class="LineNr">21558 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21559" class="LineNr">21559 </span><span class="CommentedCode">#? (write-buffered Stderr "no register\n")</span> -<span id="L21560" class="LineNr">21560 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21561" class="LineNr">21561 </span> b8/copy-to-eax 1/imm32/true -<span id="L21562" class="LineNr">21562 </span> e9/jump $register-conflict?:end/disp32 -<span id="L21563" class="LineNr">21563 </span> } -<span id="L21564" class="LineNr">21564 </span> <span class="subxComment"># return (curr-reg != reg)</span> -<span id="L21565" class="LineNr">21565 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21566" class="LineNr">21566 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21567" class="LineNr">21567 </span> 0f 94/set-if-= %al -<span id="L21568" class="LineNr">21568 </span><span class="CommentedCode">#? (write-buffered Stderr "final: ")</span> -<span id="L21569" class="LineNr">21569 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L21570" class="LineNr">21570 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L21571" class="LineNr">21571 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21572" class="LineNr">21572 </span> eb/jump $register-conflict?:end/disp8 -<span id="L21573" class="LineNr">21573 </span><span class="Constant">$register-conflict?:continue</span>: -<span id="L21574" class="LineNr">21574 </span> <span class="subxComment"># curr-output = curr-output->next</span> -<span id="L21575" class="LineNr">21575 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L21576" class="LineNr">21576 </span> 89/<- %edi 0/r32/eax -<span id="L21577" class="LineNr">21577 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> -<span id="L21578" class="LineNr">21578 </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="L21579" class="LineNr">21579 </span> 89/<- %esi 0/r32/eax -<span id="L21580" class="LineNr">21580 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21581" class="LineNr">21581 </span> } -<span id="L21582" class="LineNr">21582 </span> <span class="subxComment"># should never get here</span> -<span id="L21583" class="LineNr">21583 </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="L21584" class="LineNr">21584 </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="L21585" class="LineNr">21585 </span> e8/call syscall_exit/disp32 -<span id="L21586" class="LineNr">21586 </span><span class="Constant">$register-conflict?:end</span>: -<span id="L21587" class="LineNr">21587 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21588" class="LineNr">21588 </span> 5f/pop-to-edi -<span id="L21589" class="LineNr">21589 </span> 5e/pop-to-esi -<span id="L21590" class="LineNr">21590 </span> 5b/pop-to-ebx -<span id="L21591" class="LineNr">21591 </span> 5a/pop-to-edx -<span id="L21592" class="LineNr">21592 </span> 59/pop-to-ecx -<span id="L21593" class="LineNr">21593 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21594" class="LineNr">21594 </span> 89/<- %esp 5/r32/ebp -<span id="L21595" class="LineNr">21595 </span> 5d/pop-to-ebp -<span id="L21596" class="LineNr">21596 </span> c3/return -<span id="L21597" class="LineNr">21597 </span> -<span id="L21598" class="LineNr">21598 </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="L21599" class="LineNr">21599 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21600" class="LineNr">21600 </span> 55/push-ebp -<span id="L21601" class="LineNr">21601 </span> 89/<- %ebp 4/r32/esp -<span id="L21602" class="LineNr">21602 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21603" class="LineNr">21603 </span> 50/push-eax -<span id="L21604" class="LineNr">21604 </span> 51/push-ecx -<span id="L21605" class="LineNr">21605 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> -<span id="L21606" class="LineNr">21606 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21607" class="LineNr">21607 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L21608" class="LineNr">21608 </span> 3d/compare-eax-and 0/imm32 -<span id="L21609" class="LineNr">21609 </span> 74/jump-if-= $check-final-stmt-is-return:end/disp8 -<span id="L21610" class="LineNr">21610 </span> 89/<- %ecx 0/r32/eax -<span id="L21611" class="LineNr">21611 </span> { -<span id="L21612" class="LineNr">21612 </span> <span class="subxComment"># if curr->next == 0, break</span> -<span id="L21613" class="LineNr">21613 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L21614" class="LineNr">21614 </span> 3d/compare-eax-and 0/imm32 -<span id="L21615" class="LineNr">21615 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21616" class="LineNr">21616 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L21617" class="LineNr">21617 </span> 89/<- %ecx 0/r32/eax -<span id="L21618" class="LineNr">21618 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21619" class="LineNr">21619 </span> } -<span id="L21620" class="LineNr">21620 </span><span class="Constant">$check-final-stmt-is-return:check-tag</span>: -<span id="L21621" class="LineNr">21621 </span> <span class="subxComment"># if curr->value->tag != Stmt1, abort</span> -<span id="L21622" class="LineNr">21622 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L21623" class="LineNr">21623 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L21624" class="LineNr">21624 </span> 75/jump-if-!= $check-final-stmt-is-return:<a href='../114error.subx.html#L9'>error</a>/disp8 -<span id="L21625" class="LineNr">21625 </span><span class="Constant">$check-final-stmt-is-return:check-operation</span>: -<span id="L21626" class="LineNr">21626 </span> <span class="subxComment"># if curr->operation != "return", abort</span> -<span id="L21627" class="LineNr">21627 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21628" class="LineNr">21628 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"return"</span>) -<span id="L21629" class="LineNr">21629 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21630" class="LineNr">21630 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='../114error.subx.html#L9'>error</a>/disp8 -<span id="L21631" class="LineNr">21631 </span><span class="Constant">$check-final-stmt-is-return:end</span>: -<span id="L21632" class="LineNr">21632 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21633" class="LineNr">21633 </span> 59/pop-to-ecx -<span id="L21634" class="LineNr">21634 </span> 58/pop-to-eax -<span id="L21635" class="LineNr">21635 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21636" class="LineNr">21636 </span> 89/<- %esp 5/r32/ebp -<span id="L21637" class="LineNr">21637 </span> 5d/pop-to-ebp -<span id="L21638" class="LineNr">21638 </span> c3/return -<span id="L21639" class="LineNr">21639 </span> -<span id="L21640" class="LineNr">21640 </span><span class="Constant">$check-final-stmt-is-return:<a href='../114error.subx.html#L9'>error</a></span>: -<span id="L21641" class="LineNr">21641 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21642" class="LineNr">21642 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21643" class="LineNr">21643 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21644" class="LineNr">21644 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21645" class="LineNr">21645 </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="L21646" class="LineNr">21646 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21647" class="LineNr">21647 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21648" class="LineNr">21648 </span> <span class="subxComment"># never gets here</span> -<span id="L21649" class="LineNr">21649 </span> -<span id="L21650" class="LineNr">21650 </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="L21651" class="LineNr">21651 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21652" class="LineNr">21652 </span> 55/push-ebp -<span id="L21653" class="LineNr">21653 </span> 89/<- %ebp 4/r32/esp -<span id="L21654" class="LineNr">21654 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21655" class="LineNr">21655 </span> 50/push-eax -<span id="L21656" class="LineNr">21656 </span> 51/push-ecx -<span id="L21657" class="LineNr">21657 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> -<span id="L21658" class="LineNr">21658 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21659" class="LineNr">21659 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L21660" class="LineNr">21660 </span> 3d/compare-eax-and 0/imm32 -<span id="L21661" class="LineNr">21661 </span> 0f 84/jump-if-= $check-no-breaks:end/disp32 -<span id="L21662" class="LineNr">21662 </span> 89/<- %ecx 0/r32/eax -<span id="L21663" class="LineNr">21663 </span> { -<span id="L21664" class="LineNr">21664 </span> <span class="subxComment"># if curr->next == 0, break</span> -<span id="L21665" class="LineNr">21665 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L21666" class="LineNr">21666 </span> 3d/compare-eax-and 0/imm32 -<span id="L21667" class="LineNr">21667 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21668" class="LineNr">21668 </span> <span class="subxComment"># if curr->value->tag != Stmt1, continue</span> -<span id="L21669" class="LineNr">21669 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L21670" class="LineNr">21670 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L21671" class="LineNr">21671 </span> 75/jump-if-!= $check-no-breaks:continue/disp8 -<span id="L21672" class="LineNr">21672 </span> <span class="subxComment"># if curr->value->operation starts with "break", abort</span> -<span id="L21673" class="LineNr">21673 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21674" class="LineNr">21674 </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="L21675" class="LineNr">21675 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21676" class="LineNr">21676 </span> 75/jump-if-!= $check-no-breaks:<a href='../114error.subx.html#L9'>error</a>/disp8 -<span id="L21677" class="LineNr">21677 </span><span class="Constant">$check-no-breaks:continue</span>: -<span id="L21678" class="LineNr">21678 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L21679" class="LineNr">21679 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L21680" class="LineNr">21680 </span> 89/<- %ecx 0/r32/eax -<span id="L21681" class="LineNr">21681 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21682" class="LineNr">21682 </span> } -<span id="L21683" class="LineNr">21683 </span><span class="Constant">$check-no-breaks:end</span>: -<span id="L21684" class="LineNr">21684 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21685" class="LineNr">21685 </span> 59/pop-to-ecx -<span id="L21686" class="LineNr">21686 </span> 58/pop-to-eax -<span id="L21687" class="LineNr">21687 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21688" class="LineNr">21688 </span> 89/<- %esp 5/r32/ebp -<span id="L21689" class="LineNr">21689 </span> 5d/pop-to-ebp -<span id="L21690" class="LineNr">21690 </span> c3/return -<span id="L21691" class="LineNr">21691 </span> -<span id="L21692" class="LineNr">21692 </span><span class="Constant">$check-no-breaks:<a href='../114error.subx.html#L9'>error</a></span>: -<span id="L21693" class="LineNr">21693 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21694" class="LineNr">21694 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21695" class="LineNr">21695 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21696" class="LineNr">21696 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21697" class="LineNr">21697 </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="L21698" class="LineNr">21698 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21699" class="LineNr">21699 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21700" class="LineNr">21700 </span> <span class="subxComment"># never gets here</span> -<span id="L21701" class="LineNr">21701 </span> -<span id="L21702" class="LineNr">21702 </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="L21703" class="LineNr">21703 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21704" class="LineNr">21704 </span> 55/push-ebp -<span id="L21705" class="LineNr">21705 </span> 89/<- %ebp 4/r32/esp -<span id="L21706" class="LineNr">21706 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21707" class="LineNr">21707 </span> 50/push-eax -<span id="L21708" class="LineNr">21708 </span> 51/push-ecx -<span id="L21709" class="LineNr">21709 </span> 52/push-edx -<span id="L21710" class="LineNr">21710 </span> 53/push-ebx -<span id="L21711" class="LineNr">21711 </span> 56/push-esi -<span id="L21712" class="LineNr">21712 </span> 57/push-edi -<span id="L21713" class="LineNr">21713 </span> <span class="subxComment"># esi = stmt</span> -<span id="L21714" class="LineNr">21714 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21715" class="LineNr">21715 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L21716" class="LineNr">21716 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L21717" class="LineNr">21717 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L21718" class="LineNr">21718 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21719" class="LineNr">21719 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 -<span id="L21720" class="LineNr">21720 </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="L21721" class="LineNr">21721 </span> 89/<- %ecx 0/r32/eax -<span id="L21722" class="LineNr">21722 </span><span class="Constant">$check-mu-get-stmt:check-base</span>: -<span id="L21723" class="LineNr">21723 </span> <span class="subxH1Comment"># - check base type</span> -<span id="L21724" class="LineNr">21724 </span> <span class="subxComment"># if it's an 'addr', check that it's in a register</span> -<span id="L21725" class="LineNr">21725 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L21726" class="LineNr">21726 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21727" class="LineNr">21727 </span> 89/<- %ebx 0/r32/eax -<span id="L21728" class="LineNr">21728 </span> { -<span id="L21729" class="LineNr">21729 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L21730" class="LineNr">21730 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L21731" class="LineNr">21731 </span><span class="Constant">$check-mu-get-stmt:base-is-compound</span>: -<span id="L21732" class="LineNr">21732 </span> <span class="subxComment"># if (type->left != addr) break</span> -<span id="L21733" class="LineNr">21733 </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="L21734" class="LineNr">21734 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L21735" class="LineNr">21735 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21736" class="LineNr">21736 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21737" class="LineNr">21737 </span><span class="Constant">$check-mu-get-stmt:base-is-addr</span>: -<span id="L21738" class="LineNr">21738 </span> <span class="subxComment"># now check for register</span> -<span id="L21739" class="LineNr">21739 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L21740" class="LineNr">21740 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-base-type-addr-but-not-register/disp32 -<span id="L21741" class="LineNr">21741 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-in-register</span>: -<span id="L21742" class="LineNr">21742 </span> <span class="subxComment"># type->left is now an addr; skip it</span> -<span id="L21743" class="LineNr">21743 </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="L21744" class="LineNr">21744 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L21745" class="LineNr">21745 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-bad-base/disp32 -<span id="L21746" class="LineNr">21746 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-to-atom-in-register</span>: -<span id="L21747" class="LineNr">21747 </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="L21748" class="LineNr">21748 </span> 89/<- %ebx 0/r32/eax -<span id="L21749" class="LineNr">21749 </span> } -<span id="L21750" class="LineNr">21750 </span><span class="Constant">$check-mu-get-stmt:check-base-typeinfo</span>: -<span id="L21751" class="LineNr">21751 </span> <span class="subxComment"># ensure type is a container</span> -<span id="L21752" class="LineNr">21752 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L21753" class="LineNr">21753 </span> { -<span id="L21754" class="LineNr">21754 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21755" class="LineNr">21755 </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="L21756" class="LineNr">21756 </span> 89/<- %ebx 0/r32/eax -<span id="L21757" class="LineNr">21757 </span> } -<span id="L21758" class="LineNr">21758 </span> <span class="subxComment"># var base-type-id/ebx: type-id = base-type->value</span> -<span id="L21759" class="LineNr">21759 </span> 8b/-> *(ebx+4) 3/r32/ebx <span class="subxComment"># Type-tree-value</span> -<span id="L21760" class="LineNr">21760 </span> (<a href='mu.subx.html#L18707'>is-container?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L21761" class="LineNr">21761 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21762" class="LineNr">21762 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-base/disp32 -<span id="L21763" class="LineNr">21763 </span> <span class="subxComment"># var base-typeinfo/edx: (addr typeinfo) = find-typeinfo(base-type-id)</span> -<span id="L21764" class="LineNr">21764 </span> <span class="subxS1Comment"># . var container/ecx: (handle typeinfo)</span> -<span id="L21765" class="LineNr">21765 </span> 68/push 0/imm32 -<span id="L21766" class="LineNr">21766 </span> 68/push 0/imm32 -<span id="L21767" class="LineNr">21767 </span> 89/<- %ecx 4/r32/esp -<span id="L21768" class="LineNr">21768 </span> <span class="subxS1Comment"># .</span> -<span id="L21769" class="LineNr">21769 </span> (<a href='mu.subx.html#L18790'>find-typeinfo</a> %ebx %ecx) -<span id="L21770" class="LineNr">21770 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L21771" class="LineNr">21771 </span> <span class="subxS1Comment"># . reclaim container</span> -<span id="L21772" class="LineNr">21772 </span> 81 0/subop/add %esp 8/imm32 -<span id="L21773" class="LineNr">21773 </span> <span class="subxS1Comment"># .</span> -<span id="L21774" class="LineNr">21774 </span> 89/<- %edx 0/r32/eax -<span id="L21775" class="LineNr">21775 </span> <span class="subxComment"># var offset/ecx: (addr stmt-var) = stmt->inouts->next</span> -<span id="L21776" class="LineNr">21776 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L21777" class="LineNr">21777 </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="L21778" class="LineNr">21778 </span> 89/<- %ecx 0/r32/eax -<span id="L21779" class="LineNr">21779 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L21780" class="LineNr">21780 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21781" class="LineNr">21781 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 -<span id="L21782" class="LineNr">21782 </span> <span class="subxComment"># var offset/ecx: (addr var) = lookup(offset->value)</span> -<span id="L21783" class="LineNr">21783 </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="L21784" class="LineNr">21784 </span> 89/<- %ecx 0/r32/eax -<span id="L21785" class="LineNr">21785 </span> <span class="subxH1Comment"># - check for valid field</span> -<span id="L21786" class="LineNr">21786 </span> 81 7/subop/compare *(ecx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> -<span id="L21787" class="LineNr">21787 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-field/disp32 -<span id="L21788" class="LineNr">21788 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L21789" class="LineNr">21789 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L21790" class="LineNr">21790 </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="L21791" class="LineNr">21791 </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="L21792" class="LineNr">21792 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21793" class="LineNr">21793 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-inouts/disp32 -<span id="L21794" class="LineNr">21794 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L21795" class="LineNr">21795 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L21796" class="LineNr">21796 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L21797" class="LineNr">21797 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21798" class="LineNr">21798 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-outputs/disp32 -<span id="L21799" class="LineNr">21799 </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="L21800" class="LineNr">21800 </span> 89/<- %edi 0/r32/eax -<span id="L21801" class="LineNr">21801 </span><span class="Constant">$check-mu-get-stmt:check-output-type</span>: -<span id="L21802" class="LineNr">21802 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L21803" class="LineNr">21803 </span> <span class="subxComment"># must be in register</span> -<span id="L21804" class="LineNr">21804 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L21805" class="LineNr">21805 </span> 3d/compare-eax-and 0/imm32 -<span id="L21806" class="LineNr">21806 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-not-in-register/disp32 -<span id="L21807" class="LineNr">21807 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L21808" class="LineNr">21808 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21809" class="LineNr">21809 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L21810" class="LineNr">21810 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-output-type-not-address/disp32 -<span id="L21811" class="LineNr">21811 </span> <span class="subxComment"># type must start with (addr ...)</span> -<span id="L21812" class="LineNr">21812 </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="L21813" class="LineNr">21813 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># => eax</span> -<span id="L21814" class="LineNr">21814 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21815" class="LineNr">21815 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-type-not-address/disp32 -<span id="L21816" class="LineNr">21816 </span><span class="Constant">$check-mu-get-stmt:check-output-type-match</span>: -<span id="L21817" class="LineNr">21817 </span> <span class="subxComment"># payload of addr type must match 'type' definition</span> -<span id="L21818" class="LineNr">21818 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21819" class="LineNr">21819 </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="L21820" class="LineNr">21820 </span> <span class="subxComment"># if (payload->right == null) payload = payload->left</span> -<span id="L21821" class="LineNr">21821 </span> 81 7/subop/compare *(eax+0xc) 0/imm32/null <span class="subxComment"># Type-tree-right</span> -<span id="L21822" class="LineNr">21822 </span> { -<span id="L21823" class="LineNr">21823 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21824" class="LineNr">21824 </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="L21825" class="LineNr">21825 </span> } -<span id="L21826" class="LineNr">21826 </span> 89/<- %edi 0/r32/eax -<span id="L21827" class="LineNr">21827 </span> <span class="subxS1Comment"># . var output-name/ecx: (addr array byte)</span> -<span id="L21828" class="LineNr">21828 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21829" class="LineNr">21829 </span> 89/<- %ecx 0/r32/eax -<span id="L21830" class="LineNr">21830 </span> <span class="subxS1Comment"># . var base-typeinfo-entry/eax: (addr handle typeinfo-entry)</span> -<span id="L21831" class="LineNr">21831 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L21832" class="LineNr">21832 </span> (<a href='../131table.subx.html#L26'>get</a> %eax %ecx 0x10) <span class="subxComment"># => eax</span> -<span id="L21833" class="LineNr">21833 </span> <span class="subxS1Comment"># .</span> -<span id="L21834" class="LineNr">21834 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L21835" class="LineNr">21835 </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="L21836" class="LineNr">21836 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21837" class="LineNr">21837 </span> <span class="subxS1Comment"># .</span> -<span id="L21838" class="LineNr">21838 </span> (<a href='mu.subx.html#L24708'>type-equal?</a> %edi %eax) <span class="subxComment"># => eax</span> -<span id="L21839" class="LineNr">21839 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21840" class="LineNr">21840 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-output-type/disp32 -<span id="L21841" class="LineNr">21841 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L21842" class="LineNr">21842 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L21843" class="LineNr">21843 </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="L21844" class="LineNr">21844 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21845" class="LineNr">21845 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-outputs/disp32 -<span id="L21846" class="LineNr">21846 </span><span class="Constant">$check-mu-get-stmt:end</span>: -<span id="L21847" class="LineNr">21847 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21848" class="LineNr">21848 </span> 5f/pop-to-edi -<span id="L21849" class="LineNr">21849 </span> 5e/pop-to-esi -<span id="L21850" class="LineNr">21850 </span> 5b/pop-to-ebx -<span id="L21851" class="LineNr">21851 </span> 5a/pop-to-edx -<span id="L21852" class="LineNr">21852 </span> 59/pop-to-ecx -<span id="L21853" class="LineNr">21853 </span> 58/pop-to-eax -<span id="L21854" class="LineNr">21854 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21855" class="LineNr">21855 </span> 89/<- %esp 5/r32/ebp -<span id="L21856" class="LineNr">21856 </span> 5d/pop-to-ebp -<span id="L21857" class="LineNr">21857 </span> c3/return -<span id="L21858" class="LineNr">21858 </span> -<span id="L21859" class="LineNr">21859 </span><span class="Constant">$check-mu-get-stmt:error-too-few-inouts</span>: -<span id="L21860" class="LineNr">21860 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21861" class="LineNr">21861 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21862" class="LineNr">21862 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21863" class="LineNr">21863 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21864" class="LineNr">21864 </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="L21865" class="LineNr">21865 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21866" class="LineNr">21866 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21867" class="LineNr">21867 </span> <span class="subxComment"># never gets here</span> -<span id="L21868" class="LineNr">21868 </span> -<span id="L21869" class="LineNr">21869 </span><span class="Constant">$check-mu-get-stmt:error-too-many-inouts</span>: -<span id="L21870" class="LineNr">21870 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21871" class="LineNr">21871 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21872" class="LineNr">21872 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21873" class="LineNr">21873 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21874" class="LineNr">21874 </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="L21875" class="LineNr">21875 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21876" class="LineNr">21876 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21877" class="LineNr">21877 </span> <span class="subxComment"># never gets here</span> -<span id="L21878" class="LineNr">21878 </span> -<span id="L21879" class="LineNr">21879 </span><span class="Constant">$check-mu-get-stmt:error-too-few-outputs</span>: -<span id="L21880" class="LineNr">21880 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21881" class="LineNr">21881 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21882" class="LineNr">21882 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21883" class="LineNr">21883 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21884" class="LineNr">21884 </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="L21885" class="LineNr">21885 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21886" class="LineNr">21886 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21887" class="LineNr">21887 </span> <span class="subxComment"># never gets here</span> -<span id="L21888" class="LineNr">21888 </span> -<span id="L21889" class="LineNr">21889 </span><span class="Constant">$check-mu-get-stmt:error-too-many-outputs</span>: -<span id="L21890" class="LineNr">21890 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21891" class="LineNr">21891 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21892" class="LineNr">21892 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21893" class="LineNr">21893 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21894" class="LineNr">21894 </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="L21895" class="LineNr">21895 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21896" class="LineNr">21896 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21897" class="LineNr">21897 </span> <span class="subxComment"># never gets here</span> -<span id="L21898" class="LineNr">21898 </span> -<span id="L21899" class="LineNr">21899 </span><span class="Constant">$check-mu-get-stmt:error-bad-base</span>: -<span id="L21900" class="LineNr">21900 </span> <span class="subxComment"># error("fn " fn ": stmt get: var '" base->name "' must have a 'type' definition\n")</span> -<span id="L21901" class="LineNr">21901 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21902" class="LineNr">21902 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21903" class="LineNr">21903 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21904" class="LineNr">21904 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21905" class="LineNr">21905 </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="L21906" class="LineNr">21906 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L21907" class="LineNr">21907 </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="L21908" class="LineNr">21908 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21909" class="LineNr">21909 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21910" class="LineNr">21910 </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="L21911" class="LineNr">21911 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21912" class="LineNr">21912 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21913" class="LineNr">21913 </span> <span class="subxComment"># never gets here</span> -<span id="L21914" class="LineNr">21914 </span> -<span id="L21915" class="LineNr">21915 </span><span class="Constant">$check-mu-get-stmt:error-base-type-addr-but-not-register</span>: -<span id="L21916" class="LineNr">21916 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21917" class="LineNr">21917 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21918" class="LineNr">21918 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21919" class="LineNr">21919 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21920" class="LineNr">21920 </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="L21921" class="LineNr">21921 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L21922" class="LineNr">21922 </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="L21923" class="LineNr">21923 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21924" class="LineNr">21924 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21925" class="LineNr">21925 </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="L21926" class="LineNr">21926 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21927" class="LineNr">21927 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21928" class="LineNr">21928 </span> <span class="subxComment"># never gets here</span> -<span id="L21929" class="LineNr">21929 </span> -<span id="L21930" class="LineNr">21930 </span><span class="Constant">$check-mu-get-stmt:error-bad-field</span>: -<span id="L21931" class="LineNr">21931 </span> <span class="subxComment"># error("fn " fn ": stmt get: type " type " has no member called '" curr->name "'\n")</span> -<span id="L21932" class="LineNr">21932 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21933" class="LineNr">21933 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21934" class="LineNr">21934 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21935" class="LineNr">21935 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21936" class="LineNr">21936 </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="L21937" class="LineNr">21937 </span> <span class="subxS1Comment"># . write(Type-id->data[tmp])</span> -<span id="L21938" class="LineNr">21938 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 -<span id="L21939" class="LineNr">21939 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi -<span id="L21940" class="LineNr">21940 </span> { -<span id="L21941" class="LineNr">21941 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L21942" class="LineNr">21942 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21943" class="LineNr">21943 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) -<span id="L21944" class="LineNr">21944 </span> } -<span id="L21945" class="LineNr">21945 </span> <span class="subxS1Comment"># .</span> -<span id="L21946" class="LineNr">21946 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has no member called '"</span>) -<span id="L21947" class="LineNr">21947 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"'\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-get-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 <a href='../131table.subx.html#L26'>get</a>: output '"</span>) -<span id="L21960" class="LineNr">21960 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21961" class="LineNr">21961 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21962" class="LineNr">21962 </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="L21963" class="LineNr">21963 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21964" class="LineNr">21964 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21965" class="LineNr">21965 </span> <span class="subxComment"># never gets here</span> -<span id="L21966" class="LineNr">21966 </span> -<span id="L21967" class="LineNr">21967 </span><span class="Constant">$check-mu-get-stmt:error-output-type-not-address</span>: -<span id="L21968" class="LineNr">21968 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21969" class="LineNr">21969 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21970" class="LineNr">21970 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21971" class="LineNr">21971 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21972" class="LineNr">21972 </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="L21973" class="LineNr">21973 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21974" class="LineNr">21974 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21975" class="LineNr">21975 </span> <span class="subxComment"># never gets here</span> -<span id="L21976" class="LineNr">21976 </span> -<span id="L21977" class="LineNr">21977 </span><span class="Constant">$check-mu-get-stmt:error-bad-output-type</span>: -<span id="L21978" class="LineNr">21978 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21979" class="LineNr">21979 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21980" class="LineNr">21980 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21981" class="LineNr">21981 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21982" class="LineNr">21982 </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="L21983" class="LineNr">21983 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %ecx) -<span id="L21984" class="LineNr">21984 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type '"</span>) -<span id="L21985" class="LineNr">21985 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 -<span id="L21986" class="LineNr">21986 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi -<span id="L21987" class="LineNr">21987 </span> { -<span id="L21988" class="LineNr">21988 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L21989" class="LineNr">21989 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21990" class="LineNr">21990 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) -<span id="L21991" class="LineNr">21991 </span> } -<span id="L21992" class="LineNr">21992 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L21993" class="LineNr">21993 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21994" class="LineNr">21994 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21995" class="LineNr">21995 </span> <span class="subxComment"># never gets here</span> -<span id="L21996" class="LineNr">21996 </span> -<span id="L21997" class="LineNr">21997 </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="L21998" class="LineNr">21998 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21999" class="LineNr">21999 </span> 55/push-ebp -<span id="L22000" class="LineNr">22000 </span> 89/<- %ebp 4/r32/esp -<span id="L22001" class="LineNr">22001 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22002" class="LineNr">22002 </span> 50/push-eax -<span id="L22003" class="LineNr">22003 </span> 51/push-ecx -<span id="L22004" class="LineNr">22004 </span> 52/push-edx -<span id="L22005" class="LineNr">22005 </span> 53/push-ebx -<span id="L22006" class="LineNr">22006 </span> 56/push-esi -<span id="L22007" class="LineNr">22007 </span> 57/push-edi -<span id="L22008" class="LineNr">22008 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22009" class="LineNr">22009 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22010" class="LineNr">22010 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L22011" class="LineNr">22011 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L22012" class="LineNr">22012 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22013" class="LineNr">22013 </span><span class="Constant">$check-mu-index-stmt:check-no-inouts</span>: -<span id="L22014" class="LineNr">22014 </span> 3d/compare-eax-and 0/imm32 -<span id="L22015" class="LineNr">22015 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 -<span id="L22016" class="LineNr">22016 </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="L22017" class="LineNr">22017 </span> 89/<- %ecx 0/r32/eax -<span id="L22018" class="LineNr">22018 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> -<span id="L22019" class="LineNr">22019 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L22020" class="LineNr">22020 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22021" class="LineNr">22021 </span> 89/<- %ebx 0/r32/eax -<span id="L22022" class="LineNr">22022 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> -<span id="L22023" class="LineNr">22023 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L22024" class="LineNr">22024 </span> { -<span id="L22025" class="LineNr">22025 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22026" class="LineNr">22026 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> -<span id="L22027" class="LineNr">22027 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22028" class="LineNr">22028 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-atom-type/disp32 -<span id="L22029" class="LineNr">22029 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L22030" class="LineNr">22030 </span> } -<span id="L22031" class="LineNr">22031 </span><span class="Constant">$check-mu-index-stmt:base-is-compound</span>: -<span id="L22032" class="LineNr">22032 </span> <span class="subxComment"># if type->left not addr or array, abort</span> -<span id="L22033" class="LineNr">22033 </span> { -<span id="L22034" class="LineNr">22034 </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="L22035" class="LineNr">22035 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L22036" class="LineNr">22036 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22037" class="LineNr">22037 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22038" class="LineNr">22038 </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="L22039" class="LineNr">22039 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L22040" class="LineNr">22040 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22041" class="LineNr">22041 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22042" class="LineNr">22042 </span> e9/jump $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L22043" class="LineNr">22043 </span> } -<span id="L22044" class="LineNr">22044 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> -<span id="L22045" class="LineNr">22045 </span> { -<span id="L22046" class="LineNr">22046 </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="L22047" class="LineNr">22047 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L22048" class="LineNr">22048 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22049" class="LineNr">22049 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22050" class="LineNr">22050 </span><span class="Constant">$check-mu-index-stmt:base-is-addr</span>: -<span id="L22051" class="LineNr">22051 </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="L22052" class="LineNr">22052 </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="L22053" class="LineNr">22053 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L22054" class="LineNr">22054 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22055" class="LineNr">22055 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L22056" class="LineNr">22056 </span><span class="Constant">$check-mu-index-stmt:check-base-addr-is-register</span>: -<span id="L22057" class="LineNr">22057 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L22058" class="LineNr">22058 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-address-array-type-on-stack/disp32 -<span id="L22059" class="LineNr">22059 </span> } -<span id="L22060" class="LineNr">22060 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> -<span id="L22061" class="LineNr">22061 </span> { -<span id="L22062" class="LineNr">22062 </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="L22063" class="LineNr">22063 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L22064" class="LineNr">22064 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22065" class="LineNr">22065 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22066" class="LineNr">22066 </span><span class="Constant">$check-mu-index-stmt:base-is-array</span>: -<span id="L22067" class="LineNr">22067 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L22068" class="LineNr">22068 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-type-in-register/disp32 -<span id="L22069" class="LineNr">22069 </span> } -<span id="L22070" class="LineNr">22070 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> -<span id="L22071" class="LineNr">22071 </span> { -<span id="L22072" class="LineNr">22072 </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="L22073" class="LineNr">22073 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L22074" class="LineNr">22074 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22075" class="LineNr">22075 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22076" class="LineNr">22076 </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="L22077" class="LineNr">22077 </span> 89/<- %ebx 0/r32/eax -<span id="L22078" class="LineNr">22078 </span> } -<span id="L22079" class="LineNr">22079 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L22080" class="LineNr">22080 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L22081" class="LineNr">22081 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22082" class="LineNr">22082 </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="L22083" class="LineNr">22083 </span><span class="Constant">$check-mu-index-stmt:check-single-inout</span>: -<span id="L22084" class="LineNr">22084 </span> 3d/compare-eax-and 0/imm32 -<span id="L22085" class="LineNr">22085 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 -<span id="L22086" class="LineNr">22086 </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="L22087" class="LineNr">22087 </span> 89/<- %ecx 0/r32/eax -<span id="L22088" class="LineNr">22088 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> -<span id="L22089" class="LineNr">22089 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> -<span id="L22090" class="LineNr">22090 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22091" class="LineNr">22091 </span> 89/<- %edx 0/r32/eax -<span id="L22092" class="LineNr">22092 </span> <span class="subxComment"># if index type is an atom, it must be a literal or int</span> -<span id="L22093" class="LineNr">22093 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L22094" class="LineNr">22094 </span> { -<span id="L22095" class="LineNr">22095 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22096" class="LineNr">22096 </span><span class="Constant">$check-mu-index-stmt:index-type-is-atom</span>: -<span id="L22097" class="LineNr">22097 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> -<span id="L22098" class="LineNr">22098 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22099" class="LineNr">22099 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 -<span id="L22100" class="LineNr">22100 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L22101" class="LineNr">22101 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22102" class="LineNr">22102 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 -<span id="L22103" class="LineNr">22103 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %edx 7) <span class="subxComment"># offset => eax</span> -<span id="L22104" class="LineNr">22104 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22105" class="LineNr">22105 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-index-offset-atom-type/disp32 -<span id="L22106" class="LineNr">22106 </span> e9/jump $check-mu-index-stmt:error-invalid-index-type/disp32 -<span id="L22107" class="LineNr">22107 </span> } -<span id="L22108" class="LineNr">22108 </span> <span class="subxComment"># if index type is a non-atom: it must be an offset</span> -<span id="L22109" class="LineNr">22109 </span> { -<span id="L22110" class="LineNr">22110 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22111" class="LineNr">22111 </span><span class="Constant">$check-mu-index-stmt:index-type-is-non-atom</span>: -<span id="L22112" class="LineNr">22112 </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="L22113" class="LineNr">22113 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L22114" class="LineNr">22114 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22115" class="LineNr">22115 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-invalid-index-type/disp32 -<span id="L22116" class="LineNr">22116 </span> } -<span id="L22117" class="LineNr">22117 </span><span class="Constant">$check-mu-index-stmt:index-type-done</span>: -<span id="L22118" class="LineNr">22118 </span> <span class="subxComment"># check index is either a literal or in a register</span> -<span id="L22119" class="LineNr">22119 </span> { -<span id="L22120" class="LineNr">22120 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> -<span id="L22121" class="LineNr">22121 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22122" class="LineNr">22122 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22123" class="LineNr">22123 </span><span class="Constant">$check-mu-index-stmt:check-index-in-register</span>: -<span id="L22124" class="LineNr">22124 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L22125" class="LineNr">22125 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-index-on-stack/disp32 -<span id="L22126" class="LineNr">22126 </span> } -<span id="L22127" class="LineNr">22127 </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="L22128" class="LineNr">22128 </span> { -<span id="L22129" class="LineNr">22129 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L22130" class="LineNr">22130 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22131" class="LineNr">22131 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22132" class="LineNr">22132 </span><span class="Constant">$check-mu-index-stmt:check-index-can-be-int</span>: -<span id="L22133" class="LineNr">22133 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22134" class="LineNr">22134 </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="L22135" class="LineNr">22135 </span> (<a href='mu.subx.html#L26646'>array-element-size</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22136" class="LineNr">22136 </span> 3d/compare-eax-and 1/imm32 -<span id="L22137" class="LineNr">22137 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22138" class="LineNr">22138 </span> 3d/compare-eax-and 2/imm32 -<span id="L22139" class="LineNr">22139 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22140" class="LineNr">22140 </span> 3d/compare-eax-and 4/imm32 -<span id="L22141" class="LineNr">22141 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22142" class="LineNr">22142 </span> 3d/compare-eax-and 8/imm32 -<span id="L22143" class="LineNr">22143 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22144" class="LineNr">22144 </span> e9/jump $check-mu-index-stmt:error-index-needs-offset/disp32 -<span id="L22145" class="LineNr">22145 </span> } -<span id="L22146" class="LineNr">22146 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L22147" class="LineNr">22147 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22148" class="LineNr">22148 </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="L22149" class="LineNr">22149 </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="L22150" class="LineNr">22150 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22151" class="LineNr">22151 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-inouts/disp32 -<span id="L22152" class="LineNr">22152 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L22153" class="LineNr">22153 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L22154" class="LineNr">22154 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22155" class="LineNr">22155 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22156" class="LineNr">22156 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-outputs/disp32 -<span id="L22157" class="LineNr">22157 </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="L22158" class="LineNr">22158 </span> 89/<- %edi 0/r32/eax -<span id="L22159" class="LineNr">22159 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L22160" class="LineNr">22160 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L22161" class="LineNr">22161 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22162" class="LineNr">22162 </span> 89/<- %edx 0/r32/eax -<span id="L22163" class="LineNr">22163 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L22164" class="LineNr">22164 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-output-type-not-address/disp32 -<span id="L22165" class="LineNr">22165 </span> <span class="subxComment"># type must start with (addr ...)</span> -<span id="L22166" class="LineNr">22166 </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="L22167" class="LineNr">22167 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L22168" class="LineNr">22168 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22169" class="LineNr">22169 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-output-type-not-address/disp32 -<span id="L22170" class="LineNr">22170 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> -<span id="L22171" class="LineNr">22171 </span> (<a href='mu.subx.html#L24649'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L22172" class="LineNr">22172 </span> 89/<- %ebx 0/r32/eax -<span id="L22173" class="LineNr">22173 </span> (<a href='mu.subx.html#L24649'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L22174" class="LineNr">22174 </span> (<a href='mu.subx.html#L24708'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L22175" class="LineNr">22175 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22176" class="LineNr">22176 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-bad-output-type/disp32 -<span id="L22177" class="LineNr">22177 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L22178" class="LineNr">22178 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22179" class="LineNr">22179 </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="L22180" class="LineNr">22180 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22181" class="LineNr">22181 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-outputs/disp32 -<span id="L22182" class="LineNr">22182 </span><span class="Constant">$check-mu-index-stmt:end</span>: -<span id="L22183" class="LineNr">22183 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22184" class="LineNr">22184 </span> 5f/pop-to-edi -<span id="L22185" class="LineNr">22185 </span> 5e/pop-to-esi -<span id="L22186" class="LineNr">22186 </span> 5b/pop-to-ebx -<span id="L22187" class="LineNr">22187 </span> 5a/pop-to-edx -<span id="L22188" class="LineNr">22188 </span> 59/pop-to-ecx -<span id="L22189" class="LineNr">22189 </span> 58/pop-to-eax -<span id="L22190" class="LineNr">22190 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22191" class="LineNr">22191 </span> 89/<- %esp 5/r32/ebp -<span id="L22192" class="LineNr">22192 </span> 5d/pop-to-ebp -<span id="L22193" class="LineNr">22193 </span> c3/return -<span id="L22194" class="LineNr">22194 </span> -<span id="L22195" class="LineNr">22195 </span><span class="Constant">$check-mu-index-stmt:error-base-non-array-type</span>: -<span id="L22196" class="LineNr">22196 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22197" class="LineNr">22197 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22198" class="LineNr">22198 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22199" class="LineNr">22199 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22200" class="LineNr">22200 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L22201" class="LineNr">22201 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22202" class="LineNr">22202 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22203" class="LineNr">22203 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) -<span id="L22204" class="LineNr">22204 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22205" class="LineNr">22205 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22206" class="LineNr">22206 </span> <span class="subxComment"># never gets here</span> -<span id="L22207" class="LineNr">22207 </span> -<span id="L22208" class="LineNr">22208 </span><span class="Constant">$check-mu-index-stmt:error-base-array-atom-type</span>: -<span id="L22209" class="LineNr">22209 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22210" class="LineNr">22210 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22211" class="LineNr">22211 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22212" class="LineNr">22212 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22213" class="LineNr">22213 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: array '"</span>) -<span id="L22214" class="LineNr">22214 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22215" class="LineNr">22215 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22216" class="LineNr">22216 </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="L22217" class="LineNr">22217 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22218" class="LineNr">22218 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22219" class="LineNr">22219 </span> <span class="subxComment"># never gets here</span> -<span id="L22220" class="LineNr">22220 </span> -<span id="L22221" class="LineNr">22221 </span><span class="Constant">$check-mu-index-stmt:error-base-address-array-type-on-stack</span>: -<span id="L22222" class="LineNr">22222 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22223" class="LineNr">22223 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22224" class="LineNr">22224 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22225" class="LineNr">22225 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22226" class="LineNr">22226 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L22227" class="LineNr">22227 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22228" class="LineNr">22228 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22229" class="LineNr">22229 </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="L22230" class="LineNr">22230 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22231" class="LineNr">22231 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22232" class="LineNr">22232 </span> <span class="subxComment"># never gets here</span> -<span id="L22233" class="LineNr">22233 </span> -<span id="L22234" class="LineNr">22234 </span><span class="Constant">$check-mu-index-stmt:error-base-array-type-in-register</span>: -<span id="L22235" class="LineNr">22235 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22236" class="LineNr">22236 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22237" class="LineNr">22237 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22238" class="LineNr">22238 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22239" class="LineNr">22239 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L22240" class="LineNr">22240 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22241" class="LineNr">22241 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22242" class="LineNr">22242 </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="L22243" class="LineNr">22243 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22244" class="LineNr">22244 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22245" class="LineNr">22245 </span> <span class="subxComment"># never gets here</span> -<span id="L22246" class="LineNr">22246 </span> -<span id="L22247" class="LineNr">22247 </span><span class="Constant">$check-mu-index-stmt:error-too-few-inouts</span>: -<span id="L22248" class="LineNr">22248 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22249" class="LineNr">22249 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22250" class="LineNr">22250 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22251" class="LineNr">22251 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22252" class="LineNr">22252 </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="L22253" class="LineNr">22253 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22254" class="LineNr">22254 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22255" class="LineNr">22255 </span> <span class="subxComment"># never gets here</span> -<span id="L22256" class="LineNr">22256 </span> -<span id="L22257" class="LineNr">22257 </span><span class="Constant">$check-mu-index-stmt:error-invalid-index-type</span>: -<span id="L22258" class="LineNr">22258 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22259" class="LineNr">22259 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22260" class="LineNr">22260 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22261" class="LineNr">22261 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22262" class="LineNr">22262 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) -<span id="L22263" class="LineNr">22263 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22264" class="LineNr">22264 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22265" class="LineNr">22265 </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="L22266" class="LineNr">22266 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22267" class="LineNr">22267 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22268" class="LineNr">22268 </span> <span class="subxComment"># never gets here</span> -<span id="L22269" class="LineNr">22269 </span> -<span id="L22270" class="LineNr">22270 </span><span class="Constant">$check-mu-index-stmt:error-index-offset-atom-type</span>: -<span id="L22271" class="LineNr">22271 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22272" class="LineNr">22272 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22273" class="LineNr">22273 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22274" class="LineNr">22274 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22275" class="LineNr">22275 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: offset '"</span>) -<span id="L22276" class="LineNr">22276 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22277" class="LineNr">22277 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22278" class="LineNr">22278 </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="L22279" class="LineNr">22279 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22280" class="LineNr">22280 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22281" class="LineNr">22281 </span> <span class="subxComment"># never gets here</span> -<span id="L22282" class="LineNr">22282 </span> -<span id="L22283" class="LineNr">22283 </span><span class="Constant">$check-mu-index-stmt:error-index-on-stack</span>: -<span id="L22284" class="LineNr">22284 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22285" class="LineNr">22285 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22286" class="LineNr">22286 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22287" class="LineNr">22287 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22288" class="LineNr">22288 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) -<span id="L22289" class="LineNr">22289 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22290" class="LineNr">22290 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22291" class="LineNr">22291 </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="L22292" class="LineNr">22292 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22293" class="LineNr">22293 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22294" class="LineNr">22294 </span> <span class="subxComment"># never gets here</span> -<span id="L22295" class="LineNr">22295 </span> -<span id="L22296" class="LineNr">22296 </span><span class="Constant">$check-mu-index-stmt:error-index-needs-offset</span>: -<span id="L22297" class="LineNr">22297 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22298" class="LineNr">22298 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22299" class="LineNr">22299 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22300" class="LineNr">22300 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22301" class="LineNr">22301 </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="L22302" class="LineNr">22302 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22303" class="LineNr">22303 </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="L22304" class="LineNr">22304 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22305" class="LineNr">22305 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22306" class="LineNr">22306 </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="L22307" class="LineNr">22307 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22308" class="LineNr">22308 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22309" class="LineNr">22309 </span> <span class="subxComment"># never gets here</span> -<span id="L22310" class="LineNr">22310 </span> -<span id="L22311" class="LineNr">22311 </span><span class="Constant">$check-mu-index-stmt:error-too-many-inouts</span>: -<span id="L22312" class="LineNr">22312 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22313" class="LineNr">22313 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22314" class="LineNr">22314 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22315" class="LineNr">22315 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22316" class="LineNr">22316 </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="L22317" class="LineNr">22317 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22318" class="LineNr">22318 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22319" class="LineNr">22319 </span> <span class="subxComment"># never gets here</span> -<span id="L22320" class="LineNr">22320 </span> -<span id="L22321" class="LineNr">22321 </span><span class="Constant">$check-mu-index-stmt:error-too-few-outputs</span>: -<span id="L22322" class="LineNr">22322 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22323" class="LineNr">22323 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22324" class="LineNr">22324 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22325" class="LineNr">22325 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22326" class="LineNr">22326 </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="L22327" class="LineNr">22327 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22328" class="LineNr">22328 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22329" class="LineNr">22329 </span> <span class="subxComment"># never gets here</span> -<span id="L22330" class="LineNr">22330 </span> -<span id="L22331" class="LineNr">22331 </span><span class="Constant">$check-mu-index-stmt:error-too-many-outputs</span>: -<span id="L22332" class="LineNr">22332 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22333" class="LineNr">22333 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22334" class="LineNr">22334 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22335" class="LineNr">22335 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22336" class="LineNr">22336 </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="L22337" class="LineNr">22337 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22338" class="LineNr">22338 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22339" class="LineNr">22339 </span> <span class="subxComment"># never gets here</span> -<span id="L22340" class="LineNr">22340 </span> -<span id="L22341" class="LineNr">22341 </span><span class="Constant">$check-mu-index-stmt:error-output-not-in-register</span>: -<span id="L22342" class="LineNr">22342 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22343" class="LineNr">22343 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22344" class="LineNr">22344 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22345" class="LineNr">22345 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22346" class="LineNr">22346 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) -<span id="L22347" class="LineNr">22347 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-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">"' is not in a register\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-index-stmt:error-output-type-not-address</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 index: output '"</span>) -<span id="L22360" class="LineNr">22360 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22361" class="LineNr">22361 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22362" class="LineNr">22362 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) -<span id="L22363" class="LineNr">22363 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22364" class="LineNr">22364 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22365" class="LineNr">22365 </span> <span class="subxComment"># never gets here</span> -<span id="L22366" class="LineNr">22366 </span> -<span id="L22367" class="LineNr">22367 </span><span class="Constant">$check-mu-index-stmt:error-bad-output-type</span>: -<span id="L22368" class="LineNr">22368 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22369" class="LineNr">22369 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22370" class="LineNr">22370 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22371" class="LineNr">22371 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22372" class="LineNr">22372 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) -<span id="L22373" class="LineNr">22373 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22374" class="LineNr">22374 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22375" class="LineNr">22375 </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="L22376" class="LineNr">22376 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22377" class="LineNr">22377 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22378" class="LineNr">22378 </span> <span class="subxComment"># never gets here</span> -<span id="L22379" class="LineNr">22379 </span> -<span id="L22380" class="LineNr">22380 </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="L22381" class="LineNr">22381 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22382" class="LineNr">22382 </span> 55/push-ebp -<span id="L22383" class="LineNr">22383 </span> 89/<- %ebp 4/r32/esp -<span id="L22384" class="LineNr">22384 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22385" class="LineNr">22385 </span> 50/push-eax -<span id="L22386" class="LineNr">22386 </span> 51/push-ecx -<span id="L22387" class="LineNr">22387 </span> 52/push-edx -<span id="L22388" class="LineNr">22388 </span> 53/push-ebx -<span id="L22389" class="LineNr">22389 </span> 56/push-esi -<span id="L22390" class="LineNr">22390 </span> 57/push-edi -<span id="L22391" class="LineNr">22391 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22392" class="LineNr">22392 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22393" class="LineNr">22393 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L22394" class="LineNr">22394 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L22395" class="LineNr">22395 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22396" class="LineNr">22396 </span><span class="Constant">$check-mu-length-stmt:check-no-inouts</span>: -<span id="L22397" class="LineNr">22397 </span> 3d/compare-eax-and 0/imm32 -<span id="L22398" class="LineNr">22398 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-inouts/disp32 -<span id="L22399" class="LineNr">22399 </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="L22400" class="LineNr">22400 </span> 89/<- %ecx 0/r32/eax -<span id="L22401" class="LineNr">22401 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> -<span id="L22402" class="LineNr">22402 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L22403" class="LineNr">22403 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22404" class="LineNr">22404 </span> 89/<- %ebx 0/r32/eax -<span id="L22405" class="LineNr">22405 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> -<span id="L22406" class="LineNr">22406 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L22407" class="LineNr">22407 </span> { -<span id="L22408" class="LineNr">22408 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22409" class="LineNr">22409 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> -<span id="L22410" class="LineNr">22410 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22411" class="LineNr">22411 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-atom-type/disp32 -<span id="L22412" class="LineNr">22412 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 -<span id="L22413" class="LineNr">22413 </span> } -<span id="L22414" class="LineNr">22414 </span><span class="Constant">$check-mu-length-stmt:base-is-compound</span>: -<span id="L22415" class="LineNr">22415 </span> <span class="subxComment"># if type->left not addr or array, abort</span> -<span id="L22416" class="LineNr">22416 </span> { -<span id="L22417" class="LineNr">22417 </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="L22418" class="LineNr">22418 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L22419" class="LineNr">22419 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22420" class="LineNr">22420 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22421" class="LineNr">22421 </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="L22422" class="LineNr">22422 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L22423" class="LineNr">22423 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22424" class="LineNr">22424 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22425" class="LineNr">22425 </span> e9/jump $check-mu-length-stmt:error-base-non-array-type/disp32 -<span id="L22426" class="LineNr">22426 </span> } -<span id="L22427" class="LineNr">22427 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> -<span id="L22428" class="LineNr">22428 </span> { -<span id="L22429" class="LineNr">22429 </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="L22430" class="LineNr">22430 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L22431" class="LineNr">22431 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22432" class="LineNr">22432 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22433" class="LineNr">22433 </span><span class="Constant">$check-mu-length-stmt:base-is-addr</span>: -<span id="L22434" class="LineNr">22434 </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="L22435" class="LineNr">22435 </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="L22436" class="LineNr">22436 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L22437" class="LineNr">22437 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22438" class="LineNr">22438 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 -<span id="L22439" class="LineNr">22439 </span><span class="Constant">$check-mu-length-stmt:check-base-addr-is-register</span>: -<span id="L22440" class="LineNr">22440 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L22441" class="LineNr">22441 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-address-array-type-on-stack/disp32 -<span id="L22442" class="LineNr">22442 </span> } -<span id="L22443" class="LineNr">22443 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> -<span id="L22444" class="LineNr">22444 </span> { -<span id="L22445" class="LineNr">22445 </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="L22446" class="LineNr">22446 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L22447" class="LineNr">22447 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22448" class="LineNr">22448 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22449" class="LineNr">22449 </span><span class="Constant">$check-mu-length-stmt:base-is-array</span>: -<span id="L22450" class="LineNr">22450 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L22451" class="LineNr">22451 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-type-in-register/disp32 -<span id="L22452" class="LineNr">22452 </span> } -<span id="L22453" class="LineNr">22453 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> -<span id="L22454" class="LineNr">22454 </span> { -<span id="L22455" class="LineNr">22455 </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="L22456" class="LineNr">22456 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L22457" class="LineNr">22457 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21319" class="LineNr">21319 </span> <span class="subxComment"># if right is not a scalar, abort</span> +<span id="L21320" class="LineNr">21320 </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="L21321" class="LineNr">21321 </span> (<a href='mu.subx.html#L25018'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L21322" class="LineNr">21322 </span> 3d/compare-eax-and 4/imm32 +<span id="L21323" class="LineNr">21323 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-right-too-large/disp32 +<span id="L21324" class="LineNr">21324 </span> <span class="subxComment"># if left is not a scalar, abort</span> +<span id="L21325" class="LineNr">21325 </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="L21326" class="LineNr">21326 </span> (<a href='mu.subx.html#L25018'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L21327" class="LineNr">21327 </span> 3d/compare-eax-and 4/imm32 +<span id="L21328" class="LineNr">21328 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-left-too-large/disp32 +<span id="L21329" class="LineNr">21329 </span> <span class="subxComment"># var left-type/ebx: (addr type-tree) = left->value->type</span> +<span id="L21330" class="LineNr">21330 </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="L21331" class="LineNr">21331 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21332" class="LineNr">21332 </span> 89/<- %ebx 0/r32/eax +<span id="L21333" class="LineNr">21333 </span> <span class="subxComment"># if (left->is-deref?) left-type = left-type->payload</span> +<span id="L21334" class="LineNr">21334 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L21335" class="LineNr">21335 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21336" class="LineNr">21336 </span> { +<span id="L21337" class="LineNr">21337 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21338" class="LineNr">21338 </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="L21339" class="LineNr">21339 </span> <span class="subxComment"># if left-type->right is null, left-type = left-type->left</span> +<span id="L21340" class="LineNr">21340 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L21341" class="LineNr">21341 </span> { +<span id="L21342" class="LineNr">21342 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21343" class="LineNr">21343 </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="L21344" class="LineNr">21344 </span> } +<span id="L21345" class="LineNr">21345 </span> 89/<- %ebx 0/r32/eax +<span id="L21346" class="LineNr">21346 </span> } +<span id="L21347" class="LineNr">21347 </span> <span class="subxComment"># if (left-type == right-type) return</span> +<span id="L21348" class="LineNr">21348 </span> (<a href='mu.subx.html#L24859'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L21349" class="LineNr">21349 </span> 3d/compare-eax-and 0/imm32 +<span id="L21350" class="LineNr">21350 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:end/disp32 +<span id="L21351" class="LineNr">21351 </span> <span class="subxComment"># if left is an addr and right is 0, return</span> +<span id="L21352" class="LineNr">21352 </span> { +<span id="L21353" class="LineNr">21353 </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="L21354" class="LineNr">21354 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21355" class="LineNr">21355 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L21356" class="LineNr">21356 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21357" class="LineNr">21357 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21358" class="LineNr">21358 </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="L21359" class="LineNr">21359 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21360" class="LineNr">21360 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L21361" class="LineNr">21361 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21362" class="LineNr">21362 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21363" class="LineNr">21363 </span> eb/jump $check-mu-compare-stmt:end/disp8 +<span id="L21364" class="LineNr">21364 </span> } +<span id="L21365" class="LineNr">21365 </span> <span class="subxComment"># if left is not number-like, abort</span> +<span id="L21366" class="LineNr">21366 </span> (<a href='mu.subx.html#L20726'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21367" class="LineNr">21367 </span><span class="Constant">$check-mu-compare-stmt:end</span>: +<span id="L21368" class="LineNr">21368 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L21369" class="LineNr">21369 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L21370" class="LineNr">21370 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21371" class="LineNr">21371 </span> 5f/pop-to-edi +<span id="L21372" class="LineNr">21372 </span> 5e/pop-to-esi +<span id="L21373" class="LineNr">21373 </span> 5b/pop-to-ebx +<span id="L21374" class="LineNr">21374 </span> 5a/pop-to-edx +<span id="L21375" class="LineNr">21375 </span> 59/pop-to-ecx +<span id="L21376" class="LineNr">21376 </span> 58/pop-to-eax +<span id="L21377" class="LineNr">21377 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21378" class="LineNr">21378 </span> 89/<- %esp 5/r32/ebp +<span id="L21379" class="LineNr">21379 </span> 5d/pop-to-ebp +<span id="L21380" class="LineNr">21380 </span> c3/return +<span id="L21381" class="LineNr">21381 </span> +<span id="L21382" class="LineNr">21382 </span><span class="Constant">$check-mu-compare-stmt:error-incorrect-inouts</span>: +<span id="L21383" class="LineNr">21383 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21384" class="LineNr">21384 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21385" class="LineNr">21385 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21386" class="LineNr">21386 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21387" class="LineNr">21387 </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="L21388" class="LineNr">21388 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21389" class="LineNr">21389 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21390" class="LineNr">21390 </span> <span class="subxComment"># never gets here</span> +<span id="L21391" class="LineNr">21391 </span> +<span id="L21392" class="LineNr">21392 </span><span class="Constant">$check-mu-compare-stmt:error-too-many-outputs</span>: +<span id="L21393" class="LineNr">21393 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21394" class="LineNr">21394 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21395" class="LineNr">21395 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21396" class="LineNr">21396 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21397" class="LineNr">21397 </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="L21398" class="LineNr">21398 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21399" class="LineNr">21399 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21400" class="LineNr">21400 </span> <span class="subxComment"># never gets here</span> +<span id="L21401" class="LineNr">21401 </span> +<span id="L21402" class="LineNr">21402 </span><span class="Constant">$check-mu-compare-stmt:error-both-in-memory</span>: +<span id="L21403" class="LineNr">21403 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21404" class="LineNr">21404 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21405" class="LineNr">21405 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21406" class="LineNr">21406 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21407" class="LineNr">21407 </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="L21408" class="LineNr">21408 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21409" class="LineNr">21409 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21410" class="LineNr">21410 </span> <span class="subxComment"># never gets here</span> +<span id="L21411" class="LineNr">21411 </span> +<span id="L21412" class="LineNr">21412 </span><span class="Constant">$check-mu-compare-stmt:error-left-too-large</span>: +<span id="L21413" class="LineNr">21413 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21414" class="LineNr">21414 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21415" class="LineNr">21415 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21416" class="LineNr">21416 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21417" class="LineNr">21417 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) +<span id="L21418" class="LineNr">21418 </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="L21419" class="LineNr">21419 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21420" class="LineNr">21420 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21421" class="LineNr">21421 </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="L21422" class="LineNr">21422 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21423" class="LineNr">21423 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21424" class="LineNr">21424 </span> <span class="subxComment"># never gets here</span> +<span id="L21425" class="LineNr">21425 </span> +<span id="L21426" class="LineNr">21426 </span><span class="Constant">$check-mu-compare-stmt:error-right-too-large</span>: +<span id="L21427" class="LineNr">21427 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21428" class="LineNr">21428 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21429" class="LineNr">21429 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21430" class="LineNr">21430 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21431" class="LineNr">21431 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) +<span id="L21432" class="LineNr">21432 </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="L21433" class="LineNr">21433 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21434" class="LineNr">21434 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21435" class="LineNr">21435 </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="L21436" class="LineNr">21436 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21437" class="LineNr">21437 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21438" class="LineNr">21438 </span> <span class="subxComment"># never gets here</span> +<span id="L21439" class="LineNr">21439 </span> +<span id="L21440" class="LineNr">21440 </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="L21441" class="LineNr">21441 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21442" class="LineNr">21442 </span> 55/push-ebp +<span id="L21443" class="LineNr">21443 </span> 89/<- %ebp 4/r32/esp +<span id="L21444" class="LineNr">21444 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21445" class="LineNr">21445 </span> 50/push-eax +<span id="L21446" class="LineNr">21446 </span> 51/push-ecx +<span id="L21447" class="LineNr">21447 </span> 52/push-edx +<span id="L21448" class="LineNr">21448 </span> 56/push-esi +<span id="L21449" class="LineNr">21449 </span> 57/push-edi +<span id="L21450" class="LineNr">21450 </span><span class="Constant">$check-mu-address-stmt:get-output</span>: +<span id="L21451" class="LineNr">21451 </span> <span class="subxComment"># esi = stmt</span> +<span id="L21452" class="LineNr">21452 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21453" class="LineNr">21453 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L21454" class="LineNr">21454 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L21455" class="LineNr">21455 </span> 89/<- %edi 0/r32/eax +<span id="L21456" class="LineNr">21456 </span> <span class="subxComment"># zero outputs</span> +<span id="L21457" class="LineNr">21457 </span> 3d/compare-eax-and 0/imm32 +<span id="L21458" class="LineNr">21458 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-output/disp32 +<span id="L21459" class="LineNr">21459 </span> <span class="subxComment"># > 1 output</span> +<span id="L21460" class="LineNr">21460 </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="L21461" class="LineNr">21461 </span> 3d/compare-eax-and 0/imm32 +<span id="L21462" class="LineNr">21462 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-outputs/disp32 +<span id="L21463" class="LineNr">21463 </span><span class="Constant">$check-mu-address-stmt:get-inout</span>: +<span id="L21464" class="LineNr">21464 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L21465" class="LineNr">21465 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L21466" class="LineNr">21466 </span> 89/<- %esi 0/r32/eax +<span id="L21467" class="LineNr">21467 </span> <span class="subxComment"># zero inouts</span> +<span id="L21468" class="LineNr">21468 </span> 3d/compare-eax-and 0/imm32 +<span id="L21469" class="LineNr">21469 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-inout/disp32 +<span id="L21470" class="LineNr">21470 </span> <span class="subxComment"># > 1 inout</span> +<span id="L21471" class="LineNr">21471 </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="L21472" class="LineNr">21472 </span> 3d/compare-eax-and 0/imm32 +<span id="L21473" class="LineNr">21473 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-inouts/disp32 +<span id="L21474" class="LineNr">21474 </span><span class="Constant">$check-mu-address-stmt:types</span>: +<span id="L21475" class="LineNr">21475 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L21476" class="LineNr">21476 </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="L21477" class="LineNr">21477 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L21478" class="LineNr">21478 </span> 3d/compare-eax-and 0/imm32 +<span id="L21479" class="LineNr">21479 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-in-register/disp32 +<span id="L21480" class="LineNr">21480 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> +<span id="L21481" class="LineNr">21481 </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="L21482" class="LineNr">21482 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21483" class="LineNr">21483 </span> 89/<- %edx 0/r32/eax +<span id="L21484" class="LineNr">21484 </span> <span class="subxComment"># if output-type not an addr, abort</span> +<span id="L21485" class="LineNr">21485 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %edx) <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> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-address/disp32 +<span id="L21488" class="LineNr">21488 </span> <span class="subxComment"># output-type = output-type->right</span> +<span id="L21489" class="LineNr">21489 </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="L21490" class="LineNr">21490 </span> <span class="subxComment"># if output-type->right is null, output-type = output-type->left</span> +<span id="L21491" class="LineNr">21491 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L21492" class="LineNr">21492 </span> { +<span id="L21493" class="LineNr">21493 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21494" class="LineNr">21494 </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="L21495" class="LineNr">21495 </span> } +<span id="L21496" class="LineNr">21496 </span> 89/<- %edx 0/r32/eax +<span id="L21497" class="LineNr">21497 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L21498" class="LineNr">21498 </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="L21499" class="LineNr">21499 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21500" class="LineNr">21500 </span> 89/<- %ecx 0/r32/eax +<span id="L21501" class="LineNr">21501 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L21502" class="LineNr">21502 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L21503" class="LineNr">21503 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21504" class="LineNr">21504 </span> { +<span id="L21505" class="LineNr">21505 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21506" class="LineNr">21506 </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="L21507" class="LineNr">21507 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L21508" class="LineNr">21508 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L21509" class="LineNr">21509 </span> { +<span id="L21510" class="LineNr">21510 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21511" class="LineNr">21511 </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="L21512" class="LineNr">21512 </span> } +<span id="L21513" class="LineNr">21513 </span> 89/<- %ecx 0/r32/eax +<span id="L21514" class="LineNr">21514 </span> } +<span id="L21515" class="LineNr">21515 </span> <span class="subxComment"># if (inout-type != output-type) abort</span> +<span id="L21516" class="LineNr">21516 </span> (<a href='mu.subx.html#L21617'>type-equal-ignoring-capacity?</a> %edx %ecx) <span class="subxComment"># => eax</span> +<span id="L21517" class="LineNr">21517 </span> 3d/compare-eax-and 0/imm32 +<span id="L21518" class="LineNr">21518 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-type-mismatch/disp32 +<span id="L21519" class="LineNr">21519 </span><span class="Constant">$check-mu-address-stmt:end</span>: +<span id="L21520" class="LineNr">21520 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21521" class="LineNr">21521 </span> 5f/pop-to-edi +<span id="L21522" class="LineNr">21522 </span> 5e/pop-to-esi +<span id="L21523" class="LineNr">21523 </span> 5a/pop-to-edx +<span id="L21524" class="LineNr">21524 </span> 59/pop-to-ecx +<span id="L21525" class="LineNr">21525 </span> 58/pop-to-eax +<span id="L21526" class="LineNr">21526 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21527" class="LineNr">21527 </span> 89/<- %esp 5/r32/ebp +<span id="L21528" class="LineNr">21528 </span> 5d/pop-to-ebp +<span id="L21529" class="LineNr">21529 </span> c3/return +<span id="L21530" class="LineNr">21530 </span> +<span id="L21531" class="LineNr">21531 </span><span class="Constant">$check-mu-address-stmt:error-no-inout</span>: +<span id="L21532" class="LineNr">21532 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21533" class="LineNr">21533 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21534" class="LineNr">21534 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21535" class="LineNr">21535 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21536" class="LineNr">21536 </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="L21537" class="LineNr">21537 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21538" class="LineNr">21538 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21539" class="LineNr">21539 </span> <span class="subxComment"># never gets here</span> +<span id="L21540" class="LineNr">21540 </span> +<span id="L21541" class="LineNr">21541 </span><span class="Constant">$check-mu-address-stmt:error-too-many-inouts</span>: +<span id="L21542" class="LineNr">21542 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21543" class="LineNr">21543 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21544" class="LineNr">21544 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21545" class="LineNr">21545 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21546" class="LineNr">21546 </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="L21547" class="LineNr">21547 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21548" class="LineNr">21548 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21549" class="LineNr">21549 </span> <span class="subxComment"># never gets here</span> +<span id="L21550" class="LineNr">21550 </span> +<span id="L21551" class="LineNr">21551 </span><span class="Constant">$check-mu-address-stmt:error-no-output</span>: +<span id="L21552" class="LineNr">21552 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21553" class="LineNr">21553 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21554" class="LineNr">21554 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21555" class="LineNr">21555 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21556" class="LineNr">21556 </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="L21557" class="LineNr">21557 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21558" class="LineNr">21558 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21559" class="LineNr">21559 </span> <span class="subxComment"># never gets here</span> +<span id="L21560" class="LineNr">21560 </span> +<span id="L21561" class="LineNr">21561 </span><span class="Constant">$check-mu-address-stmt:error-output-not-in-register</span>: +<span id="L21562" class="LineNr">21562 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21563" class="LineNr">21563 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21564" class="LineNr">21564 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21565" class="LineNr">21565 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21566" class="LineNr">21566 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) +<span id="L21567" class="LineNr">21567 </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="L21568" class="LineNr">21568 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21569" class="LineNr">21569 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21570" class="LineNr">21570 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) +<span id="L21571" class="LineNr">21571 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21572" class="LineNr">21572 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21573" class="LineNr">21573 </span> <span class="subxComment"># never gets here</span> +<span id="L21574" class="LineNr">21574 </span> +<span id="L21575" class="LineNr">21575 </span><span class="Constant">$check-mu-address-stmt:error-too-many-outputs</span>: +<span id="L21576" class="LineNr">21576 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21577" class="LineNr">21577 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21578" class="LineNr">21578 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21579" class="LineNr">21579 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21580" class="LineNr">21580 </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="L21581" class="LineNr">21581 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21582" class="LineNr">21582 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21583" class="LineNr">21583 </span> <span class="subxComment"># never gets here</span> +<span id="L21584" class="LineNr">21584 </span> +<span id="L21585" class="LineNr">21585 </span><span class="Constant">$check-mu-address-stmt:error-output-not-address</span>: +<span id="L21586" class="LineNr">21586 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21587" class="LineNr">21587 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21588" class="LineNr">21588 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21589" class="LineNr">21589 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21590" class="LineNr">21590 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) +<span id="L21591" class="LineNr">21591 </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="L21592" class="LineNr">21592 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21593" class="LineNr">21593 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21594" class="LineNr">21594 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an addr\n"</span>) +<span id="L21595" class="LineNr">21595 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21596" class="LineNr">21596 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21597" class="LineNr">21597 </span> <span class="subxComment"># never gets here</span> +<span id="L21598" class="LineNr">21598 </span> +<span id="L21599" class="LineNr">21599 </span><span class="Constant">$check-mu-address-stmt:error-type-mismatch</span>: +<span id="L21600" class="LineNr">21600 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21601" class="LineNr">21601 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21602" class="LineNr">21602 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21603" class="LineNr">21603 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21604" class="LineNr">21604 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) +<span id="L21605" class="LineNr">21605 </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="L21606" class="LineNr">21606 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21607" class="LineNr">21607 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21608" class="LineNr">21608 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot hold address of '"</span>) +<span id="L21609" class="LineNr">21609 </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="L21610" class="LineNr">21610 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21611" class="LineNr">21611 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21612" class="LineNr">21612 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L21613" class="LineNr">21613 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21614" class="LineNr">21614 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21615" class="LineNr">21615 </span> <span class="subxComment"># never gets here</span> +<span id="L21616" class="LineNr">21616 </span> +<span id="L21617" class="LineNr">21617 </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="L21618" class="LineNr">21618 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21619" class="LineNr">21619 </span> 55/push-ebp +<span id="L21620" class="LineNr">21620 </span> 89/<- %ebp 4/r32/esp +<span id="L21621" class="LineNr">21621 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21622" class="LineNr">21622 </span> 51/push-ecx +<span id="L21623" class="LineNr">21623 </span> 52/push-edx +<span id="L21624" class="LineNr">21624 </span> 53/push-ebx +<span id="L21625" class="LineNr">21625 </span> <span class="subxComment"># var curr-a/ecx: (addr type-tree) = a</span> +<span id="L21626" class="LineNr">21626 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L21627" class="LineNr">21627 </span> <span class="subxComment"># var curr-b/ebx: (addr type-tree) = b</span> +<span id="L21628" class="LineNr">21628 </span> 8b/-> *(ebp+0xc) 3/r32/ebx +<span id="L21629" class="LineNr">21629 </span> <span class="subxComment"># if (curr-a->is-atom?) fall back to regular equality</span> +<span id="L21630" class="LineNr">21630 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L21631" class="LineNr">21631 </span> 0f 85/jump-if-!= $type-equal-ignoring-capacity?:base-case/disp32 +<span id="L21632" class="LineNr">21632 </span> <span class="subxComment"># if (curr-a->left != curr-b->left) return false</span> +<span id="L21633" class="LineNr">21633 </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="L21634" class="LineNr">21634 </span> 89/<- %edx 0/r32/eax +<span id="L21635" class="LineNr">21635 </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="L21636" class="LineNr">21636 </span> (<a href='mu.subx.html#L25345'>type-equal?</a> %edx %eax) <span class="subxComment"># => eax</span> +<span id="L21637" class="LineNr">21637 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21638" class="LineNr">21638 </span> 0f 84/jump-if-= $type-equal-ignoring-capacity?:end/disp32 <span class="subxComment"># eax switches meaning</span> +<span id="L21639" class="LineNr">21639 </span> <span class="subxComment"># if (curr-a->left == "array") curr-a = curr-a->element-type</span> +<span id="L21640" class="LineNr">21640 </span> { +<span id="L21641" class="LineNr">21641 </span> (<a href='mu.subx.html#L25115'>is-mu-array?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L21642" class="LineNr">21642 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21643" class="LineNr">21643 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21644" class="LineNr">21644 </span><span class="Constant">$type-equal-ignoring-capacity?:array</span>: +<span id="L21645" class="LineNr">21645 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> +<span id="L21646" class="LineNr">21646 </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="L21647" class="LineNr">21647 </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="L21648" class="LineNr">21648 </span> 89/<- %ecx 0/r32/eax +<span id="L21649" class="LineNr">21649 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> +<span id="L21650" class="LineNr">21650 </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="L21651" class="LineNr">21651 </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="L21652" class="LineNr">21652 </span> 89/<- %ebx 0/r32/eax +<span id="L21653" class="LineNr">21653 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 +<span id="L21654" class="LineNr">21654 </span> } +<span id="L21655" class="LineNr">21655 </span> <span class="subxComment"># if (curr-a->left == "stream") curr-a = curr-a->element-type</span> +<span id="L21656" class="LineNr">21656 </span> { +<span id="L21657" class="LineNr">21657 </span> (<a href='mu.subx.html#L25180'>is-mu-stream?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L21658" class="LineNr">21658 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21659" class="LineNr">21659 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21660" class="LineNr">21660 </span><span class="Constant">$type-equal-ignoring-capacity?:stream</span>: +<span id="L21661" class="LineNr">21661 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> +<span id="L21662" class="LineNr">21662 </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="L21663" class="LineNr">21663 </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="L21664" class="LineNr">21664 </span> 89/<- %ecx 0/r32/eax +<span id="L21665" class="LineNr">21665 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> +<span id="L21666" class="LineNr">21666 </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="L21667" class="LineNr">21667 </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="L21668" class="LineNr">21668 </span> 89/<- %ebx 0/r32/eax +<span id="L21669" class="LineNr">21669 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 +<span id="L21670" class="LineNr">21670 </span> } +<span id="L21671" class="LineNr">21671 </span><span class="Constant">$type-equal-ignoring-capacity?:base-case</span>: +<span id="L21672" class="LineNr">21672 </span> <span class="subxComment"># return type-equal?(curr-a, curr-b)</span> +<span id="L21673" class="LineNr">21673 </span> (<a href='mu.subx.html#L25345'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> +<span id="L21674" class="LineNr">21674 </span><span class="Constant">$type-equal-ignoring-capacity?:end</span>: +<span id="L21675" class="LineNr">21675 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21676" class="LineNr">21676 </span> 5b/pop-to-ebx +<span id="L21677" class="LineNr">21677 </span> 5a/pop-to-edx +<span id="L21678" class="LineNr">21678 </span> 59/pop-to-ecx +<span id="L21679" class="LineNr">21679 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21680" class="LineNr">21680 </span> 89/<- %esp 5/r32/ebp +<span id="L21681" class="LineNr">21681 </span> 5d/pop-to-ebp +<span id="L21682" class="LineNr">21682 </span> c3/return +<span id="L21683" class="LineNr">21683 </span> +<span id="L21684" class="LineNr">21684 </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="L21685" class="LineNr">21685 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21686" class="LineNr">21686 </span> 55/push-ebp +<span id="L21687" class="LineNr">21687 </span> 89/<- %ebp 4/r32/esp +<span id="L21688" class="LineNr">21688 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21689" class="LineNr">21689 </span> 50/push-eax +<span id="L21690" class="LineNr">21690 </span> 51/push-ecx +<span id="L21691" class="LineNr">21691 </span> 52/push-edx +<span id="L21692" class="LineNr">21692 </span> 53/push-ebx +<span id="L21693" class="LineNr">21693 </span> 56/push-esi +<span id="L21694" class="LineNr">21694 </span> 57/push-edi +<span id="L21695" class="LineNr">21695 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L21696" class="LineNr">21696 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L21697" class="LineNr">21697 </span> 68/push 0x60/imm32/size +<span id="L21698" class="LineNr">21698 </span> 68/push 0/imm32/read +<span id="L21699" class="LineNr">21699 </span> 68/push 0/imm32/write +<span id="L21700" class="LineNr">21700 </span> 89/<- %edx 4/r32/esp +<span id="L21701" class="LineNr">21701 </span> <span class="subxComment"># var template/esi: (addr list var) = fn->outputs</span> +<span id="L21702" class="LineNr">21702 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21703" class="LineNr">21703 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L21704" class="LineNr">21704 </span> 89/<- %esi 0/r32/eax +<span id="L21705" class="LineNr">21705 </span> <span class="subxComment"># var curr-template/ebx: (addr list var) = fn->outputs</span> +<span id="L21706" class="LineNr">21706 </span> 89/<- %ebx 0/r32/eax +<span id="L21707" class="LineNr">21707 </span> <span class="subxComment"># var curr/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L21708" class="LineNr">21708 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21709" class="LineNr">21709 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L21710" class="LineNr">21710 </span> 89/<- %edi 0/r32/eax +<span id="L21711" class="LineNr">21711 </span> { +<span id="L21712" class="LineNr">21712 </span> <span class="subxComment"># if template is null, break</span> +<span id="L21713" class="LineNr">21713 </span> 81 7/subop/compare %ebx 0/imm32 +<span id="L21714" class="LineNr">21714 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21715" class="LineNr">21715 </span> <span class="subxComment"># if curr is null, abort</span> +<span id="L21716" class="LineNr">21716 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L21717" class="LineNr">21717 </span> 0f 84/jump-if-= $check-mu-return-stmt:error-too-few-inouts/disp32 +<span id="L21718" class="LineNr">21718 </span> <span class="subxComment"># var template-type/ecx: (addr type-tree) = template->value->type</span> +<span id="L21719" class="LineNr">21719 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L21720" class="LineNr">21720 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21721" class="LineNr">21721 </span> 89/<- %ecx 0/r32/eax +<span id="L21722" class="LineNr">21722 </span> <span class="subxComment"># var curr-type/eax: (addr type-tree) = curr->value->type</span> +<span id="L21723" class="LineNr">21723 </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="L21724" class="LineNr">21724 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21725" class="LineNr">21725 </span> <span class="subxComment"># if (curr->is-deref?) curr-type = payload of curr-type</span> +<span id="L21726" class="LineNr">21726 </span> 81 7/subop/compare *(edi+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L21727" class="LineNr">21727 </span> { +<span id="L21728" class="LineNr">21728 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21729" class="LineNr">21729 </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="L21730" class="LineNr">21730 </span> <span class="subxComment"># if t->right is null, t = t->left</span> +<span id="L21731" class="LineNr">21731 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L21732" class="LineNr">21732 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21733" class="LineNr">21733 </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="L21734" class="LineNr">21734 </span> } +<span id="L21735" class="LineNr">21735 </span> <span class="subxComment"># if (curr-type != template-type) abort</span> +<span id="L21736" class="LineNr">21736 </span> (<a href='mu.subx.html#L24859'>type-match?</a> %ecx %eax %edx) <span class="subxComment"># => eax</span> +<span id="L21737" class="LineNr">21737 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21738" class="LineNr">21738 </span> 0f 84/jump-if-= $check-mu-return-stmt:error1/disp32 +<span id="L21739" class="LineNr">21739 </span> <span class="subxComment"># if register-within-list-with-conflict?(curr, original template, curr-template, stmt) abort</span> +<span id="L21740" class="LineNr">21740 </span> (<a href='mu.subx.html#L21879'>register-within-list-with-conflict?</a> %edi %esi %ebx *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21741" class="LineNr">21741 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21742" class="LineNr">21742 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error2/disp32 +<span id="L21743" class="LineNr">21743 </span> <span class="subxComment"># template = template->next</span> +<span id="L21744" class="LineNr">21744 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L21745" class="LineNr">21745 </span> 89/<- %ebx 0/r32/eax +<span id="L21746" class="LineNr">21746 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L21747" class="LineNr">21747 </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="L21748" class="LineNr">21748 </span> 89/<- %edi 0/r32/eax +<span id="L21749" class="LineNr">21749 </span> <span class="subxComment">#</span> +<span id="L21750" class="LineNr">21750 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21751" class="LineNr">21751 </span> } +<span id="L21752" class="LineNr">21752 </span> <span class="subxComment"># if curr is not null, abort</span> +<span id="L21753" class="LineNr">21753 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L21754" class="LineNr">21754 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-too-many-inouts/disp32 +<span id="L21755" class="LineNr">21755 </span><span class="Constant">$check-mu-return-stmt:end</span>: +<span id="L21756" class="LineNr">21756 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L21757" class="LineNr">21757 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L21758" class="LineNr">21758 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21759" class="LineNr">21759 </span> 5f/pop-to-edi +<span id="L21760" class="LineNr">21760 </span> 5e/pop-to-esi +<span id="L21761" class="LineNr">21761 </span> 5b/pop-to-ebx +<span id="L21762" class="LineNr">21762 </span> 5a/pop-to-edx +<span id="L21763" class="LineNr">21763 </span> 59/pop-to-ecx +<span id="L21764" class="LineNr">21764 </span> 58/pop-to-eax +<span id="L21765" class="LineNr">21765 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21766" class="LineNr">21766 </span> 89/<- %esp 5/r32/ebp +<span id="L21767" class="LineNr">21767 </span> 5d/pop-to-ebp +<span id="L21768" class="LineNr">21768 </span> c3/return +<span id="L21769" class="LineNr">21769 </span> +<span id="L21770" class="LineNr">21770 </span><span class="Constant">$check-mu-return-stmt:error1</span>: +<span id="L21771" class="LineNr">21771 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21772" class="LineNr">21772 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21773" class="LineNr">21773 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21774" class="LineNr">21774 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21775" class="LineNr">21775 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) +<span id="L21776" class="LineNr">21776 </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="L21777" class="LineNr">21777 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21778" class="LineNr">21778 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21779" class="LineNr">21779 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has the wrong type\n"</span>) +<span id="L21780" class="LineNr">21780 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21781" class="LineNr">21781 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21782" class="LineNr">21782 </span> <span class="subxComment"># never gets here</span> +<span id="L21783" class="LineNr">21783 </span> +<span id="L21784" class="LineNr">21784 </span><span class="Constant">$check-mu-return-stmt:error2</span>: +<span id="L21785" class="LineNr">21785 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21786" class="LineNr">21786 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21787" class="LineNr">21787 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21788" class="LineNr">21788 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21789" class="LineNr">21789 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) +<span id="L21790" class="LineNr">21790 </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="L21791" class="LineNr">21791 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21792" class="LineNr">21792 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21793" class="LineNr">21793 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is no longer available\n"</span>) +<span id="L21794" class="LineNr">21794 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21795" class="LineNr">21795 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21796" class="LineNr">21796 </span> <span class="subxComment"># never gets here</span> +<span id="L21797" class="LineNr">21797 </span> +<span id="L21798" class="LineNr">21798 </span><span class="Constant">$check-mu-return-stmt:error-too-few-inouts</span>: +<span id="L21799" class="LineNr">21799 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21800" class="LineNr">21800 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21801" class="LineNr">21801 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21802" class="LineNr">21802 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21803" class="LineNr">21803 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too few inouts\n"</span>) +<span id="L21804" class="LineNr">21804 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21805" class="LineNr">21805 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21806" class="LineNr">21806 </span> <span class="subxComment"># never gets here</span> +<span id="L21807" class="LineNr">21807 </span> +<span id="L21808" class="LineNr">21808 </span><span class="Constant">$check-mu-return-stmt:error-too-many-inouts</span>: +<span id="L21809" class="LineNr">21809 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21810" class="LineNr">21810 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21811" class="LineNr">21811 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21812" class="LineNr">21812 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21813" class="LineNr">21813 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too many inouts\n"</span>) +<span id="L21814" class="LineNr">21814 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21815" class="LineNr">21815 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21816" class="LineNr">21816 </span> <span class="subxComment"># never gets here</span> +<span id="L21817" class="LineNr">21817 </span> +<span id="L21818" class="LineNr">21818 </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="L21819" class="LineNr">21819 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21820" class="LineNr">21820 </span> 55/push-ebp +<span id="L21821" class="LineNr">21821 </span> 89/<- %ebp 4/r32/esp +<span id="L21822" class="LineNr">21822 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21823" class="LineNr">21823 </span> 50/push-eax +<span id="L21824" class="LineNr">21824 </span> 51/push-ecx +<span id="L21825" class="LineNr">21825 </span> 56/push-esi +<span id="L21826" class="LineNr">21826 </span> <span class="subxComment"># var table/esi: (addr table (handle array byte) int 8)</span> +<span id="L21827" class="LineNr">21827 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L21828" class="LineNr">21828 </span> 68/push 0x60/imm32/size +<span id="L21829" class="LineNr">21829 </span> 68/push 0/imm32/read +<span id="L21830" class="LineNr">21830 </span> 68/push 0/imm32/write +<span id="L21831" class="LineNr">21831 </span> 89/<- %esi 4/r32/esp +<span id="L21832" class="LineNr">21832 </span> <span class="subxComment"># var curr/ecx: (addr list var) = outputs</span> +<span id="L21833" class="LineNr">21833 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L21834" class="LineNr">21834 </span> { +<span id="L21835" class="LineNr">21835 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L21836" class="LineNr">21836 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L21837" class="LineNr">21837 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21838" class="LineNr">21838 </span> <span class="subxComment"># var reg/eax: (addr array byte) = curr->value->register # guaranteed to exist</span> +<span id="L21839" class="LineNr">21839 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L21840" class="LineNr">21840 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L21841" class="LineNr">21841 </span> <span class="subxComment"># if reg exists in table, abort</span> +<span id="L21842" class="LineNr">21842 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> %esi %eax 0xc) <span class="subxComment"># => eax</span> +<span id="L21843" class="LineNr">21843 </span> 3d/compare-eax-and 0/imm32 +<span id="L21844" class="LineNr">21844 </span> 0f 85/jump-if-!= $check-all-unique-registers:abort/disp32 +<span id="L21845" class="LineNr">21845 </span> <span class="subxComment"># insert reg in table</span> +<span id="L21846" class="LineNr">21846 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L21847" class="LineNr">21847 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L21848" class="LineNr">21848 </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="L21849" class="LineNr">21849 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L21850" class="LineNr">21850 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L21851" class="LineNr">21851 </span> 89/<- %ecx 0/r32/eax +<span id="L21852" class="LineNr">21852 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21853" class="LineNr">21853 </span> } +<span id="L21854" class="LineNr">21854 </span><span class="Constant">$check-all-unique-registers:end</span>: +<span id="L21855" class="LineNr">21855 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L21856" class="LineNr">21856 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L21857" class="LineNr">21857 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21858" class="LineNr">21858 </span> 5e/pop-to-esi +<span id="L21859" class="LineNr">21859 </span> 59/pop-to-ecx +<span id="L21860" class="LineNr">21860 </span> 58/pop-to-eax +<span id="L21861" class="LineNr">21861 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21862" class="LineNr">21862 </span> 89/<- %esp 5/r32/ebp +<span id="L21863" class="LineNr">21863 </span> 5d/pop-to-ebp +<span id="L21864" class="LineNr">21864 </span> c3/return +<span id="L21865" class="LineNr">21865 </span> +<span id="L21866" class="LineNr">21866 </span><span class="Constant">$check-all-unique-registers:abort</span>: +<span id="L21867" class="LineNr">21867 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21868" class="LineNr">21868 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21869" class="LineNr">21869 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21870" class="LineNr">21870 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21871" class="LineNr">21871 </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="L21872" class="LineNr">21872 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21873" class="LineNr">21873 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21874" class="LineNr">21874 </span> <span class="subxComment"># never gets here</span> +<span id="L21875" class="LineNr">21875 </span> +<span id="L21876" class="LineNr">21876 </span><span class="subxComment"># return false if s's register is not between start (inclusive) and end (exclusive)</span> +<span id="L21877" class="LineNr">21877 </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="L21878" class="LineNr">21878 </span><span class="subxComment"># otherwise return true</span> +<span id="L21879" class="LineNr">21879 </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="L21880" class="LineNr">21880 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21881" class="LineNr">21881 </span> 55/push-ebp +<span id="L21882" class="LineNr">21882 </span> 89/<- %ebp 4/r32/esp +<span id="L21883" class="LineNr">21883 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21884" class="LineNr">21884 </span> 51/push-ecx +<span id="L21885" class="LineNr">21885 </span> 52/push-edx +<span id="L21886" class="LineNr">21886 </span> 53/push-ebx +<span id="L21887" class="LineNr">21887 </span> 56/push-esi +<span id="L21888" class="LineNr">21888 </span> 57/push-edi +<span id="L21889" class="LineNr">21889 </span> <span class="subxComment"># var target/ebx: (addr array byte) = s->value->register</span> +<span id="L21890" class="LineNr">21890 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21891" class="LineNr">21891 </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="L21892" class="LineNr">21892 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L21893" class="LineNr">21893 </span><span class="CommentedCode">#? (write-buffered Stderr "AA: ")</span> +<span id="L21894" class="LineNr">21894 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L21895" class="LineNr">21895 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L21896" class="LineNr">21896 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21897" class="LineNr">21897 </span> <span class="subxComment"># if (var->register == 0) return false</span> +<span id="L21898" class="LineNr">21898 </span> 3d/compare-eax-and 0/imm32 +<span id="L21899" class="LineNr">21899 </span> 0f 84/jump-if-= $register-within-list-with-conflict?:end/disp32 <span class="subxComment"># eax turns into result</span> +<span id="L21900" class="LineNr">21900 </span> 89/<- %ebx 0/r32/eax +<span id="L21901" class="LineNr">21901 </span> <span class="subxComment"># var curr/ecx: (addr list var) = start</span> +<span id="L21902" class="LineNr">21902 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L21903" class="LineNr">21903 </span> <span class="subxComment"># edx = end</span> +<span id="L21904" class="LineNr">21904 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L21905" class="LineNr">21905 </span> { +<span id="L21906" class="LineNr">21906 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L21907" class="LineNr">21907 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L21908" class="LineNr">21908 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21909" class="LineNr">21909 </span> <span class="subxComment"># if (curr == end) break</span> +<span id="L21910" class="LineNr">21910 </span> 39/compare %ecx 2/r32/edx +<span id="L21911" class="LineNr">21911 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21912" class="LineNr">21912 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr->value->register</span> +<span id="L21913" class="LineNr">21913 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L21914" class="LineNr">21914 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L21915" class="LineNr">21915 </span> <span class="subxComment"># if (curr-reg == 0) continue</span> +<span id="L21916" class="LineNr">21916 </span> 3d/compare-eax-and 0/imm32 +<span id="L21917" class="LineNr">21917 </span> 74/jump-if-= $register-within-list-with-conflict?:continue/disp8 +<span id="L21918" class="LineNr">21918 </span> <span class="subxComment"># if (curr-reg == target) check for conflict</span> +<span id="L21919" class="LineNr">21919 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L21920" class="LineNr">21920 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21921" class="LineNr">21921 </span> { +<span id="L21922" class="LineNr">21922 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21923" class="LineNr">21923 </span><span class="CommentedCode">#? (write-buffered Stderr "conflict?\n")</span> +<span id="L21924" class="LineNr">21924 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21925" class="LineNr">21925 </span> <span class="subxComment"># var return-inouts/eax: (addr stmt-var) = stmt->inouts</span> +<span id="L21926" class="LineNr">21926 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L21927" class="LineNr">21927 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L21928" class="LineNr">21928 </span> (<a href='mu.subx.html#L21955'>register-conflict?</a> %ebx %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L21929" class="LineNr">21929 </span> eb/jump $register-within-list-with-conflict?:end/disp8 +<span id="L21930" class="LineNr">21930 </span> } +<span id="L21931" class="LineNr">21931 </span><span class="Constant">$register-within-list-with-conflict?:continue</span>: +<span id="L21932" class="LineNr">21932 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L21933" class="LineNr">21933 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L21934" class="LineNr">21934 </span> 89/<- %ecx 0/r32/eax +<span id="L21935" class="LineNr">21935 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21936" class="LineNr">21936 </span> } +<span id="L21937" class="LineNr">21937 </span> <span class="subxComment"># return false</span> +<span id="L21938" class="LineNr">21938 </span> b8/copy-to-eax 0/imm32/false +<span id="L21939" class="LineNr">21939 </span><span class="Constant">$register-within-list-with-conflict?:end</span>: +<span id="L21940" class="LineNr">21940 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21941" class="LineNr">21941 </span> 5f/pop-to-edi +<span id="L21942" class="LineNr">21942 </span> 5e/pop-to-esi +<span id="L21943" class="LineNr">21943 </span> 5b/pop-to-ebx +<span id="L21944" class="LineNr">21944 </span> 5a/pop-to-edx +<span id="L21945" class="LineNr">21945 </span> 59/pop-to-ecx +<span id="L21946" class="LineNr">21946 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21947" class="LineNr">21947 </span> 89/<- %esp 5/r32/ebp +<span id="L21948" class="LineNr">21948 </span> 5d/pop-to-ebp +<span id="L21949" class="LineNr">21949 </span> c3/return +<span id="L21950" class="LineNr">21950 </span> +<span id="L21951" class="LineNr">21951 </span><span class="subxComment"># At the first occurrence of register 'reg' in fn-outputs,</span> +<span id="L21952" class="LineNr">21952 </span><span class="subxComment"># check if the corresponding element of return-inouts has a different register.</span> +<span id="L21953" class="LineNr">21953 </span><span class="subxComment"># This hacky helper is intended to be called in one specific place. Don't</span> +<span id="L21954" class="LineNr">21954 </span><span class="subxComment"># reuse it as is.</span> +<span id="L21955" class="LineNr">21955 </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="L21956" class="LineNr">21956 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21957" class="LineNr">21957 </span> 55/push-ebp +<span id="L21958" class="LineNr">21958 </span> 89/<- %ebp 4/r32/esp +<span id="L21959" class="LineNr">21959 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21960" class="LineNr">21960 </span> 51/push-ecx +<span id="L21961" class="LineNr">21961 </span> 52/push-edx +<span id="L21962" class="LineNr">21962 </span> 53/push-ebx +<span id="L21963" class="LineNr">21963 </span> 56/push-esi +<span id="L21964" class="LineNr">21964 </span> 57/push-edi +<span id="L21965" class="LineNr">21965 </span><span class="CommentedCode">#? (write-buffered Stderr "BB: ")</span> +<span id="L21966" class="LineNr">21966 </span><span class="CommentedCode">#? (write-buffered Stderr *(ebp+8))</span> +<span id="L21967" class="LineNr">21967 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L21968" class="LineNr">21968 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21969" class="LineNr">21969 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn-outputs</span> +<span id="L21970" class="LineNr">21970 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L21971" class="LineNr">21971 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-inouts</span> +<span id="L21972" class="LineNr">21972 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L21973" class="LineNr">21973 </span> { +<span id="L21974" class="LineNr">21974 </span> <span class="subxComment"># if (curr-output == 0) abort</span> +<span id="L21975" class="LineNr">21975 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L21976" class="LineNr">21976 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21977" class="LineNr">21977 </span> <span class="subxComment"># if (curr-output->value->register != reg) continue</span> +<span id="L21978" class="LineNr">21978 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L21979" class="LineNr">21979 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L21980" class="LineNr">21980 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21981" class="LineNr">21981 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21982" class="LineNr">21982 </span> 0f 84/jump-if= $register-conflict?:continue/disp32 +<span id="L21983" class="LineNr">21983 </span><span class="CommentedCode">#? (write-buffered Stderr "rescan\n")</span> +<span id="L21984" class="LineNr">21984 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21985" class="LineNr">21985 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr-inout->value->register</span> +<span id="L21986" class="LineNr">21986 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L21987" class="LineNr">21987 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L21988" class="LineNr">21988 </span> <span class="subxComment"># if (curr-reg == 0) return true</span> +<span id="L21989" class="LineNr">21989 </span> 3d/compare-eax-and 0/imm32 +<span id="L21990" class="LineNr">21990 </span> { +<span id="L21991" class="LineNr">21991 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21992" class="LineNr">21992 </span><span class="CommentedCode">#? (write-buffered Stderr "no register\n")</span> +<span id="L21993" class="LineNr">21993 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21994" class="LineNr">21994 </span> b8/copy-to-eax 1/imm32/true +<span id="L21995" class="LineNr">21995 </span> e9/jump $register-conflict?:end/disp32 +<span id="L21996" class="LineNr">21996 </span> } +<span id="L21997" class="LineNr">21997 </span> <span class="subxComment"># return (curr-reg != reg)</span> +<span id="L21998" class="LineNr">21998 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21999" class="LineNr">21999 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22000" class="LineNr">22000 </span> 0f 94/set-if-= %al +<span id="L22001" class="LineNr">22001 </span><span class="CommentedCode">#? (write-buffered Stderr "final: ")</span> +<span id="L22002" class="LineNr">22002 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L22003" class="LineNr">22003 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L22004" class="LineNr">22004 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L22005" class="LineNr">22005 </span> eb/jump $register-conflict?:end/disp8 +<span id="L22006" class="LineNr">22006 </span><span class="Constant">$register-conflict?:continue</span>: +<span id="L22007" class="LineNr">22007 </span> <span class="subxComment"># curr-output = curr-output->next</span> +<span id="L22008" class="LineNr">22008 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L22009" class="LineNr">22009 </span> 89/<- %edi 0/r32/eax +<span id="L22010" class="LineNr">22010 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> +<span id="L22011" class="LineNr">22011 </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="L22012" class="LineNr">22012 </span> 89/<- %esi 0/r32/eax +<span id="L22013" class="LineNr">22013 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L22014" class="LineNr">22014 </span> } +<span id="L22015" class="LineNr">22015 </span> <span class="subxComment"># should never get here</span> +<span id="L22016" class="LineNr">22016 </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="L22017" class="LineNr">22017 </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="L22018" class="LineNr">22018 </span> e8/call syscall_exit/disp32 +<span id="L22019" class="LineNr">22019 </span><span class="Constant">$register-conflict?:end</span>: +<span id="L22020" class="LineNr">22020 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22021" class="LineNr">22021 </span> 5f/pop-to-edi +<span id="L22022" class="LineNr">22022 </span> 5e/pop-to-esi +<span id="L22023" class="LineNr">22023 </span> 5b/pop-to-ebx +<span id="L22024" class="LineNr">22024 </span> 5a/pop-to-edx +<span id="L22025" class="LineNr">22025 </span> 59/pop-to-ecx +<span id="L22026" class="LineNr">22026 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22027" class="LineNr">22027 </span> 89/<- %esp 5/r32/ebp +<span id="L22028" class="LineNr">22028 </span> 5d/pop-to-ebp +<span id="L22029" class="LineNr">22029 </span> c3/return +<span id="L22030" class="LineNr">22030 </span> +<span id="L22031" class="LineNr">22031 </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="L22032" class="LineNr">22032 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22033" class="LineNr">22033 </span> 55/push-ebp +<span id="L22034" class="LineNr">22034 </span> 89/<- %ebp 4/r32/esp +<span id="L22035" class="LineNr">22035 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22036" class="LineNr">22036 </span> 50/push-eax +<span id="L22037" class="LineNr">22037 </span> 51/push-ecx +<span id="L22038" class="LineNr">22038 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> +<span id="L22039" class="LineNr">22039 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L22040" class="LineNr">22040 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L22041" class="LineNr">22041 </span> 3d/compare-eax-and 0/imm32 +<span id="L22042" class="LineNr">22042 </span> 74/jump-if-= $check-final-stmt-is-return:end/disp8 +<span id="L22043" class="LineNr">22043 </span> 89/<- %ecx 0/r32/eax +<span id="L22044" class="LineNr">22044 </span> { +<span id="L22045" class="LineNr">22045 </span> <span class="subxComment"># if curr->next == 0, break</span> +<span id="L22046" class="LineNr">22046 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L22047" class="LineNr">22047 </span> 3d/compare-eax-and 0/imm32 +<span id="L22048" class="LineNr">22048 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22049" class="LineNr">22049 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L22050" class="LineNr">22050 </span> 89/<- %ecx 0/r32/eax +<span id="L22051" class="LineNr">22051 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L22052" class="LineNr">22052 </span> } +<span id="L22053" class="LineNr">22053 </span><span class="Constant">$check-final-stmt-is-return:check-tag</span>: +<span id="L22054" class="LineNr">22054 </span> <span class="subxComment"># if curr->value->tag != Stmt1, abort</span> +<span id="L22055" class="LineNr">22055 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L22056" class="LineNr">22056 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L22057" class="LineNr">22057 </span> 75/jump-if-!= $check-final-stmt-is-return:<a href='../114error.subx.html#L9'>error</a>/disp8 +<span id="L22058" class="LineNr">22058 </span><span class="Constant">$check-final-stmt-is-return:check-operation</span>: +<span id="L22059" class="LineNr">22059 </span> <span class="subxComment"># if curr->operation != "return", abort</span> +<span id="L22060" class="LineNr">22060 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L22061" class="LineNr">22061 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"return"</span>) +<span id="L22062" class="LineNr">22062 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22063" class="LineNr">22063 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='../114error.subx.html#L9'>error</a>/disp8 +<span id="L22064" class="LineNr">22064 </span><span class="Constant">$check-final-stmt-is-return:end</span>: +<span id="L22065" class="LineNr">22065 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22066" class="LineNr">22066 </span> 59/pop-to-ecx +<span id="L22067" class="LineNr">22067 </span> 58/pop-to-eax +<span id="L22068" class="LineNr">22068 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22069" class="LineNr">22069 </span> 89/<- %esp 5/r32/ebp +<span id="L22070" class="LineNr">22070 </span> 5d/pop-to-ebp +<span id="L22071" class="LineNr">22071 </span> c3/return +<span id="L22072" class="LineNr">22072 </span> +<span id="L22073" class="LineNr">22073 </span><span class="Constant">$check-final-stmt-is-return:<a href='../114error.subx.html#L9'>error</a></span>: +<span id="L22074" class="LineNr">22074 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22075" class="LineNr">22075 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22076" class="LineNr">22076 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22077" class="LineNr">22077 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22078" class="LineNr">22078 </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="L22079" class="LineNr">22079 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22080" class="LineNr">22080 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22081" class="LineNr">22081 </span> <span class="subxComment"># never gets here</span> +<span id="L22082" class="LineNr">22082 </span> +<span id="L22083" class="LineNr">22083 </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="L22084" class="LineNr">22084 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22085" class="LineNr">22085 </span> 55/push-ebp +<span id="L22086" class="LineNr">22086 </span> 89/<- %ebp 4/r32/esp +<span id="L22087" class="LineNr">22087 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22088" class="LineNr">22088 </span> 50/push-eax +<span id="L22089" class="LineNr">22089 </span> 51/push-ecx +<span id="L22090" class="LineNr">22090 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> +<span id="L22091" class="LineNr">22091 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L22092" class="LineNr">22092 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L22093" class="LineNr">22093 </span> 3d/compare-eax-and 0/imm32 +<span id="L22094" class="LineNr">22094 </span> 0f 84/jump-if-= $check-no-breaks:end/disp32 +<span id="L22095" class="LineNr">22095 </span> 89/<- %ecx 0/r32/eax +<span id="L22096" class="LineNr">22096 </span> { +<span id="L22097" class="LineNr">22097 </span> <span class="subxComment"># if curr->next == 0, break</span> +<span id="L22098" class="LineNr">22098 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L22099" class="LineNr">22099 </span> 3d/compare-eax-and 0/imm32 +<span id="L22100" class="LineNr">22100 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22101" class="LineNr">22101 </span> <span class="subxComment"># if curr->value->tag != Stmt1, continue</span> +<span id="L22102" class="LineNr">22102 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L22103" class="LineNr">22103 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L22104" class="LineNr">22104 </span> 75/jump-if-!= $check-no-breaks:continue/disp8 +<span id="L22105" class="LineNr">22105 </span> <span class="subxComment"># if curr->value->operation starts with "break", abort</span> +<span id="L22106" class="LineNr">22106 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L22107" class="LineNr">22107 </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="L22108" class="LineNr">22108 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22109" class="LineNr">22109 </span> 75/jump-if-!= $check-no-breaks:<a href='../114error.subx.html#L9'>error</a>/disp8 +<span id="L22110" class="LineNr">22110 </span><span class="Constant">$check-no-breaks:continue</span>: +<span id="L22111" class="LineNr">22111 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L22112" class="LineNr">22112 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L22113" class="LineNr">22113 </span> 89/<- %ecx 0/r32/eax +<span id="L22114" class="LineNr">22114 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L22115" class="LineNr">22115 </span> } +<span id="L22116" class="LineNr">22116 </span><span class="Constant">$check-no-breaks:end</span>: +<span id="L22117" class="LineNr">22117 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22118" class="LineNr">22118 </span> 59/pop-to-ecx +<span id="L22119" class="LineNr">22119 </span> 58/pop-to-eax +<span id="L22120" class="LineNr">22120 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22121" class="LineNr">22121 </span> 89/<- %esp 5/r32/ebp +<span id="L22122" class="LineNr">22122 </span> 5d/pop-to-ebp +<span id="L22123" class="LineNr">22123 </span> c3/return +<span id="L22124" class="LineNr">22124 </span> +<span id="L22125" class="LineNr">22125 </span><span class="Constant">$check-no-breaks:<a href='../114error.subx.html#L9'>error</a></span>: +<span id="L22126" class="LineNr">22126 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22127" class="LineNr">22127 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22128" class="LineNr">22128 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22129" class="LineNr">22129 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22130" class="LineNr">22130 </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="L22131" class="LineNr">22131 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22132" class="LineNr">22132 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22133" class="LineNr">22133 </span> <span class="subxComment"># never gets here</span> +<span id="L22134" class="LineNr">22134 </span> +<span id="L22135" class="LineNr">22135 </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="L22136" class="LineNr">22136 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22137" class="LineNr">22137 </span> 55/push-ebp +<span id="L22138" class="LineNr">22138 </span> 89/<- %ebp 4/r32/esp +<span id="L22139" class="LineNr">22139 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22140" class="LineNr">22140 </span> 50/push-eax +<span id="L22141" class="LineNr">22141 </span> 51/push-ecx +<span id="L22142" class="LineNr">22142 </span> 52/push-edx +<span id="L22143" class="LineNr">22143 </span> 53/push-ebx +<span id="L22144" class="LineNr">22144 </span> 56/push-esi +<span id="L22145" class="LineNr">22145 </span> 57/push-edi +<span id="L22146" class="LineNr">22146 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22147" class="LineNr">22147 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22148" class="LineNr">22148 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L22149" class="LineNr">22149 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L22150" class="LineNr">22150 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22151" class="LineNr">22151 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22152" class="LineNr">22152 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 +<span id="L22153" class="LineNr">22153 </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="L22154" class="LineNr">22154 </span> 89/<- %ecx 0/r32/eax +<span id="L22155" class="LineNr">22155 </span><span class="Constant">$check-mu-get-stmt:check-base</span>: +<span id="L22156" class="LineNr">22156 </span> <span class="subxH1Comment"># - check base type</span> +<span id="L22157" class="LineNr">22157 </span> <span class="subxComment"># if it's an 'addr', check that it's in a register</span> +<span id="L22158" class="LineNr">22158 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L22159" class="LineNr">22159 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22160" class="LineNr">22160 </span> 89/<- %ebx 0/r32/eax +<span id="L22161" class="LineNr">22161 </span> { +<span id="L22162" class="LineNr">22162 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L22163" class="LineNr">22163 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L22164" class="LineNr">22164 </span><span class="Constant">$check-mu-get-stmt:base-is-compound</span>: +<span id="L22165" class="LineNr">22165 </span> <span class="subxComment"># if (type->left != addr) break</span> +<span id="L22166" class="LineNr">22166 </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="L22167" class="LineNr">22167 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L22168" class="LineNr">22168 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22169" class="LineNr">22169 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22170" class="LineNr">22170 </span><span class="Constant">$check-mu-get-stmt:base-is-addr</span>: +<span id="L22171" class="LineNr">22171 </span> <span class="subxComment"># now check for register</span> +<span id="L22172" class="LineNr">22172 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L22173" class="LineNr">22173 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-base-type-addr-but-not-register/disp32 +<span id="L22174" class="LineNr">22174 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-in-register</span>: +<span id="L22175" class="LineNr">22175 </span> <span class="subxComment"># type->left is now an addr; skip it</span> +<span id="L22176" class="LineNr">22176 </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="L22177" class="LineNr">22177 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22178" class="LineNr">22178 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-bad-base/disp32 +<span id="L22179" class="LineNr">22179 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-to-atom-in-register</span>: +<span id="L22180" class="LineNr">22180 </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="L22181" class="LineNr">22181 </span> 89/<- %ebx 0/r32/eax +<span id="L22182" class="LineNr">22182 </span> } +<span id="L22183" class="LineNr">22183 </span><span class="Constant">$check-mu-get-stmt:check-base-typeinfo</span>: +<span id="L22184" class="LineNr">22184 </span> <span class="subxComment"># ensure type is a container</span> +<span id="L22185" class="LineNr">22185 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L22186" class="LineNr">22186 </span> { +<span id="L22187" class="LineNr">22187 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22188" class="LineNr">22188 </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="L22189" class="LineNr">22189 </span> 89/<- %ebx 0/r32/eax +<span id="L22190" class="LineNr">22190 </span> } +<span id="L22191" class="LineNr">22191 </span> <span class="subxComment"># var base-type-id/ebx: type-id = base-type->value</span> +<span id="L22192" class="LineNr">22192 </span> 8b/-> *(ebx+4) 3/r32/ebx <span class="subxComment"># Type-tree-value</span> +<span id="L22193" class="LineNr">22193 </span> (<a href='mu.subx.html#L19140'>is-container?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L22194" class="LineNr">22194 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22195" class="LineNr">22195 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-base/disp32 +<span id="L22196" class="LineNr">22196 </span> <span class="subxComment"># var base-typeinfo/edx: (addr typeinfo) = find-typeinfo(base-type-id)</span> +<span id="L22197" class="LineNr">22197 </span> <span class="subxS1Comment"># . var container/ecx: (handle typeinfo)</span> +<span id="L22198" class="LineNr">22198 </span> 68/push 0/imm32 +<span id="L22199" class="LineNr">22199 </span> 68/push 0/imm32 +<span id="L22200" class="LineNr">22200 </span> 89/<- %ecx 4/r32/esp +<span id="L22201" class="LineNr">22201 </span> <span class="subxS1Comment"># .</span> +<span id="L22202" class="LineNr">22202 </span> (<a href='mu.subx.html#L19223'>find-typeinfo</a> %ebx %ecx) +<span id="L22203" class="LineNr">22203 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L22204" class="LineNr">22204 </span> <span class="subxS1Comment"># . reclaim container</span> +<span id="L22205" class="LineNr">22205 </span> 81 0/subop/add %esp 8/imm32 +<span id="L22206" class="LineNr">22206 </span> <span class="subxS1Comment"># .</span> +<span id="L22207" class="LineNr">22207 </span> 89/<- %edx 0/r32/eax +<span id="L22208" class="LineNr">22208 </span> <span class="subxComment"># var offset/ecx: (addr stmt-var) = stmt->inouts->next</span> +<span id="L22209" class="LineNr">22209 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22210" class="LineNr">22210 </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="L22211" class="LineNr">22211 </span> 89/<- %ecx 0/r32/eax +<span id="L22212" class="LineNr">22212 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L22213" class="LineNr">22213 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22214" class="LineNr">22214 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 +<span id="L22215" class="LineNr">22215 </span> <span class="subxComment"># var offset/ecx: (addr var) = lookup(offset->value)</span> +<span id="L22216" class="LineNr">22216 </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="L22217" class="LineNr">22217 </span> 89/<- %ecx 0/r32/eax +<span id="L22218" class="LineNr">22218 </span> <span class="subxH1Comment"># - check for valid field</span> +<span id="L22219" class="LineNr">22219 </span> 81 7/subop/compare *(ecx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> +<span id="L22220" class="LineNr">22220 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-field/disp32 +<span id="L22221" class="LineNr">22221 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L22222" class="LineNr">22222 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22223" class="LineNr">22223 </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="L22224" class="LineNr">22224 </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="L22225" class="LineNr">22225 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22226" class="LineNr">22226 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-inouts/disp32 +<span id="L22227" class="LineNr">22227 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L22228" class="LineNr">22228 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22229" class="LineNr">22229 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L22230" class="LineNr">22230 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22231" class="LineNr">22231 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-outputs/disp32 +<span id="L22232" class="LineNr">22232 </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="L22233" class="LineNr">22233 </span> 89/<- %edi 0/r32/eax +<span id="L22234" class="LineNr">22234 </span><span class="Constant">$check-mu-get-stmt:check-output-type</span>: +<span id="L22235" class="LineNr">22235 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L22236" class="LineNr">22236 </span> <span class="subxComment"># must be in register</span> +<span id="L22237" class="LineNr">22237 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22238" class="LineNr">22238 </span> 3d/compare-eax-and 0/imm32 +<span id="L22239" class="LineNr">22239 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-not-in-register/disp32 +<span id="L22240" class="LineNr">22240 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L22241" class="LineNr">22241 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22242" class="LineNr">22242 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L22243" class="LineNr">22243 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-output-type-not-address/disp32 +<span id="L22244" class="LineNr">22244 </span> <span class="subxComment"># type must start with (addr ...)</span> +<span id="L22245" class="LineNr">22245 </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="L22246" class="LineNr">22246 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># => eax</span> +<span id="L22247" class="LineNr">22247 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22248" class="LineNr">22248 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-type-not-address/disp32 +<span id="L22249" class="LineNr">22249 </span><span class="Constant">$check-mu-get-stmt:check-output-type-match</span>: +<span id="L22250" class="LineNr">22250 </span> <span class="subxComment"># payload of addr type must match 'type' definition</span> +<span id="L22251" class="LineNr">22251 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22252" class="LineNr">22252 </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="L22253" class="LineNr">22253 </span> <span class="subxComment"># if (payload->right == null) payload = payload->left</span> +<span id="L22254" class="LineNr">22254 </span> 81 7/subop/compare *(eax+0xc) 0/imm32/null <span class="subxComment"># Type-tree-right</span> +<span id="L22255" class="LineNr">22255 </span> { +<span id="L22256" class="LineNr">22256 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22257" class="LineNr">22257 </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="L22258" class="LineNr">22258 </span> } +<span id="L22259" class="LineNr">22259 </span> 89/<- %edi 0/r32/eax +<span id="L22260" class="LineNr">22260 </span> <span class="subxS1Comment"># . var output-name/ecx: (addr array byte)</span> +<span id="L22261" class="LineNr">22261 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22262" class="LineNr">22262 </span> 89/<- %ecx 0/r32/eax +<span id="L22263" class="LineNr">22263 </span> <span class="subxS1Comment"># . var base-typeinfo-entry/eax: (addr handle typeinfo-entry)</span> +<span id="L22264" class="LineNr">22264 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L22265" class="LineNr">22265 </span> (<a href='../131table.subx.html#L26'>get</a> %eax %ecx 0x10) <span class="subxComment"># => eax</span> +<span id="L22266" class="LineNr">22266 </span> <span class="subxS1Comment"># .</span> +<span id="L22267" class="LineNr">22267 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L22268" class="LineNr">22268 </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="L22269" class="LineNr">22269 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22270" class="LineNr">22270 </span> <span class="subxS1Comment"># .</span> +<span id="L22271" class="LineNr">22271 </span> (<a href='mu.subx.html#L25345'>type-equal?</a> %edi %eax) <span class="subxComment"># => eax</span> +<span id="L22272" class="LineNr">22272 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22273" class="LineNr">22273 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-output-type/disp32 +<span id="L22274" class="LineNr">22274 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L22275" class="LineNr">22275 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22276" class="LineNr">22276 </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="L22277" class="LineNr">22277 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22278" class="LineNr">22278 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-outputs/disp32 +<span id="L22279" class="LineNr">22279 </span><span class="Constant">$check-mu-get-stmt:end</span>: +<span id="L22280" class="LineNr">22280 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22281" class="LineNr">22281 </span> 5f/pop-to-edi +<span id="L22282" class="LineNr">22282 </span> 5e/pop-to-esi +<span id="L22283" class="LineNr">22283 </span> 5b/pop-to-ebx +<span id="L22284" class="LineNr">22284 </span> 5a/pop-to-edx +<span id="L22285" class="LineNr">22285 </span> 59/pop-to-ecx +<span id="L22286" class="LineNr">22286 </span> 58/pop-to-eax +<span id="L22287" class="LineNr">22287 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22288" class="LineNr">22288 </span> 89/<- %esp 5/r32/ebp +<span id="L22289" class="LineNr">22289 </span> 5d/pop-to-ebp +<span id="L22290" class="LineNr">22290 </span> c3/return +<span id="L22291" class="LineNr">22291 </span> +<span id="L22292" class="LineNr">22292 </span><span class="Constant">$check-mu-get-stmt:error-too-few-inouts</span>: +<span id="L22293" class="LineNr">22293 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22294" class="LineNr">22294 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22295" class="LineNr">22295 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22296" class="LineNr">22296 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22297" class="LineNr">22297 </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="L22298" class="LineNr">22298 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22299" class="LineNr">22299 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22300" class="LineNr">22300 </span> <span class="subxComment"># never gets here</span> +<span id="L22301" class="LineNr">22301 </span> +<span id="L22302" class="LineNr">22302 </span><span class="Constant">$check-mu-get-stmt:error-too-many-inouts</span>: +<span id="L22303" class="LineNr">22303 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22304" class="LineNr">22304 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22305" class="LineNr">22305 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22306" class="LineNr">22306 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22307" class="LineNr">22307 </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="L22308" class="LineNr">22308 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22309" class="LineNr">22309 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22310" class="LineNr">22310 </span> <span class="subxComment"># never gets here</span> +<span id="L22311" class="LineNr">22311 </span> +<span id="L22312" class="LineNr">22312 </span><span class="Constant">$check-mu-get-stmt:error-too-few-outputs</span>: +<span id="L22313" class="LineNr">22313 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22314" class="LineNr">22314 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22315" class="LineNr">22315 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22316" class="LineNr">22316 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22317" class="LineNr">22317 </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="L22318" class="LineNr">22318 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22319" class="LineNr">22319 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22320" class="LineNr">22320 </span> <span class="subxComment"># never gets here</span> +<span id="L22321" class="LineNr">22321 </span> +<span id="L22322" class="LineNr">22322 </span><span class="Constant">$check-mu-get-stmt:error-too-many-outputs</span>: +<span id="L22323" class="LineNr">22323 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22324" class="LineNr">22324 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22325" class="LineNr">22325 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22326" class="LineNr">22326 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22327" class="LineNr">22327 </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="L22328" class="LineNr">22328 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22329" class="LineNr">22329 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22330" class="LineNr">22330 </span> <span class="subxComment"># never gets here</span> +<span id="L22331" class="LineNr">22331 </span> +<span id="L22332" class="LineNr">22332 </span><span class="Constant">$check-mu-get-stmt:error-bad-base</span>: +<span id="L22333" class="LineNr">22333 </span> <span class="subxComment"># error("fn " fn ": stmt get: var '" base->name "' must have a 'type' definition\n")</span> +<span id="L22334" class="LineNr">22334 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22335" class="LineNr">22335 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22336" class="LineNr">22336 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22337" class="LineNr">22337 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22338" class="LineNr">22338 </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="L22339" class="LineNr">22339 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22340" class="LineNr">22340 </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="L22341" class="LineNr">22341 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22342" class="LineNr">22342 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22343" class="LineNr">22343 </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="L22344" class="LineNr">22344 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22345" class="LineNr">22345 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22346" class="LineNr">22346 </span> <span class="subxComment"># never gets here</span> +<span id="L22347" class="LineNr">22347 </span> +<span id="L22348" class="LineNr">22348 </span><span class="Constant">$check-mu-get-stmt:error-base-type-addr-but-not-register</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#L256'>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 <a href='../131table.subx.html#L26'>get</a>: var '"</span>) +<span id="L22354" class="LineNr">22354 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22355" class="LineNr">22355 </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="L22356" class="LineNr">22356 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22357" class="LineNr">22357 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22358" class="LineNr">22358 </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="L22359" class="LineNr">22359 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22360" class="LineNr">22360 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22361" class="LineNr">22361 </span> <span class="subxComment"># never gets here</span> +<span id="L22362" class="LineNr">22362 </span> +<span id="L22363" class="LineNr">22363 </span><span class="Constant">$check-mu-get-stmt:error-bad-field</span>: +<span id="L22364" class="LineNr">22364 </span> <span class="subxComment"># error("fn " fn ": stmt get: type " type " has no member called '" curr->name "'\n")</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 <a href='../131table.subx.html#L26'>get</a>: type '"</span>) +<span id="L22370" class="LineNr">22370 </span> <span class="subxS1Comment"># . write(Type-id->data[tmp])</span> +<span id="L22371" class="LineNr">22371 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 +<span id="L22372" class="LineNr">22372 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi +<span id="L22373" class="LineNr">22373 </span> { +<span id="L22374" class="LineNr">22374 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L22375" class="LineNr">22375 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22376" class="LineNr">22376 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) +<span id="L22377" class="LineNr">22377 </span> } +<span id="L22378" class="LineNr">22378 </span> <span class="subxS1Comment"># .</span> +<span id="L22379" class="LineNr">22379 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has no member called '"</span>) +<span id="L22380" class="LineNr">22380 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22381" class="LineNr">22381 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22382" class="LineNr">22382 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L22383" class="LineNr">22383 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22384" class="LineNr">22384 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22385" class="LineNr">22385 </span> <span class="subxComment"># never gets here</span> +<span id="L22386" class="LineNr">22386 </span> +<span id="L22387" class="LineNr">22387 </span><span class="Constant">$check-mu-get-stmt:error-output-not-in-register</span>: +<span id="L22388" class="LineNr">22388 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22389" class="LineNr">22389 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22390" class="LineNr">22390 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22391" class="LineNr">22391 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22392" class="LineNr">22392 </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="L22393" class="LineNr">22393 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22394" class="LineNr">22394 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22395" class="LineNr">22395 </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="L22396" class="LineNr">22396 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22397" class="LineNr">22397 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22398" class="LineNr">22398 </span> <span class="subxComment"># never gets here</span> +<span id="L22399" class="LineNr">22399 </span> +<span id="L22400" class="LineNr">22400 </span><span class="Constant">$check-mu-get-stmt:error-output-type-not-address</span>: +<span id="L22401" class="LineNr">22401 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22402" class="LineNr">22402 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22403" class="LineNr">22403 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22404" class="LineNr">22404 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22405" class="LineNr">22405 </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="L22406" class="LineNr">22406 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22407" class="LineNr">22407 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22408" class="LineNr">22408 </span> <span class="subxComment"># never gets here</span> +<span id="L22409" class="LineNr">22409 </span> +<span id="L22410" class="LineNr">22410 </span><span class="Constant">$check-mu-get-stmt:error-bad-output-type</span>: +<span id="L22411" class="LineNr">22411 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22412" class="LineNr">22412 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22413" class="LineNr">22413 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22414" class="LineNr">22414 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22415" class="LineNr">22415 </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="L22416" class="LineNr">22416 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %ecx) +<span id="L22417" class="LineNr">22417 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type '"</span>) +<span id="L22418" class="LineNr">22418 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 +<span id="L22419" class="LineNr">22419 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi +<span id="L22420" class="LineNr">22420 </span> { +<span id="L22421" class="LineNr">22421 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L22422" class="LineNr">22422 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22423" class="LineNr">22423 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) +<span id="L22424" class="LineNr">22424 </span> } +<span id="L22425" class="LineNr">22425 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L22426" class="LineNr">22426 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22427" class="LineNr">22427 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22428" class="LineNr">22428 </span> <span class="subxComment"># never gets here</span> +<span id="L22429" class="LineNr">22429 </span> +<span id="L22430" class="LineNr">22430 </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="L22431" class="LineNr">22431 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22432" class="LineNr">22432 </span> 55/push-ebp +<span id="L22433" class="LineNr">22433 </span> 89/<- %ebp 4/r32/esp +<span id="L22434" class="LineNr">22434 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22435" class="LineNr">22435 </span> 50/push-eax +<span id="L22436" class="LineNr">22436 </span> 51/push-ecx +<span id="L22437" class="LineNr">22437 </span> 52/push-edx +<span id="L22438" class="LineNr">22438 </span> 53/push-ebx +<span id="L22439" class="LineNr">22439 </span> 56/push-esi +<span id="L22440" class="LineNr">22440 </span> 57/push-edi +<span id="L22441" class="LineNr">22441 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22442" class="LineNr">22442 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22443" class="LineNr">22443 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L22444" class="LineNr">22444 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L22445" class="LineNr">22445 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22446" class="LineNr">22446 </span><span class="Constant">$check-mu-index-stmt:check-no-inouts</span>: +<span id="L22447" class="LineNr">22447 </span> 3d/compare-eax-and 0/imm32 +<span id="L22448" class="LineNr">22448 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 +<span id="L22449" class="LineNr">22449 </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="L22450" class="LineNr">22450 </span> 89/<- %ecx 0/r32/eax +<span id="L22451" class="LineNr">22451 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> +<span id="L22452" class="LineNr">22452 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L22453" class="LineNr">22453 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22454" class="LineNr">22454 </span> 89/<- %ebx 0/r32/eax +<span id="L22455" class="LineNr">22455 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> +<span id="L22456" class="LineNr">22456 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L22457" class="LineNr">22457 </span> { <span id="L22458" class="LineNr">22458 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22459" class="LineNr">22459 </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="L22460" class="LineNr">22460 </span> 89/<- %ebx 0/r32/eax -<span id="L22461" class="LineNr">22461 </span> } -<span id="L22462" class="LineNr">22462 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L22463" class="LineNr">22463 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22464" class="LineNr">22464 </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="L22465" class="LineNr">22465 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22466" class="LineNr">22466 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-inouts/disp32 -<span id="L22467" class="LineNr">22467 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L22468" class="LineNr">22468 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L22469" class="LineNr">22469 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22470" class="LineNr">22470 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22471" class="LineNr">22471 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-outputs/disp32 -<span id="L22472" class="LineNr">22472 </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="L22473" class="LineNr">22473 </span> 89/<- %edi 0/r32/eax -<span id="L22474" class="LineNr">22474 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L22475" class="LineNr">22475 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L22476" class="LineNr">22476 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22477" class="LineNr">22477 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L22478" class="LineNr">22478 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22479" class="LineNr">22479 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-invalid-output-type/disp32 -<span id="L22480" class="LineNr">22480 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L22481" class="LineNr">22481 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22482" class="LineNr">22482 </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="L22483" class="LineNr">22483 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22484" class="LineNr">22484 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-outputs/disp32 -<span id="L22485" class="LineNr">22485 </span><span class="Constant">$check-mu-length-stmt:end</span>: -<span id="L22486" class="LineNr">22486 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22487" class="LineNr">22487 </span> 5f/pop-to-edi -<span id="L22488" class="LineNr">22488 </span> 5e/pop-to-esi -<span id="L22489" class="LineNr">22489 </span> 5b/pop-to-ebx -<span id="L22490" class="LineNr">22490 </span> 5a/pop-to-edx -<span id="L22491" class="LineNr">22491 </span> 59/pop-to-ecx -<span id="L22492" class="LineNr">22492 </span> 58/pop-to-eax -<span id="L22493" class="LineNr">22493 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22494" class="LineNr">22494 </span> 89/<- %esp 5/r32/ebp -<span id="L22495" class="LineNr">22495 </span> 5d/pop-to-ebp -<span id="L22496" class="LineNr">22496 </span> c3/return -<span id="L22497" class="LineNr">22497 </span> -<span id="L22498" class="LineNr">22498 </span><span class="Constant">$check-mu-length-stmt:error-base-non-array-type</span>: -<span id="L22499" class="LineNr">22499 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22500" class="LineNr">22500 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22501" class="LineNr">22501 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22502" class="LineNr">22502 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22503" class="LineNr">22503 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) -<span id="L22504" class="LineNr">22504 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22505" class="LineNr">22505 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22506" class="LineNr">22506 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) -<span id="L22507" class="LineNr">22507 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22508" class="LineNr">22508 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22509" class="LineNr">22509 </span> <span class="subxComment"># never gets here</span> -<span id="L22510" class="LineNr">22510 </span> -<span id="L22511" class="LineNr">22511 </span><span class="Constant">$check-mu-length-stmt:error-base-array-atom-type</span>: -<span id="L22512" class="LineNr">22512 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22513" class="LineNr">22513 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22514" class="LineNr">22514 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22515" class="LineNr">22515 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22516" class="LineNr">22516 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: array '"</span>) -<span id="L22517" class="LineNr">22517 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22518" class="LineNr">22518 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22519" class="LineNr">22519 </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="L22520" class="LineNr">22520 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22521" class="LineNr">22521 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22522" class="LineNr">22522 </span> <span class="subxComment"># never gets here</span> -<span id="L22523" class="LineNr">22523 </span> -<span id="L22524" class="LineNr">22524 </span><span class="Constant">$check-mu-length-stmt:error-base-address-array-type-on-stack</span>: -<span id="L22525" class="LineNr">22525 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22526" class="LineNr">22526 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22527" class="LineNr">22527 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22528" class="LineNr">22528 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22529" class="LineNr">22529 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) -<span id="L22530" class="LineNr">22530 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22531" class="LineNr">22531 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22532" class="LineNr">22532 </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="L22533" class="LineNr">22533 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22534" class="LineNr">22534 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22535" class="LineNr">22535 </span> <span class="subxComment"># never gets here</span> -<span id="L22536" class="LineNr">22536 </span> -<span id="L22537" class="LineNr">22537 </span><span class="Constant">$check-mu-length-stmt:error-base-array-type-in-register</span>: -<span id="L22538" class="LineNr">22538 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22539" class="LineNr">22539 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22540" class="LineNr">22540 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22541" class="LineNr">22541 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22542" class="LineNr">22542 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) -<span id="L22543" class="LineNr">22543 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22544" class="LineNr">22544 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22545" class="LineNr">22545 </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="L22546" class="LineNr">22546 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22547" class="LineNr">22547 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22548" class="LineNr">22548 </span> <span class="subxComment"># never gets here</span> -<span id="L22549" class="LineNr">22549 </span> -<span id="L22550" class="LineNr">22550 </span><span class="Constant">$check-mu-length-stmt:error-too-few-inouts</span>: -<span id="L22551" class="LineNr">22551 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22552" class="LineNr">22552 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22553" class="LineNr">22553 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22554" class="LineNr">22554 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22555" class="LineNr">22555 </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="L22556" class="LineNr">22556 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22557" class="LineNr">22557 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22558" class="LineNr">22558 </span> <span class="subxComment"># never gets here</span> -<span id="L22559" class="LineNr">22559 </span> -<span id="L22560" class="LineNr">22560 </span><span class="Constant">$check-mu-length-stmt:error-invalid-index-type</span>: -<span id="L22561" class="LineNr">22561 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22562" class="LineNr">22562 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22563" class="LineNr">22563 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22564" class="LineNr">22564 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22565" class="LineNr">22565 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) -<span id="L22566" class="LineNr">22566 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+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">"' must be an int or offset\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="Constant">$check-mu-length-stmt:error-index-offset-atom-type</span>: -<span id="L22574" class="LineNr">22574 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22575" class="LineNr">22575 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22576" class="LineNr">22576 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22577" class="LineNr">22577 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22578" class="LineNr">22578 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: offset '"</span>) -<span id="L22579" class="LineNr">22579 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22580" class="LineNr">22580 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22581" class="LineNr">22581 </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="L22582" class="LineNr">22582 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22583" class="LineNr">22583 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22584" class="LineNr">22584 </span> <span class="subxComment"># never gets here</span> -<span id="L22585" class="LineNr">22585 </span> -<span id="L22586" class="LineNr">22586 </span><span class="Constant">$check-mu-length-stmt:error-index-on-stack</span>: -<span id="L22587" class="LineNr">22587 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22588" class="LineNr">22588 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22589" class="LineNr">22589 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22590" class="LineNr">22590 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22591" class="LineNr">22591 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) -<span id="L22592" class="LineNr">22592 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22593" class="LineNr">22593 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22594" class="LineNr">22594 </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="L22595" class="LineNr">22595 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22596" class="LineNr">22596 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22597" class="LineNr">22597 </span> <span class="subxComment"># never gets here</span> -<span id="L22598" class="LineNr">22598 </span> -<span id="L22599" class="LineNr">22599 </span><span class="Constant">$check-mu-length-stmt:error-index-needs-offset</span>: -<span id="L22600" class="LineNr">22600 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22601" class="LineNr">22601 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22602" class="LineNr">22602 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22603" class="LineNr">22603 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22604" class="LineNr">22604 </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="L22605" class="LineNr">22605 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22606" class="LineNr">22606 </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="L22607" class="LineNr">22607 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22608" class="LineNr">22608 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22609" class="LineNr">22609 </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="L22610" class="LineNr">22610 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22611" class="LineNr">22611 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22612" class="LineNr">22612 </span> <span class="subxComment"># never gets here</span> -<span id="L22613" class="LineNr">22613 </span> -<span id="L22614" class="LineNr">22614 </span><span class="Constant">$check-mu-length-stmt:error-too-many-inouts</span>: -<span id="L22615" class="LineNr">22615 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22616" class="LineNr">22616 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22617" class="LineNr">22617 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22618" class="LineNr">22618 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22619" class="LineNr">22619 </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="L22620" class="LineNr">22620 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22621" class="LineNr">22621 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22622" class="LineNr">22622 </span> <span class="subxComment"># never gets here</span> -<span id="L22623" class="LineNr">22623 </span> -<span id="L22624" class="LineNr">22624 </span><span class="Constant">$check-mu-length-stmt:error-too-few-outputs</span>: -<span id="L22625" class="LineNr">22625 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22626" class="LineNr">22626 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22627" class="LineNr">22627 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22628" class="LineNr">22628 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22629" class="LineNr">22629 </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="L22630" class="LineNr">22630 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22631" class="LineNr">22631 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22632" class="LineNr">22632 </span> <span class="subxComment"># never gets here</span> -<span id="L22633" class="LineNr">22633 </span> -<span id="L22634" class="LineNr">22634 </span><span class="Constant">$check-mu-length-stmt:error-too-many-outputs</span>: -<span id="L22635" class="LineNr">22635 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22636" class="LineNr">22636 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22637" class="LineNr">22637 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22638" class="LineNr">22638 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22639" class="LineNr">22639 </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="L22640" class="LineNr">22640 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22641" class="LineNr">22641 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22642" class="LineNr">22642 </span> <span class="subxComment"># never gets here</span> -<span id="L22643" class="LineNr">22643 </span> -<span id="L22644" class="LineNr">22644 </span><span class="Constant">$check-mu-length-stmt:error-output-not-in-register</span>: -<span id="L22645" class="LineNr">22645 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22646" class="LineNr">22646 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22647" class="LineNr">22647 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22459" class="LineNr">22459 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> +<span id="L22460" class="LineNr">22460 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22461" class="LineNr">22461 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-atom-type/disp32 +<span id="L22462" class="LineNr">22462 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L22463" class="LineNr">22463 </span> } +<span id="L22464" class="LineNr">22464 </span><span class="Constant">$check-mu-index-stmt:base-is-compound</span>: +<span id="L22465" class="LineNr">22465 </span> <span class="subxComment"># if type->left not addr or array, abort</span> +<span id="L22466" class="LineNr">22466 </span> { +<span id="L22467" class="LineNr">22467 </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="L22468" class="LineNr">22468 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L22469" class="LineNr">22469 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22470" class="LineNr">22470 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22471" class="LineNr">22471 </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="L22472" class="LineNr">22472 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L22473" class="LineNr">22473 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22474" class="LineNr">22474 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22475" class="LineNr">22475 </span> e9/jump $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L22476" class="LineNr">22476 </span> } +<span id="L22477" class="LineNr">22477 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> +<span id="L22478" class="LineNr">22478 </span> { +<span id="L22479" class="LineNr">22479 </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="L22480" class="LineNr">22480 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L22481" class="LineNr">22481 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22482" class="LineNr">22482 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22483" class="LineNr">22483 </span><span class="Constant">$check-mu-index-stmt:base-is-addr</span>: +<span id="L22484" class="LineNr">22484 </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="L22485" class="LineNr">22485 </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="L22486" class="LineNr">22486 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L22487" class="LineNr">22487 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22488" class="LineNr">22488 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L22489" class="LineNr">22489 </span><span class="Constant">$check-mu-index-stmt:check-base-addr-is-register</span>: +<span id="L22490" class="LineNr">22490 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L22491" class="LineNr">22491 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-address-array-type-on-stack/disp32 +<span id="L22492" class="LineNr">22492 </span> } +<span id="L22493" class="LineNr">22493 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> +<span id="L22494" class="LineNr">22494 </span> { +<span id="L22495" class="LineNr">22495 </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="L22496" class="LineNr">22496 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L22497" class="LineNr">22497 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22498" class="LineNr">22498 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22499" class="LineNr">22499 </span><span class="Constant">$check-mu-index-stmt:base-is-array</span>: +<span id="L22500" class="LineNr">22500 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L22501" class="LineNr">22501 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-type-in-register/disp32 +<span id="L22502" class="LineNr">22502 </span> } +<span id="L22503" class="LineNr">22503 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> +<span id="L22504" class="LineNr">22504 </span> { +<span id="L22505" class="LineNr">22505 </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="L22506" class="LineNr">22506 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L22507" class="LineNr">22507 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22508" class="LineNr">22508 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22509" class="LineNr">22509 </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="L22510" class="LineNr">22510 </span> 89/<- %ebx 0/r32/eax +<span id="L22511" class="LineNr">22511 </span> } +<span id="L22512" class="LineNr">22512 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L22513" class="LineNr">22513 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L22514" class="LineNr">22514 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22515" class="LineNr">22515 </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="L22516" class="LineNr">22516 </span><span class="Constant">$check-mu-index-stmt:check-single-inout</span>: +<span id="L22517" class="LineNr">22517 </span> 3d/compare-eax-and 0/imm32 +<span id="L22518" class="LineNr">22518 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 +<span id="L22519" class="LineNr">22519 </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="L22520" class="LineNr">22520 </span> 89/<- %ecx 0/r32/eax +<span id="L22521" class="LineNr">22521 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> +<span id="L22522" class="LineNr">22522 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> +<span id="L22523" class="LineNr">22523 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22524" class="LineNr">22524 </span> 89/<- %edx 0/r32/eax +<span id="L22525" class="LineNr">22525 </span> <span class="subxComment"># if index type is an atom, it must be a literal or int</span> +<span id="L22526" class="LineNr">22526 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L22527" class="LineNr">22527 </span> { +<span id="L22528" class="LineNr">22528 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22529" class="LineNr">22529 </span><span class="Constant">$check-mu-index-stmt:index-type-is-atom</span>: +<span id="L22530" class="LineNr">22530 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L22531" class="LineNr">22531 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22532" class="LineNr">22532 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 +<span id="L22533" class="LineNr">22533 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L22534" class="LineNr">22534 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22535" class="LineNr">22535 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 +<span id="L22536" class="LineNr">22536 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %edx 7) <span class="subxComment"># offset => eax</span> +<span id="L22537" class="LineNr">22537 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22538" class="LineNr">22538 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-index-offset-atom-type/disp32 +<span id="L22539" class="LineNr">22539 </span> e9/jump $check-mu-index-stmt:error-invalid-index-type/disp32 +<span id="L22540" class="LineNr">22540 </span> } +<span id="L22541" class="LineNr">22541 </span> <span class="subxComment"># if index type is a non-atom: it must be an offset</span> +<span id="L22542" class="LineNr">22542 </span> { +<span id="L22543" class="LineNr">22543 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22544" class="LineNr">22544 </span><span class="Constant">$check-mu-index-stmt:index-type-is-non-atom</span>: +<span id="L22545" class="LineNr">22545 </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="L22546" class="LineNr">22546 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L22547" class="LineNr">22547 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22548" class="LineNr">22548 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-invalid-index-type/disp32 +<span id="L22549" class="LineNr">22549 </span> } +<span id="L22550" class="LineNr">22550 </span><span class="Constant">$check-mu-index-stmt:index-type-done</span>: +<span id="L22551" class="LineNr">22551 </span> <span class="subxComment"># check index is either a literal or in a register</span> +<span id="L22552" class="LineNr">22552 </span> { +<span id="L22553" class="LineNr">22553 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L22554" class="LineNr">22554 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22555" class="LineNr">22555 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22556" class="LineNr">22556 </span><span class="Constant">$check-mu-index-stmt:check-index-in-register</span>: +<span id="L22557" class="LineNr">22557 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L22558" class="LineNr">22558 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-index-on-stack/disp32 +<span id="L22559" class="LineNr">22559 </span> } +<span id="L22560" class="LineNr">22560 </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="L22561" class="LineNr">22561 </span> { +<span id="L22562" class="LineNr">22562 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L22563" class="LineNr">22563 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22564" class="LineNr">22564 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22565" class="LineNr">22565 </span><span class="Constant">$check-mu-index-stmt:check-index-can-be-int</span>: +<span id="L22566" class="LineNr">22566 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22567" class="LineNr">22567 </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="L22568" class="LineNr">22568 </span> (<a href='mu.subx.html#L27283'>array-element-size</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22569" class="LineNr">22569 </span> 3d/compare-eax-and 1/imm32 +<span id="L22570" class="LineNr">22570 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22571" class="LineNr">22571 </span> 3d/compare-eax-and 2/imm32 +<span id="L22572" class="LineNr">22572 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22573" class="LineNr">22573 </span> 3d/compare-eax-and 4/imm32 +<span id="L22574" class="LineNr">22574 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22575" class="LineNr">22575 </span> 3d/compare-eax-and 8/imm32 +<span id="L22576" class="LineNr">22576 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22577" class="LineNr">22577 </span> e9/jump $check-mu-index-stmt:error-index-needs-offset/disp32 +<span id="L22578" class="LineNr">22578 </span> } +<span id="L22579" class="LineNr">22579 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L22580" class="LineNr">22580 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22581" class="LineNr">22581 </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="L22582" class="LineNr">22582 </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="L22583" class="LineNr">22583 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22584" class="LineNr">22584 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-inouts/disp32 +<span id="L22585" class="LineNr">22585 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L22586" class="LineNr">22586 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L22587" class="LineNr">22587 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22588" class="LineNr">22588 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22589" class="LineNr">22589 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-outputs/disp32 +<span id="L22590" class="LineNr">22590 </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="L22591" class="LineNr">22591 </span> 89/<- %edi 0/r32/eax +<span id="L22592" class="LineNr">22592 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L22593" class="LineNr">22593 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L22594" class="LineNr">22594 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22595" class="LineNr">22595 </span> 89/<- %edx 0/r32/eax +<span id="L22596" class="LineNr">22596 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L22597" class="LineNr">22597 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-output-type-not-address/disp32 +<span id="L22598" class="LineNr">22598 </span> <span class="subxComment"># type must start with (addr ...)</span> +<span id="L22599" class="LineNr">22599 </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="L22600" class="LineNr">22600 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L22601" class="LineNr">22601 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22602" class="LineNr">22602 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-output-type-not-address/disp32 +<span id="L22603" class="LineNr">22603 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> +<span id="L22604" class="LineNr">22604 </span> (<a href='mu.subx.html#L25286'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L22605" class="LineNr">22605 </span> 89/<- %ebx 0/r32/eax +<span id="L22606" class="LineNr">22606 </span> (<a href='mu.subx.html#L25286'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L22607" class="LineNr">22607 </span> (<a href='mu.subx.html#L25345'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L22608" class="LineNr">22608 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22609" class="LineNr">22609 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-bad-output-type/disp32 +<span id="L22610" class="LineNr">22610 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L22611" class="LineNr">22611 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22612" class="LineNr">22612 </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="L22613" class="LineNr">22613 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22614" class="LineNr">22614 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-outputs/disp32 +<span id="L22615" class="LineNr">22615 </span><span class="Constant">$check-mu-index-stmt:end</span>: +<span id="L22616" class="LineNr">22616 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22617" class="LineNr">22617 </span> 5f/pop-to-edi +<span id="L22618" class="LineNr">22618 </span> 5e/pop-to-esi +<span id="L22619" class="LineNr">22619 </span> 5b/pop-to-ebx +<span id="L22620" class="LineNr">22620 </span> 5a/pop-to-edx +<span id="L22621" class="LineNr">22621 </span> 59/pop-to-ecx +<span id="L22622" class="LineNr">22622 </span> 58/pop-to-eax +<span id="L22623" class="LineNr">22623 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22624" class="LineNr">22624 </span> 89/<- %esp 5/r32/ebp +<span id="L22625" class="LineNr">22625 </span> 5d/pop-to-ebp +<span id="L22626" class="LineNr">22626 </span> c3/return +<span id="L22627" class="LineNr">22627 </span> +<span id="L22628" class="LineNr">22628 </span><span class="Constant">$check-mu-index-stmt:error-base-non-array-type</span>: +<span id="L22629" class="LineNr">22629 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22630" class="LineNr">22630 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22631" class="LineNr">22631 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22632" class="LineNr">22632 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22633" class="LineNr">22633 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L22634" class="LineNr">22634 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22635" class="LineNr">22635 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22636" class="LineNr">22636 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) +<span id="L22637" class="LineNr">22637 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22638" class="LineNr">22638 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22639" class="LineNr">22639 </span> <span class="subxComment"># never gets here</span> +<span id="L22640" class="LineNr">22640 </span> +<span id="L22641" class="LineNr">22641 </span><span class="Constant">$check-mu-index-stmt:error-base-array-atom-type</span>: +<span id="L22642" class="LineNr">22642 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22643" class="LineNr">22643 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22644" class="LineNr">22644 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22645" class="LineNr">22645 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22646" class="LineNr">22646 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: array '"</span>) +<span id="L22647" class="LineNr">22647 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> <span id="L22648" class="LineNr">22648 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22649" class="LineNr">22649 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) -<span id="L22650" class="LineNr">22650 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22651" class="LineNr">22651 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22652" class="LineNr">22652 </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="L22653" class="LineNr">22653 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22654" class="LineNr">22654 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22655" class="LineNr">22655 </span> <span class="subxComment"># never gets here</span> -<span id="L22656" class="LineNr">22656 </span> -<span id="L22657" class="LineNr">22657 </span><span class="Constant">$check-mu-length-stmt:error-invalid-output-type</span>: -<span id="L22658" class="LineNr">22658 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22659" class="LineNr">22659 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22660" class="LineNr">22660 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22649" class="LineNr">22649 </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="L22650" class="LineNr">22650 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22651" class="LineNr">22651 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22652" class="LineNr">22652 </span> <span class="subxComment"># never gets here</span> +<span id="L22653" class="LineNr">22653 </span> +<span id="L22654" class="LineNr">22654 </span><span class="Constant">$check-mu-index-stmt:error-base-address-array-type-on-stack</span>: +<span id="L22655" class="LineNr">22655 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22656" class="LineNr">22656 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22657" class="LineNr">22657 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22658" class="LineNr">22658 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22659" class="LineNr">22659 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L22660" class="LineNr">22660 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> <span id="L22661" class="LineNr">22661 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22662" class="LineNr">22662 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) -<span id="L22663" class="LineNr">22663 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22664" class="LineNr">22664 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22665" class="LineNr">22665 </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="L22666" class="LineNr">22666 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22667" class="LineNr">22667 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22668" class="LineNr">22668 </span> <span class="subxComment"># never gets here</span> -<span id="L22669" class="LineNr">22669 </span> -<span id="L22670" class="LineNr">22670 </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="L22671" class="LineNr">22671 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22672" class="LineNr">22672 </span> 55/push-ebp -<span id="L22673" class="LineNr">22673 </span> 89/<- %ebp 4/r32/esp -<span id="L22674" class="LineNr">22674 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22675" class="LineNr">22675 </span> 50/push-eax -<span id="L22676" class="LineNr">22676 </span> 51/push-ecx -<span id="L22677" class="LineNr">22677 </span> 52/push-edx -<span id="L22678" class="LineNr">22678 </span> 53/push-ebx -<span id="L22679" class="LineNr">22679 </span> 56/push-esi -<span id="L22680" class="LineNr">22680 </span> 57/push-edi -<span id="L22681" class="LineNr">22681 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22682" class="LineNr">22682 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22683" class="LineNr">22683 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L22684" class="LineNr">22684 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L22685" class="LineNr">22685 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22686" class="LineNr">22686 </span><span class="Constant">$check-mu-compute-offset-stmt:check-no-inouts</span>: -<span id="L22687" class="LineNr">22687 </span> 3d/compare-eax-and 0/imm32 -<span id="L22688" class="LineNr">22688 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 -<span id="L22689" class="LineNr">22689 </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="L22690" class="LineNr">22690 </span> 89/<- %ecx 0/r32/eax -<span id="L22691" class="LineNr">22691 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> -<span id="L22692" class="LineNr">22692 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L22693" class="LineNr">22693 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22694" class="LineNr">22694 </span> 89/<- %ebx 0/r32/eax -<span id="L22695" class="LineNr">22695 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> -<span id="L22696" class="LineNr">22696 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L22697" class="LineNr">22697 </span> { -<span id="L22698" class="LineNr">22698 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22699" class="LineNr">22699 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> -<span id="L22700" class="LineNr">22700 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22701" class="LineNr">22701 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-base-array-atom-type/disp32 -<span id="L22702" class="LineNr">22702 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 -<span id="L22703" class="LineNr">22703 </span> } -<span id="L22704" class="LineNr">22704 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-compound</span>: -<span id="L22705" class="LineNr">22705 </span> <span class="subxComment"># if type->left not addr or array, abort</span> -<span id="L22706" class="LineNr">22706 </span> { -<span id="L22707" class="LineNr">22707 </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="L22708" class="LineNr">22708 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L22709" class="LineNr">22709 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22710" class="LineNr">22710 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22711" class="LineNr">22711 </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="L22712" class="LineNr">22712 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L22713" class="LineNr">22713 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22714" class="LineNr">22714 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22715" class="LineNr">22715 </span> e9/jump $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 -<span id="L22716" class="LineNr">22716 </span> } -<span id="L22717" class="LineNr">22717 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> -<span id="L22718" class="LineNr">22718 </span> { -<span id="L22719" class="LineNr">22719 </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="L22720" class="LineNr">22720 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L22721" class="LineNr">22721 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22722" class="LineNr">22722 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22723" class="LineNr">22723 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-addr</span>: -<span id="L22724" class="LineNr">22724 </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="L22725" class="LineNr">22725 </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="L22726" class="LineNr">22726 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L22727" class="LineNr">22727 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22728" class="LineNr">22728 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 -<span id="L22729" class="LineNr">22729 </span> } -<span id="L22730" class="LineNr">22730 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> -<span id="L22731" class="LineNr">22731 </span> { -<span id="L22732" class="LineNr">22732 </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="L22733" class="LineNr">22733 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L22734" class="LineNr">22734 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22735" class="LineNr">22735 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22736" class="LineNr">22736 </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="L22737" class="LineNr">22737 </span> 89/<- %ebx 0/r32/eax -<span id="L22738" class="LineNr">22738 </span> } -<span id="L22739" class="LineNr">22739 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L22740" class="LineNr">22740 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L22741" class="LineNr">22741 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22742" class="LineNr">22742 </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="L22743" class="LineNr">22743 </span><span class="Constant">$check-mu-compute-offset-stmt:check-single-inout</span>: -<span id="L22744" class="LineNr">22744 </span> 3d/compare-eax-and 0/imm32 -<span id="L22745" class="LineNr">22745 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 -<span id="L22746" class="LineNr">22746 </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="L22747" class="LineNr">22747 </span> 89/<- %ecx 0/r32/eax -<span id="L22748" class="LineNr">22748 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> -<span id="L22749" class="LineNr">22749 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> -<span id="L22750" class="LineNr">22750 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22751" class="LineNr">22751 </span> 89/<- %edx 0/r32/eax -<span id="L22752" class="LineNr">22752 </span> <span class="subxComment"># index type must be a literal or int</span> -<span id="L22753" class="LineNr">22753 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L22754" class="LineNr">22754 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 -<span id="L22755" class="LineNr">22755 </span> { -<span id="L22756" class="LineNr">22756 </span><span class="Constant">$check-mu-compute-offset-stmt:index-type-is-atom</span>: -<span id="L22757" class="LineNr">22757 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> -<span id="L22758" class="LineNr">22758 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22759" class="LineNr">22759 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22760" class="LineNr">22760 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L22761" class="LineNr">22761 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22762" class="LineNr">22762 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22763" class="LineNr">22763 </span> e9/jump $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 -<span id="L22764" class="LineNr">22764 </span> } -<span id="L22765" class="LineNr">22765 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L22766" class="LineNr">22766 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22767" class="LineNr">22767 </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="L22768" class="LineNr">22768 </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="L22769" class="LineNr">22769 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22770" class="LineNr">22770 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-inouts/disp32 -<span id="L22771" class="LineNr">22771 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L22772" class="LineNr">22772 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L22773" class="LineNr">22773 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22774" class="LineNr">22774 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22775" class="LineNr">22775 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-outputs/disp32 -<span id="L22776" class="LineNr">22776 </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="L22777" class="LineNr">22777 </span> 89/<- %edi 0/r32/eax -<span id="L22778" class="LineNr">22778 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L22779" class="LineNr">22779 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L22780" class="LineNr">22780 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22781" class="LineNr">22781 </span> 89/<- %edx 0/r32/eax -<span id="L22782" class="LineNr">22782 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L22783" class="LineNr">22783 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 -<span id="L22784" class="LineNr">22784 </span> <span class="subxComment"># type must start with (offset ...)</span> -<span id="L22785" class="LineNr">22785 </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="L22786" class="LineNr">22786 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L22787" class="LineNr">22787 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22788" class="LineNr">22788 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 -<span id="L22789" class="LineNr">22789 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> -<span id="L22790" class="LineNr">22790 </span> (<a href='mu.subx.html#L24649'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L22791" class="LineNr">22791 </span> 89/<- %ebx 0/r32/eax -<span id="L22792" class="LineNr">22792 </span> (<a href='mu.subx.html#L24649'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L22793" class="LineNr">22793 </span> (<a href='mu.subx.html#L24708'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L22794" class="LineNr">22794 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22795" class="LineNr">22795 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-bad-output-type/disp32 -<span id="L22796" class="LineNr">22796 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L22797" class="LineNr">22797 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22798" class="LineNr">22798 </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="L22799" class="LineNr">22799 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22800" class="LineNr">22800 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-outputs/disp32 -<span id="L22801" class="LineNr">22801 </span><span class="Constant">$check-mu-compute-offset-stmt:end</span>: -<span id="L22802" class="LineNr">22802 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22803" class="LineNr">22803 </span> 5f/pop-to-edi -<span id="L22804" class="LineNr">22804 </span> 5e/pop-to-esi -<span id="L22805" class="LineNr">22805 </span> 5b/pop-to-ebx -<span id="L22806" class="LineNr">22806 </span> 5a/pop-to-edx -<span id="L22807" class="LineNr">22807 </span> 59/pop-to-ecx -<span id="L22808" class="LineNr">22808 </span> 58/pop-to-eax -<span id="L22809" class="LineNr">22809 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22810" class="LineNr">22810 </span> 89/<- %esp 5/r32/ebp -<span id="L22811" class="LineNr">22811 </span> 5d/pop-to-ebp -<span id="L22812" class="LineNr">22812 </span> c3/return -<span id="L22813" class="LineNr">22813 </span> -<span id="L22814" class="LineNr">22814 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-non-array-type</span>: -<span id="L22815" class="LineNr">22815 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22816" class="LineNr">22816 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22817" class="LineNr">22817 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22818" class="LineNr">22818 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22819" class="LineNr">22819 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: var '"</span>) -<span id="L22820" class="LineNr">22820 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22821" class="LineNr">22821 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22822" class="LineNr">22822 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) -<span id="L22823" class="LineNr">22823 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22824" class="LineNr">22824 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22825" class="LineNr">22825 </span> <span class="subxComment"># never gets here</span> -<span id="L22826" class="LineNr">22826 </span> -<span id="L22827" class="LineNr">22827 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-array-atom-type</span>: -<span id="L22828" class="LineNr">22828 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22829" class="LineNr">22829 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22830" class="LineNr">22830 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22831" class="LineNr">22831 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22832" class="LineNr">22832 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: array '"</span>) -<span id="L22833" class="LineNr">22833 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22834" class="LineNr">22834 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22835" class="LineNr">22835 </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="L22836" class="LineNr">22836 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22837" class="LineNr">22837 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22838" class="LineNr">22838 </span> <span class="subxComment"># never gets here</span> -<span id="L22839" class="LineNr">22839 </span> -<span id="L22840" class="LineNr">22840 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-inouts</span>: -<span id="L22841" class="LineNr">22841 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22842" class="LineNr">22842 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22843" class="LineNr">22843 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22844" class="LineNr">22844 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22845" class="LineNr">22845 </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="L22846" class="LineNr">22846 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22847" class="LineNr">22847 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22848" class="LineNr">22848 </span> <span class="subxComment"># never gets here</span> -<span id="L22849" class="LineNr">22849 </span> -<span id="L22850" class="LineNr">22850 </span><span class="Constant">$check-mu-compute-offset-stmt:error-invalid-index-type</span>: -<span id="L22851" class="LineNr">22851 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22852" class="LineNr">22852 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22853" class="LineNr">22853 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22854" class="LineNr">22854 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22855" class="LineNr">22855 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: second argument '"</span>) -<span id="L22856" class="LineNr">22856 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22857" class="LineNr">22857 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22858" class="LineNr">22858 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) -<span id="L22859" class="LineNr">22859 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22860" class="LineNr">22860 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22861" class="LineNr">22861 </span> <span class="subxComment"># never gets here</span> -<span id="L22862" class="LineNr">22862 </span> -<span id="L22863" class="LineNr">22863 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-offset-atom-type</span>: -<span id="L22864" class="LineNr">22864 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22865" class="LineNr">22865 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22866" class="LineNr">22866 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22867" class="LineNr">22867 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22868" class="LineNr">22868 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: offset '"</span>) -<span id="L22869" class="LineNr">22869 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22870" class="LineNr">22870 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22871" class="LineNr">22871 </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="L22872" class="LineNr">22872 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22873" class="LineNr">22873 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22874" class="LineNr">22874 </span> <span class="subxComment"># never gets here</span> -<span id="L22875" class="LineNr">22875 </span> -<span id="L22876" class="LineNr">22876 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-on-stack</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#L256'>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 compute-offset: second argument '"</span>) -<span id="L22882" class="LineNr">22882 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22883" class="LineNr">22883 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22884" class="LineNr">22884 </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="L22885" class="LineNr">22885 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22886" class="LineNr">22886 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22887" class="LineNr">22887 </span> <span class="subxComment"># never gets here</span> -<span id="L22888" class="LineNr">22888 </span> -<span id="L22889" class="LineNr">22889 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-inouts</span>: -<span id="L22890" class="LineNr">22890 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22891" class="LineNr">22891 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22892" class="LineNr">22892 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22893" class="LineNr">22893 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22894" class="LineNr">22894 </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="L22895" class="LineNr">22895 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22896" class="LineNr">22896 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22897" class="LineNr">22897 </span> <span class="subxComment"># never gets here</span> -<span id="L22898" class="LineNr">22898 </span> -<span id="L22899" class="LineNr">22899 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-outputs</span>: -<span id="L22900" class="LineNr">22900 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22901" class="LineNr">22901 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22902" class="LineNr">22902 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22903" class="LineNr">22903 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22904" class="LineNr">22904 </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="L22905" class="LineNr">22905 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22906" class="LineNr">22906 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22907" class="LineNr">22907 </span> <span class="subxComment"># never gets here</span> -<span id="L22908" class="LineNr">22908 </span> -<span id="L22909" class="LineNr">22909 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-outputs</span>: -<span id="L22910" class="LineNr">22910 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22911" class="LineNr">22911 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22912" class="LineNr">22912 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22913" class="LineNr">22913 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22914" class="LineNr">22914 </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="L22915" class="LineNr">22915 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22916" class="LineNr">22916 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22917" class="LineNr">22917 </span> <span class="subxComment"># never gets here</span> -<span id="L22918" class="LineNr">22918 </span> -<span id="L22919" class="LineNr">22919 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-not-in-register</span>: -<span id="L22920" class="LineNr">22920 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22921" class="LineNr">22921 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22922" class="LineNr">22922 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22923" class="LineNr">22923 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22924" class="LineNr">22924 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) -<span id="L22925" class="LineNr">22925 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22926" class="LineNr">22926 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22927" class="LineNr">22927 </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="L22928" class="LineNr">22928 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22929" class="LineNr">22929 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22930" class="LineNr">22930 </span> <span class="subxComment"># never gets here</span> -<span id="L22931" class="LineNr">22931 </span> -<span id="L22932" class="LineNr">22932 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-type-not-offset</span>: -<span id="L22933" class="LineNr">22933 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22934" class="LineNr">22934 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22935" class="LineNr">22935 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22936" class="LineNr">22936 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22937" class="LineNr">22937 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) -<span id="L22938" class="LineNr">22938 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22939" class="LineNr">22939 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22940" class="LineNr">22940 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an offset\n"</span>) -<span id="L22941" class="LineNr">22941 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22942" class="LineNr">22942 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22943" class="LineNr">22943 </span> <span class="subxComment"># never gets here</span> -<span id="L22944" class="LineNr">22944 </span> -<span id="L22945" class="LineNr">22945 </span><span class="Constant">$check-mu-compute-offset-stmt:error-bad-output-type</span>: -<span id="L22946" class="LineNr">22946 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22947" class="LineNr">22947 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22948" class="LineNr">22948 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22949" class="LineNr">22949 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22950" class="LineNr">22950 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) -<span id="L22951" class="LineNr">22951 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22952" class="LineNr">22952 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22953" class="LineNr">22953 </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="L22954" class="LineNr">22954 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22955" class="LineNr">22955 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22956" class="LineNr">22956 </span> <span class="subxComment"># never gets here</span> -<span id="L22957" class="LineNr">22957 </span> -<span id="L22958" class="LineNr">22958 </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="L22959" class="LineNr">22959 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22960" class="LineNr">22960 </span> 55/push-ebp -<span id="L22961" class="LineNr">22961 </span> 89/<- %ebp 4/r32/esp -<span id="L22962" class="LineNr">22962 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22963" class="LineNr">22963 </span> 50/push-eax -<span id="L22964" class="LineNr">22964 </span> 51/push-ecx -<span id="L22965" class="LineNr">22965 </span> 53/push-ebx -<span id="L22966" class="LineNr">22966 </span> 56/push-esi -<span id="L22967" class="LineNr">22967 </span> 57/push-edi -<span id="L22968" class="LineNr">22968 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22969" class="LineNr">22969 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22970" class="LineNr">22970 </span><span class="Constant">$check-mu-copy-object-stmt:check-for-output</span>: -<span id="L22971" class="LineNr">22971 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L22972" class="LineNr">22972 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22973" class="LineNr">22973 </span> 3d/compare-eax-and 0/imm32 -<span id="L22974" class="LineNr">22974 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-too-many-outputs/disp32 -<span id="L22975" class="LineNr">22975 </span><span class="Constant">$check-mu-copy-object-stmt:get-left</span>: -<span id="L22976" class="LineNr">22976 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L22977" class="LineNr">22977 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22978" class="LineNr">22978 </span> 89/<- %edi 0/r32/eax -<span id="L22979" class="LineNr">22979 </span> <span class="subxComment"># zero inouts</span> -<span id="L22980" class="LineNr">22980 </span> 3d/compare-eax-and 0/imm32 -<span id="L22981" class="LineNr">22981 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 -<span id="L22982" class="LineNr">22982 </span><span class="Constant">$check-mu-copy-object-stmt:get-src</span>: -<span id="L22983" class="LineNr">22983 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> -<span id="L22984" class="LineNr">22984 </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="L22985" class="LineNr">22985 </span> 89/<- %esi 0/r32/eax -<span id="L22986" class="LineNr">22986 </span> <span class="subxComment"># 1 inout</span> -<span id="L22987" class="LineNr">22987 </span> 3d/compare-eax-and 0/imm32 -<span id="L22988" class="LineNr">22988 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 -<span id="L22989" class="LineNr">22989 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L22990" class="LineNr">22990 </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="L22991" class="LineNr">22991 </span> 3d/compare-eax-and 0/imm32 -<span id="L22992" class="LineNr">22992 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 -<span id="L22993" class="LineNr">22993 </span><span class="Constant">$check-mu-copy-object-stmt:types</span>: -<span id="L22994" class="LineNr">22994 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> -<span id="L22995" class="LineNr">22995 </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="L22996" class="LineNr">22996 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22997" class="LineNr">22997 </span> 89/<- %ecx 0/r32/eax -<span id="L22998" class="LineNr">22998 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> -<span id="L22999" class="LineNr">22999 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23000" class="LineNr">23000 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23001" class="LineNr">23001 </span> { -<span id="L23002" class="LineNr">23002 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23003" class="LineNr">23003 </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="L23004" class="LineNr">23004 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> -<span id="L23005" class="LineNr">23005 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23006" class="LineNr">23006 </span> { -<span id="L23007" class="LineNr">23007 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23008" class="LineNr">23008 </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="L23009" class="LineNr">23009 </span> } -<span id="L23010" class="LineNr">23010 </span> 89/<- %ecx 0/r32/eax -<span id="L23011" class="LineNr">23011 </span> } -<span id="L23012" class="LineNr">23012 </span> <span class="subxComment"># if src-type is not addr, abort</span> -<span id="L23013" class="LineNr">23013 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L23014" class="LineNr">23014 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23015" class="LineNr">23015 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 -<span id="L23016" class="LineNr">23016 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> -<span id="L23017" class="LineNr">23017 </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="L23018" class="LineNr">23018 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23019" class="LineNr">23019 </span> 89/<- %ebx 0/r32/eax -<span id="L23020" class="LineNr">23020 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> -<span id="L23021" class="LineNr">23021 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23022" class="LineNr">23022 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23023" class="LineNr">23023 </span> { -<span id="L23024" class="LineNr">23024 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23025" class="LineNr">23025 </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="L23026" class="LineNr">23026 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> -<span id="L23027" class="LineNr">23027 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23028" class="LineNr">23028 </span> { -<span id="L23029" class="LineNr">23029 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23030" class="LineNr">23030 </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="L23031" class="LineNr">23031 </span> } -<span id="L23032" class="LineNr">23032 </span> 89/<- %ebx 0/r32/eax -<span id="L23033" class="LineNr">23033 </span> } -<span id="L23034" class="LineNr">23034 </span> <span class="subxComment"># if (dest-type != src-type) abort</span> -<span id="L23035" class="LineNr">23035 </span> (<a href='mu.subx.html#L24708'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> -<span id="L23036" class="LineNr">23036 </span> 3d/compare-eax-and 0/imm32 -<span id="L23037" class="LineNr">23037 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 -<span id="L23038" class="LineNr">23038 </span><span class="Constant">$check-mu-copy-object-stmt:end</span>: -<span id="L23039" class="LineNr">23039 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23040" class="LineNr">23040 </span> 5f/pop-to-edi -<span id="L23041" class="LineNr">23041 </span> 5e/pop-to-esi -<span id="L23042" class="LineNr">23042 </span> 5b/pop-to-ebx -<span id="L23043" class="LineNr">23043 </span> 59/pop-to-ecx -<span id="L23044" class="LineNr">23044 </span> 58/pop-to-eax -<span id="L23045" class="LineNr">23045 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23046" class="LineNr">23046 </span> 89/<- %esp 5/r32/ebp -<span id="L23047" class="LineNr">23047 </span> 5d/pop-to-ebp -<span id="L23048" class="LineNr">23048 </span> c3/return -<span id="L23049" class="LineNr">23049 </span> -<span id="L23050" class="LineNr">23050 </span><span class="Constant">$check-mu-copy-object-stmt:error-incorrect-inouts</span>: -<span id="L23051" class="LineNr">23051 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23052" class="LineNr">23052 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23053" class="LineNr">23053 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23054" class="LineNr">23054 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23055" class="LineNr">23055 </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="L23056" class="LineNr">23056 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23057" class="LineNr">23057 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23058" class="LineNr">23058 </span> <span class="subxComment"># never gets here</span> -<span id="L23059" class="LineNr">23059 </span> -<span id="L23060" class="LineNr">23060 </span><span class="Constant">$check-mu-copy-object-stmt:error-too-many-outputs</span>: -<span id="L23061" class="LineNr">23061 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23062" class="LineNr">23062 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23063" class="LineNr">23063 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23064" class="LineNr">23064 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23065" class="LineNr">23065 </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="L23066" class="LineNr">23066 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23067" class="LineNr">23067 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23068" class="LineNr">23068 </span> <span class="subxComment"># never gets here</span> -<span id="L23069" class="LineNr">23069 </span> -<span id="L23070" class="LineNr">23070 </span><span class="Constant">$check-mu-copy-object-stmt:error-invalid-types</span>: -<span id="L23071" class="LineNr">23071 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23072" class="LineNr">23072 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23073" class="LineNr">23073 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23074" class="LineNr">23074 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23075" class="LineNr">23075 </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="L23076" class="LineNr">23076 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23077" class="LineNr">23077 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23078" class="LineNr">23078 </span> <span class="subxComment"># never gets here</span> -<span id="L23079" class="LineNr">23079 </span> -<span id="L23080" class="LineNr">23080 </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="L23081" class="LineNr">23081 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23082" class="LineNr">23082 </span> 55/push-ebp -<span id="L23083" class="LineNr">23083 </span> 89/<- %ebp 4/r32/esp -<span id="L23084" class="LineNr">23084 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23085" class="LineNr">23085 </span> 50/push-eax -<span id="L23086" class="LineNr">23086 </span> 51/push-ecx -<span id="L23087" class="LineNr">23087 </span> 53/push-ebx -<span id="L23088" class="LineNr">23088 </span> 56/push-esi -<span id="L23089" class="LineNr">23089 </span> 57/push-edi -<span id="L23090" class="LineNr">23090 </span> <span class="subxComment"># esi = stmt</span> -<span id="L23091" class="LineNr">23091 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L23092" class="LineNr">23092 </span><span class="Constant">$check-mu-clear-object-stmt:check-for-output</span>: -<span id="L23093" class="LineNr">23093 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L23094" class="LineNr">23094 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23095" class="LineNr">23095 </span> 3d/compare-eax-and 0/imm32 -<span id="L23096" class="LineNr">23096 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-too-many-outputs/disp32 -<span id="L23097" class="LineNr">23097 </span><span class="Constant">$check-mu-clear-object-stmt:get-left</span>: -<span id="L23098" class="LineNr">23098 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L23099" class="LineNr">23099 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23100" class="LineNr">23100 </span> 89/<- %edi 0/r32/eax -<span id="L23101" class="LineNr">23101 </span> <span class="subxComment"># zero inouts</span> -<span id="L23102" class="LineNr">23102 </span> 3d/compare-eax-and 0/imm32 -<span id="L23103" class="LineNr">23103 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 -<span id="L23104" class="LineNr">23104 </span><span class="Constant">$check-mu-clear-object-stmt:get-src</span>: -<span id="L23105" class="LineNr">23105 </span> <span class="subxComment"># > 1 inout</span> -<span id="L23106" class="LineNr">23106 </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="L23107" class="LineNr">23107 </span> 3d/compare-eax-and 0/imm32 -<span id="L23108" class="LineNr">23108 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 -<span id="L23109" class="LineNr">23109 </span><span class="Constant">$check-mu-clear-object-stmt:types</span>: -<span id="L23110" class="LineNr">23110 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> -<span id="L23111" class="LineNr">23111 </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="L23112" class="LineNr">23112 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23113" class="LineNr">23113 </span> 89/<- %ecx 0/r32/eax -<span id="L23114" class="LineNr">23114 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> -<span id="L23115" class="LineNr">23115 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23116" class="LineNr">23116 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23117" class="LineNr">23117 </span> { -<span id="L23118" class="LineNr">23118 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23119" class="LineNr">23119 </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="L23120" class="LineNr">23120 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> -<span id="L23121" class="LineNr">23121 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23122" class="LineNr">23122 </span> { -<span id="L23123" class="LineNr">23123 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23124" class="LineNr">23124 </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="L23125" class="LineNr">23125 </span> } -<span id="L23126" class="LineNr">23126 </span> 89/<- %ecx 0/r32/eax -<span id="L23127" class="LineNr">23127 </span> } -<span id="L23128" class="LineNr">23128 </span> <span class="subxComment"># if src-type is not addr, abort</span> -<span id="L23129" class="LineNr">23129 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L23130" class="LineNr">23130 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23131" class="LineNr">23131 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-invalid-type/disp32 -<span id="L23132" class="LineNr">23132 </span><span class="Constant">$check-mu-clear-object-stmt:end</span>: -<span id="L23133" class="LineNr">23133 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23134" class="LineNr">23134 </span> 5f/pop-to-edi -<span id="L23135" class="LineNr">23135 </span> 5e/pop-to-esi -<span id="L23136" class="LineNr">23136 </span> 5b/pop-to-ebx -<span id="L23137" class="LineNr">23137 </span> 59/pop-to-ecx -<span id="L23138" class="LineNr">23138 </span> 58/pop-to-eax -<span id="L23139" class="LineNr">23139 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23140" class="LineNr">23140 </span> 89/<- %esp 5/r32/ebp -<span id="L23141" class="LineNr">23141 </span> 5d/pop-to-ebp -<span id="L23142" class="LineNr">23142 </span> c3/return -<span id="L23143" class="LineNr">23143 </span> -<span id="L23144" class="LineNr">23144 </span><span class="Constant">$check-mu-clear-object-stmt:error-incorrect-inouts</span>: -<span id="L23145" class="LineNr">23145 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23146" class="LineNr">23146 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23147" class="LineNr">23147 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23148" class="LineNr">23148 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23149" class="LineNr">23149 </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="L23150" class="LineNr">23150 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23151" class="LineNr">23151 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23152" class="LineNr">23152 </span> <span class="subxComment"># never gets here</span> -<span id="L23153" class="LineNr">23153 </span> -<span id="L23154" class="LineNr">23154 </span><span class="Constant">$check-mu-clear-object-stmt:error-too-many-outputs</span>: -<span id="L23155" class="LineNr">23155 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23156" class="LineNr">23156 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23157" class="LineNr">23157 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23158" class="LineNr">23158 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23159" class="LineNr">23159 </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="L23160" class="LineNr">23160 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23161" class="LineNr">23161 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23162" class="LineNr">23162 </span> <span class="subxComment"># never gets here</span> -<span id="L23163" class="LineNr">23163 </span> -<span id="L23164" class="LineNr">23164 </span><span class="Constant">$check-mu-clear-object-stmt:error-invalid-type</span>: -<span id="L23165" class="LineNr">23165 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23166" class="LineNr">23166 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23167" class="LineNr">23167 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23168" class="LineNr">23168 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23169" class="LineNr">23169 </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="L23170" class="LineNr">23170 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23171" class="LineNr">23171 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23172" class="LineNr">23172 </span> <span class="subxComment"># never gets here</span> -<span id="L23173" class="LineNr">23173 </span> -<span id="L23174" class="LineNr">23174 </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="L23175" class="LineNr">23175 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23176" class="LineNr">23176 </span> 55/push-ebp -<span id="L23177" class="LineNr">23177 </span> 89/<- %ebp 4/r32/esp -<span id="L23178" class="LineNr">23178 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23179" class="LineNr">23179 </span> 50/push-eax -<span id="L23180" class="LineNr">23180 </span> 53/push-ebx -<span id="L23181" class="LineNr">23181 </span> 56/push-esi -<span id="L23182" class="LineNr">23182 </span> 57/push-edi -<span id="L23183" class="LineNr">23183 </span> <span class="subxComment"># esi = stmt</span> -<span id="L23184" class="LineNr">23184 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L23185" class="LineNr">23185 </span><span class="Constant">$check-mu-allocate-stmt:check-for-output</span>: -<span id="L23186" class="LineNr">23186 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L23187" class="LineNr">23187 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23188" class="LineNr">23188 </span> 3d/compare-eax-and 0/imm32 -<span id="L23189" class="LineNr">23189 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-too-many-outputs/disp32 -<span id="L23190" class="LineNr">23190 </span><span class="Constant">$check-mu-allocate-stmt:get-target</span>: -<span id="L23191" class="LineNr">23191 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L23192" class="LineNr">23192 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23193" class="LineNr">23193 </span> 89/<- %edi 0/r32/eax -<span id="L23194" class="LineNr">23194 </span> <span class="subxComment"># zero inouts</span> -<span id="L23195" class="LineNr">23195 </span> 3d/compare-eax-and 0/imm32 -<span id="L23196" class="LineNr">23196 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 -<span id="L23197" class="LineNr">23197 </span> <span class="subxComment"># > 1 inouts</span> -<span id="L23198" class="LineNr">23198 </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="L23199" class="LineNr">23199 </span> 3d/compare-eax-and 0/imm32 -<span id="L23200" class="LineNr">23200 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 -<span id="L23201" class="LineNr">23201 </span><span class="Constant">$check-mu-allocate-stmt:check-type</span>: -<span id="L23202" class="LineNr">23202 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> -<span id="L23203" class="LineNr">23203 </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="L23204" class="LineNr">23204 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23205" class="LineNr">23205 </span> 89/<- %ebx 0/r32/eax -<span id="L23206" class="LineNr">23206 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> -<span id="L23207" class="LineNr">23207 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23208" class="LineNr">23208 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23209" class="LineNr">23209 </span> { -<span id="L23210" class="LineNr">23210 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23211" class="LineNr">23211 </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="L23212" class="LineNr">23212 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> -<span id="L23213" class="LineNr">23213 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23214" class="LineNr">23214 </span> { -<span id="L23215" class="LineNr">23215 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23216" class="LineNr">23216 </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="L23217" class="LineNr">23217 </span> } -<span id="L23218" class="LineNr">23218 </span> 89/<- %ebx 0/r32/eax -<span id="L23219" class="LineNr">23219 </span> } -<span id="L23220" class="LineNr">23220 </span> <span class="subxComment"># if target-type is not addr, abort</span> -<span id="L23221" class="LineNr">23221 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L23222" class="LineNr">23222 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23223" class="LineNr">23223 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 -<span id="L23224" class="LineNr">23224 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> -<span id="L23225" class="LineNr">23225 </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="L23226" class="LineNr">23226 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23227" class="LineNr">23227 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-invalid-type/disp32 -<span id="L23228" class="LineNr">23228 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> -<span id="L23229" class="LineNr">23229 </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="L23230" class="LineNr">23230 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> -<span id="L23231" class="LineNr">23231 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23232" class="LineNr">23232 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 -<span id="L23233" class="LineNr">23233 </span><span class="Constant">$check-mu-allocate-stmt:end</span>: -<span id="L23234" class="LineNr">23234 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23235" class="LineNr">23235 </span> 5f/pop-to-edi -<span id="L23236" class="LineNr">23236 </span> 5e/pop-to-esi -<span id="L23237" class="LineNr">23237 </span> 5b/pop-to-ebx -<span id="L23238" class="LineNr">23238 </span> 58/pop-to-eax -<span id="L23239" class="LineNr">23239 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23240" class="LineNr">23240 </span> 89/<- %esp 5/r32/ebp -<span id="L23241" class="LineNr">23241 </span> 5d/pop-to-ebp -<span id="L23242" class="LineNr">23242 </span> c3/return -<span id="L23243" class="LineNr">23243 </span> -<span id="L23244" class="LineNr">23244 </span><span class="Constant">$check-mu-allocate-stmt:error-incorrect-inouts</span>: -<span id="L23245" class="LineNr">23245 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23246" class="LineNr">23246 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23247" class="LineNr">23247 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23248" class="LineNr">23248 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23249" class="LineNr">23249 </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="L23250" class="LineNr">23250 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23251" class="LineNr">23251 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23252" class="LineNr">23252 </span> <span class="subxComment"># never gets here</span> -<span id="L23253" class="LineNr">23253 </span> -<span id="L23254" class="LineNr">23254 </span><span class="Constant">$check-mu-allocate-stmt:error-too-many-outputs</span>: -<span id="L23255" class="LineNr">23255 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23256" class="LineNr">23256 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23257" class="LineNr">23257 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23258" class="LineNr">23258 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23259" class="LineNr">23259 </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="L23260" class="LineNr">23260 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23261" class="LineNr">23261 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23262" class="LineNr">23262 </span> <span class="subxComment"># never gets here</span> -<span id="L23263" class="LineNr">23263 </span> -<span id="L23264" class="LineNr">23264 </span><span class="Constant">$check-mu-allocate-stmt:error-invalid-type</span>: -<span id="L23265" class="LineNr">23265 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23266" class="LineNr">23266 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23267" class="LineNr">23267 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23268" class="LineNr">23268 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23269" class="LineNr">23269 </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="L23270" class="LineNr">23270 </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="L23271" class="LineNr">23271 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23272" class="LineNr">23272 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23273" class="LineNr">23273 </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="L23274" class="LineNr">23274 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23275" class="LineNr">23275 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23276" class="LineNr">23276 </span> <span class="subxComment"># never gets here</span> -<span id="L23277" class="LineNr">23277 </span> -<span id="L23278" class="LineNr">23278 </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="L23279" class="LineNr">23279 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23280" class="LineNr">23280 </span> 55/push-ebp -<span id="L23281" class="LineNr">23281 </span> 89/<- %ebp 4/r32/esp -<span id="L23282" class="LineNr">23282 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23283" class="LineNr">23283 </span> 50/push-eax -<span id="L23284" class="LineNr">23284 </span> 53/push-ebx -<span id="L23285" class="LineNr">23285 </span> 56/push-esi -<span id="L23286" class="LineNr">23286 </span> 57/push-edi -<span id="L23287" class="LineNr">23287 </span> <span class="subxComment"># esi = stmt</span> -<span id="L23288" class="LineNr">23288 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L23289" class="LineNr">23289 </span><span class="Constant">$check-mu-populate-stmt:check-for-output</span>: -<span id="L23290" class="LineNr">23290 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L23291" class="LineNr">23291 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23292" class="LineNr">23292 </span> 3d/compare-eax-and 0/imm32 -<span id="L23293" class="LineNr">23293 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-too-many-outputs/disp32 -<span id="L23294" class="LineNr">23294 </span><span class="Constant">$check-mu-populate-stmt:get-target</span>: -<span id="L23295" class="LineNr">23295 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L23296" class="LineNr">23296 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23297" class="LineNr">23297 </span> 89/<- %edi 0/r32/eax -<span id="L23298" class="LineNr">23298 </span> <span class="subxComment"># zero inouts</span> -<span id="L23299" class="LineNr">23299 </span> 3d/compare-eax-and 0/imm32 -<span id="L23300" class="LineNr">23300 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 -<span id="L23301" class="LineNr">23301 </span><span class="Constant">$check-mu-populate-stmt:get-length</span>: -<span id="L23302" class="LineNr">23302 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> -<span id="L23303" class="LineNr">23303 </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="L23304" class="LineNr">23304 </span> 89/<- %esi 0/r32/eax -<span id="L23305" class="LineNr">23305 </span> <span class="subxComment"># 1 inout</span> -<span id="L23306" class="LineNr">23306 </span> 3d/compare-eax-and 0/imm32 -<span id="L23307" class="LineNr">23307 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 -<span id="L23308" class="LineNr">23308 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L23309" class="LineNr">23309 </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="L23310" class="LineNr">23310 </span> 3d/compare-eax-and 0/imm32 -<span id="L23311" class="LineNr">23311 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-incorrect-inouts/disp32 -<span id="L23312" class="LineNr">23312 </span><span class="Constant">$check-mu-populate-stmt:check-target-type</span>: -<span id="L23313" class="LineNr">23313 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> -<span id="L23314" class="LineNr">23314 </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="L23315" class="LineNr">23315 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23316" class="LineNr">23316 </span> 89/<- %ebx 0/r32/eax -<span id="L23317" class="LineNr">23317 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-deref</span>: -<span id="L23318" class="LineNr">23318 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> -<span id="L23319" class="LineNr">23319 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23320" class="LineNr">23320 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23321" class="LineNr">23321 </span> { -<span id="L23322" class="LineNr">23322 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23323" class="LineNr">23323 </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="L23324" class="LineNr">23324 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> -<span id="L23325" class="LineNr">23325 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23326" class="LineNr">23326 </span> { -<span id="L23327" class="LineNr">23327 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23328" class="LineNr">23328 </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="L23329" class="LineNr">23329 </span> } -<span id="L23330" class="LineNr">23330 </span> 89/<- %ebx 0/r32/eax -<span id="L23331" class="LineNr">23331 </span> } -<span id="L23332" class="LineNr">23332 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-addr</span>: -<span id="L23333" class="LineNr">23333 </span> <span class="subxComment"># if target-type is not addr, abort</span> -<span id="L23334" class="LineNr">23334 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L23335" class="LineNr">23335 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23336" class="LineNr">23336 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L23337" class="LineNr">23337 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> -<span id="L23338" class="LineNr">23338 </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="L23339" class="LineNr">23339 </span> 89/<- %ebx 0/r32/eax -<span id="L23340" class="LineNr">23340 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23341" class="LineNr">23341 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L23342" class="LineNr">23342 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-handle</span>: -<span id="L23343" class="LineNr">23343 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> -<span id="L23344" class="LineNr">23344 </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="L23345" class="LineNr">23345 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> -<span id="L23346" class="LineNr">23346 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23347" class="LineNr">23347 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L23348" class="LineNr">23348 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> -<span id="L23349" class="LineNr">23349 </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="L23350" class="LineNr">23350 </span> 89/<- %ebx 0/r32/eax -<span id="L23351" class="LineNr">23351 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23352" class="LineNr">23352 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L23353" class="LineNr">23353 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-array</span>: -<span id="L23354" class="LineNr">23354 </span> <span class="subxComment"># if target-type->right->right->left is not array, abort</span> -<span id="L23355" class="LineNr">23355 </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="L23356" class="LineNr">23356 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L23357" class="LineNr">23357 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23358" class="LineNr">23358 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L23359" class="LineNr">23359 </span><span class="Constant">$check-mu-populate-stmt:check-length-type</span>: -<span id="L23360" class="LineNr">23360 </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="L23361" class="LineNr">23361 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23362" class="LineNr">23362 </span> 89/<- %ebx 0/r32/eax -<span id="L23363" class="LineNr">23363 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> -<span id="L23364" class="LineNr">23364 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23365" class="LineNr">23365 </span> 75/jump-if-!= $check-mu-populate-stmt:end/disp8 -<span id="L23366" class="LineNr">23366 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> -<span id="L23367" class="LineNr">23367 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23368" class="LineNr">23368 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-length-type/disp32 -<span id="L23369" class="LineNr">23369 </span><span class="Constant">$check-mu-populate-stmt:end</span>: -<span id="L23370" class="LineNr">23370 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23371" class="LineNr">23371 </span> 5f/pop-to-edi -<span id="L23372" class="LineNr">23372 </span> 5e/pop-to-esi -<span id="L23373" class="LineNr">23373 </span> 5b/pop-to-ebx -<span id="L23374" class="LineNr">23374 </span> 58/pop-to-eax -<span id="L23375" class="LineNr">23375 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23376" class="LineNr">23376 </span> 89/<- %esp 5/r32/ebp -<span id="L23377" class="LineNr">23377 </span> 5d/pop-to-ebp -<span id="L23378" class="LineNr">23378 </span> c3/return -<span id="L23379" class="LineNr">23379 </span> -<span id="L23380" class="LineNr">23380 </span><span class="Constant">$check-mu-populate-stmt:error-incorrect-inouts</span>: -<span id="L23381" class="LineNr">23381 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23382" class="LineNr">23382 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23383" class="LineNr">23383 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23384" class="LineNr">23384 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23385" class="LineNr">23385 </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="L23386" class="LineNr">23386 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23387" class="LineNr">23387 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23388" class="LineNr">23388 </span> <span class="subxComment"># never gets here</span> -<span id="L23389" class="LineNr">23389 </span> -<span id="L23390" class="LineNr">23390 </span><span class="Constant">$check-mu-populate-stmt:error-too-many-outputs</span>: -<span id="L23391" class="LineNr">23391 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23392" class="LineNr">23392 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23393" class="LineNr">23393 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23394" class="LineNr">23394 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23395" class="LineNr">23395 </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="L23396" class="LineNr">23396 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23397" class="LineNr">23397 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23398" class="LineNr">23398 </span> <span class="subxComment"># never gets here</span> -<span id="L23399" class="LineNr">23399 </span> -<span id="L23400" class="LineNr">23400 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-target-type</span>: -<span id="L23401" class="LineNr">23401 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23402" class="LineNr">23402 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23403" class="LineNr">23403 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23404" class="LineNr">23404 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23405" class="LineNr">23405 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: first inout '"</span>) -<span id="L23406" class="LineNr">23406 </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="L23407" class="LineNr">23407 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23408" class="LineNr">23408 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23409" class="LineNr">23409 </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="L23410" class="LineNr">23410 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23411" class="LineNr">23411 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23412" class="LineNr">23412 </span> <span class="subxComment"># never gets here</span> -<span id="L23413" class="LineNr">23413 </span> -<span id="L23414" class="LineNr">23414 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-length-type</span>: -<span id="L23415" class="LineNr">23415 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23416" class="LineNr">23416 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23417" class="LineNr">23417 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23418" class="LineNr">23418 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23419" class="LineNr">23419 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: second inout '"</span>) -<span id="L23420" class="LineNr">23420 </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="L23421" class="LineNr">23421 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23422" class="LineNr">23422 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23423" class="LineNr">23423 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) -<span id="L23424" class="LineNr">23424 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23425" class="LineNr">23425 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23426" class="LineNr">23426 </span> <span class="subxComment"># never gets here</span> -<span id="L23427" class="LineNr">23427 </span> -<span id="L23428" class="LineNr">23428 </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="L23429" class="LineNr">23429 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23430" class="LineNr">23430 </span> 55/push-ebp -<span id="L23431" class="LineNr">23431 </span> 89/<- %ebp 4/r32/esp -<span id="L23432" class="LineNr">23432 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23433" class="LineNr">23433 </span> 50/push-eax -<span id="L23434" class="LineNr">23434 </span> 53/push-ebx -<span id="L23435" class="LineNr">23435 </span> 56/push-esi -<span id="L23436" class="LineNr">23436 </span> 57/push-edi -<span id="L23437" class="LineNr">23437 </span> <span class="subxComment"># esi = stmt</span> -<span id="L23438" class="LineNr">23438 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L23439" class="LineNr">23439 </span><span class="Constant">$check-mu-populate-stream-stmt:check-for-output</span>: -<span id="L23440" class="LineNr">23440 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L23441" class="LineNr">23441 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23442" class="LineNr">23442 </span> 3d/compare-eax-and 0/imm32 -<span id="L23443" class="LineNr">23443 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-too-many-outputs/disp32 -<span id="L23444" class="LineNr">23444 </span><span class="Constant">$check-mu-populate-stream-stmt:get-target</span>: -<span id="L23445" class="LineNr">23445 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L23446" class="LineNr">23446 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23447" class="LineNr">23447 </span> 89/<- %edi 0/r32/eax -<span id="L23448" class="LineNr">23448 </span> <span class="subxComment"># zero inouts</span> -<span id="L23449" class="LineNr">23449 </span> 3d/compare-eax-and 0/imm32 -<span id="L23450" class="LineNr">23450 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 -<span id="L23451" class="LineNr">23451 </span><span class="Constant">$check-mu-populate-stream-stmt:get-length</span>: -<span id="L23452" class="LineNr">23452 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> -<span id="L23453" class="LineNr">23453 </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="L23454" class="LineNr">23454 </span> 89/<- %esi 0/r32/eax -<span id="L23455" class="LineNr">23455 </span> <span class="subxComment"># 1 inout</span> -<span id="L23456" class="LineNr">23456 </span> 3d/compare-eax-and 0/imm32 -<span id="L23457" class="LineNr">23457 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 -<span id="L23458" class="LineNr">23458 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L23459" class="LineNr">23459 </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="L23460" class="LineNr">23460 </span> 3d/compare-eax-and 0/imm32 -<span id="L23461" class="LineNr">23461 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 -<span id="L23462" class="LineNr">23462 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type</span>: -<span id="L23463" class="LineNr">23463 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> -<span id="L23464" class="LineNr">23464 </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="L23465" class="LineNr">23465 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23466" class="LineNr">23466 </span> 89/<- %ebx 0/r32/eax -<span id="L23467" class="LineNr">23467 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-deref</span>: -<span id="L23468" class="LineNr">23468 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> -<span id="L23469" class="LineNr">23469 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23470" class="LineNr">23470 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23471" class="LineNr">23471 </span> { -<span id="L23472" class="LineNr">23472 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23473" class="LineNr">23473 </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="L23474" class="LineNr">23474 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> -<span id="L23475" class="LineNr">23475 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23476" class="LineNr">23476 </span> { -<span id="L23477" class="LineNr">23477 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23478" class="LineNr">23478 </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="L23479" class="LineNr">23479 </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><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-addr</span>: -<span id="L23483" class="LineNr">23483 </span> <span class="subxComment"># if target-type is not addr, abort</span> -<span id="L23484" class="LineNr">23484 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L23485" class="LineNr">23485 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23486" class="LineNr">23486 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L23487" class="LineNr">23487 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> -<span id="L23488" class="LineNr">23488 </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="L23489" class="LineNr">23489 </span> 89/<- %ebx 0/r32/eax -<span id="L23490" class="LineNr">23490 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23491" class="LineNr">23491 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L23492" class="LineNr">23492 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-handle</span>: -<span id="L23493" class="LineNr">23493 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> -<span id="L23494" class="LineNr">23494 </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="L23495" class="LineNr">23495 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> -<span id="L23496" class="LineNr">23496 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23497" class="LineNr">23497 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L23498" class="LineNr">23498 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> -<span id="L23499" class="LineNr">23499 </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="L23500" class="LineNr">23500 </span> 89/<- %ebx 0/r32/eax -<span id="L23501" class="LineNr">23501 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23502" class="LineNr">23502 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L23503" class="LineNr">23503 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-stream</span>: -<span id="L23504" class="LineNr">23504 </span> <span class="subxComment"># if target-type->right->right->left is not stream, abort</span> -<span id="L23505" class="LineNr">23505 </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="L23506" class="LineNr">23506 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> -<span id="L23507" class="LineNr">23507 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23508" class="LineNr">23508 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L23509" class="LineNr">23509 </span><span class="Constant">$check-mu-populate-stream-stmt:check-length-type</span>: -<span id="L23510" class="LineNr">23510 </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="L23511" class="LineNr">23511 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23512" class="LineNr">23512 </span> 89/<- %ebx 0/r32/eax -<span id="L23513" class="LineNr">23513 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> -<span id="L23514" class="LineNr">23514 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23515" class="LineNr">23515 </span> 75/jump-if-!= $check-mu-populate-stream-stmt:end/disp8 -<span id="L23516" class="LineNr">23516 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> -<span id="L23517" class="LineNr">23517 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23518" class="LineNr">23518 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-length-type/disp32 -<span id="L23519" class="LineNr">23519 </span><span class="Constant">$check-mu-populate-stream-stmt:end</span>: -<span id="L23520" class="LineNr">23520 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23521" class="LineNr">23521 </span> 5f/pop-to-edi -<span id="L23522" class="LineNr">23522 </span> 5e/pop-to-esi -<span id="L23523" class="LineNr">23523 </span> 5b/pop-to-ebx -<span id="L23524" class="LineNr">23524 </span> 58/pop-to-eax -<span id="L23525" class="LineNr">23525 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23526" class="LineNr">23526 </span> 89/<- %esp 5/r32/ebp -<span id="L23527" class="LineNr">23527 </span> 5d/pop-to-ebp -<span id="L23528" class="LineNr">23528 </span> c3/return -<span id="L23529" class="LineNr">23529 </span> -<span id="L23530" class="LineNr">23530 </span><span class="Constant">$check-mu-populate-stream-stmt:error-incorrect-inouts</span>: -<span id="L23531" class="LineNr">23531 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23532" class="LineNr">23532 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23533" class="LineNr">23533 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23534" class="LineNr">23534 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23535" class="LineNr">23535 </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="L23536" class="LineNr">23536 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23537" class="LineNr">23537 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23538" class="LineNr">23538 </span> <span class="subxComment"># never gets here</span> -<span id="L23539" class="LineNr">23539 </span> -<span id="L23540" class="LineNr">23540 </span><span class="Constant">$check-mu-populate-stream-stmt:error-too-many-outputs</span>: -<span id="L23541" class="LineNr">23541 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23542" class="LineNr">23542 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23543" class="LineNr">23543 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23544" class="LineNr">23544 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23545" class="LineNr">23545 </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="L23546" class="LineNr">23546 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23547" class="LineNr">23547 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23548" class="LineNr">23548 </span> <span class="subxComment"># never gets here</span> -<span id="L23549" class="LineNr">23549 </span> -<span id="L23550" class="LineNr">23550 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-target-type</span>: -<span id="L23551" class="LineNr">23551 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23552" class="LineNr">23552 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23553" class="LineNr">23553 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23554" class="LineNr">23554 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23555" class="LineNr">23555 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: first inout '"</span>) -<span id="L23556" class="LineNr">23556 </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="L23557" class="LineNr">23557 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23558" class="LineNr">23558 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23559" class="LineNr">23559 </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="L23560" class="LineNr">23560 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23561" class="LineNr">23561 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23562" class="LineNr">23562 </span> <span class="subxComment"># never gets here</span> -<span id="L23563" class="LineNr">23563 </span> -<span id="L23564" class="LineNr">23564 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-length-type</span>: -<span id="L23565" class="LineNr">23565 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23566" class="LineNr">23566 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23567" class="LineNr">23567 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23568" class="LineNr">23568 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23569" class="LineNr">23569 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: second inout '"</span>) -<span id="L23570" class="LineNr">23570 </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="L23571" class="LineNr">23571 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23572" class="LineNr">23572 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23573" class="LineNr">23573 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) -<span id="L23574" class="LineNr">23574 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23575" class="LineNr">23575 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23576" class="LineNr">23576 </span> <span class="subxComment"># never gets here</span> -<span id="L23577" class="LineNr">23577 </span> -<span id="L23578" class="LineNr">23578 </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="L23579" class="LineNr">23579 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23580" class="LineNr">23580 </span> 55/push-ebp -<span id="L23581" class="LineNr">23581 </span> 89/<- %ebp 4/r32/esp -<span id="L23582" class="LineNr">23582 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23583" class="LineNr">23583 </span> 50/push-eax -<span id="L23584" class="LineNr">23584 </span> 51/push-ecx -<span id="L23585" class="LineNr">23585 </span> 52/push-edx -<span id="L23586" class="LineNr">23586 </span> 53/push-ebx -<span id="L23587" class="LineNr">23587 </span> 56/push-esi -<span id="L23588" class="LineNr">23588 </span> 57/push-edi -<span id="L23589" class="LineNr">23589 </span> <span class="subxComment"># esi = stmt</span> -<span id="L23590" class="LineNr">23590 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L23591" class="LineNr">23591 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L23592" class="LineNr">23592 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L23593" class="LineNr">23593 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23594" class="LineNr">23594 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-no-inouts</span>: -<span id="L23595" class="LineNr">23595 </span> 3d/compare-eax-and 0/imm32 -<span id="L23596" class="LineNr">23596 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 -<span id="L23597" class="LineNr">23597 </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="L23598" class="LineNr">23598 </span> 89/<- %ecx 0/r32/eax -<span id="L23599" class="LineNr">23599 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> -<span id="L23600" class="LineNr">23600 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L23601" class="LineNr">23601 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23602" class="LineNr">23602 </span> 89/<- %ebx 0/r32/eax -<span id="L23603" class="LineNr">23603 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-compound</span>: -<span id="L23604" class="LineNr">23604 </span> <span class="subxComment"># if base-type is an atom, abort</span> -<span id="L23605" class="LineNr">23605 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23606" class="LineNr">23606 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 -<span id="L23607" class="LineNr">23607 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr</span>: -<span id="L23608" class="LineNr">23608 </span> <span class="subxComment"># if type->left not addr, abort</span> -<span id="L23609" class="LineNr">23609 </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="L23610" class="LineNr">23610 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L23611" class="LineNr">23611 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23612" class="LineNr">23612 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 -<span id="L23613" class="LineNr">23613 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr-to-stream</span>: -<span id="L23614" class="LineNr">23614 </span> <span class="subxComment"># base-type = base-type->right</span> -<span id="L23615" class="LineNr">23615 </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="L23616" class="LineNr">23616 </span> 89/<- %ebx 0/r32/eax -<span id="L23617" class="LineNr">23617 </span> <span class="subxComment"># ensure base-type->left == stream</span> -<span id="L23618" class="LineNr">23618 </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="L23619" class="LineNr">23619 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> -<span id="L23620" class="LineNr">23620 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23621" class="LineNr">23621 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 -<span id="L23622" class="LineNr">23622 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> -<span id="L23623" class="LineNr">23623 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L23624" class="LineNr">23624 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23625" class="LineNr">23625 </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="L23626" class="LineNr">23626 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-single-inout</span>: -<span id="L23627" class="LineNr">23627 </span> 3d/compare-eax-and 0/imm32 -<span id="L23628" class="LineNr">23628 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 -<span id="L23629" class="LineNr">23629 </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="L23630" class="LineNr">23630 </span> 89/<- %ecx 0/r32/eax -<span id="L23631" class="LineNr">23631 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> -<span id="L23632" class="LineNr">23632 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23633" class="LineNr">23633 </span> 89/<- %edx 0/r32/eax -<span id="L23634" class="LineNr">23634 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> -<span id="L23635" class="LineNr">23635 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-is-compound</span>: -<span id="L23636" class="LineNr">23636 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23637" class="LineNr">23637 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 -<span id="L23638" class="LineNr">23638 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-type</span>: -<span id="L23639" class="LineNr">23639 </span> <span class="subxComment"># target type must start with (addr ...)</span> -<span id="L23640" class="LineNr">23640 </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="L23641" class="LineNr">23641 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L23642" class="LineNr">23642 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23643" class="LineNr">23643 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 -<span id="L23644" class="LineNr">23644 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> -<span id="L23645" class="LineNr">23645 </span> (<a href='mu.subx.html#L24649'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L23646" class="LineNr">23646 </span> 89/<- %ebx 0/r32/eax -<span id="L23647" class="LineNr">23647 </span> (<a href='mu.subx.html#L24649'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L23648" class="LineNr">23648 </span> (<a href='mu.subx.html#L24708'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L23649" class="LineNr">23649 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23650" class="LineNr">23650 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-target-type/disp32 -<span id="L23651" class="LineNr">23651 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-too-many-inouts</span>: -<span id="L23652" class="LineNr">23652 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L23653" class="LineNr">23653 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23654" class="LineNr">23654 </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="L23655" class="LineNr">23655 </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="L23656" class="LineNr">23656 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23657" class="LineNr">23657 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-too-many-inouts/disp32 -<span id="L23658" class="LineNr">23658 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-unexpected-output</span>: -<span id="L23659" class="LineNr">23659 </span> <span class="subxH1Comment"># - check for any output</span> -<span id="L23660" class="LineNr">23660 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23661" class="LineNr">23661 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23662" class="LineNr">23662 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-unexpected-output/disp32 -<span id="L23663" class="LineNr">23663 </span><span class="Constant">$check-mu-read-from-stream-stmt:end</span>: -<span id="L23664" class="LineNr">23664 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23665" class="LineNr">23665 </span> 5f/pop-to-edi -<span id="L23666" class="LineNr">23666 </span> 5e/pop-to-esi -<span id="L23667" class="LineNr">23667 </span> 5b/pop-to-ebx -<span id="L23668" class="LineNr">23668 </span> 5a/pop-to-edx -<span id="L23669" class="LineNr">23669 </span> 59/pop-to-ecx -<span id="L23670" class="LineNr">23670 </span> 58/pop-to-eax -<span id="L23671" class="LineNr">23671 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23672" class="LineNr">23672 </span> 89/<- %esp 5/r32/ebp -<span id="L23673" class="LineNr">23673 </span> 5d/pop-to-ebp -<span id="L23674" class="LineNr">23674 </span> c3/return -<span id="L23675" class="LineNr">23675 </span> -<span id="L23676" class="LineNr">23676 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-base-type</span>: -<span id="L23677" class="LineNr">23677 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23678" class="LineNr">23678 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23679" class="LineNr">23679 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23680" class="LineNr">23680 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23681" class="LineNr">23681 </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="L23682" class="LineNr">23682 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23683" class="LineNr">23683 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23684" class="LineNr">23684 </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="L23685" class="LineNr">23685 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23686" class="LineNr">23686 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23687" class="LineNr">23687 </span> <span class="subxComment"># never gets here</span> -<span id="L23688" class="LineNr">23688 </span> -<span id="L23689" class="LineNr">23689 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-few-inouts</span>: -<span id="L23690" class="LineNr">23690 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23691" class="LineNr">23691 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23692" class="LineNr">23692 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23693" class="LineNr">23693 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23694" class="LineNr">23694 </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="L23695" class="LineNr">23695 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23696" class="LineNr">23696 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23697" class="LineNr">23697 </span> <span class="subxComment"># never gets here</span> -<span id="L23698" class="LineNr">23698 </span> -<span id="L23699" class="LineNr">23699 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-target-type-not-address</span>: -<span id="L23700" class="LineNr">23700 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23701" class="LineNr">23701 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23702" class="LineNr">23702 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23703" class="LineNr">23703 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23704" class="LineNr">23704 </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="L23705" class="LineNr">23705 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23706" class="LineNr">23706 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23707" class="LineNr">23707 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) -<span id="L23708" class="LineNr">23708 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23709" class="LineNr">23709 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23710" class="LineNr">23710 </span> <span class="subxComment"># never gets here</span> -<span id="L23711" class="LineNr">23711 </span> -<span id="L23712" class="LineNr">23712 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-target-type</span>: -<span id="L23713" class="LineNr">23713 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23714" class="LineNr">23714 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23715" class="LineNr">23715 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23716" class="LineNr">23716 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23717" class="LineNr">23717 </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="L23718" class="LineNr">23718 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23719" class="LineNr">23719 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23720" class="LineNr">23720 </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="L23721" class="LineNr">23721 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23722" class="LineNr">23722 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23723" class="LineNr">23723 </span> <span class="subxComment"># never gets here</span> -<span id="L23724" class="LineNr">23724 </span> -<span id="L23725" class="LineNr">23725 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-many-inouts</span>: -<span id="L23726" class="LineNr">23726 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23727" class="LineNr">23727 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23728" class="LineNr">23728 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23729" class="LineNr">23729 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23730" class="LineNr">23730 </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="L23731" class="LineNr">23731 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23732" class="LineNr">23732 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23733" class="LineNr">23733 </span> <span class="subxComment"># never gets here</span> -<span id="L23734" class="LineNr">23734 </span> -<span id="L23735" class="LineNr">23735 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-unexpected-output</span>: -<span id="L23736" class="LineNr">23736 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23737" class="LineNr">23737 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23738" class="LineNr">23738 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23739" class="LineNr">23739 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23740" class="LineNr">23740 </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="L23741" class="LineNr">23741 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23742" class="LineNr">23742 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23743" class="LineNr">23743 </span> <span class="subxComment"># never gets here</span> -<span id="L23744" class="LineNr">23744 </span> -<span id="L23745" class="LineNr">23745 </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="L23746" class="LineNr">23746 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23747" class="LineNr">23747 </span> 55/push-ebp -<span id="L23748" class="LineNr">23748 </span> 89/<- %ebp 4/r32/esp -<span id="L23749" class="LineNr">23749 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23750" class="LineNr">23750 </span> 50/push-eax -<span id="L23751" class="LineNr">23751 </span> 51/push-ecx -<span id="L23752" class="LineNr">23752 </span> 52/push-edx -<span id="L23753" class="LineNr">23753 </span> 53/push-ebx -<span id="L23754" class="LineNr">23754 </span> 56/push-esi -<span id="L23755" class="LineNr">23755 </span> 57/push-edi -<span id="L23756" class="LineNr">23756 </span> <span class="subxComment"># esi = stmt</span> -<span id="L23757" class="LineNr">23757 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L23758" class="LineNr">23758 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L23759" class="LineNr">23759 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L23760" class="LineNr">23760 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23761" class="LineNr">23761 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-no-inouts</span>: -<span id="L23762" class="LineNr">23762 </span> 3d/compare-eax-and 0/imm32 -<span id="L23763" class="LineNr">23763 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 -<span id="L23764" class="LineNr">23764 </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="L23765" class="LineNr">23765 </span> 89/<- %ecx 0/r32/eax -<span id="L23766" class="LineNr">23766 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> -<span id="L23767" class="LineNr">23767 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L23768" class="LineNr">23768 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23769" class="LineNr">23769 </span> 89/<- %ebx 0/r32/eax -<span id="L23770" class="LineNr">23770 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-compound</span>: -<span id="L23771" class="LineNr">23771 </span> <span class="subxComment"># if base-type is an atom, abort</span> -<span id="L23772" class="LineNr">23772 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23773" class="LineNr">23773 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 -<span id="L23774" class="LineNr">23774 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr</span>: -<span id="L23775" class="LineNr">23775 </span> <span class="subxComment"># if type->left not addr, abort</span> -<span id="L23776" class="LineNr">23776 </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="L23777" class="LineNr">23777 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L23778" class="LineNr">23778 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23779" class="LineNr">23779 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 -<span id="L23780" class="LineNr">23780 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr-to-stream</span>: -<span id="L23781" class="LineNr">23781 </span> <span class="subxComment"># base-type = base-type->right</span> +<span id="L22662" class="LineNr">22662 </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="L22663" class="LineNr">22663 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22664" class="LineNr">22664 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22665" class="LineNr">22665 </span> <span class="subxComment"># never gets here</span> +<span id="L22666" class="LineNr">22666 </span> +<span id="L22667" class="LineNr">22667 </span><span class="Constant">$check-mu-index-stmt:error-base-array-type-in-register</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#L256'>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 index: var '"</span>) +<span id="L22673" class="LineNr">22673 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22674" class="LineNr">22674 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22675" class="LineNr">22675 </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="L22676" class="LineNr">22676 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22677" class="LineNr">22677 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22678" class="LineNr">22678 </span> <span class="subxComment"># never gets here</span> +<span id="L22679" class="LineNr">22679 </span> +<span id="L22680" class="LineNr">22680 </span><span class="Constant">$check-mu-index-stmt:error-too-few-inouts</span>: +<span id="L22681" class="LineNr">22681 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22682" class="LineNr">22682 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22683" class="LineNr">22683 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22684" class="LineNr">22684 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22685" class="LineNr">22685 </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="L22686" class="LineNr">22686 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22687" class="LineNr">22687 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22688" class="LineNr">22688 </span> <span class="subxComment"># never gets here</span> +<span id="L22689" class="LineNr">22689 </span> +<span id="L22690" class="LineNr">22690 </span><span class="Constant">$check-mu-index-stmt:error-invalid-index-type</span>: +<span id="L22691" class="LineNr">22691 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22692" class="LineNr">22692 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22693" class="LineNr">22693 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22694" class="LineNr">22694 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22695" class="LineNr">22695 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) +<span id="L22696" class="LineNr">22696 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22697" class="LineNr">22697 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22698" class="LineNr">22698 </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="L22699" class="LineNr">22699 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22700" class="LineNr">22700 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22701" class="LineNr">22701 </span> <span class="subxComment"># never gets here</span> +<span id="L22702" class="LineNr">22702 </span> +<span id="L22703" class="LineNr">22703 </span><span class="Constant">$check-mu-index-stmt:error-index-offset-atom-type</span>: +<span id="L22704" class="LineNr">22704 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22705" class="LineNr">22705 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22706" class="LineNr">22706 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22707" class="LineNr">22707 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22708" class="LineNr">22708 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: offset '"</span>) +<span id="L22709" class="LineNr">22709 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22710" class="LineNr">22710 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22711" class="LineNr">22711 </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="L22712" class="LineNr">22712 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22713" class="LineNr">22713 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22714" class="LineNr">22714 </span> <span class="subxComment"># never gets here</span> +<span id="L22715" class="LineNr">22715 </span> +<span id="L22716" class="LineNr">22716 </span><span class="Constant">$check-mu-index-stmt:error-index-on-stack</span>: +<span id="L22717" class="LineNr">22717 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22718" class="LineNr">22718 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22719" class="LineNr">22719 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22720" class="LineNr">22720 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22721" class="LineNr">22721 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) +<span id="L22722" class="LineNr">22722 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22723" class="LineNr">22723 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22724" class="LineNr">22724 </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="L22725" class="LineNr">22725 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22726" class="LineNr">22726 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22727" class="LineNr">22727 </span> <span class="subxComment"># never gets here</span> +<span id="L22728" class="LineNr">22728 </span> +<span id="L22729" class="LineNr">22729 </span><span class="Constant">$check-mu-index-stmt:error-index-needs-offset</span>: +<span id="L22730" class="LineNr">22730 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22731" class="LineNr">22731 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22732" class="LineNr">22732 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22733" class="LineNr">22733 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22734" class="LineNr">22734 </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="L22735" class="LineNr">22735 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22736" class="LineNr">22736 </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="L22737" class="LineNr">22737 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22738" class="LineNr">22738 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22739" class="LineNr">22739 </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="L22740" class="LineNr">22740 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22741" class="LineNr">22741 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22742" class="LineNr">22742 </span> <span class="subxComment"># never gets here</span> +<span id="L22743" class="LineNr">22743 </span> +<span id="L22744" class="LineNr">22744 </span><span class="Constant">$check-mu-index-stmt:error-too-many-inouts</span>: +<span id="L22745" class="LineNr">22745 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22746" class="LineNr">22746 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22747" class="LineNr">22747 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22748" class="LineNr">22748 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22749" class="LineNr">22749 </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="L22750" class="LineNr">22750 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22751" class="LineNr">22751 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22752" class="LineNr">22752 </span> <span class="subxComment"># never gets here</span> +<span id="L22753" class="LineNr">22753 </span> +<span id="L22754" class="LineNr">22754 </span><span class="Constant">$check-mu-index-stmt:error-too-few-outputs</span>: +<span id="L22755" class="LineNr">22755 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22756" class="LineNr">22756 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22757" class="LineNr">22757 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22758" class="LineNr">22758 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22759" class="LineNr">22759 </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="L22760" class="LineNr">22760 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22761" class="LineNr">22761 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22762" class="LineNr">22762 </span> <span class="subxComment"># never gets here</span> +<span id="L22763" class="LineNr">22763 </span> +<span id="L22764" class="LineNr">22764 </span><span class="Constant">$check-mu-index-stmt:error-too-many-outputs</span>: +<span id="L22765" class="LineNr">22765 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22766" class="LineNr">22766 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22767" class="LineNr">22767 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22768" class="LineNr">22768 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22769" class="LineNr">22769 </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="L22770" class="LineNr">22770 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22771" class="LineNr">22771 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22772" class="LineNr">22772 </span> <span class="subxComment"># never gets here</span> +<span id="L22773" class="LineNr">22773 </span> +<span id="L22774" class="LineNr">22774 </span><span class="Constant">$check-mu-index-stmt:error-output-not-in-register</span>: +<span id="L22775" class="LineNr">22775 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22776" class="LineNr">22776 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22777" class="LineNr">22777 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22778" class="LineNr">22778 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22779" class="LineNr">22779 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L22780" class="LineNr">22780 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22781" class="LineNr">22781 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22782" class="LineNr">22782 </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="L22783" class="LineNr">22783 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22784" class="LineNr">22784 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22785" class="LineNr">22785 </span> <span class="subxComment"># never gets here</span> +<span id="L22786" class="LineNr">22786 </span> +<span id="L22787" class="LineNr">22787 </span><span class="Constant">$check-mu-index-stmt:error-output-type-not-address</span>: +<span id="L22788" class="LineNr">22788 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22789" class="LineNr">22789 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22790" class="LineNr">22790 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22791" class="LineNr">22791 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22792" class="LineNr">22792 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L22793" class="LineNr">22793 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22794" class="LineNr">22794 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22795" class="LineNr">22795 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) +<span id="L22796" class="LineNr">22796 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22797" class="LineNr">22797 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22798" class="LineNr">22798 </span> <span class="subxComment"># never gets here</span> +<span id="L22799" class="LineNr">22799 </span> +<span id="L22800" class="LineNr">22800 </span><span class="Constant">$check-mu-index-stmt:error-bad-output-type</span>: +<span id="L22801" class="LineNr">22801 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22802" class="LineNr">22802 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22803" class="LineNr">22803 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22804" class="LineNr">22804 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22805" class="LineNr">22805 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L22806" class="LineNr">22806 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22807" class="LineNr">22807 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22808" class="LineNr">22808 </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="L22809" class="LineNr">22809 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22810" class="LineNr">22810 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22811" class="LineNr">22811 </span> <span class="subxComment"># never gets here</span> +<span id="L22812" class="LineNr">22812 </span> +<span id="L22813" class="LineNr">22813 </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="L22814" class="LineNr">22814 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22815" class="LineNr">22815 </span> 55/push-ebp +<span id="L22816" class="LineNr">22816 </span> 89/<- %ebp 4/r32/esp +<span id="L22817" class="LineNr">22817 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22818" class="LineNr">22818 </span> 50/push-eax +<span id="L22819" class="LineNr">22819 </span> 51/push-ecx +<span id="L22820" class="LineNr">22820 </span> 52/push-edx +<span id="L22821" class="LineNr">22821 </span> 53/push-ebx +<span id="L22822" class="LineNr">22822 </span> 56/push-esi +<span id="L22823" class="LineNr">22823 </span> 57/push-edi +<span id="L22824" class="LineNr">22824 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22825" class="LineNr">22825 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22826" class="LineNr">22826 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L22827" class="LineNr">22827 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L22828" class="LineNr">22828 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22829" class="LineNr">22829 </span><span class="Constant">$check-mu-length-stmt:check-no-inouts</span>: +<span id="L22830" class="LineNr">22830 </span> 3d/compare-eax-and 0/imm32 +<span id="L22831" class="LineNr">22831 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-inouts/disp32 +<span id="L22832" class="LineNr">22832 </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="L22833" class="LineNr">22833 </span> 89/<- %ecx 0/r32/eax +<span id="L22834" class="LineNr">22834 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> +<span id="L22835" class="LineNr">22835 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L22836" class="LineNr">22836 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22837" class="LineNr">22837 </span> 89/<- %ebx 0/r32/eax +<span id="L22838" class="LineNr">22838 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> +<span id="L22839" class="LineNr">22839 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L22840" class="LineNr">22840 </span> { +<span id="L22841" class="LineNr">22841 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22842" class="LineNr">22842 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> +<span id="L22843" class="LineNr">22843 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22844" class="LineNr">22844 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-atom-type/disp32 +<span id="L22845" class="LineNr">22845 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 +<span id="L22846" class="LineNr">22846 </span> } +<span id="L22847" class="LineNr">22847 </span><span class="Constant">$check-mu-length-stmt:base-is-compound</span>: +<span id="L22848" class="LineNr">22848 </span> <span class="subxComment"># if type->left not addr or array, abort</span> +<span id="L22849" class="LineNr">22849 </span> { +<span id="L22850" class="LineNr">22850 </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="L22851" class="LineNr">22851 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L22852" class="LineNr">22852 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22853" class="LineNr">22853 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22854" class="LineNr">22854 </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="L22855" class="LineNr">22855 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L22856" class="LineNr">22856 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22857" class="LineNr">22857 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22858" class="LineNr">22858 </span> e9/jump $check-mu-length-stmt:error-base-non-array-type/disp32 +<span id="L22859" class="LineNr">22859 </span> } +<span id="L22860" class="LineNr">22860 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> +<span id="L22861" class="LineNr">22861 </span> { +<span id="L22862" class="LineNr">22862 </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="L22863" class="LineNr">22863 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L22864" class="LineNr">22864 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22865" class="LineNr">22865 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22866" class="LineNr">22866 </span><span class="Constant">$check-mu-length-stmt:base-is-addr</span>: +<span id="L22867" class="LineNr">22867 </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="L22868" class="LineNr">22868 </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="L22869" class="LineNr">22869 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L22870" class="LineNr">22870 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22871" class="LineNr">22871 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 +<span id="L22872" class="LineNr">22872 </span><span class="Constant">$check-mu-length-stmt:check-base-addr-is-register</span>: +<span id="L22873" class="LineNr">22873 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L22874" class="LineNr">22874 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-address-array-type-on-stack/disp32 +<span id="L22875" class="LineNr">22875 </span> } +<span id="L22876" class="LineNr">22876 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> +<span id="L22877" class="LineNr">22877 </span> { +<span id="L22878" class="LineNr">22878 </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="L22879" class="LineNr">22879 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L22880" class="LineNr">22880 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22881" class="LineNr">22881 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22882" class="LineNr">22882 </span><span class="Constant">$check-mu-length-stmt:base-is-array</span>: +<span id="L22883" class="LineNr">22883 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L22884" class="LineNr">22884 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-type-in-register/disp32 +<span id="L22885" class="LineNr">22885 </span> } +<span id="L22886" class="LineNr">22886 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> +<span id="L22887" class="LineNr">22887 </span> { +<span id="L22888" class="LineNr">22888 </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="L22889" class="LineNr">22889 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L22890" class="LineNr">22890 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22891" class="LineNr">22891 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22892" class="LineNr">22892 </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="L22893" class="LineNr">22893 </span> 89/<- %ebx 0/r32/eax +<span id="L22894" class="LineNr">22894 </span> } +<span id="L22895" class="LineNr">22895 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L22896" class="LineNr">22896 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22897" class="LineNr">22897 </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="L22898" class="LineNr">22898 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22899" class="LineNr">22899 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-inouts/disp32 +<span id="L22900" class="LineNr">22900 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L22901" class="LineNr">22901 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L22902" class="LineNr">22902 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22903" class="LineNr">22903 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22904" class="LineNr">22904 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-outputs/disp32 +<span id="L22905" class="LineNr">22905 </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="L22906" class="LineNr">22906 </span> 89/<- %edi 0/r32/eax +<span id="L22907" class="LineNr">22907 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L22908" class="LineNr">22908 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L22909" class="LineNr">22909 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22910" class="LineNr">22910 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L22911" class="LineNr">22911 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22912" class="LineNr">22912 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-invalid-output-type/disp32 +<span id="L22913" class="LineNr">22913 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L22914" class="LineNr">22914 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22915" class="LineNr">22915 </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="L22916" class="LineNr">22916 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22917" class="LineNr">22917 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-outputs/disp32 +<span id="L22918" class="LineNr">22918 </span><span class="Constant">$check-mu-length-stmt:end</span>: +<span id="L22919" class="LineNr">22919 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22920" class="LineNr">22920 </span> 5f/pop-to-edi +<span id="L22921" class="LineNr">22921 </span> 5e/pop-to-esi +<span id="L22922" class="LineNr">22922 </span> 5b/pop-to-ebx +<span id="L22923" class="LineNr">22923 </span> 5a/pop-to-edx +<span id="L22924" class="LineNr">22924 </span> 59/pop-to-ecx +<span id="L22925" class="LineNr">22925 </span> 58/pop-to-eax +<span id="L22926" class="LineNr">22926 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22927" class="LineNr">22927 </span> 89/<- %esp 5/r32/ebp +<span id="L22928" class="LineNr">22928 </span> 5d/pop-to-ebp +<span id="L22929" class="LineNr">22929 </span> c3/return +<span id="L22930" class="LineNr">22930 </span> +<span id="L22931" class="LineNr">22931 </span><span class="Constant">$check-mu-length-stmt:error-base-non-array-type</span>: +<span id="L22932" class="LineNr">22932 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22933" class="LineNr">22933 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22934" class="LineNr">22934 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22935" class="LineNr">22935 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22936" class="LineNr">22936 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) +<span id="L22937" class="LineNr">22937 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-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">"' is not an array\n"</span>) +<span id="L22940" class="LineNr">22940 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22941" class="LineNr">22941 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22942" class="LineNr">22942 </span> <span class="subxComment"># never gets here</span> +<span id="L22943" class="LineNr">22943 </span> +<span id="L22944" class="LineNr">22944 </span><span class="Constant">$check-mu-length-stmt:error-base-array-atom-type</span>: +<span id="L22945" class="LineNr">22945 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22946" class="LineNr">22946 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22947" class="LineNr">22947 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22948" class="LineNr">22948 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22949" class="LineNr">22949 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: array '"</span>) +<span id="L22950" class="LineNr">22950 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22951" class="LineNr">22951 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22952" class="LineNr">22952 </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="L22953" class="LineNr">22953 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22954" class="LineNr">22954 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22955" class="LineNr">22955 </span> <span class="subxComment"># never gets here</span> +<span id="L22956" class="LineNr">22956 </span> +<span id="L22957" class="LineNr">22957 </span><span class="Constant">$check-mu-length-stmt:error-base-address-array-type-on-stack</span>: +<span id="L22958" class="LineNr">22958 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22959" class="LineNr">22959 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22960" class="LineNr">22960 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22961" class="LineNr">22961 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22962" class="LineNr">22962 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) +<span id="L22963" class="LineNr">22963 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22964" class="LineNr">22964 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22965" class="LineNr">22965 </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="L22966" class="LineNr">22966 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22967" class="LineNr">22967 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22968" class="LineNr">22968 </span> <span class="subxComment"># never gets here</span> +<span id="L22969" class="LineNr">22969 </span> +<span id="L22970" class="LineNr">22970 </span><span class="Constant">$check-mu-length-stmt:error-base-array-type-in-register</span>: +<span id="L22971" class="LineNr">22971 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22972" class="LineNr">22972 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22973" class="LineNr">22973 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22974" class="LineNr">22974 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22975" class="LineNr">22975 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) +<span id="L22976" class="LineNr">22976 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22977" class="LineNr">22977 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22978" class="LineNr">22978 </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="L22979" class="LineNr">22979 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22980" class="LineNr">22980 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22981" class="LineNr">22981 </span> <span class="subxComment"># never gets here</span> +<span id="L22982" class="LineNr">22982 </span> +<span id="L22983" class="LineNr">22983 </span><span class="Constant">$check-mu-length-stmt:error-too-few-inouts</span>: +<span id="L22984" class="LineNr">22984 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22985" class="LineNr">22985 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22986" class="LineNr">22986 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22987" class="LineNr">22987 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22988" class="LineNr">22988 </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="L22989" class="LineNr">22989 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22990" class="LineNr">22990 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22991" class="LineNr">22991 </span> <span class="subxComment"># never gets here</span> +<span id="L22992" class="LineNr">22992 </span> +<span id="L22993" class="LineNr">22993 </span><span class="Constant">$check-mu-length-stmt:error-invalid-index-type</span>: +<span id="L22994" class="LineNr">22994 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22995" class="LineNr">22995 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22996" class="LineNr">22996 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22997" class="LineNr">22997 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22998" class="LineNr">22998 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) +<span id="L22999" class="LineNr">22999 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23000" class="LineNr">23000 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23001" class="LineNr">23001 </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="L23002" class="LineNr">23002 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23003" class="LineNr">23003 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23004" class="LineNr">23004 </span> <span class="subxComment"># never gets here</span> +<span id="L23005" class="LineNr">23005 </span> +<span id="L23006" class="LineNr">23006 </span><span class="Constant">$check-mu-length-stmt:error-index-offset-atom-type</span>: +<span id="L23007" class="LineNr">23007 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23008" class="LineNr">23008 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23009" class="LineNr">23009 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23010" class="LineNr">23010 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23011" class="LineNr">23011 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: offset '"</span>) +<span id="L23012" class="LineNr">23012 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23013" class="LineNr">23013 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23014" class="LineNr">23014 </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="L23015" class="LineNr">23015 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23016" class="LineNr">23016 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23017" class="LineNr">23017 </span> <span class="subxComment"># never gets here</span> +<span id="L23018" class="LineNr">23018 </span> +<span id="L23019" class="LineNr">23019 </span><span class="Constant">$check-mu-length-stmt:error-index-on-stack</span>: +<span id="L23020" class="LineNr">23020 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23021" class="LineNr">23021 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23022" class="LineNr">23022 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23023" class="LineNr">23023 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23024" class="LineNr">23024 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) +<span id="L23025" class="LineNr">23025 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23026" class="LineNr">23026 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23027" class="LineNr">23027 </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="L23028" class="LineNr">23028 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23029" class="LineNr">23029 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23030" class="LineNr">23030 </span> <span class="subxComment"># never gets here</span> +<span id="L23031" class="LineNr">23031 </span> +<span id="L23032" class="LineNr">23032 </span><span class="Constant">$check-mu-length-stmt:error-index-needs-offset</span>: +<span id="L23033" class="LineNr">23033 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23034" class="LineNr">23034 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23035" class="LineNr">23035 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23036" class="LineNr">23036 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23037" class="LineNr">23037 </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="L23038" class="LineNr">23038 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23039" class="LineNr">23039 </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="L23040" class="LineNr">23040 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23041" class="LineNr">23041 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23042" class="LineNr">23042 </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="L23043" class="LineNr">23043 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23044" class="LineNr">23044 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23045" class="LineNr">23045 </span> <span class="subxComment"># never gets here</span> +<span id="L23046" class="LineNr">23046 </span> +<span id="L23047" class="LineNr">23047 </span><span class="Constant">$check-mu-length-stmt:error-too-many-inouts</span>: +<span id="L23048" class="LineNr">23048 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23049" class="LineNr">23049 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23050" class="LineNr">23050 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23051" class="LineNr">23051 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23052" class="LineNr">23052 </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="L23053" class="LineNr">23053 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23054" class="LineNr">23054 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23055" class="LineNr">23055 </span> <span class="subxComment"># never gets here</span> +<span id="L23056" class="LineNr">23056 </span> +<span id="L23057" class="LineNr">23057 </span><span class="Constant">$check-mu-length-stmt:error-too-few-outputs</span>: +<span id="L23058" class="LineNr">23058 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23059" class="LineNr">23059 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23060" class="LineNr">23060 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23061" class="LineNr">23061 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23062" class="LineNr">23062 </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="L23063" class="LineNr">23063 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23064" class="LineNr">23064 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23065" class="LineNr">23065 </span> <span class="subxComment"># never gets here</span> +<span id="L23066" class="LineNr">23066 </span> +<span id="L23067" class="LineNr">23067 </span><span class="Constant">$check-mu-length-stmt:error-too-many-outputs</span>: +<span id="L23068" class="LineNr">23068 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23069" class="LineNr">23069 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23070" class="LineNr">23070 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23071" class="LineNr">23071 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23072" class="LineNr">23072 </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="L23073" class="LineNr">23073 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23074" class="LineNr">23074 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23075" class="LineNr">23075 </span> <span class="subxComment"># never gets here</span> +<span id="L23076" class="LineNr">23076 </span> +<span id="L23077" class="LineNr">23077 </span><span class="Constant">$check-mu-length-stmt:error-output-not-in-register</span>: +<span id="L23078" class="LineNr">23078 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23079" class="LineNr">23079 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23080" class="LineNr">23080 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23081" class="LineNr">23081 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23082" class="LineNr">23082 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) +<span id="L23083" class="LineNr">23083 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+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">"' is not in a register\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-length-stmt:error-invalid-output-type</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">": stmt length: output '"</span>) +<span id="L23096" class="LineNr">23096 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-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">"' does not have the right type\n"</span>) +<span id="L23099" class="LineNr">23099 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23100" class="LineNr">23100 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23101" class="LineNr">23101 </span> <span class="subxComment"># never gets here</span> +<span id="L23102" class="LineNr">23102 </span> +<span id="L23103" class="LineNr">23103 </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="L23104" class="LineNr">23104 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23105" class="LineNr">23105 </span> 55/push-ebp +<span id="L23106" class="LineNr">23106 </span> 89/<- %ebp 4/r32/esp +<span id="L23107" class="LineNr">23107 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23108" class="LineNr">23108 </span> 50/push-eax +<span id="L23109" class="LineNr">23109 </span> 51/push-ecx +<span id="L23110" class="LineNr">23110 </span> 52/push-edx +<span id="L23111" class="LineNr">23111 </span> 53/push-ebx +<span id="L23112" class="LineNr">23112 </span> 56/push-esi +<span id="L23113" class="LineNr">23113 </span> 57/push-edi +<span id="L23114" class="LineNr">23114 </span> <span class="subxComment"># esi = stmt</span> +<span id="L23115" class="LineNr">23115 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L23116" class="LineNr">23116 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L23117" class="LineNr">23117 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L23118" class="LineNr">23118 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23119" class="LineNr">23119 </span><span class="Constant">$check-mu-compute-offset-stmt:check-no-inouts</span>: +<span id="L23120" class="LineNr">23120 </span> 3d/compare-eax-and 0/imm32 +<span id="L23121" class="LineNr">23121 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 +<span id="L23122" class="LineNr">23122 </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="L23123" class="LineNr">23123 </span> 89/<- %ecx 0/r32/eax +<span id="L23124" class="LineNr">23124 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> +<span id="L23125" class="LineNr">23125 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L23126" class="LineNr">23126 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23127" class="LineNr">23127 </span> 89/<- %ebx 0/r32/eax +<span id="L23128" class="LineNr">23128 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> +<span id="L23129" class="LineNr">23129 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23130" class="LineNr">23130 </span> { +<span id="L23131" class="LineNr">23131 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23132" class="LineNr">23132 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> +<span id="L23133" class="LineNr">23133 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23134" class="LineNr">23134 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-base-array-atom-type/disp32 +<span id="L23135" class="LineNr">23135 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 +<span id="L23136" class="LineNr">23136 </span> } +<span id="L23137" class="LineNr">23137 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-compound</span>: +<span id="L23138" class="LineNr">23138 </span> <span class="subxComment"># if type->left not addr or array, abort</span> +<span id="L23139" class="LineNr">23139 </span> { +<span id="L23140" class="LineNr">23140 </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="L23141" class="LineNr">23141 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L23142" class="LineNr">23142 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23143" class="LineNr">23143 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23144" class="LineNr">23144 </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="L23145" class="LineNr">23145 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L23146" class="LineNr">23146 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23147" class="LineNr">23147 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23148" class="LineNr">23148 </span> e9/jump $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 +<span id="L23149" class="LineNr">23149 </span> } +<span id="L23150" class="LineNr">23150 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> +<span id="L23151" class="LineNr">23151 </span> { +<span id="L23152" class="LineNr">23152 </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="L23153" class="LineNr">23153 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L23154" class="LineNr">23154 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23155" class="LineNr">23155 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23156" class="LineNr">23156 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-addr</span>: +<span id="L23157" class="LineNr">23157 </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="L23158" class="LineNr">23158 </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="L23159" class="LineNr">23159 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L23160" class="LineNr">23160 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23161" class="LineNr">23161 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 +<span id="L23162" class="LineNr">23162 </span> } +<span id="L23163" class="LineNr">23163 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> +<span id="L23164" class="LineNr">23164 </span> { +<span id="L23165" class="LineNr">23165 </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="L23166" class="LineNr">23166 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L23167" class="LineNr">23167 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23168" class="LineNr">23168 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23169" class="LineNr">23169 </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="L23170" class="LineNr">23170 </span> 89/<- %ebx 0/r32/eax +<span id="L23171" class="LineNr">23171 </span> } +<span id="L23172" class="LineNr">23172 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L23173" class="LineNr">23173 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L23174" class="LineNr">23174 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23175" class="LineNr">23175 </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="L23176" class="LineNr">23176 </span><span class="Constant">$check-mu-compute-offset-stmt:check-single-inout</span>: +<span id="L23177" class="LineNr">23177 </span> 3d/compare-eax-and 0/imm32 +<span id="L23178" class="LineNr">23178 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 +<span id="L23179" class="LineNr">23179 </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="L23180" class="LineNr">23180 </span> 89/<- %ecx 0/r32/eax +<span id="L23181" class="LineNr">23181 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> +<span id="L23182" class="LineNr">23182 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> +<span id="L23183" class="LineNr">23183 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23184" class="LineNr">23184 </span> 89/<- %edx 0/r32/eax +<span id="L23185" class="LineNr">23185 </span> <span class="subxComment"># index type must be a literal or int</span> +<span id="L23186" class="LineNr">23186 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23187" class="LineNr">23187 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 +<span id="L23188" class="LineNr">23188 </span> { +<span id="L23189" class="LineNr">23189 </span><span class="Constant">$check-mu-compute-offset-stmt:index-type-is-atom</span>: +<span id="L23190" class="LineNr">23190 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L23191" class="LineNr">23191 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23192" class="LineNr">23192 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23193" class="LineNr">23193 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L23194" class="LineNr">23194 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23195" class="LineNr">23195 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23196" class="LineNr">23196 </span> e9/jump $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 +<span id="L23197" class="LineNr">23197 </span> } +<span id="L23198" class="LineNr">23198 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L23199" class="LineNr">23199 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23200" class="LineNr">23200 </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="L23201" class="LineNr">23201 </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="L23202" class="LineNr">23202 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23203" class="LineNr">23203 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-inouts/disp32 +<span id="L23204" class="LineNr">23204 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L23205" class="LineNr">23205 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L23206" class="LineNr">23206 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23207" class="LineNr">23207 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23208" class="LineNr">23208 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-outputs/disp32 +<span id="L23209" class="LineNr">23209 </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="L23210" class="LineNr">23210 </span> 89/<- %edi 0/r32/eax +<span id="L23211" class="LineNr">23211 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L23212" class="LineNr">23212 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L23213" class="LineNr">23213 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23214" class="LineNr">23214 </span> 89/<- %edx 0/r32/eax +<span id="L23215" class="LineNr">23215 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23216" class="LineNr">23216 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 +<span id="L23217" class="LineNr">23217 </span> <span class="subxComment"># type must start with (offset ...)</span> +<span id="L23218" class="LineNr">23218 </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="L23219" class="LineNr">23219 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L23220" class="LineNr">23220 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23221" class="LineNr">23221 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 +<span id="L23222" class="LineNr">23222 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> +<span id="L23223" class="LineNr">23223 </span> (<a href='mu.subx.html#L25286'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L23224" class="LineNr">23224 </span> 89/<- %ebx 0/r32/eax +<span id="L23225" class="LineNr">23225 </span> (<a href='mu.subx.html#L25286'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L23226" class="LineNr">23226 </span> (<a href='mu.subx.html#L25345'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L23227" class="LineNr">23227 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23228" class="LineNr">23228 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-bad-output-type/disp32 +<span id="L23229" class="LineNr">23229 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L23230" class="LineNr">23230 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23231" class="LineNr">23231 </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="L23232" class="LineNr">23232 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23233" class="LineNr">23233 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-outputs/disp32 +<span id="L23234" class="LineNr">23234 </span><span class="Constant">$check-mu-compute-offset-stmt:end</span>: +<span id="L23235" class="LineNr">23235 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23236" class="LineNr">23236 </span> 5f/pop-to-edi +<span id="L23237" class="LineNr">23237 </span> 5e/pop-to-esi +<span id="L23238" class="LineNr">23238 </span> 5b/pop-to-ebx +<span id="L23239" class="LineNr">23239 </span> 5a/pop-to-edx +<span id="L23240" class="LineNr">23240 </span> 59/pop-to-ecx +<span id="L23241" class="LineNr">23241 </span> 58/pop-to-eax +<span id="L23242" class="LineNr">23242 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23243" class="LineNr">23243 </span> 89/<- %esp 5/r32/ebp +<span id="L23244" class="LineNr">23244 </span> 5d/pop-to-ebp +<span id="L23245" class="LineNr">23245 </span> c3/return +<span id="L23246" class="LineNr">23246 </span> +<span id="L23247" class="LineNr">23247 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-non-array-type</span>: +<span id="L23248" class="LineNr">23248 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23249" class="LineNr">23249 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23250" class="LineNr">23250 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23251" class="LineNr">23251 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23252" class="LineNr">23252 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: var '"</span>) +<span id="L23253" class="LineNr">23253 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23254" class="LineNr">23254 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23255" class="LineNr">23255 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) +<span id="L23256" class="LineNr">23256 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23257" class="LineNr">23257 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23258" class="LineNr">23258 </span> <span class="subxComment"># never gets here</span> +<span id="L23259" class="LineNr">23259 </span> +<span id="L23260" class="LineNr">23260 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-array-atom-type</span>: +<span id="L23261" class="LineNr">23261 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23262" class="LineNr">23262 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23263" class="LineNr">23263 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23264" class="LineNr">23264 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23265" class="LineNr">23265 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: array '"</span>) +<span id="L23266" class="LineNr">23266 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23267" class="LineNr">23267 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23268" class="LineNr">23268 </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="L23269" class="LineNr">23269 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23270" class="LineNr">23270 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23271" class="LineNr">23271 </span> <span class="subxComment"># never gets here</span> +<span id="L23272" class="LineNr">23272 </span> +<span id="L23273" class="LineNr">23273 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-inouts</span>: +<span id="L23274" class="LineNr">23274 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23275" class="LineNr">23275 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23276" class="LineNr">23276 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23277" class="LineNr">23277 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23278" class="LineNr">23278 </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="L23279" class="LineNr">23279 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23280" class="LineNr">23280 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23281" class="LineNr">23281 </span> <span class="subxComment"># never gets here</span> +<span id="L23282" class="LineNr">23282 </span> +<span id="L23283" class="LineNr">23283 </span><span class="Constant">$check-mu-compute-offset-stmt:error-invalid-index-type</span>: +<span id="L23284" class="LineNr">23284 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23285" class="LineNr">23285 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23286" class="LineNr">23286 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23287" class="LineNr">23287 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23288" class="LineNr">23288 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: second argument '"</span>) +<span id="L23289" class="LineNr">23289 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23290" class="LineNr">23290 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23291" class="LineNr">23291 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) +<span id="L23292" class="LineNr">23292 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23293" class="LineNr">23293 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23294" class="LineNr">23294 </span> <span class="subxComment"># never gets here</span> +<span id="L23295" class="LineNr">23295 </span> +<span id="L23296" class="LineNr">23296 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-offset-atom-type</span>: +<span id="L23297" class="LineNr">23297 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23298" class="LineNr">23298 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23299" class="LineNr">23299 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23300" class="LineNr">23300 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23301" class="LineNr">23301 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: offset '"</span>) +<span id="L23302" class="LineNr">23302 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23303" class="LineNr">23303 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23304" class="LineNr">23304 </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="L23305" class="LineNr">23305 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23306" class="LineNr">23306 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23307" class="LineNr">23307 </span> <span class="subxComment"># never gets here</span> +<span id="L23308" class="LineNr">23308 </span> +<span id="L23309" class="LineNr">23309 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-on-stack</span>: +<span id="L23310" class="LineNr">23310 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23311" class="LineNr">23311 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23312" class="LineNr">23312 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23313" class="LineNr">23313 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23314" class="LineNr">23314 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: second argument '"</span>) +<span id="L23315" class="LineNr">23315 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23316" class="LineNr">23316 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23317" class="LineNr">23317 </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="L23318" class="LineNr">23318 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23319" class="LineNr">23319 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23320" class="LineNr">23320 </span> <span class="subxComment"># never gets here</span> +<span id="L23321" class="LineNr">23321 </span> +<span id="L23322" class="LineNr">23322 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-inouts</span>: +<span id="L23323" class="LineNr">23323 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23324" class="LineNr">23324 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23325" class="LineNr">23325 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23326" class="LineNr">23326 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23327" class="LineNr">23327 </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="L23328" class="LineNr">23328 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23329" class="LineNr">23329 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23330" class="LineNr">23330 </span> <span class="subxComment"># never gets here</span> +<span id="L23331" class="LineNr">23331 </span> +<span id="L23332" class="LineNr">23332 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-outputs</span>: +<span id="L23333" class="LineNr">23333 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23334" class="LineNr">23334 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23335" class="LineNr">23335 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23336" class="LineNr">23336 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23337" class="LineNr">23337 </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="L23338" class="LineNr">23338 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23339" class="LineNr">23339 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23340" class="LineNr">23340 </span> <span class="subxComment"># never gets here</span> +<span id="L23341" class="LineNr">23341 </span> +<span id="L23342" class="LineNr">23342 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-outputs</span>: +<span id="L23343" class="LineNr">23343 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23344" class="LineNr">23344 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23345" class="LineNr">23345 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23346" class="LineNr">23346 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23347" class="LineNr">23347 </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="L23348" class="LineNr">23348 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23349" class="LineNr">23349 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23350" class="LineNr">23350 </span> <span class="subxComment"># never gets here</span> +<span id="L23351" class="LineNr">23351 </span> +<span id="L23352" class="LineNr">23352 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-not-in-register</span>: +<span id="L23353" class="LineNr">23353 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23354" class="LineNr">23354 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23355" class="LineNr">23355 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23356" class="LineNr">23356 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23357" class="LineNr">23357 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) +<span id="L23358" class="LineNr">23358 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23359" class="LineNr">23359 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23360" class="LineNr">23360 </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="L23361" class="LineNr">23361 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23362" class="LineNr">23362 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23363" class="LineNr">23363 </span> <span class="subxComment"># never gets here</span> +<span id="L23364" class="LineNr">23364 </span> +<span id="L23365" class="LineNr">23365 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-type-not-offset</span>: +<span id="L23366" class="LineNr">23366 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23367" class="LineNr">23367 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23368" class="LineNr">23368 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23369" class="LineNr">23369 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23370" class="LineNr">23370 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) +<span id="L23371" class="LineNr">23371 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23372" class="LineNr">23372 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23373" class="LineNr">23373 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an offset\n"</span>) +<span id="L23374" class="LineNr">23374 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23375" class="LineNr">23375 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23376" class="LineNr">23376 </span> <span class="subxComment"># never gets here</span> +<span id="L23377" class="LineNr">23377 </span> +<span id="L23378" class="LineNr">23378 </span><span class="Constant">$check-mu-compute-offset-stmt:error-bad-output-type</span>: +<span id="L23379" class="LineNr">23379 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23380" class="LineNr">23380 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23381" class="LineNr">23381 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23382" class="LineNr">23382 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23383" class="LineNr">23383 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) +<span id="L23384" class="LineNr">23384 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23385" class="LineNr">23385 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23386" class="LineNr">23386 </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="L23387" class="LineNr">23387 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23388" class="LineNr">23388 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23389" class="LineNr">23389 </span> <span class="subxComment"># never gets here</span> +<span id="L23390" class="LineNr">23390 </span> +<span id="L23391" class="LineNr">23391 </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="L23392" class="LineNr">23392 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23393" class="LineNr">23393 </span> 55/push-ebp +<span id="L23394" class="LineNr">23394 </span> 89/<- %ebp 4/r32/esp +<span id="L23395" class="LineNr">23395 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23396" class="LineNr">23396 </span> 50/push-eax +<span id="L23397" class="LineNr">23397 </span> 51/push-ecx +<span id="L23398" class="LineNr">23398 </span> 53/push-ebx +<span id="L23399" class="LineNr">23399 </span> 56/push-esi +<span id="L23400" class="LineNr">23400 </span> 57/push-edi +<span id="L23401" class="LineNr">23401 </span> <span class="subxComment"># esi = stmt</span> +<span id="L23402" class="LineNr">23402 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L23403" class="LineNr">23403 </span><span class="Constant">$check-mu-copy-object-stmt:check-for-output</span>: +<span id="L23404" class="LineNr">23404 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L23405" class="LineNr">23405 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23406" class="LineNr">23406 </span> 3d/compare-eax-and 0/imm32 +<span id="L23407" class="LineNr">23407 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-too-many-outputs/disp32 +<span id="L23408" class="LineNr">23408 </span><span class="Constant">$check-mu-copy-object-stmt:get-left</span>: +<span id="L23409" class="LineNr">23409 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L23410" class="LineNr">23410 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23411" class="LineNr">23411 </span> 89/<- %edi 0/r32/eax +<span id="L23412" class="LineNr">23412 </span> <span class="subxComment"># zero inouts</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-mu-copy-object-stmt:error-incorrect-inouts/disp32 +<span id="L23415" class="LineNr">23415 </span><span class="Constant">$check-mu-copy-object-stmt:get-src</span>: +<span id="L23416" class="LineNr">23416 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> +<span id="L23417" class="LineNr">23417 </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="L23418" class="LineNr">23418 </span> 89/<- %esi 0/r32/eax +<span id="L23419" class="LineNr">23419 </span> <span class="subxComment"># 1 inout</span> +<span id="L23420" class="LineNr">23420 </span> 3d/compare-eax-and 0/imm32 +<span id="L23421" class="LineNr">23421 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 +<span id="L23422" class="LineNr">23422 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L23423" class="LineNr">23423 </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="L23424" class="LineNr">23424 </span> 3d/compare-eax-and 0/imm32 +<span id="L23425" class="LineNr">23425 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 +<span id="L23426" class="LineNr">23426 </span><span class="Constant">$check-mu-copy-object-stmt:types</span>: +<span id="L23427" class="LineNr">23427 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> +<span id="L23428" class="LineNr">23428 </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="L23429" class="LineNr">23429 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23430" class="LineNr">23430 </span> 89/<- %ecx 0/r32/eax +<span id="L23431" class="LineNr">23431 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> +<span id="L23432" class="LineNr">23432 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23433" class="LineNr">23433 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23434" class="LineNr">23434 </span> { +<span id="L23435" class="LineNr">23435 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23436" class="LineNr">23436 </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="L23437" class="LineNr">23437 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> +<span id="L23438" class="LineNr">23438 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23439" class="LineNr">23439 </span> { +<span id="L23440" class="LineNr">23440 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23441" class="LineNr">23441 </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="L23442" class="LineNr">23442 </span> } +<span id="L23443" class="LineNr">23443 </span> 89/<- %ecx 0/r32/eax +<span id="L23444" class="LineNr">23444 </span> } +<span id="L23445" class="LineNr">23445 </span> <span class="subxComment"># if src-type is not addr, abort</span> +<span id="L23446" class="LineNr">23446 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L23447" class="LineNr">23447 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23448" class="LineNr">23448 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 +<span id="L23449" class="LineNr">23449 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> +<span id="L23450" class="LineNr">23450 </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="L23451" class="LineNr">23451 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23452" class="LineNr">23452 </span> 89/<- %ebx 0/r32/eax +<span id="L23453" class="LineNr">23453 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> +<span id="L23454" class="LineNr">23454 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23455" class="LineNr">23455 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23456" class="LineNr">23456 </span> { +<span id="L23457" class="LineNr">23457 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23458" class="LineNr">23458 </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="L23459" class="LineNr">23459 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> +<span id="L23460" class="LineNr">23460 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23461" class="LineNr">23461 </span> { +<span id="L23462" class="LineNr">23462 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23463" class="LineNr">23463 </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="L23464" class="LineNr">23464 </span> } +<span id="L23465" class="LineNr">23465 </span> 89/<- %ebx 0/r32/eax +<span id="L23466" class="LineNr">23466 </span> } +<span id="L23467" class="LineNr">23467 </span> <span class="subxComment"># if (dest-type != src-type) abort</span> +<span id="L23468" class="LineNr">23468 </span> (<a href='mu.subx.html#L25345'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> +<span id="L23469" class="LineNr">23469 </span> 3d/compare-eax-and 0/imm32 +<span id="L23470" class="LineNr">23470 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 +<span id="L23471" class="LineNr">23471 </span><span class="Constant">$check-mu-copy-object-stmt:end</span>: +<span id="L23472" class="LineNr">23472 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23473" class="LineNr">23473 </span> 5f/pop-to-edi +<span id="L23474" class="LineNr">23474 </span> 5e/pop-to-esi +<span id="L23475" class="LineNr">23475 </span> 5b/pop-to-ebx +<span id="L23476" class="LineNr">23476 </span> 59/pop-to-ecx +<span id="L23477" class="LineNr">23477 </span> 58/pop-to-eax +<span id="L23478" class="LineNr">23478 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23479" class="LineNr">23479 </span> 89/<- %esp 5/r32/ebp +<span id="L23480" class="LineNr">23480 </span> 5d/pop-to-ebp +<span id="L23481" class="LineNr">23481 </span> c3/return +<span id="L23482" class="LineNr">23482 </span> +<span id="L23483" class="LineNr">23483 </span><span class="Constant">$check-mu-copy-object-stmt:error-incorrect-inouts</span>: +<span id="L23484" class="LineNr">23484 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23485" class="LineNr">23485 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23486" class="LineNr">23486 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23487" class="LineNr">23487 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23488" class="LineNr">23488 </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="L23489" class="LineNr">23489 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23490" class="LineNr">23490 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23491" class="LineNr">23491 </span> <span class="subxComment"># never gets here</span> +<span id="L23492" class="LineNr">23492 </span> +<span id="L23493" class="LineNr">23493 </span><span class="Constant">$check-mu-copy-object-stmt:error-too-many-outputs</span>: +<span id="L23494" class="LineNr">23494 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23495" class="LineNr">23495 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23496" class="LineNr">23496 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23497" class="LineNr">23497 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23498" class="LineNr">23498 </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="L23499" class="LineNr">23499 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23500" class="LineNr">23500 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23501" class="LineNr">23501 </span> <span class="subxComment"># never gets here</span> +<span id="L23502" class="LineNr">23502 </span> +<span id="L23503" class="LineNr">23503 </span><span class="Constant">$check-mu-copy-object-stmt:error-invalid-types</span>: +<span id="L23504" class="LineNr">23504 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23505" class="LineNr">23505 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23506" class="LineNr">23506 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23507" class="LineNr">23507 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23508" class="LineNr">23508 </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="L23509" class="LineNr">23509 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23510" class="LineNr">23510 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23511" class="LineNr">23511 </span> <span class="subxComment"># never gets here</span> +<span id="L23512" class="LineNr">23512 </span> +<span id="L23513" class="LineNr">23513 </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="L23514" class="LineNr">23514 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23515" class="LineNr">23515 </span> 55/push-ebp +<span id="L23516" class="LineNr">23516 </span> 89/<- %ebp 4/r32/esp +<span id="L23517" class="LineNr">23517 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23518" class="LineNr">23518 </span> 50/push-eax +<span id="L23519" class="LineNr">23519 </span> 51/push-ecx +<span id="L23520" class="LineNr">23520 </span> 53/push-ebx +<span id="L23521" class="LineNr">23521 </span> 56/push-esi +<span id="L23522" class="LineNr">23522 </span> 57/push-edi +<span id="L23523" class="LineNr">23523 </span> <span class="subxComment"># esi = stmt</span> +<span id="L23524" class="LineNr">23524 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L23525" class="LineNr">23525 </span><span class="Constant">$check-mu-clear-object-stmt:check-for-output</span>: +<span id="L23526" class="LineNr">23526 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L23527" class="LineNr">23527 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23528" class="LineNr">23528 </span> 3d/compare-eax-and 0/imm32 +<span id="L23529" class="LineNr">23529 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-too-many-outputs/disp32 +<span id="L23530" class="LineNr">23530 </span><span class="Constant">$check-mu-clear-object-stmt:get-left</span>: +<span id="L23531" class="LineNr">23531 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L23532" class="LineNr">23532 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23533" class="LineNr">23533 </span> 89/<- %edi 0/r32/eax +<span id="L23534" class="LineNr">23534 </span> <span class="subxComment"># zero inouts</span> +<span id="L23535" class="LineNr">23535 </span> 3d/compare-eax-and 0/imm32 +<span id="L23536" class="LineNr">23536 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 +<span id="L23537" class="LineNr">23537 </span><span class="Constant">$check-mu-clear-object-stmt:get-src</span>: +<span id="L23538" class="LineNr">23538 </span> <span class="subxComment"># > 1 inout</span> +<span id="L23539" class="LineNr">23539 </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="L23540" class="LineNr">23540 </span> 3d/compare-eax-and 0/imm32 +<span id="L23541" class="LineNr">23541 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 +<span id="L23542" class="LineNr">23542 </span><span class="Constant">$check-mu-clear-object-stmt:types</span>: +<span id="L23543" class="LineNr">23543 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> +<span id="L23544" class="LineNr">23544 </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="L23545" class="LineNr">23545 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23546" class="LineNr">23546 </span> 89/<- %ecx 0/r32/eax +<span id="L23547" class="LineNr">23547 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> +<span id="L23548" class="LineNr">23548 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23549" class="LineNr">23549 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23550" class="LineNr">23550 </span> { +<span id="L23551" class="LineNr">23551 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23552" class="LineNr">23552 </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="L23553" class="LineNr">23553 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> +<span id="L23554" class="LineNr">23554 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23555" class="LineNr">23555 </span> { +<span id="L23556" class="LineNr">23556 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23557" class="LineNr">23557 </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="L23558" class="LineNr">23558 </span> } +<span id="L23559" class="LineNr">23559 </span> 89/<- %ecx 0/r32/eax +<span id="L23560" class="LineNr">23560 </span> } +<span id="L23561" class="LineNr">23561 </span> <span class="subxComment"># if src-type is not addr, abort</span> +<span id="L23562" class="LineNr">23562 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L23563" class="LineNr">23563 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23564" class="LineNr">23564 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-invalid-type/disp32 +<span id="L23565" class="LineNr">23565 </span><span class="Constant">$check-mu-clear-object-stmt:end</span>: +<span id="L23566" class="LineNr">23566 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23567" class="LineNr">23567 </span> 5f/pop-to-edi +<span id="L23568" class="LineNr">23568 </span> 5e/pop-to-esi +<span id="L23569" class="LineNr">23569 </span> 5b/pop-to-ebx +<span id="L23570" class="LineNr">23570 </span> 59/pop-to-ecx +<span id="L23571" class="LineNr">23571 </span> 58/pop-to-eax +<span id="L23572" class="LineNr">23572 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23573" class="LineNr">23573 </span> 89/<- %esp 5/r32/ebp +<span id="L23574" class="LineNr">23574 </span> 5d/pop-to-ebp +<span id="L23575" class="LineNr">23575 </span> c3/return +<span id="L23576" class="LineNr">23576 </span> +<span id="L23577" class="LineNr">23577 </span><span class="Constant">$check-mu-clear-object-stmt:error-incorrect-inouts</span>: +<span id="L23578" class="LineNr">23578 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23579" class="LineNr">23579 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23580" class="LineNr">23580 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23581" class="LineNr">23581 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23582" class="LineNr">23582 </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="L23583" class="LineNr">23583 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23584" class="LineNr">23584 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23585" class="LineNr">23585 </span> <span class="subxComment"># never gets here</span> +<span id="L23586" class="LineNr">23586 </span> +<span id="L23587" class="LineNr">23587 </span><span class="Constant">$check-mu-clear-object-stmt:error-too-many-outputs</span>: +<span id="L23588" class="LineNr">23588 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23589" class="LineNr">23589 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23590" class="LineNr">23590 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23591" class="LineNr">23591 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23592" class="LineNr">23592 </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="L23593" class="LineNr">23593 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23594" class="LineNr">23594 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23595" class="LineNr">23595 </span> <span class="subxComment"># never gets here</span> +<span id="L23596" class="LineNr">23596 </span> +<span id="L23597" class="LineNr">23597 </span><span class="Constant">$check-mu-clear-object-stmt:error-invalid-type</span>: +<span id="L23598" class="LineNr">23598 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23599" class="LineNr">23599 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23600" class="LineNr">23600 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23601" class="LineNr">23601 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23602" class="LineNr">23602 </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="L23603" class="LineNr">23603 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23604" class="LineNr">23604 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23605" class="LineNr">23605 </span> <span class="subxComment"># never gets here</span> +<span id="L23606" class="LineNr">23606 </span> +<span id="L23607" class="LineNr">23607 </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="L23608" class="LineNr">23608 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23609" class="LineNr">23609 </span> 55/push-ebp +<span id="L23610" class="LineNr">23610 </span> 89/<- %ebp 4/r32/esp +<span id="L23611" class="LineNr">23611 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23612" class="LineNr">23612 </span> 50/push-eax +<span id="L23613" class="LineNr">23613 </span> 53/push-ebx +<span id="L23614" class="LineNr">23614 </span> 56/push-esi +<span id="L23615" class="LineNr">23615 </span> 57/push-edi +<span id="L23616" class="LineNr">23616 </span> <span class="subxComment"># esi = stmt</span> +<span id="L23617" class="LineNr">23617 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L23618" class="LineNr">23618 </span><span class="Constant">$check-mu-allocate-stmt:check-for-output</span>: +<span id="L23619" class="LineNr">23619 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L23620" class="LineNr">23620 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23621" class="LineNr">23621 </span> 3d/compare-eax-and 0/imm32 +<span id="L23622" class="LineNr">23622 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-too-many-outputs/disp32 +<span id="L23623" class="LineNr">23623 </span><span class="Constant">$check-mu-allocate-stmt:get-target</span>: +<span id="L23624" class="LineNr">23624 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L23625" class="LineNr">23625 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23626" class="LineNr">23626 </span> 89/<- %edi 0/r32/eax +<span id="L23627" class="LineNr">23627 </span> <span class="subxComment"># zero inouts</span> +<span id="L23628" class="LineNr">23628 </span> 3d/compare-eax-and 0/imm32 +<span id="L23629" class="LineNr">23629 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 +<span id="L23630" class="LineNr">23630 </span> <span class="subxComment"># > 1 inouts</span> +<span id="L23631" class="LineNr">23631 </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="L23632" class="LineNr">23632 </span> 3d/compare-eax-and 0/imm32 +<span id="L23633" class="LineNr">23633 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 +<span id="L23634" class="LineNr">23634 </span><span class="Constant">$check-mu-allocate-stmt:check-type</span>: +<span id="L23635" class="LineNr">23635 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> +<span id="L23636" class="LineNr">23636 </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="L23637" class="LineNr">23637 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23638" class="LineNr">23638 </span> 89/<- %ebx 0/r32/eax +<span id="L23639" class="LineNr">23639 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> +<span id="L23640" class="LineNr">23640 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23641" class="LineNr">23641 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23642" class="LineNr">23642 </span> { +<span id="L23643" class="LineNr">23643 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23644" class="LineNr">23644 </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="L23645" class="LineNr">23645 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> +<span id="L23646" class="LineNr">23646 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23647" class="LineNr">23647 </span> { +<span id="L23648" class="LineNr">23648 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23649" class="LineNr">23649 </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="L23650" class="LineNr">23650 </span> } +<span id="L23651" class="LineNr">23651 </span> 89/<- %ebx 0/r32/eax +<span id="L23652" class="LineNr">23652 </span> } +<span id="L23653" class="LineNr">23653 </span> <span class="subxComment"># if target-type is not addr, abort</span> +<span id="L23654" class="LineNr">23654 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L23655" class="LineNr">23655 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23656" class="LineNr">23656 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 +<span id="L23657" class="LineNr">23657 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> +<span id="L23658" class="LineNr">23658 </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="L23659" class="LineNr">23659 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23660" class="LineNr">23660 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-invalid-type/disp32 +<span id="L23661" class="LineNr">23661 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> +<span id="L23662" class="LineNr">23662 </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="L23663" class="LineNr">23663 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> +<span id="L23664" class="LineNr">23664 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23665" class="LineNr">23665 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 +<span id="L23666" class="LineNr">23666 </span><span class="Constant">$check-mu-allocate-stmt:end</span>: +<span id="L23667" class="LineNr">23667 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23668" class="LineNr">23668 </span> 5f/pop-to-edi +<span id="L23669" class="LineNr">23669 </span> 5e/pop-to-esi +<span id="L23670" class="LineNr">23670 </span> 5b/pop-to-ebx +<span id="L23671" class="LineNr">23671 </span> 58/pop-to-eax +<span id="L23672" class="LineNr">23672 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23673" class="LineNr">23673 </span> 89/<- %esp 5/r32/ebp +<span id="L23674" class="LineNr">23674 </span> 5d/pop-to-ebp +<span id="L23675" class="LineNr">23675 </span> c3/return +<span id="L23676" class="LineNr">23676 </span> +<span id="L23677" class="LineNr">23677 </span><span class="Constant">$check-mu-allocate-stmt:error-incorrect-inouts</span>: +<span id="L23678" class="LineNr">23678 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23679" class="LineNr">23679 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23680" class="LineNr">23680 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23681" class="LineNr">23681 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23682" class="LineNr">23682 </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="L23683" class="LineNr">23683 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23684" class="LineNr">23684 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23685" class="LineNr">23685 </span> <span class="subxComment"># never gets here</span> +<span id="L23686" class="LineNr">23686 </span> +<span id="L23687" class="LineNr">23687 </span><span class="Constant">$check-mu-allocate-stmt:error-too-many-outputs</span>: +<span id="L23688" class="LineNr">23688 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23689" class="LineNr">23689 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23690" class="LineNr">23690 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23691" class="LineNr">23691 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23692" class="LineNr">23692 </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="L23693" class="LineNr">23693 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23694" class="LineNr">23694 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23695" class="LineNr">23695 </span> <span class="subxComment"># never gets here</span> +<span id="L23696" class="LineNr">23696 </span> +<span id="L23697" class="LineNr">23697 </span><span class="Constant">$check-mu-allocate-stmt:error-invalid-type</span>: +<span id="L23698" class="LineNr">23698 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23699" class="LineNr">23699 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23700" class="LineNr">23700 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-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">": stmt <a href='../120allocate.subx.html#L66'>allocate</a>: inout '"</span>) +<span id="L23703" class="LineNr">23703 </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="L23704" class="LineNr">23704 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23705" class="LineNr">23705 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23706" class="LineNr">23706 </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="L23707" class="LineNr">23707 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23708" class="LineNr">23708 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23709" class="LineNr">23709 </span> <span class="subxComment"># never gets here</span> +<span id="L23710" class="LineNr">23710 </span> +<span id="L23711" class="LineNr">23711 </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="L23712" class="LineNr">23712 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23713" class="LineNr">23713 </span> 55/push-ebp +<span id="L23714" class="LineNr">23714 </span> 89/<- %ebp 4/r32/esp +<span id="L23715" class="LineNr">23715 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23716" class="LineNr">23716 </span> 50/push-eax +<span id="L23717" class="LineNr">23717 </span> 53/push-ebx +<span id="L23718" class="LineNr">23718 </span> 56/push-esi +<span id="L23719" class="LineNr">23719 </span> 57/push-edi +<span id="L23720" class="LineNr">23720 </span> <span class="subxComment"># esi = stmt</span> +<span id="L23721" class="LineNr">23721 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L23722" class="LineNr">23722 </span><span class="Constant">$check-mu-populate-stmt:check-for-output</span>: +<span id="L23723" class="LineNr">23723 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L23724" class="LineNr">23724 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23725" class="LineNr">23725 </span> 3d/compare-eax-and 0/imm32 +<span id="L23726" class="LineNr">23726 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-too-many-outputs/disp32 +<span id="L23727" class="LineNr">23727 </span><span class="Constant">$check-mu-populate-stmt:get-target</span>: +<span id="L23728" class="LineNr">23728 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L23729" class="LineNr">23729 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23730" class="LineNr">23730 </span> 89/<- %edi 0/r32/eax +<span id="L23731" class="LineNr">23731 </span> <span class="subxComment"># zero inouts</span> +<span id="L23732" class="LineNr">23732 </span> 3d/compare-eax-and 0/imm32 +<span id="L23733" class="LineNr">23733 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 +<span id="L23734" class="LineNr">23734 </span><span class="Constant">$check-mu-populate-stmt:get-length</span>: +<span id="L23735" class="LineNr">23735 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> +<span id="L23736" class="LineNr">23736 </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="L23737" class="LineNr">23737 </span> 89/<- %esi 0/r32/eax +<span id="L23738" class="LineNr">23738 </span> <span class="subxComment"># 1 inout</span> +<span id="L23739" class="LineNr">23739 </span> 3d/compare-eax-and 0/imm32 +<span id="L23740" class="LineNr">23740 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 +<span id="L23741" class="LineNr">23741 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L23742" class="LineNr">23742 </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="L23743" class="LineNr">23743 </span> 3d/compare-eax-and 0/imm32 +<span id="L23744" class="LineNr">23744 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-incorrect-inouts/disp32 +<span id="L23745" class="LineNr">23745 </span><span class="Constant">$check-mu-populate-stmt:check-target-type</span>: +<span id="L23746" class="LineNr">23746 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> +<span id="L23747" class="LineNr">23747 </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="L23748" class="LineNr">23748 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23749" class="LineNr">23749 </span> 89/<- %ebx 0/r32/eax +<span id="L23750" class="LineNr">23750 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-deref</span>: +<span id="L23751" class="LineNr">23751 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> +<span id="L23752" class="LineNr">23752 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23753" class="LineNr">23753 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23754" class="LineNr">23754 </span> { +<span id="L23755" class="LineNr">23755 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23756" class="LineNr">23756 </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="L23757" class="LineNr">23757 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> +<span id="L23758" class="LineNr">23758 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23759" class="LineNr">23759 </span> { +<span id="L23760" class="LineNr">23760 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23761" class="LineNr">23761 </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="L23762" class="LineNr">23762 </span> } +<span id="L23763" class="LineNr">23763 </span> 89/<- %ebx 0/r32/eax +<span id="L23764" class="LineNr">23764 </span> } +<span id="L23765" class="LineNr">23765 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-addr</span>: +<span id="L23766" class="LineNr">23766 </span> <span class="subxComment"># if target-type is not addr, abort</span> +<span id="L23767" class="LineNr">23767 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L23768" class="LineNr">23768 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23769" class="LineNr">23769 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L23770" class="LineNr">23770 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> +<span id="L23771" class="LineNr">23771 </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="L23772" class="LineNr">23772 </span> 89/<- %ebx 0/r32/eax +<span id="L23773" class="LineNr">23773 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23774" class="LineNr">23774 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L23775" class="LineNr">23775 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-handle</span>: +<span id="L23776" class="LineNr">23776 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> +<span id="L23777" class="LineNr">23777 </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="L23778" class="LineNr">23778 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> +<span id="L23779" class="LineNr">23779 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23780" class="LineNr">23780 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L23781" class="LineNr">23781 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> <span id="L23782" class="LineNr">23782 </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="L23783" class="LineNr">23783 </span> 89/<- %ebx 0/r32/eax -<span id="L23784" class="LineNr">23784 </span> <span class="subxComment"># ensure base-type->left == stream</span> -<span id="L23785" class="LineNr">23785 </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="L23786" class="LineNr">23786 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> -<span id="L23787" class="LineNr">23787 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23788" class="LineNr">23788 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 -<span id="L23789" class="LineNr">23789 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> -<span id="L23790" class="LineNr">23790 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L23791" class="LineNr">23791 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23792" class="LineNr">23792 </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="L23793" class="LineNr">23793 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-single-inout</span>: -<span id="L23794" class="LineNr">23794 </span> 3d/compare-eax-and 0/imm32 -<span id="L23795" class="LineNr">23795 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 -<span id="L23796" class="LineNr">23796 </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="L23797" class="LineNr">23797 </span> 89/<- %ecx 0/r32/eax -<span id="L23798" class="LineNr">23798 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> -<span id="L23799" class="LineNr">23799 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23800" class="LineNr">23800 </span> 89/<- %edx 0/r32/eax -<span id="L23801" class="LineNr">23801 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> -<span id="L23802" class="LineNr">23802 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-is-compound</span>: -<span id="L23803" class="LineNr">23803 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23804" class="LineNr">23804 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 -<span id="L23805" class="LineNr">23805 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-type</span>: -<span id="L23806" class="LineNr">23806 </span> <span class="subxComment"># target type must start with (addr ...)</span> -<span id="L23807" class="LineNr">23807 </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="L23808" class="LineNr">23808 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L23809" class="LineNr">23809 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23810" class="LineNr">23810 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 -<span id="L23811" class="LineNr">23811 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> -<span id="L23812" class="LineNr">23812 </span> (<a href='mu.subx.html#L24649'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L23813" class="LineNr">23813 </span> 89/<- %ebx 0/r32/eax -<span id="L23814" class="LineNr">23814 </span> (<a href='mu.subx.html#L24649'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L23815" class="LineNr">23815 </span> (<a href='mu.subx.html#L24708'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L23816" class="LineNr">23816 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23817" class="LineNr">23817 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-target-type/disp32 -<span id="L23818" class="LineNr">23818 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-too-many-inouts</span>: -<span id="L23819" class="LineNr">23819 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L23820" class="LineNr">23820 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23821" class="LineNr">23821 </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="L23822" class="LineNr">23822 </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="L23823" class="LineNr">23823 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23824" class="LineNr">23824 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-too-many-inouts/disp32 -<span id="L23825" class="LineNr">23825 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-unexpected-output</span>: -<span id="L23826" class="LineNr">23826 </span> <span class="subxH1Comment"># - check for any output</span> -<span id="L23827" class="LineNr">23827 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23828" class="LineNr">23828 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23829" class="LineNr">23829 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-unexpected-output/disp32 -<span id="L23830" class="LineNr">23830 </span><span class="Constant">$check-mu-write-to-stream-stmt:end</span>: -<span id="L23831" class="LineNr">23831 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23832" class="LineNr">23832 </span> 5f/pop-to-edi -<span id="L23833" class="LineNr">23833 </span> 5e/pop-to-esi -<span id="L23834" class="LineNr">23834 </span> 5b/pop-to-ebx -<span id="L23835" class="LineNr">23835 </span> 5a/pop-to-edx -<span id="L23836" class="LineNr">23836 </span> 59/pop-to-ecx -<span id="L23837" class="LineNr">23837 </span> 58/pop-to-eax -<span id="L23838" class="LineNr">23838 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23839" class="LineNr">23839 </span> 89/<- %esp 5/r32/ebp -<span id="L23840" class="LineNr">23840 </span> 5d/pop-to-ebp -<span id="L23841" class="LineNr">23841 </span> c3/return -<span id="L23842" class="LineNr">23842 </span> -<span id="L23843" class="LineNr">23843 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-base-type</span>: -<span id="L23844" class="LineNr">23844 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23845" class="LineNr">23845 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23846" class="LineNr">23846 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23847" class="LineNr">23847 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23848" class="LineNr">23848 </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="L23849" class="LineNr">23849 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23850" class="LineNr">23850 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23851" class="LineNr">23851 </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="L23852" class="LineNr">23852 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23853" class="LineNr">23853 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23854" class="LineNr">23854 </span> <span class="subxComment"># never gets here</span> -<span id="L23855" class="LineNr">23855 </span> -<span id="L23856" class="LineNr">23856 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-few-inouts</span>: -<span id="L23857" class="LineNr">23857 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23858" class="LineNr">23858 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23859" class="LineNr">23859 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23860" class="LineNr">23860 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23861" class="LineNr">23861 </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="L23862" class="LineNr">23862 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23863" class="LineNr">23863 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23864" class="LineNr">23864 </span> <span class="subxComment"># never gets here</span> -<span id="L23865" class="LineNr">23865 </span> -<span id="L23866" class="LineNr">23866 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-target-type-not-address</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#L256'>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='../309stream.subx.html#L54'>write-to-stream</a>: target '"</span>) -<span id="L23872" class="LineNr">23872 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23873" class="LineNr">23873 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23874" class="LineNr">23874 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) -<span id="L23875" class="LineNr">23875 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23876" class="LineNr">23876 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23877" class="LineNr">23877 </span> <span class="subxComment"># never gets here</span> -<span id="L23878" class="LineNr">23878 </span> -<span id="L23879" class="LineNr">23879 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-target-type</span>: -<span id="L23880" class="LineNr">23880 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23881" class="LineNr">23881 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23882" class="LineNr">23882 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23883" class="LineNr">23883 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23884" class="LineNr">23884 </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="L23885" class="LineNr">23885 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23886" class="LineNr">23886 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23887" class="LineNr">23887 </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="L23888" class="LineNr">23888 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23889" class="LineNr">23889 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23890" class="LineNr">23890 </span> <span class="subxComment"># never gets here</span> -<span id="L23891" class="LineNr">23891 </span> -<span id="L23892" class="LineNr">23892 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-many-inouts</span>: -<span id="L23893" class="LineNr">23893 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23894" class="LineNr">23894 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23895" class="LineNr">23895 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23896" class="LineNr">23896 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23897" class="LineNr">23897 </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="L23898" class="LineNr">23898 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23899" class="LineNr">23899 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23900" class="LineNr">23900 </span> <span class="subxComment"># never gets here</span> -<span id="L23901" class="LineNr">23901 </span> -<span id="L23902" class="LineNr">23902 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-unexpected-output</span>: -<span id="L23903" class="LineNr">23903 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23904" class="LineNr">23904 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23905" class="LineNr">23905 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23906" class="LineNr">23906 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23907" class="LineNr">23907 </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="L23908" class="LineNr">23908 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23909" class="LineNr">23909 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23910" class="LineNr">23910 </span> <span class="subxComment"># never gets here</span> -<span id="L23911" class="LineNr">23911 </span> -<span id="L23912" class="LineNr">23912 </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="L23913" class="LineNr">23913 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23914" class="LineNr">23914 </span> 55/push-ebp -<span id="L23915" class="LineNr">23915 </span> 89/<- %ebp 4/r32/esp -<span id="L23916" class="LineNr">23916 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23917" class="LineNr">23917 </span><span class="Constant">$check-mu-convert-stmt:end</span>: -<span id="L23918" class="LineNr">23918 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23919" class="LineNr">23919 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23920" class="LineNr">23920 </span> 89/<- %esp 5/r32/ebp -<span id="L23921" class="LineNr">23921 </span> 5d/pop-to-ebp -<span id="L23922" class="LineNr">23922 </span> c3/return -<span id="L23923" class="LineNr">23923 </span> -<span id="L23924" class="LineNr">23924 </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="L23925" class="LineNr">23925 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23926" class="LineNr">23926 </span> 55/push-ebp -<span id="L23927" class="LineNr">23927 </span> 89/<- %ebp 4/r32/esp -<span id="L23928" class="LineNr">23928 </span> <span class="subxComment"># var type-parameters: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L23929" class="LineNr">23929 </span> 68/push 0/imm32 -<span id="L23930" class="LineNr">23930 </span> <span class="subxComment"># var type-parameters-storage: (table (handle array byte) (addr type-tree) 8)</span> -<span id="L23931" class="LineNr">23931 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L23932" class="LineNr">23932 </span> 68/push 0x60/imm32/size -<span id="L23933" class="LineNr">23933 </span> 68/push 0/imm32/read -<span id="L23934" class="LineNr">23934 </span> 68/push 0/imm32/write -<span id="L23935" class="LineNr">23935 </span> <span class="subxComment"># save a pointer to type-parameters-storage at type-parameters</span> -<span id="L23936" class="LineNr">23936 </span> 89/<- *(ebp-4) 4/r32/esp -<span id="L23937" class="LineNr">23937 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> *(ebp-4)) -<span id="L23938" class="LineNr">23938 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23939" class="LineNr">23939 </span> 50/push-eax -<span id="L23940" class="LineNr">23940 </span> 51/push-ecx -<span id="L23941" class="LineNr">23941 </span> 52/push-edx -<span id="L23942" class="LineNr">23942 </span> 53/push-ebx -<span id="L23943" class="LineNr">23943 </span> 56/push-esi -<span id="L23944" class="LineNr">23944 </span> 57/push-edi -<span id="L23945" class="LineNr">23945 </span> <span class="subxComment"># esi = stmt</span> -<span id="L23946" class="LineNr">23946 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L23947" class="LineNr">23947 </span> <span class="subxComment"># edi = callee</span> -<span id="L23948" class="LineNr">23948 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L23949" class="LineNr">23949 </span> <span class="subxComment"># var inouts/ecx: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L23950" class="LineNr">23950 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23951" class="LineNr">23951 </span> 89/<- %ecx 0/r32/eax -<span id="L23952" class="LineNr">23952 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->inouts)</span> -<span id="L23953" class="LineNr">23953 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L23954" class="LineNr">23954 </span> 89/<- %edx 0/r32/eax -<span id="L23955" class="LineNr">23955 </span> { -<span id="L23956" class="LineNr">23956 </span><span class="Constant">$check-mu-call:check-for-inouts</span>: -<span id="L23957" class="LineNr">23957 </span> <span class="subxComment"># if (inouts == 0) break</span> -<span id="L23958" class="LineNr">23958 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L23959" class="LineNr">23959 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23960" class="LineNr">23960 </span> <span class="subxComment"># if (expected == 0) error</span> -<span id="L23961" class="LineNr">23961 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L23962" class="LineNr">23962 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23963" class="LineNr">23963 </span><span class="Constant">$check-mu-call:check-null-addr</span>: -<span id="L23964" class="LineNr">23964 </span> <span class="subxComment"># if (inouts->value->name == "0") continue</span> -<span id="L23965" class="LineNr">23965 </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="L23966" class="LineNr">23966 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23967" class="LineNr">23967 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L23968" class="LineNr">23968 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23969" class="LineNr">23969 </span> 0f 85/jump-if-!= $check-mu-call:continue-to-next-inout/disp32 -<span id="L23970" class="LineNr">23970 </span><span class="Constant">$check-mu-call:check-inout-type</span>: -<span id="L23971" class="LineNr">23971 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = inouts->value->type</span> -<span id="L23972" class="LineNr">23972 </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="L23973" class="LineNr">23973 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23974" class="LineNr">23974 </span> 89/<- %ebx 0/r32/eax -<span id="L23975" class="LineNr">23975 </span> <span class="subxComment"># if (inouts->is-deref?) t = t->right</span> -<span id="L23976" class="LineNr">23976 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23977" class="LineNr">23977 </span> { -<span id="L23978" class="LineNr">23978 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23979" class="LineNr">23979 </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="L23980" class="LineNr">23980 </span> 89/<- %ebx 0/r32/eax -<span id="L23981" class="LineNr">23981 </span> <span class="subxComment"># if t->right is null, t = t->left</span> -<span id="L23982" class="LineNr">23982 </span> 81 7/subop/compare *(ebx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23983" class="LineNr">23983 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23984" class="LineNr">23984 </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="L23985" class="LineNr">23985 </span> 89/<- %ebx 0/r32/eax -<span id="L23986" class="LineNr">23986 </span> } -<span id="L23987" class="LineNr">23987 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L23988" class="LineNr">23988 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23989" class="LineNr">23989 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> -<span id="L23990" class="LineNr">23990 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23991" class="LineNr">23991 </span> <span class="subxComment"># if (t != t2) error</span> -<span id="L23992" class="LineNr">23992 </span> (<a href='mu.subx.html#L24222'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> -<span id="L23993" class="LineNr">23993 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23994" class="LineNr">23994 </span> { -<span id="L23995" class="LineNr">23995 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L23996" class="LineNr">23996 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L23997" class="LineNr">23997 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L23998" class="LineNr">23998 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23999" class="LineNr">23999 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24000" class="LineNr">24000 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L24001" class="LineNr">24001 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24002" class="LineNr">24002 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24003" class="LineNr">24003 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for inout '"</span>) -<span id="L24004" class="LineNr">24004 </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="L24005" class="LineNr">24005 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24006" class="LineNr">24006 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24007" class="LineNr">24007 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L24008" class="LineNr">24008 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L24009" class="LineNr">24009 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L24010" class="LineNr">24010 </span> } -<span id="L24011" class="LineNr">24011 </span><span class="Constant">$check-mu-call:continue-to-next-inout</span>: -<span id="L24012" class="LineNr">24012 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L24013" class="LineNr">24013 </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="L24014" class="LineNr">24014 </span> 89/<- %ecx 0/r32/eax -<span id="L24015" class="LineNr">24015 </span> <span class="subxComment"># expected = lookup(expected->next)</span> -<span id="L24016" class="LineNr">24016 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L24017" class="LineNr">24017 </span> 89/<- %edx 0/r32/eax -<span id="L24018" class="LineNr">24018 </span> <span class="subxComment">#</span> -<span id="L24019" class="LineNr">24019 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L24020" class="LineNr">24020 </span> } -<span id="L24021" class="LineNr">24021 </span><span class="Constant">$check-mu-call:check-inout-count</span>: -<span id="L24022" class="LineNr">24022 </span> <span class="subxComment"># if (inouts == expected) proceed</span> -<span id="L24023" class="LineNr">24023 </span> 39/compare %ecx 2/r32/edx -<span id="L24024" class="LineNr">24024 </span> { -<span id="L24025" class="LineNr">24025 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L24026" class="LineNr">24026 </span> <span class="subxComment"># exactly one of the two is null</span> -<span id="L24027" class="LineNr">24027 </span> <span class="subxComment"># if (inouts == 0) error("too many inouts")</span> -<span id="L24028" class="LineNr">24028 </span> { -<span id="L24029" class="LineNr">24029 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L24030" class="LineNr">24030 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L24031" class="LineNr">24031 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L24032" class="LineNr">24032 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L24033" class="LineNr">24033 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24034" class="LineNr">24034 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24035" class="LineNr">24035 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L24036" class="LineNr">24036 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24037" class="LineNr">24037 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24038" class="LineNr">24038 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many inouts\n"</span>) -<span id="L24039" class="LineNr">24039 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L24040" class="LineNr">24040 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L24041" class="LineNr">24041 </span> } -<span id="L24042" class="LineNr">24042 </span> <span class="subxComment"># if (expected == 0) error("too few inouts")</span> -<span id="L24043" class="LineNr">24043 </span> { -<span id="L24044" class="LineNr">24044 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L24045" class="LineNr">24045 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L24046" class="LineNr">24046 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L24047" class="LineNr">24047 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L24048" class="LineNr">24048 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24049" class="LineNr">24049 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24050" class="LineNr">24050 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L24051" class="LineNr">24051 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24052" class="LineNr">24052 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24053" class="LineNr">24053 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few inouts\n"</span>) -<span id="L24054" class="LineNr">24054 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L24055" class="LineNr">24055 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L24056" class="LineNr">24056 </span> } -<span id="L24057" class="LineNr">24057 </span> } -<span id="L24058" class="LineNr">24058 </span><span class="Constant">$check-mu-call:check-outputs</span>: -<span id="L24059" class="LineNr">24059 </span> <span class="subxComment"># var outputs/ecx: (addr stmt-var) = lookup(stmt->outputs)</span> -<span id="L24060" class="LineNr">24060 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24061" class="LineNr">24061 </span> 89/<- %ecx 0/r32/eax -<span id="L24062" class="LineNr">24062 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->outputs)</span> -<span id="L24063" class="LineNr">24063 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x10) *(edi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L24064" class="LineNr">24064 </span> 89/<- %edx 0/r32/eax -<span id="L24065" class="LineNr">24065 </span> { -<span id="L24066" class="LineNr">24066 </span><span class="Constant">$check-mu-call:check-for-outputs</span>: -<span id="L24067" class="LineNr">24067 </span> <span class="subxComment"># if (outputs == 0) break</span> -<span id="L24068" class="LineNr">24068 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L24069" class="LineNr">24069 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L24070" class="LineNr">24070 </span> <span class="subxComment"># if (expected == 0) error</span> -<span id="L24071" class="LineNr">24071 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L24072" class="LineNr">24072 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L24073" class="LineNr">24073 </span><span class="Constant">$check-mu-call:check-output-type</span>: -<span id="L24074" class="LineNr">24074 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> -<span id="L24075" class="LineNr">24075 </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="L24076" class="LineNr">24076 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = lookup(v->type)</span> -<span id="L24077" class="LineNr">24077 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24078" class="LineNr">24078 </span> 89/<- %ebx 0/r32/eax -<span id="L24079" class="LineNr">24079 </span> <span class="subxComment"># if (outputs->is-deref?) t = t->right # TODO: check that t->left is an addr</span> -<span id="L24080" class="LineNr">24080 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L24081" class="LineNr">24081 </span> { -<span id="L24082" class="LineNr">24082 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24083" class="LineNr">24083 </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="L24084" class="LineNr">24084 </span> 89/<- %ebx 0/r32/eax -<span id="L24085" class="LineNr">24085 </span> } -<span id="L24086" class="LineNr">24086 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L24087" class="LineNr">24087 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L24088" class="LineNr">24088 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> -<span id="L24089" class="LineNr">24089 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24090" class="LineNr">24090 </span> <span class="subxComment"># if (t != t2) error</span> -<span id="L24091" class="LineNr">24091 </span> (<a href='mu.subx.html#L24222'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> -<span id="L24092" class="LineNr">24092 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24093" class="LineNr">24093 </span> { -<span id="L24094" class="LineNr">24094 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L24095" class="LineNr">24095 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L24096" class="LineNr">24096 </span> 8b/-> *(ebp+0x10) 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+0x14) %eax) -<span id="L24099" class="LineNr">24099 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L24100" class="LineNr">24100 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24101" class="LineNr">24101 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24102" class="LineNr">24102 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for output '"</span>) -<span id="L24103" class="LineNr">24103 </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="L24104" class="LineNr">24104 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24105" class="LineNr">24105 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24106" class="LineNr">24106 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L24107" class="LineNr">24107 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L24108" class="LineNr">24108 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L24109" class="LineNr">24109 </span> } -<span id="L24110" class="LineNr">24110 </span><span class="Constant">$check-mu-call:check-output-register</span>: -<span id="L24111" class="LineNr">24111 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> -<span id="L24112" class="LineNr">24112 </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="L24113" class="LineNr">24113 </span> <span class="subxComment"># var r/ebx: (addr array byte) = lookup(v->register)</span> -<span id="L24114" class="LineNr">24114 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L24115" class="LineNr">24115 </span> 89/<- %ebx 0/r32/eax -<span id="L24116" class="LineNr">24116 </span> <span class="subxComment"># if (r == 0) error</span> -<span id="L24117" class="LineNr">24117 </span> 3d/compare-eax-and 0/imm32 -<span id="L24118" class="LineNr">24118 </span> { -<span id="L24119" class="LineNr">24119 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L24120" class="LineNr">24120 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L24121" class="LineNr">24121 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L24122" class="LineNr">24122 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24123" class="LineNr">24123 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24124" class="LineNr">24124 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L24125" class="LineNr">24125 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24126" class="LineNr">24126 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24127" class="LineNr">24127 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": output '"</span>) -<span id="L24128" class="LineNr">24128 </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="L24129" class="LineNr">24129 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24130" class="LineNr">24130 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24131" class="LineNr">24131 </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="L24132" class="LineNr">24132 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L24133" class="LineNr">24133 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L24134" class="LineNr">24134 </span> } -<span id="L24135" class="LineNr">24135 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L24136" class="LineNr">24136 </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="L24137" class="LineNr">24137 </span> <span class="subxComment"># var r2/eax: (addr array byte) = lookup(v2->register)</span> -<span id="L24138" class="LineNr">24138 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L24139" class="LineNr">24139 </span> <span class="subxComment"># if (r != r2) error</span> -<span id="L24140" class="LineNr">24140 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <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> { -<span id="L24143" class="LineNr">24143 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L24144" class="LineNr">24144 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L24145" class="LineNr">24145 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L24146" class="LineNr">24146 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24147" class="LineNr">24147 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24148" class="LineNr">24148 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L24149" class="LineNr">24149 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24150" class="LineNr">24150 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24151" class="LineNr">24151 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": register for output '"</span>) -<span id="L24152" class="LineNr">24152 </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="L24153" class="LineNr">24153 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24154" class="LineNr">24154 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24155" class="LineNr">24155 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L24156" class="LineNr">24156 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L24157" class="LineNr">24157 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L24158" class="LineNr">24158 </span> } -<span id="L24159" class="LineNr">24159 </span><span class="Constant">$check-mu-call:continue-to-next-output</span>: -<span id="L24160" class="LineNr">24160 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> -<span id="L24161" class="LineNr">24161 </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="L24162" class="LineNr">24162 </span> 89/<- %ecx 0/r32/eax -<span id="L24163" class="LineNr">24163 </span> <span class="subxComment"># expected = lookup(expected->next)</span> -<span id="L24164" class="LineNr">24164 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L24165" class="LineNr">24165 </span> 89/<- %edx 0/r32/eax -<span id="L24166" class="LineNr">24166 </span> <span class="subxComment">#</span> -<span id="L24167" class="LineNr">24167 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L24168" class="LineNr">24168 </span> } -<span id="L24169" class="LineNr">24169 </span><span class="Constant">$check-mu-call:check-output-count</span>: -<span id="L24170" class="LineNr">24170 </span> <span class="subxComment"># if (outputs == expected) proceed</span> -<span id="L24171" class="LineNr">24171 </span> 39/compare %ecx 2/r32/edx -<span id="L24172" class="LineNr">24172 </span> { -<span id="L24173" class="LineNr">24173 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L24174" class="LineNr">24174 </span> <span class="subxComment"># exactly one of the two is null</span> -<span id="L24175" class="LineNr">24175 </span> <span class="subxComment"># if (outputs == 0) error("too many outputs")</span> -<span id="L24176" class="LineNr">24176 </span> { -<span id="L24177" class="LineNr">24177 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L24178" class="LineNr">24178 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L24179" class="LineNr">24179 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L24180" class="LineNr">24180 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L24181" class="LineNr">24181 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24182" class="LineNr">24182 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24183" class="LineNr">24183 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L24184" class="LineNr">24184 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24185" class="LineNr">24185 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24186" class="LineNr">24186 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many outputs\n"</span>) -<span id="L24187" class="LineNr">24187 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L24188" class="LineNr">24188 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L24189" class="LineNr">24189 </span> } -<span id="L24190" class="LineNr">24190 </span> <span class="subxComment"># if (expected == 0) error("too few outputs")</span> -<span id="L24191" class="LineNr">24191 </span> { -<span id="L24192" class="LineNr">24192 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L24193" class="LineNr">24193 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L24194" class="LineNr">24194 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L24195" class="LineNr">24195 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L24196" class="LineNr">24196 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24197" class="LineNr">24197 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24198" class="LineNr">24198 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L24199" class="LineNr">24199 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24200" class="LineNr">24200 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L24201" class="LineNr">24201 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few outputs\n"</span>) -<span id="L24202" class="LineNr">24202 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L24203" class="LineNr">24203 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L24204" class="LineNr">24204 </span> } -<span id="L24205" class="LineNr">24205 </span> } -<span id="L24206" class="LineNr">24206 </span><span class="Constant">$check-mu-call:end</span>: -<span id="L24207" class="LineNr">24207 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24208" class="LineNr">24208 </span> 5f/pop-to-edi -<span id="L24209" class="LineNr">24209 </span> 5e/pop-to-esi -<span id="L24210" class="LineNr">24210 </span> 5b/pop-to-ebx -<span id="L24211" class="LineNr">24211 </span> 5a/pop-to-edx -<span id="L24212" class="LineNr">24212 </span> 59/pop-to-ecx -<span id="L24213" class="LineNr">24213 </span> 58/pop-to-eax -<span id="L24214" class="LineNr">24214 </span> <span class="subxS1Comment"># . reclaim locals exclusively on the stack</span> -<span id="L24215" class="LineNr">24215 </span> 81 0/subop/add %esp 0x70/imm32 -<span id="L24216" class="LineNr">24216 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24217" class="LineNr">24217 </span> 89/<- %esp 5/r32/ebp -<span id="L24218" class="LineNr">24218 </span> 5d/pop-to-ebp -<span id="L24219" class="LineNr">24219 </span> c3/return -<span id="L24220" class="LineNr">24220 </span> -<span id="L24221" class="LineNr">24221 </span><span class="subxComment"># like type-equal? but takes literals type parameters into account</span> -<span id="L24222" class="LineNr">24222 </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="L24223" class="LineNr">24223 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24224" class="LineNr">24224 </span> 55/push-ebp -<span id="L24225" class="LineNr">24225 </span> 89/<- %ebp 4/r32/esp -<span id="L24226" class="LineNr">24226 </span> <span class="subxComment"># if (call is literal and def is numberlike) return true</span> -<span id="L24227" class="LineNr">24227 </span> { -<span id="L24228" class="LineNr">24228 </span><span class="Constant">$type-match?:check-literal-int</span>: -<span id="L24229" class="LineNr">24229 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> *(ebp+0xc) 0) <span class="subxComment"># literal => eax</span> -<span id="L24230" class="LineNr">24230 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24231" class="LineNr">24231 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24232" class="LineNr">24232 </span> (<a href='mu.subx.html#L20397'>is-mu-numberlike-output?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L24233" class="LineNr">24233 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24234" class="LineNr">24234 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24235" class="LineNr">24235 </span> b8/copy-to-eax 1/imm32/true -<span id="L24236" class="LineNr">24236 </span> e9/jump $type-match?:end/disp32 -<span id="L24237" class="LineNr">24237 </span> } -<span id="L24238" class="LineNr">24238 </span> <span class="subxComment"># if (call is literal-string and def is string) return true</span> -<span id="L24239" class="LineNr">24239 </span> { -<span id="L24240" class="LineNr">24240 </span><span class="Constant">$type-match?:check-literal-string</span>: -<span id="L24241" class="LineNr">24241 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> *(ebp+0xc) 0x10) <span class="subxComment"># literal-string => eax</span> -<span id="L24242" class="LineNr">24242 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24243" class="LineNr">24243 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24244" class="LineNr">24244 </span> (<a href='mu.subx.html#L33515'>is-mu-string-type?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L24245" class="LineNr">24245 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24246" class="LineNr">24246 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24247" class="LineNr">24247 </span> b8/copy-to-eax 1/imm32/true -<span id="L24248" class="LineNr">24248 </span> e9/jump $type-match?:end/disp32 -<span id="L24249" class="LineNr">24249 </span> } -<span id="L24250" class="LineNr">24250 </span><span class="Constant">$type-match?:baseline</span>: -<span id="L24251" class="LineNr">24251 </span> <span class="subxComment"># otherwise fall back</span> -<span id="L24252" class="LineNr">24252 </span> (<a href='mu.subx.html#L24259'>type-component-match?</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L24253" class="LineNr">24253 </span><span class="Constant">$type-match?:end</span>: -<span id="L24254" class="LineNr">24254 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24255" class="LineNr">24255 </span> 89/<- %esp 5/r32/ebp -<span id="L24256" class="LineNr">24256 </span> 5d/pop-to-ebp -<span id="L24257" class="LineNr">24257 </span> c3/return -<span id="L24258" class="LineNr">24258 </span> -<span id="L24259" class="LineNr">24259 </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="L24260" class="LineNr">24260 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24261" class="LineNr">24261 </span> 55/push-ebp -<span id="L24262" class="LineNr">24262 </span> 89/<- %ebp 4/r32/esp -<span id="L24263" class="LineNr">24263 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24264" class="LineNr">24264 </span> 51/push-ecx -<span id="L24265" class="LineNr">24265 </span> 52/push-edx -<span id="L24266" class="LineNr">24266 </span> 53/push-ebx -<span id="L24267" class="LineNr">24267 </span> <span class="subxComment"># ecx = def</span> -<span id="L24268" class="LineNr">24268 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L24269" class="LineNr">24269 </span> <span class="subxComment"># edx = call</span> -<span id="L24270" class="LineNr">24270 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L24271" class="LineNr">24271 </span><span class="Constant">$type-component-match?:compare-addr</span>: -<span id="L24272" class="LineNr">24272 </span> <span class="subxComment"># if (def == call) return true</span> -<span id="L24273" class="LineNr">24273 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L24274" class="LineNr">24274 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L24275" class="LineNr">24275 </span> b8/copy-to-eax 1/imm32/true -<span id="L24276" class="LineNr">24276 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L24277" class="LineNr">24277 </span> <span class="subxComment"># if (def == 0) return false</span> -<span id="L24278" class="LineNr">24278 </span> b8/copy-to-eax 0/imm32/false -<span id="L24279" class="LineNr">24279 </span> 81 7/subop/compare %ecx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24280" class="LineNr">24280 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L24281" class="LineNr">24281 </span> <span class="subxComment"># if (call == 0) return false</span> -<span id="L24282" class="LineNr">24282 </span> 81 7/subop/compare %edx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24283" class="LineNr">24283 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L24284" class="LineNr">24284 </span> <span class="subxComment"># if def is a type parameter, just check in type-parameters</span> -<span id="L24285" class="LineNr">24285 </span> { -<span id="L24286" class="LineNr">24286 </span><span class="Constant">$type-component-match?:check-type-parameter</span>: -<span id="L24287" class="LineNr">24287 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24288" class="LineNr">24288 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24289" class="LineNr">24289 </span> 81 7/subop/compare *(ecx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L24290" class="LineNr">24290 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24291" class="LineNr">24291 </span><span class="Constant">$type-component-match?:type-parameter</span>: -<span id="L24292" class="LineNr">24292 </span> (<a href='mu.subx.html#L24356'>type-parameter-match?</a> *(ecx+8) *(ecx+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L24293" class="LineNr">24293 </span> e9/jump $type-component-match?:end/disp32 -<span id="L24294" class="LineNr">24294 </span> } -<span id="L24295" class="LineNr">24295 </span> <span class="subxComment"># if def is a list containing just a type parameter, just check in type-parameters</span> -<span id="L24296" class="LineNr">24296 </span> { -<span id="L24297" class="LineNr">24297 </span><span class="Constant">$type-component-match?:check-list-type-parameter</span>: -<span id="L24298" class="LineNr">24298 </span> <span class="subxComment"># if def is a list..</span> -<span id="L24299" class="LineNr">24299 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24300" class="LineNr">24300 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24301" class="LineNr">24301 </span> <span class="subxComment"># ..that's a singleton</span> -<span id="L24302" class="LineNr">24302 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-left</span> -<span id="L24303" class="LineNr">24303 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24304" class="LineNr">24304 </span> <span class="subxComment"># ..and whose head is a type parameter</span> -<span id="L24305" class="LineNr">24305 </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="L24306" class="LineNr">24306 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24307" class="LineNr">24307 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24308" class="LineNr">24308 </span> 81 7/subop/compare *(eax+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L24309" class="LineNr">24309 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24310" class="LineNr">24310 </span><span class="Constant">$type-component-match?:list-type-parameter</span>: -<span id="L24311" class="LineNr">24311 </span> (<a href='mu.subx.html#L24356'>type-parameter-match?</a> *(eax+8) *(eax+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L24312" class="LineNr">24312 </span> e9/jump $type-component-match?:end/disp32 -<span id="L24313" class="LineNr">24313 </span> } -<span id="L24314" class="LineNr">24314 </span><span class="Constant">$type-component-match?:compare-atom-state</span>: -<span id="L24315" class="LineNr">24315 </span> <span class="subxComment"># if (def->is-atom? != call->is-atom?) return false</span> -<span id="L24316" class="LineNr">24316 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24317" class="LineNr">24317 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24318" class="LineNr">24318 </span> b8/copy-to-eax 0/imm32/false -<span id="L24319" class="LineNr">24319 </span> 0f 85/jump-if-!= $type-component-match?:end/disp32 -<span id="L24320" class="LineNr">24320 </span> <span class="subxComment"># if def->is-atom? return (def->value == call->value)</span> -<span id="L24321" class="LineNr">24321 </span> { -<span id="L24322" class="LineNr">24322 </span><span class="Constant">$type-component-match?:check-atom</span>: -<span id="L24323" class="LineNr">24323 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L24324" class="LineNr">24324 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24325" class="LineNr">24325 </span><span class="Constant">$type-component-match?:is-atom</span>: -<span id="L24326" class="LineNr">24326 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L24327" class="LineNr">24327 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L24328" class="LineNr">24328 </span> 0f 94/set-if-= %al -<span id="L24329" class="LineNr">24329 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L24330" class="LineNr">24330 </span> e9/jump $type-component-match?:end/disp32 -<span id="L24331" class="LineNr">24331 </span> } -<span id="L24332" class="LineNr">24332 </span><span class="Constant">$type-component-match?:check-left</span>: -<span id="L24333" class="LineNr">24333 </span> <span class="subxComment"># if (!type-component-match?(def->left, call->left)) return false</span> -<span id="L24334" class="LineNr">24334 </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="L24335" class="LineNr">24335 </span> 89/<- %ebx 0/r32/eax -<span id="L24336" class="LineNr">24336 </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="L24337" class="LineNr">24337 </span> (<a href='mu.subx.html#L24259'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L24338" class="LineNr">24338 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24339" class="LineNr">24339 </span> 74/jump-if-= $type-component-match?:end/disp8 -<span id="L24340" class="LineNr">24340 </span><span class="Constant">$type-component-match?:check-right</span>: -<span id="L24341" class="LineNr">24341 </span> <span class="subxComment"># return type-component-match?(def->right, call->right)</span> -<span id="L24342" class="LineNr">24342 </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="L24343" class="LineNr">24343 </span> 89/<- %ebx 0/r32/eax -<span id="L24344" class="LineNr">24344 </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="L24345" class="LineNr">24345 </span> (<a href='mu.subx.html#L24259'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L24346" class="LineNr">24346 </span><span class="Constant">$type-component-match?:end</span>: -<span id="L24347" class="LineNr">24347 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24348" class="LineNr">24348 </span> 5b/pop-to-ebx -<span id="L24349" class="LineNr">24349 </span> 5a/pop-to-edx -<span id="L24350" class="LineNr">24350 </span> 59/pop-to-ecx -<span id="L24351" class="LineNr">24351 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24352" class="LineNr">24352 </span> 89/<- %esp 5/r32/ebp -<span id="L24353" class="LineNr">24353 </span> 5d/pop-to-ebp -<span id="L24354" class="LineNr">24354 </span> c3/return -<span id="L24355" class="LineNr">24355 </span> -<span id="L24356" class="LineNr">24356 </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="L24357" class="LineNr">24357 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24358" class="LineNr">24358 </span> 55/push-ebp -<span id="L24359" class="LineNr">24359 </span> 89/<- %ebp 4/r32/esp -<span id="L24360" class="LineNr">24360 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24361" class="LineNr">24361 </span> 51/push-ecx -<span id="L24362" class="LineNr">24362 </span> <span class="subxComment">#</span> -<span id="L24363" class="LineNr">24363 </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="L24364" class="LineNr">24364 </span> <span class="subxComment"># if parameter wasn't saved, save it</span> -<span id="L24365" class="LineNr">24365 </span> { -<span id="L24366" class="LineNr">24366 </span> 81 7/subop/compare *eax 0/imm32 -<span id="L24367" class="LineNr">24367 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24368" class="LineNr">24368 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L24369" class="LineNr">24369 </span> 89/<- *eax 1/r32/ecx -<span id="L24370" class="LineNr">24370 </span> } -<span id="L24371" class="LineNr">24371 </span> <span class="subxComment">#</span> -<span id="L24372" class="LineNr">24372 </span> (<a href='mu.subx.html#L24708'>type-equal?</a> *(ebp+0x10) *eax) <span class="subxComment"># => eax</span> -<span id="L24373" class="LineNr">24373 </span><span class="Constant">$type-parameter-match?:end</span>: -<span id="L24374" class="LineNr">24374 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24375" class="LineNr">24375 </span> 59/pop-to-ecx -<span id="L24376" class="LineNr">24376 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24377" class="LineNr">24377 </span> 89/<- %esp 5/r32/ebp -<span id="L24378" class="LineNr">24378 </span> 5d/pop-to-ebp -<span id="L24379" class="LineNr">24379 </span> c3/return -<span id="L24380" class="LineNr">24380 </span> -<span id="L24381" class="LineNr">24381 </span><span class="subxFunction">size-of</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> -<span id="L24382" class="LineNr">24382 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24383" class="LineNr">24383 </span> 55/push-ebp -<span id="L24384" class="LineNr">24384 </span> 89/<- %ebp 4/r32/esp -<span id="L24385" class="LineNr">24385 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24386" class="LineNr">24386 </span> 51/push-ecx -<span id="L24387" class="LineNr">24387 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L24388" class="LineNr">24388 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L24389" class="LineNr">24389 </span><span class="CommentedCode">#? (write-buffered Stderr "size-of ")</span> -<span id="L24390" class="LineNr">24390 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L24391" class="LineNr">24391 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L24392" class="LineNr">24392 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid: ")</span> -<span id="L24393" class="LineNr">24393 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+8))</span> -<span id="L24394" class="LineNr">24394 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L24395" class="LineNr">24395 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L24396" class="LineNr">24396 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24397" class="LineNr">24397 </span> 89/<- %ecx 0/r32/eax -<span id="L24398" class="LineNr">24398 </span> <span class="subxComment"># if is-mu-array?(t) return size-of-array(t)</span> +<span id="L23784" class="LineNr">23784 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23785" class="LineNr">23785 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L23786" class="LineNr">23786 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-array</span>: +<span id="L23787" class="LineNr">23787 </span> <span class="subxComment"># if target-type->right->right->left is not array, abort</span> +<span id="L23788" class="LineNr">23788 </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="L23789" class="LineNr">23789 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L23790" class="LineNr">23790 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23791" class="LineNr">23791 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L23792" class="LineNr">23792 </span><span class="Constant">$check-mu-populate-stmt:check-length-type</span>: +<span id="L23793" class="LineNr">23793 </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="L23794" class="LineNr">23794 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23795" class="LineNr">23795 </span> 89/<- %ebx 0/r32/eax +<span id="L23796" class="LineNr">23796 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> +<span id="L23797" class="LineNr">23797 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23798" class="LineNr">23798 </span> 75/jump-if-!= $check-mu-populate-stmt:end/disp8 +<span id="L23799" class="LineNr">23799 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> +<span id="L23800" class="LineNr">23800 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23801" class="LineNr">23801 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-length-type/disp32 +<span id="L23802" class="LineNr">23802 </span><span class="Constant">$check-mu-populate-stmt:end</span>: +<span id="L23803" class="LineNr">23803 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23804" class="LineNr">23804 </span> 5f/pop-to-edi +<span id="L23805" class="LineNr">23805 </span> 5e/pop-to-esi +<span id="L23806" class="LineNr">23806 </span> 5b/pop-to-ebx +<span id="L23807" class="LineNr">23807 </span> 58/pop-to-eax +<span id="L23808" class="LineNr">23808 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23809" class="LineNr">23809 </span> 89/<- %esp 5/r32/ebp +<span id="L23810" class="LineNr">23810 </span> 5d/pop-to-ebp +<span id="L23811" class="LineNr">23811 </span> c3/return +<span id="L23812" class="LineNr">23812 </span> +<span id="L23813" class="LineNr">23813 </span><span class="Constant">$check-mu-populate-stmt:error-incorrect-inouts</span>: +<span id="L23814" class="LineNr">23814 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23815" class="LineNr">23815 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23816" class="LineNr">23816 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23817" class="LineNr">23817 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23818" class="LineNr">23818 </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="L23819" class="LineNr">23819 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23820" class="LineNr">23820 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23821" class="LineNr">23821 </span> <span class="subxComment"># never gets here</span> +<span id="L23822" class="LineNr">23822 </span> +<span id="L23823" class="LineNr">23823 </span><span class="Constant">$check-mu-populate-stmt:error-too-many-outputs</span>: +<span id="L23824" class="LineNr">23824 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23825" class="LineNr">23825 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23826" class="LineNr">23826 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23827" class="LineNr">23827 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23828" class="LineNr">23828 </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="L23829" class="LineNr">23829 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23830" class="LineNr">23830 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23831" class="LineNr">23831 </span> <span class="subxComment"># never gets here</span> +<span id="L23832" class="LineNr">23832 </span> +<span id="L23833" class="LineNr">23833 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-target-type</span>: +<span id="L23834" class="LineNr">23834 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23835" class="LineNr">23835 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23836" class="LineNr">23836 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23837" class="LineNr">23837 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23838" class="LineNr">23838 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: first inout '"</span>) +<span id="L23839" class="LineNr">23839 </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="L23840" class="LineNr">23840 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23841" class="LineNr">23841 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23842" class="LineNr">23842 </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="L23843" class="LineNr">23843 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23844" class="LineNr">23844 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23845" class="LineNr">23845 </span> <span class="subxComment"># never gets here</span> +<span id="L23846" class="LineNr">23846 </span> +<span id="L23847" class="LineNr">23847 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-length-type</span>: +<span id="L23848" class="LineNr">23848 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23849" class="LineNr">23849 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23850" class="LineNr">23850 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23851" class="LineNr">23851 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23852" class="LineNr">23852 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: second inout '"</span>) +<span id="L23853" class="LineNr">23853 </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="L23854" class="LineNr">23854 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23855" class="LineNr">23855 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23856" class="LineNr">23856 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) +<span id="L23857" class="LineNr">23857 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23858" class="LineNr">23858 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23859" class="LineNr">23859 </span> <span class="subxComment"># never gets here</span> +<span id="L23860" class="LineNr">23860 </span> +<span id="L23861" class="LineNr">23861 </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="L23862" class="LineNr">23862 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23863" class="LineNr">23863 </span> 55/push-ebp +<span id="L23864" class="LineNr">23864 </span> 89/<- %ebp 4/r32/esp +<span id="L23865" class="LineNr">23865 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23866" class="LineNr">23866 </span> 50/push-eax +<span id="L23867" class="LineNr">23867 </span> 53/push-ebx +<span id="L23868" class="LineNr">23868 </span> 56/push-esi +<span id="L23869" class="LineNr">23869 </span> 57/push-edi +<span id="L23870" class="LineNr">23870 </span> <span class="subxComment"># esi = stmt</span> +<span id="L23871" class="LineNr">23871 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L23872" class="LineNr">23872 </span><span class="Constant">$check-mu-populate-stream-stmt:check-for-output</span>: +<span id="L23873" class="LineNr">23873 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L23874" class="LineNr">23874 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23875" class="LineNr">23875 </span> 3d/compare-eax-and 0/imm32 +<span id="L23876" class="LineNr">23876 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-too-many-outputs/disp32 +<span id="L23877" class="LineNr">23877 </span><span class="Constant">$check-mu-populate-stream-stmt:get-target</span>: +<span id="L23878" class="LineNr">23878 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L23879" class="LineNr">23879 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23880" class="LineNr">23880 </span> 89/<- %edi 0/r32/eax +<span id="L23881" class="LineNr">23881 </span> <span class="subxComment"># zero inouts</span> +<span id="L23882" class="LineNr">23882 </span> 3d/compare-eax-and 0/imm32 +<span id="L23883" class="LineNr">23883 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 +<span id="L23884" class="LineNr">23884 </span><span class="Constant">$check-mu-populate-stream-stmt:get-length</span>: +<span id="L23885" class="LineNr">23885 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> +<span id="L23886" class="LineNr">23886 </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="L23887" class="LineNr">23887 </span> 89/<- %esi 0/r32/eax +<span id="L23888" class="LineNr">23888 </span> <span class="subxComment"># 1 inout</span> +<span id="L23889" class="LineNr">23889 </span> 3d/compare-eax-and 0/imm32 +<span id="L23890" class="LineNr">23890 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 +<span id="L23891" class="LineNr">23891 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L23892" class="LineNr">23892 </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="L23893" class="LineNr">23893 </span> 3d/compare-eax-and 0/imm32 +<span id="L23894" class="LineNr">23894 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 +<span id="L23895" class="LineNr">23895 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type</span>: +<span id="L23896" class="LineNr">23896 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> +<span id="L23897" class="LineNr">23897 </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="L23898" class="LineNr">23898 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23899" class="LineNr">23899 </span> 89/<- %ebx 0/r32/eax +<span id="L23900" class="LineNr">23900 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-deref</span>: +<span id="L23901" class="LineNr">23901 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> +<span id="L23902" class="LineNr">23902 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23903" class="LineNr">23903 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23904" class="LineNr">23904 </span> { +<span id="L23905" class="LineNr">23905 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23906" class="LineNr">23906 </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="L23907" class="LineNr">23907 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> +<span id="L23908" class="LineNr">23908 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23909" class="LineNr">23909 </span> { +<span id="L23910" class="LineNr">23910 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23911" class="LineNr">23911 </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="L23912" class="LineNr">23912 </span> } +<span id="L23913" class="LineNr">23913 </span> 89/<- %ebx 0/r32/eax +<span id="L23914" class="LineNr">23914 </span> } +<span id="L23915" class="LineNr">23915 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-addr</span>: +<span id="L23916" class="LineNr">23916 </span> <span class="subxComment"># if target-type is not addr, abort</span> +<span id="L23917" class="LineNr">23917 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L23918" class="LineNr">23918 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23919" class="LineNr">23919 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L23920" class="LineNr">23920 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> +<span id="L23921" class="LineNr">23921 </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="L23922" class="LineNr">23922 </span> 89/<- %ebx 0/r32/eax +<span id="L23923" class="LineNr">23923 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23924" class="LineNr">23924 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L23925" class="LineNr">23925 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-handle</span>: +<span id="L23926" class="LineNr">23926 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> +<span id="L23927" class="LineNr">23927 </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="L23928" class="LineNr">23928 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> +<span id="L23929" class="LineNr">23929 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23930" class="LineNr">23930 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L23931" class="LineNr">23931 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> +<span id="L23932" class="LineNr">23932 </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="L23933" class="LineNr">23933 </span> 89/<- %ebx 0/r32/eax +<span id="L23934" class="LineNr">23934 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23935" class="LineNr">23935 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L23936" class="LineNr">23936 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-stream</span>: +<span id="L23937" class="LineNr">23937 </span> <span class="subxComment"># if target-type->right->right->left is not stream, abort</span> +<span id="L23938" class="LineNr">23938 </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="L23939" class="LineNr">23939 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> +<span id="L23940" class="LineNr">23940 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23941" class="LineNr">23941 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L23942" class="LineNr">23942 </span><span class="Constant">$check-mu-populate-stream-stmt:check-length-type</span>: +<span id="L23943" class="LineNr">23943 </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="L23944" class="LineNr">23944 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23945" class="LineNr">23945 </span> 89/<- %ebx 0/r32/eax +<span id="L23946" class="LineNr">23946 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> +<span id="L23947" class="LineNr">23947 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23948" class="LineNr">23948 </span> 75/jump-if-!= $check-mu-populate-stream-stmt:end/disp8 +<span id="L23949" class="LineNr">23949 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> +<span id="L23950" class="LineNr">23950 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23951" class="LineNr">23951 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-length-type/disp32 +<span id="L23952" class="LineNr">23952 </span><span class="Constant">$check-mu-populate-stream-stmt:end</span>: +<span id="L23953" class="LineNr">23953 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23954" class="LineNr">23954 </span> 5f/pop-to-edi +<span id="L23955" class="LineNr">23955 </span> 5e/pop-to-esi +<span id="L23956" class="LineNr">23956 </span> 5b/pop-to-ebx +<span id="L23957" class="LineNr">23957 </span> 58/pop-to-eax +<span id="L23958" class="LineNr">23958 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23959" class="LineNr">23959 </span> 89/<- %esp 5/r32/ebp +<span id="L23960" class="LineNr">23960 </span> 5d/pop-to-ebp +<span id="L23961" class="LineNr">23961 </span> c3/return +<span id="L23962" class="LineNr">23962 </span> +<span id="L23963" class="LineNr">23963 </span><span class="Constant">$check-mu-populate-stream-stmt:error-incorrect-inouts</span>: +<span id="L23964" class="LineNr">23964 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23965" class="LineNr">23965 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23966" class="LineNr">23966 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23967" class="LineNr">23967 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23968" class="LineNr">23968 </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="L23969" class="LineNr">23969 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23970" class="LineNr">23970 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23971" class="LineNr">23971 </span> <span class="subxComment"># never gets here</span> +<span id="L23972" class="LineNr">23972 </span> +<span id="L23973" class="LineNr">23973 </span><span class="Constant">$check-mu-populate-stream-stmt:error-too-many-outputs</span>: +<span id="L23974" class="LineNr">23974 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23975" class="LineNr">23975 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23976" class="LineNr">23976 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23977" class="LineNr">23977 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23978" class="LineNr">23978 </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="L23979" class="LineNr">23979 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23980" class="LineNr">23980 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23981" class="LineNr">23981 </span> <span class="subxComment"># never gets here</span> +<span id="L23982" class="LineNr">23982 </span> +<span id="L23983" class="LineNr">23983 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-target-type</span>: +<span id="L23984" class="LineNr">23984 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23985" class="LineNr">23985 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23986" class="LineNr">23986 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23987" class="LineNr">23987 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23988" class="LineNr">23988 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: first inout '"</span>) +<span id="L23989" class="LineNr">23989 </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="L23990" class="LineNr">23990 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-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">"' must have type (addr handle stream ...)\n"</span>) +<span id="L23993" class="LineNr">23993 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23994" class="LineNr">23994 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23995" class="LineNr">23995 </span> <span class="subxComment"># never gets here</span> +<span id="L23996" class="LineNr">23996 </span> +<span id="L23997" class="LineNr">23997 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-length-type</span>: +<span id="L23998" class="LineNr">23998 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23999" class="LineNr">23999 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24000" class="LineNr">24000 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24001" class="LineNr">24001 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24002" class="LineNr">24002 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: second inout '"</span>) +<span id="L24003" class="LineNr">24003 </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="L24004" class="LineNr">24004 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24005" class="LineNr">24005 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24006" class="LineNr">24006 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) +<span id="L24007" class="LineNr">24007 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24008" class="LineNr">24008 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24009" class="LineNr">24009 </span> <span class="subxComment"># never gets here</span> +<span id="L24010" class="LineNr">24010 </span> +<span id="L24011" class="LineNr">24011 </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="L24012" class="LineNr">24012 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24013" class="LineNr">24013 </span> 55/push-ebp +<span id="L24014" class="LineNr">24014 </span> 89/<- %ebp 4/r32/esp +<span id="L24015" class="LineNr">24015 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24016" class="LineNr">24016 </span> 50/push-eax +<span id="L24017" class="LineNr">24017 </span> 51/push-ecx +<span id="L24018" class="LineNr">24018 </span> 52/push-edx +<span id="L24019" class="LineNr">24019 </span> 53/push-ebx +<span id="L24020" class="LineNr">24020 </span> 56/push-esi +<span id="L24021" class="LineNr">24021 </span> 57/push-edi +<span id="L24022" class="LineNr">24022 </span> <span class="subxComment"># esi = stmt</span> +<span id="L24023" class="LineNr">24023 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24024" class="LineNr">24024 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L24025" class="LineNr">24025 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L24026" class="LineNr">24026 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24027" class="LineNr">24027 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-no-inouts</span>: +<span id="L24028" class="LineNr">24028 </span> 3d/compare-eax-and 0/imm32 +<span id="L24029" class="LineNr">24029 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 +<span id="L24030" class="LineNr">24030 </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="L24031" class="LineNr">24031 </span> 89/<- %ecx 0/r32/eax +<span id="L24032" class="LineNr">24032 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> +<span id="L24033" class="LineNr">24033 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L24034" class="LineNr">24034 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24035" class="LineNr">24035 </span> 89/<- %ebx 0/r32/eax +<span id="L24036" class="LineNr">24036 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-compound</span>: +<span id="L24037" class="LineNr">24037 </span> <span class="subxComment"># if base-type is an atom, abort</span> +<span id="L24038" class="LineNr">24038 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24039" class="LineNr">24039 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 +<span id="L24040" class="LineNr">24040 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr</span>: +<span id="L24041" class="LineNr">24041 </span> <span class="subxComment"># if type->left not addr, abort</span> +<span id="L24042" class="LineNr">24042 </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="L24043" class="LineNr">24043 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24044" class="LineNr">24044 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24045" class="LineNr">24045 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 +<span id="L24046" class="LineNr">24046 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr-to-stream</span>: +<span id="L24047" class="LineNr">24047 </span> <span class="subxComment"># base-type = base-type->right</span> +<span id="L24048" class="LineNr">24048 </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="L24049" class="LineNr">24049 </span> 89/<- %ebx 0/r32/eax +<span id="L24050" class="LineNr">24050 </span> <span class="subxComment"># ensure base-type->left == stream</span> +<span id="L24051" class="LineNr">24051 </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="L24052" class="LineNr">24052 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> +<span id="L24053" class="LineNr">24053 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24054" class="LineNr">24054 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 +<span id="L24055" class="LineNr">24055 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> +<span id="L24056" class="LineNr">24056 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L24057" class="LineNr">24057 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24058" class="LineNr">24058 </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="L24059" class="LineNr">24059 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-single-inout</span>: +<span id="L24060" class="LineNr">24060 </span> 3d/compare-eax-and 0/imm32 +<span id="L24061" class="LineNr">24061 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 +<span id="L24062" class="LineNr">24062 </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="L24063" class="LineNr">24063 </span> 89/<- %ecx 0/r32/eax +<span id="L24064" class="LineNr">24064 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> +<span id="L24065" class="LineNr">24065 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24066" class="LineNr">24066 </span> 89/<- %edx 0/r32/eax +<span id="L24067" class="LineNr">24067 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> +<span id="L24068" class="LineNr">24068 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-is-compound</span>: +<span id="L24069" class="LineNr">24069 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24070" class="LineNr">24070 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 +<span id="L24071" class="LineNr">24071 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-type</span>: +<span id="L24072" class="LineNr">24072 </span> <span class="subxComment"># target type must start with (addr ...)</span> +<span id="L24073" class="LineNr">24073 </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="L24074" class="LineNr">24074 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24075" class="LineNr">24075 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24076" class="LineNr">24076 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 +<span id="L24077" class="LineNr">24077 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> +<span id="L24078" class="LineNr">24078 </span> (<a href='mu.subx.html#L25286'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L24079" class="LineNr">24079 </span> 89/<- %ebx 0/r32/eax +<span id="L24080" class="LineNr">24080 </span> (<a href='mu.subx.html#L25286'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L24081" class="LineNr">24081 </span> (<a href='mu.subx.html#L25345'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L24082" class="LineNr">24082 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24083" class="LineNr">24083 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-target-type/disp32 +<span id="L24084" class="LineNr">24084 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-too-many-inouts</span>: +<span id="L24085" class="LineNr">24085 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L24086" class="LineNr">24086 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24087" class="LineNr">24087 </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="L24088" class="LineNr">24088 </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="L24089" class="LineNr">24089 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24090" class="LineNr">24090 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-too-many-inouts/disp32 +<span id="L24091" class="LineNr">24091 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-unexpected-output</span>: +<span id="L24092" class="LineNr">24092 </span> <span class="subxH1Comment"># - check for any output</span> +<span id="L24093" class="LineNr">24093 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24094" class="LineNr">24094 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24095" class="LineNr">24095 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-unexpected-output/disp32 +<span id="L24096" class="LineNr">24096 </span><span class="Constant">$check-mu-read-from-stream-stmt:end</span>: +<span id="L24097" class="LineNr">24097 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24098" class="LineNr">24098 </span> 5f/pop-to-edi +<span id="L24099" class="LineNr">24099 </span> 5e/pop-to-esi +<span id="L24100" class="LineNr">24100 </span> 5b/pop-to-ebx +<span id="L24101" class="LineNr">24101 </span> 5a/pop-to-edx +<span id="L24102" class="LineNr">24102 </span> 59/pop-to-ecx +<span id="L24103" class="LineNr">24103 </span> 58/pop-to-eax +<span id="L24104" class="LineNr">24104 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24105" class="LineNr">24105 </span> 89/<- %esp 5/r32/ebp +<span id="L24106" class="LineNr">24106 </span> 5d/pop-to-ebp +<span id="L24107" class="LineNr">24107 </span> c3/return +<span id="L24108" class="LineNr">24108 </span> +<span id="L24109" class="LineNr">24109 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-base-type</span>: +<span id="L24110" class="LineNr">24110 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24111" class="LineNr">24111 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24112" class="LineNr">24112 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24113" class="LineNr">24113 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24114" class="LineNr">24114 </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="L24115" class="LineNr">24115 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24116" class="LineNr">24116 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24117" class="LineNr">24117 </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="L24118" class="LineNr">24118 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24119" class="LineNr">24119 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24120" class="LineNr">24120 </span> <span class="subxComment"># never gets here</span> +<span id="L24121" class="LineNr">24121 </span> +<span id="L24122" class="LineNr">24122 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-few-inouts</span>: +<span id="L24123" class="LineNr">24123 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24124" class="LineNr">24124 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24125" class="LineNr">24125 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24126" class="LineNr">24126 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24127" class="LineNr">24127 </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="L24128" class="LineNr">24128 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24129" class="LineNr">24129 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24130" class="LineNr">24130 </span> <span class="subxComment"># never gets here</span> +<span id="L24131" class="LineNr">24131 </span> +<span id="L24132" class="LineNr">24132 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-target-type-not-address</span>: +<span id="L24133" class="LineNr">24133 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24134" class="LineNr">24134 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24135" class="LineNr">24135 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24136" class="LineNr">24136 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24137" class="LineNr">24137 </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="L24138" class="LineNr">24138 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24139" class="LineNr">24139 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24140" class="LineNr">24140 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) +<span id="L24141" class="LineNr">24141 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24142" class="LineNr">24142 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24143" class="LineNr">24143 </span> <span class="subxComment"># never gets here</span> +<span id="L24144" class="LineNr">24144 </span> +<span id="L24145" class="LineNr">24145 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-target-type</span>: +<span id="L24146" class="LineNr">24146 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24147" class="LineNr">24147 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24148" class="LineNr">24148 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24149" class="LineNr">24149 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24150" class="LineNr">24150 </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="L24151" class="LineNr">24151 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24152" class="LineNr">24152 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24153" class="LineNr">24153 </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="L24154" class="LineNr">24154 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24155" class="LineNr">24155 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24156" class="LineNr">24156 </span> <span class="subxComment"># never gets here</span> +<span id="L24157" class="LineNr">24157 </span> +<span id="L24158" class="LineNr">24158 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-many-inouts</span>: +<span id="L24159" class="LineNr">24159 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24160" class="LineNr">24160 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24161" class="LineNr">24161 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24162" class="LineNr">24162 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24163" class="LineNr">24163 </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="L24164" class="LineNr">24164 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24165" class="LineNr">24165 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24166" class="LineNr">24166 </span> <span class="subxComment"># never gets here</span> +<span id="L24167" class="LineNr">24167 </span> +<span id="L24168" class="LineNr">24168 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-unexpected-output</span>: +<span id="L24169" class="LineNr">24169 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24170" class="LineNr">24170 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24171" class="LineNr">24171 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24172" class="LineNr">24172 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24173" class="LineNr">24173 </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="L24174" class="LineNr">24174 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24175" class="LineNr">24175 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24176" class="LineNr">24176 </span> <span class="subxComment"># never gets here</span> +<span id="L24177" class="LineNr">24177 </span> +<span id="L24178" class="LineNr">24178 </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="L24179" class="LineNr">24179 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24180" class="LineNr">24180 </span> 55/push-ebp +<span id="L24181" class="LineNr">24181 </span> 89/<- %ebp 4/r32/esp +<span id="L24182" class="LineNr">24182 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24183" class="LineNr">24183 </span> 50/push-eax +<span id="L24184" class="LineNr">24184 </span> 51/push-ecx +<span id="L24185" class="LineNr">24185 </span> 52/push-edx +<span id="L24186" class="LineNr">24186 </span> 53/push-ebx +<span id="L24187" class="LineNr">24187 </span> 56/push-esi +<span id="L24188" class="LineNr">24188 </span> 57/push-edi +<span id="L24189" class="LineNr">24189 </span> <span class="subxComment"># esi = stmt</span> +<span id="L24190" class="LineNr">24190 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24191" class="LineNr">24191 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L24192" class="LineNr">24192 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L24193" class="LineNr">24193 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24194" class="LineNr">24194 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-no-inouts</span>: +<span id="L24195" class="LineNr">24195 </span> 3d/compare-eax-and 0/imm32 +<span id="L24196" class="LineNr">24196 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 +<span id="L24197" class="LineNr">24197 </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="L24198" class="LineNr">24198 </span> 89/<- %ecx 0/r32/eax +<span id="L24199" class="LineNr">24199 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> +<span id="L24200" class="LineNr">24200 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L24201" class="LineNr">24201 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24202" class="LineNr">24202 </span> 89/<- %ebx 0/r32/eax +<span id="L24203" class="LineNr">24203 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-compound</span>: +<span id="L24204" class="LineNr">24204 </span> <span class="subxComment"># if base-type is an atom, abort</span> +<span id="L24205" class="LineNr">24205 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24206" class="LineNr">24206 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 +<span id="L24207" class="LineNr">24207 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr</span>: +<span id="L24208" class="LineNr">24208 </span> <span class="subxComment"># if type->left not addr, abort</span> +<span id="L24209" class="LineNr">24209 </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="L24210" class="LineNr">24210 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24211" class="LineNr">24211 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24212" class="LineNr">24212 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 +<span id="L24213" class="LineNr">24213 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr-to-stream</span>: +<span id="L24214" class="LineNr">24214 </span> <span class="subxComment"># base-type = base-type->right</span> +<span id="L24215" class="LineNr">24215 </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="L24216" class="LineNr">24216 </span> 89/<- %ebx 0/r32/eax +<span id="L24217" class="LineNr">24217 </span> <span class="subxComment"># ensure base-type->left == stream</span> +<span id="L24218" class="LineNr">24218 </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="L24219" class="LineNr">24219 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> +<span id="L24220" class="LineNr">24220 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24221" class="LineNr">24221 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 +<span id="L24222" class="LineNr">24222 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> +<span id="L24223" class="LineNr">24223 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L24224" class="LineNr">24224 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24225" class="LineNr">24225 </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="L24226" class="LineNr">24226 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-single-inout</span>: +<span id="L24227" class="LineNr">24227 </span> 3d/compare-eax-and 0/imm32 +<span id="L24228" class="LineNr">24228 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 +<span id="L24229" class="LineNr">24229 </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="L24230" class="LineNr">24230 </span> 89/<- %ecx 0/r32/eax +<span id="L24231" class="LineNr">24231 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> +<span id="L24232" class="LineNr">24232 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24233" class="LineNr">24233 </span> 89/<- %edx 0/r32/eax +<span id="L24234" class="LineNr">24234 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> +<span id="L24235" class="LineNr">24235 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-is-compound</span>: +<span id="L24236" class="LineNr">24236 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24237" class="LineNr">24237 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 +<span id="L24238" class="LineNr">24238 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-type</span>: +<span id="L24239" class="LineNr">24239 </span> <span class="subxComment"># target type must start with (addr ...)</span> +<span id="L24240" class="LineNr">24240 </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="L24241" class="LineNr">24241 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24242" class="LineNr">24242 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24243" class="LineNr">24243 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 +<span id="L24244" class="LineNr">24244 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> +<span id="L24245" class="LineNr">24245 </span> (<a href='mu.subx.html#L25286'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L24246" class="LineNr">24246 </span> 89/<- %ebx 0/r32/eax +<span id="L24247" class="LineNr">24247 </span> (<a href='mu.subx.html#L25286'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L24248" class="LineNr">24248 </span> (<a href='mu.subx.html#L25345'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L24249" class="LineNr">24249 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24250" class="LineNr">24250 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-target-type/disp32 +<span id="L24251" class="LineNr">24251 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-too-many-inouts</span>: +<span id="L24252" class="LineNr">24252 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L24253" class="LineNr">24253 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24254" class="LineNr">24254 </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="L24255" class="LineNr">24255 </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="L24256" class="LineNr">24256 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24257" class="LineNr">24257 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-too-many-inouts/disp32 +<span id="L24258" class="LineNr">24258 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-unexpected-output</span>: +<span id="L24259" class="LineNr">24259 </span> <span class="subxH1Comment"># - check for any output</span> +<span id="L24260" class="LineNr">24260 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24261" class="LineNr">24261 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24262" class="LineNr">24262 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-unexpected-output/disp32 +<span id="L24263" class="LineNr">24263 </span><span class="Constant">$check-mu-write-to-stream-stmt:end</span>: +<span id="L24264" class="LineNr">24264 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24265" class="LineNr">24265 </span> 5f/pop-to-edi +<span id="L24266" class="LineNr">24266 </span> 5e/pop-to-esi +<span id="L24267" class="LineNr">24267 </span> 5b/pop-to-ebx +<span id="L24268" class="LineNr">24268 </span> 5a/pop-to-edx +<span id="L24269" class="LineNr">24269 </span> 59/pop-to-ecx +<span id="L24270" class="LineNr">24270 </span> 58/pop-to-eax +<span id="L24271" class="LineNr">24271 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24272" class="LineNr">24272 </span> 89/<- %esp 5/r32/ebp +<span id="L24273" class="LineNr">24273 </span> 5d/pop-to-ebp +<span id="L24274" class="LineNr">24274 </span> c3/return +<span id="L24275" class="LineNr">24275 </span> +<span id="L24276" class="LineNr">24276 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-base-type</span>: +<span id="L24277" class="LineNr">24277 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24278" class="LineNr">24278 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24279" class="LineNr">24279 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24280" class="LineNr">24280 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24281" class="LineNr">24281 </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="L24282" class="LineNr">24282 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24283" class="LineNr">24283 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24284" class="LineNr">24284 </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="L24285" class="LineNr">24285 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24286" class="LineNr">24286 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24287" class="LineNr">24287 </span> <span class="subxComment"># never gets here</span> +<span id="L24288" class="LineNr">24288 </span> +<span id="L24289" class="LineNr">24289 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-few-inouts</span>: +<span id="L24290" class="LineNr">24290 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24291" class="LineNr">24291 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24292" class="LineNr">24292 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24293" class="LineNr">24293 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24294" class="LineNr">24294 </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="L24295" class="LineNr">24295 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24296" class="LineNr">24296 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24297" class="LineNr">24297 </span> <span class="subxComment"># never gets here</span> +<span id="L24298" class="LineNr">24298 </span> +<span id="L24299" class="LineNr">24299 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-target-type-not-address</span>: +<span id="L24300" class="LineNr">24300 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24301" class="LineNr">24301 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24302" class="LineNr">24302 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24303" class="LineNr">24303 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24304" class="LineNr">24304 </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="L24305" class="LineNr">24305 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24306" class="LineNr">24306 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24307" class="LineNr">24307 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) +<span id="L24308" class="LineNr">24308 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24309" class="LineNr">24309 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24310" class="LineNr">24310 </span> <span class="subxComment"># never gets here</span> +<span id="L24311" class="LineNr">24311 </span> +<span id="L24312" class="LineNr">24312 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-target-type</span>: +<span id="L24313" class="LineNr">24313 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24314" class="LineNr">24314 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24315" class="LineNr">24315 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24316" class="LineNr">24316 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24317" class="LineNr">24317 </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="L24318" class="LineNr">24318 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24319" class="LineNr">24319 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24320" class="LineNr">24320 </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="L24321" class="LineNr">24321 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24322" class="LineNr">24322 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24323" class="LineNr">24323 </span> <span class="subxComment"># never gets here</span> +<span id="L24324" class="LineNr">24324 </span> +<span id="L24325" class="LineNr">24325 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-many-inouts</span>: +<span id="L24326" class="LineNr">24326 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24327" class="LineNr">24327 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24328" class="LineNr">24328 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24329" class="LineNr">24329 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24330" class="LineNr">24330 </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="L24331" class="LineNr">24331 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24332" class="LineNr">24332 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24333" class="LineNr">24333 </span> <span class="subxComment"># never gets here</span> +<span id="L24334" class="LineNr">24334 </span> +<span id="L24335" class="LineNr">24335 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-unexpected-output</span>: +<span id="L24336" class="LineNr">24336 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24337" class="LineNr">24337 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24338" class="LineNr">24338 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24339" class="LineNr">24339 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24340" class="LineNr">24340 </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="L24341" class="LineNr">24341 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24342" class="LineNr">24342 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24343" class="LineNr">24343 </span> <span class="subxComment"># never gets here</span> +<span id="L24344" class="LineNr">24344 </span> +<span id="L24345" class="LineNr">24345 </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="L24346" class="LineNr">24346 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24347" class="LineNr">24347 </span> 55/push-ebp +<span id="L24348" class="LineNr">24348 </span> 89/<- %ebp 4/r32/esp +<span id="L24349" class="LineNr">24349 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24350" class="LineNr">24350 </span> 50/push-eax +<span id="L24351" class="LineNr">24351 </span> 51/push-ecx +<span id="L24352" class="LineNr">24352 </span> 52/push-edx +<span id="L24353" class="LineNr">24353 </span> 56/push-esi +<span id="L24354" class="LineNr">24354 </span> 57/push-edi +<span id="L24355" class="LineNr">24355 </span><span class="Constant">$check-mu-convert-stmt:get-output</span>: +<span id="L24356" class="LineNr">24356 </span> <span class="subxComment"># esi = stmt</span> +<span id="L24357" class="LineNr">24357 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24358" class="LineNr">24358 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L24359" class="LineNr">24359 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24360" class="LineNr">24360 </span> 89/<- %edi 0/r32/eax +<span id="L24361" class="LineNr">24361 </span> <span class="subxComment"># zero outputs</span> +<span id="L24362" class="LineNr">24362 </span> 3d/compare-eax-and 0/imm32 +<span id="L24363" class="LineNr">24363 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-output/disp32 +<span id="L24364" class="LineNr">24364 </span> <span class="subxComment"># > 1 output</span> +<span id="L24365" class="LineNr">24365 </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="L24366" class="LineNr">24366 </span> 3d/compare-eax-and 0/imm32 +<span id="L24367" class="LineNr">24367 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-outputs/disp32 +<span id="L24368" class="LineNr">24368 </span><span class="Constant">$check-mu-convert-stmt:get-inout</span>: +<span id="L24369" class="LineNr">24369 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L24370" class="LineNr">24370 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24371" class="LineNr">24371 </span> 89/<- %esi 0/r32/eax +<span id="L24372" class="LineNr">24372 </span> <span class="subxComment"># zero inouts</span> +<span id="L24373" class="LineNr">24373 </span> 3d/compare-eax-and 0/imm32 +<span id="L24374" class="LineNr">24374 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-inout/disp32 +<span id="L24375" class="LineNr">24375 </span> <span class="subxComment"># > 1 inout</span> +<span id="L24376" class="LineNr">24376 </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="L24377" class="LineNr">24377 </span> 3d/compare-eax-and 0/imm32 +<span id="L24378" class="LineNr">24378 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-inouts/disp32 +<span id="L24379" class="LineNr">24379 </span><span class="Constant">$check-mu-convert-stmt:types</span>: +<span id="L24380" class="LineNr">24380 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L24381" class="LineNr">24381 </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="L24382" class="LineNr">24382 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24383" class="LineNr">24383 </span> 89/<- %ecx 0/r32/eax +<span id="L24384" class="LineNr">24384 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L24385" class="LineNr">24385 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L24386" class="LineNr">24386 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24387" class="LineNr">24387 </span> { +<span id="L24388" class="LineNr">24388 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24389" class="LineNr">24389 </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="L24390" class="LineNr">24390 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L24391" class="LineNr">24391 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L24392" class="LineNr">24392 </span> { +<span id="L24393" class="LineNr">24393 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24394" class="LineNr">24394 </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="L24395" class="LineNr">24395 </span> } +<span id="L24396" class="LineNr">24396 </span> 89/<- %ecx 0/r32/eax +<span id="L24397" class="LineNr">24397 </span> } +<span id="L24398" class="LineNr">24398 </span> <span class="subxComment"># if input is not int or float, abort</span> <span id="L24399" class="LineNr">24399 </span> { -<span id="L24400" class="LineNr">24400 </span> (<a href='mu.subx.html#L24478'>is-mu-array?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L24400" class="LineNr">24400 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> <span id="L24401" class="LineNr">24401 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24402" class="LineNr">24402 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24403" class="LineNr">24403 </span> (<a href='mu.subx.html#L24509'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L24404" class="LineNr">24404 </span> eb/jump $size-of:end/disp8 -<span id="L24405" class="LineNr">24405 </span> } -<span id="L24406" class="LineNr">24406 </span> <span class="subxComment"># if is-mu-stream?(t) return size-of-stream(t)</span> -<span id="L24407" class="LineNr">24407 </span> { -<span id="L24408" class="LineNr">24408 </span> (<a href='mu.subx.html#L24543'>is-mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L24409" class="LineNr">24409 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24410" class="LineNr">24410 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24411" class="LineNr">24411 </span> (<a href='mu.subx.html#L24574'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L24412" class="LineNr">24412 </span> eb/jump $size-of:end/disp8 -<span id="L24413" class="LineNr">24413 </span> } -<span id="L24414" class="LineNr">24414 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> -<span id="L24415" class="LineNr">24415 </span> { -<span id="L24416" class="LineNr">24416 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24417" class="LineNr">24417 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24418" class="LineNr">24418 </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="L24419" class="LineNr">24419 </span> 89/<- %ecx 0/r32/eax -<span id="L24420" class="LineNr">24420 </span> } -<span id="L24421" class="LineNr">24421 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> -<span id="L24422" class="LineNr">24422 </span> (<a href='mu.subx.html#L24587'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L24423" class="LineNr">24423 </span><span class="Constant">$size-of:end</span>: -<span id="L24424" class="LineNr">24424 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24425" class="LineNr">24425 </span> 59/pop-to-ecx -<span id="L24426" class="LineNr">24426 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24427" class="LineNr">24427 </span> 89/<- %esp 5/r32/ebp -<span id="L24428" class="LineNr">24428 </span> 5d/pop-to-ebp -<span id="L24429" class="LineNr">24429 </span> c3/return -<span id="L24430" class="LineNr">24430 </span> -<span id="L24431" class="LineNr">24431 </span><span class="subxFunction">size-of-deref</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> -<span id="L24432" class="LineNr">24432 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24433" class="LineNr">24433 </span> 55/push-ebp -<span id="L24434" class="LineNr">24434 </span> 89/<- %ebp 4/r32/esp -<span id="L24435" class="LineNr">24435 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24436" class="LineNr">24436 </span> 51/push-ecx -<span id="L24437" class="LineNr">24437 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L24438" class="LineNr">24438 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L24439" class="LineNr">24439 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24440" class="LineNr">24440 </span> 89/<- %ecx 0/r32/eax -<span id="L24441" class="LineNr">24441 </span> <span class="subxComment"># TODO: assert(t is an addr)</span> -<span id="L24442" class="LineNr">24442 </span> <span class="subxComment"># t = lookup(t->right)</span> -<span id="L24443" class="LineNr">24443 </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="L24444" class="LineNr">24444 </span> 89/<- %ecx 0/r32/eax -<span id="L24445" class="LineNr">24445 </span> <span class="subxComment"># if is-mu-array?(t) return size-of-array(t)</span> -<span id="L24446" class="LineNr">24446 </span> { -<span id="L24447" class="LineNr">24447 </span> (<a href='mu.subx.html#L24478'>is-mu-array?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L24448" class="LineNr">24448 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24449" class="LineNr">24449 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24450" class="LineNr">24450 </span> (<a href='mu.subx.html#L24509'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L24451" class="LineNr">24451 </span> eb/jump $size-of-deref:end/disp8 -<span id="L24452" class="LineNr">24452 </span> } -<span id="L24453" class="LineNr">24453 </span> <span class="subxComment"># if is-mu-stream?(t) return size-of-stream(t)</span> -<span id="L24454" class="LineNr">24454 </span> { -<span id="L24455" class="LineNr">24455 </span> (<a href='mu.subx.html#L24543'>is-mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L24456" class="LineNr">24456 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24457" class="LineNr">24457 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24458" class="LineNr">24458 </span> (<a href='mu.subx.html#L24574'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L24459" class="LineNr">24459 </span> eb/jump $size-of-deref:end/disp8 -<span id="L24460" class="LineNr">24460 </span> } -<span id="L24461" class="LineNr">24461 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> -<span id="L24462" class="LineNr">24462 </span> { -<span id="L24463" class="LineNr">24463 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24464" class="LineNr">24464 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24465" class="LineNr">24465 </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="L24466" class="LineNr">24466 </span> 89/<- %ecx 0/r32/eax -<span id="L24467" class="LineNr">24467 </span> } -<span id="L24468" class="LineNr">24468 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> -<span id="L24469" class="LineNr">24469 </span> (<a href='mu.subx.html#L24587'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L24470" class="LineNr">24470 </span><span class="Constant">$size-of-deref:end</span>: -<span id="L24471" class="LineNr">24471 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24472" class="LineNr">24472 </span> 59/pop-to-ecx -<span id="L24473" class="LineNr">24473 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24474" class="LineNr">24474 </span> 89/<- %esp 5/r32/ebp -<span id="L24475" class="LineNr">24475 </span> 5d/pop-to-ebp -<span id="L24476" class="LineNr">24476 </span> c3/return -<span id="L24477" class="LineNr">24477 </span> -<span id="L24478" class="LineNr">24478 </span><span class="subxFunction">is-mu-array?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> -<span id="L24479" class="LineNr">24479 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24480" class="LineNr">24480 </span> 55/push-ebp -<span id="L24481" class="LineNr">24481 </span> 89/<- %ebp 4/r32/esp -<span id="L24482" class="LineNr">24482 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24483" class="LineNr">24483 </span> 51/push-ecx -<span id="L24484" class="LineNr">24484 </span> <span class="subxComment"># ecx = t</span> -<span id="L24485" class="LineNr">24485 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L24486" class="LineNr">24486 </span> <span class="subxComment"># if t->is-atom?, return false</span> -<span id="L24487" class="LineNr">24487 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24488" class="LineNr">24488 </span> 75/jump-if-!= $is-mu-array?:return-false/disp8 -<span id="L24489" class="LineNr">24489 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> -<span id="L24490" class="LineNr">24490 </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="L24491" class="LineNr">24491 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24492" class="LineNr">24492 </span> 74/jump-if-= $is-mu-array?:return-false/disp8 -<span id="L24493" class="LineNr">24493 </span> <span class="subxComment"># return t->left->value == array</span> -<span id="L24494" class="LineNr">24494 </span> 81 7/subop/compare *(eax+4) 3/imm32/array-type-id <span class="subxComment"># Type-tree-value</span> -<span id="L24495" class="LineNr">24495 </span> 0f 94/set-if-= %al -<span id="L24496" class="LineNr">24496 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L24497" class="LineNr">24497 </span> eb/jump $is-mu-array?:end/disp8 -<span id="L24498" class="LineNr">24498 </span><span class="Constant">$is-mu-array?:return-false</span>: -<span id="L24499" class="LineNr">24499 </span> b8/copy-to-eax 0/imm32/false -<span id="L24500" class="LineNr">24500 </span><span class="Constant">$is-mu-array?:end</span>: -<span id="L24501" class="LineNr">24501 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24502" class="LineNr">24502 </span> 59/pop-to-ecx -<span id="L24503" class="LineNr">24503 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24504" class="LineNr">24504 </span> 89/<- %esp 5/r32/ebp -<span id="L24505" class="LineNr">24505 </span> 5d/pop-to-ebp -<span id="L24506" class="LineNr">24506 </span> c3/return -<span id="L24507" class="LineNr">24507 </span> -<span id="L24508" class="LineNr">24508 </span><span class="subxComment"># size of a statically allocated array where the size is part of the type expression</span> -<span id="L24509" class="LineNr">24509 </span><span class="subxFunction">size-of-array</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L24510" class="LineNr">24510 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24511" class="LineNr">24511 </span> 55/push-ebp -<span id="L24512" class="LineNr">24512 </span> 89/<- %ebp 4/r32/esp -<span id="L24513" class="LineNr">24513 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24514" class="LineNr">24514 </span> 51/push-ecx -<span id="L24515" class="LineNr">24515 </span> 52/push-edx -<span id="L24516" class="LineNr">24516 </span> <span class="subxComment">#</span> -<span id="L24517" class="LineNr">24517 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L24518" class="LineNr">24518 </span> <span class="subxComment"># TODO: assert that a->left is 'array'</span> -<span id="L24519" class="LineNr">24519 </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="L24520" class="LineNr">24520 </span> 89/<- %ecx 0/r32/eax -<span id="L24521" class="LineNr">24521 </span> <span class="subxComment"># var elem-type/edx: type-id = a->right->left->value</span> -<span id="L24522" class="LineNr">24522 </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="L24523" class="LineNr">24523 </span> 8b/-> *(eax+4) 2/r32/edx <span class="subxComment"># Type-tree-value</span> -<span id="L24524" class="LineNr">24524 </span> <span class="subxComment"># TODO: assert that a->right->right->left->value == size</span> -<span id="L24525" class="LineNr">24525 </span> <span class="subxComment"># var array-size/ecx: int = a->right->right->left->value-size</span> -<span id="L24526" class="LineNr">24526 </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="L24527" class="LineNr">24527 </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="L24528" class="LineNr">24528 </span> 8b/-> *(eax+8) 1/r32/ecx <span class="subxComment"># Type-tree-value-size</span> -<span id="L24529" class="LineNr">24529 </span> <span class="subxComment"># return 4 + array-size * size-of(elem-type)</span> -<span id="L24530" class="LineNr">24530 </span> (<a href='mu.subx.html#L26765'>size-of-type-id-as-array-element</a> %edx) <span class="subxComment"># => eax</span> -<span id="L24531" class="LineNr">24531 </span> f7 4/subop/multiply-into-edx-eax %ecx -<span id="L24532" class="LineNr">24532 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array size</span> -<span id="L24533" class="LineNr">24533 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L24534" class="LineNr">24534 </span><span class="Constant">$size-of-array:end</span>: -<span id="L24535" class="LineNr">24535 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24536" class="LineNr">24536 </span> 5a/pop-to-edx -<span id="L24537" class="LineNr">24537 </span> 59/pop-to-ecx -<span id="L24538" class="LineNr">24538 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24539" class="LineNr">24539 </span> 89/<- %esp 5/r32/ebp -<span id="L24540" class="LineNr">24540 </span> 5d/pop-to-ebp -<span id="L24541" class="LineNr">24541 </span> c3/return -<span id="L24542" class="LineNr">24542 </span> -<span id="L24543" class="LineNr">24543 </span><span class="subxFunction">is-mu-stream?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> -<span id="L24544" class="LineNr">24544 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24545" class="LineNr">24545 </span> 55/push-ebp -<span id="L24546" class="LineNr">24546 </span> 89/<- %ebp 4/r32/esp -<span id="L24547" class="LineNr">24547 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24548" class="LineNr">24548 </span> 51/push-ecx -<span id="L24549" class="LineNr">24549 </span> <span class="subxComment"># ecx = t</span> -<span id="L24550" class="LineNr">24550 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L24551" class="LineNr">24551 </span> <span class="subxComment"># if t->is-atom?, return false</span> -<span id="L24552" class="LineNr">24552 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24553" class="LineNr">24553 </span> 75/jump-if-!= $is-mu-stream?:return-false/disp8 -<span id="L24554" class="LineNr">24554 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> -<span id="L24555" class="LineNr">24555 </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="L24556" class="LineNr">24556 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24557" class="LineNr">24557 </span> 74/jump-if-= $is-mu-stream?:return-false/disp8 -<span id="L24558" class="LineNr">24558 </span> <span class="subxComment"># return t->left->value == stream</span> -<span id="L24559" class="LineNr">24559 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream-type-id <span class="subxComment"># Type-tree-value</span> -<span id="L24560" class="LineNr">24560 </span> 0f 94/set-if-= %al -<span id="L24561" class="LineNr">24561 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L24562" class="LineNr">24562 </span> eb/jump $is-mu-stream?:end/disp8 -<span id="L24563" class="LineNr">24563 </span><span class="Constant">$is-mu-stream?:return-false</span>: -<span id="L24564" class="LineNr">24564 </span> b8/copy-to-eax 0/imm32/false -<span id="L24565" class="LineNr">24565 </span><span class="Constant">$is-mu-stream?:end</span>: -<span id="L24566" class="LineNr">24566 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24567" class="LineNr">24567 </span> 59/pop-to-ecx -<span id="L24568" class="LineNr">24568 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24569" class="LineNr">24569 </span> 89/<- %esp 5/r32/ebp -<span id="L24570" class="LineNr">24570 </span> 5d/pop-to-ebp -<span id="L24571" class="LineNr">24571 </span> c3/return -<span id="L24572" class="LineNr">24572 </span> -<span id="L24573" class="LineNr">24573 </span><span class="subxComment"># size of a statically allocated stream where the size is part of the type expression</span> -<span id="L24574" class="LineNr">24574 </span><span class="subxFunction">size-of-stream</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L24575" class="LineNr">24575 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24576" class="LineNr">24576 </span> 55/push-ebp -<span id="L24577" class="LineNr">24577 </span> 89/<- %ebp 4/r32/esp -<span id="L24578" class="LineNr">24578 </span> <span class="subxComment">#</span> -<span id="L24579" class="LineNr">24579 </span> (<a href='mu.subx.html#L24509'>size-of-array</a> *(ebp+8)) <span class="subxComment"># assumes we ignore the actual type name 'array' in the type</span> -<span id="L24580" class="LineNr">24580 </span> 05/add-to-eax 8/imm32 <span class="subxComment"># for read/write pointers</span> -<span id="L24581" class="LineNr">24581 </span><span class="Constant">$size-of-stream:end</span>: -<span id="L24582" class="LineNr">24582 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24583" class="LineNr">24583 </span> 89/<- %esp 5/r32/ebp -<span id="L24584" class="LineNr">24584 </span> 5d/pop-to-ebp -<span id="L24585" class="LineNr">24585 </span> c3/return -<span id="L24586" class="LineNr">24586 </span> -<span id="L24587" class="LineNr">24587 </span><span class="subxFunction">size-of-type-id</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> -<span id="L24588" class="LineNr">24588 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24589" class="LineNr">24589 </span> 55/push-ebp -<span id="L24590" class="LineNr">24590 </span> 89/<- %ebp 4/r32/esp -<span id="L24591" class="LineNr">24591 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24592" class="LineNr">24592 </span> 51/push-ecx -<span id="L24593" class="LineNr">24593 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> -<span id="L24594" class="LineNr">24594 </span> 68/push 0/imm32 -<span id="L24595" class="LineNr">24595 </span> 68/push 0/imm32 -<span id="L24596" class="LineNr">24596 </span> 89/<- %ecx 4/r32/esp -<span id="L24597" class="LineNr">24597 </span> <span class="subxComment"># eax = t</span> -<span id="L24598" class="LineNr">24598 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L24599" class="LineNr">24599 </span> <span class="subxComment"># if t is a literal, return 0</span> -<span id="L24600" class="LineNr">24600 </span> 3d/compare-eax-and 0/imm32 -<span id="L24601" class="LineNr">24601 </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="L24602" class="LineNr">24602 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> -<span id="L24603" class="LineNr">24603 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L24604" class="LineNr">24604 </span> { -<span id="L24605" class="LineNr">24605 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24606" class="LineNr">24606 </span> b8/copy-to-eax 4/imm32 -<span id="L24607" class="LineNr">24607 </span> eb/jump $size-of-type-id:end/disp8 -<span id="L24608" class="LineNr">24608 </span> } -<span id="L24609" class="LineNr">24609 </span> <span class="subxComment"># if t is a handle, return 8</span> -<span id="L24610" class="LineNr">24610 </span> 3d/compare-eax-and 4/imm32/handle -<span id="L24611" class="LineNr">24611 </span> { -<span id="L24612" class="LineNr">24612 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24613" class="LineNr">24613 </span> b8/copy-to-eax 8/imm32 -<span id="L24614" class="LineNr">24614 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L24615" class="LineNr">24615 </span> } -<span id="L24616" class="LineNr">24616 </span> <span class="subxComment"># if t is a slice, return 8</span> -<span id="L24617" class="LineNr">24617 </span> 3d/compare-eax-and 0xc/imm32/slice -<span id="L24618" class="LineNr">24618 </span> { -<span id="L24619" class="LineNr">24619 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24620" class="LineNr">24620 </span> b8/copy-to-eax 8/imm32 -<span id="L24621" class="LineNr">24621 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L24622" class="LineNr">24622 </span> } -<span id="L24623" class="LineNr">24623 </span> <span class="subxComment"># if t is a user-defined type, return its size</span> -<span id="L24624" class="LineNr">24624 </span> <span class="subxComment"># TODO: support non-atom type</span> -<span id="L24625" class="LineNr">24625 </span> (<a href='mu.subx.html#L18790'>find-typeinfo</a> %eax %ecx) -<span id="L24626" class="LineNr">24626 </span> { -<span id="L24627" class="LineNr">24627 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L24628" class="LineNr">24628 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24629" class="LineNr">24629 </span><span class="Constant">$size-of-type-id:user-defined</span>: -<span id="L24630" class="LineNr">24630 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L24631" class="LineNr">24631 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L24632" class="LineNr">24632 </span> eb/jump $size-of-type-id:end/disp8 -<span id="L24633" class="LineNr">24633 </span> } -<span id="L24634" class="LineNr">24634 </span> <span class="subxComment"># otherwise return the word size</span> -<span id="L24635" class="LineNr">24635 </span> b8/copy-to-eax 4/imm32 -<span id="L24636" class="LineNr">24636 </span><span class="Constant">$size-of-type-id:end</span>: -<span id="L24637" class="LineNr">24637 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L24638" class="LineNr">24638 </span> 81 0/subop/add %esp 8/imm32 -<span id="L24639" class="LineNr">24639 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24640" class="LineNr">24640 </span> 59/pop-to-ecx -<span id="L24641" class="LineNr">24641 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24642" class="LineNr">24642 </span> 89/<- %esp 5/r32/ebp -<span id="L24643" class="LineNr">24643 </span> 5d/pop-to-ebp -<span id="L24644" class="LineNr">24644 </span> c3/return -<span id="L24645" class="LineNr">24645 </span> -<span id="L24646" class="LineNr">24646 </span><span class="subxComment"># Minor violation of our type system since it returns an addr. But we could</span> -<span id="L24647" class="LineNr">24647 </span><span class="subxComment"># replace it with a handle some time.</span> -<span id="L24648" class="LineNr">24648 </span><span class="subxComment"># Returns null if t is an atom.</span> -<span id="L24649" class="LineNr">24649 </span><span class="subxFunction">type-tail</span>: <span class="subxComment"># t: (addr type-tree) -> out/eax: (addr type-tree)</span> -<span id="L24650" class="LineNr">24650 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24651" class="LineNr">24651 </span> 55/push-ebp -<span id="L24652" class="LineNr">24652 </span> 89/<- %ebp 4/r32/esp -<span id="L24653" class="LineNr">24653 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24654" class="LineNr">24654 </span> 51/push-ecx -<span id="L24655" class="LineNr">24655 </span> <span class="subxComment"># eax = 0</span> -<span id="L24656" class="LineNr">24656 </span> b8/copy-to-eax 0/imm32 -<span id="L24657" class="LineNr">24657 </span> <span class="subxComment"># ecx = t</span> -<span id="L24658" class="LineNr">24658 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L24659" class="LineNr">24659 </span><span class="Constant">$type-tail:check-atom</span>: -<span id="L24660" class="LineNr">24660 </span> <span class="subxComment"># if t->is-atom? return 0</span> -<span id="L24661" class="LineNr">24661 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24662" class="LineNr">24662 </span> 0f 85/jump-if-!= $type-tail:end/disp32 -<span id="L24663" class="LineNr">24663 </span> <span class="subxComment"># var tail = t->right</span> -<span id="L24664" class="LineNr">24664 </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="L24665" class="LineNr">24665 </span> 89/<- %ecx 0/r32/eax -<span id="L24666" class="LineNr">24666 </span><span class="Constant">$type-tail:check-singleton</span>: -<span id="L24667" class="LineNr">24667 </span> <span class="subxComment"># if (tail->right == 0) return tail->left</span> -<span id="L24668" class="LineNr">24668 </span> { -<span id="L24669" class="LineNr">24669 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L24670" class="LineNr">24670 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24671" class="LineNr">24671 </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="L24672" class="LineNr">24672 </span> e9/jump $type-tail:end/disp32 -<span id="L24673" class="LineNr">24673 </span> } -<span id="L24674" class="LineNr">24674 </span> <span class="subxComment"># if tail->right->left is an array-capacity, return tail->left</span> -<span id="L24675" class="LineNr">24675 </span> { -<span id="L24676" class="LineNr">24676 </span><span class="Constant">$type-tail:check-array-capacity</span>: -<span id="L24677" class="LineNr">24677 </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="L24678" class="LineNr">24678 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24679" class="LineNr">24679 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24680" class="LineNr">24680 </span><span class="Constant">$type-tail:check-array-capacity-1</span>: -<span id="L24681" class="LineNr">24681 </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="L24682" class="LineNr">24682 </span> 3d/compare-eax-and 0/imm32 -<span id="L24683" class="LineNr">24683 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24684" class="LineNr">24684 </span><span class="Constant">$type-tail:check-array-capacity-2</span>: -<span id="L24685" class="LineNr">24685 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 9) <span class="subxComment"># array-capacity => eax</span> -<span id="L24686" class="LineNr">24686 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24687" class="LineNr">24687 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24688" class="LineNr">24688 </span><span class="Constant">$type-tail:array-capacity</span>: -<span id="L24689" class="LineNr">24689 </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="L24690" class="LineNr">24690 </span> eb/jump $type-tail:end/disp8 -<span id="L24691" class="LineNr">24691 </span> } -<span id="L24692" class="LineNr">24692 </span><span class="Constant">$type-tail:check-compound-left</span>: -<span id="L24693" class="LineNr">24693 </span> <span class="subxComment"># if !tail->left->is-atom? return tail->left</span> -<span id="L24694" class="LineNr">24694 </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="L24695" class="LineNr">24695 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24696" class="LineNr">24696 </span> 74/jump-if-= $type-tail:end/disp8 -<span id="L24697" class="LineNr">24697 </span><span class="Constant">$type-tail:return-tail</span>: -<span id="L24698" class="LineNr">24698 </span> <span class="subxComment"># return tail</span> -<span id="L24699" class="LineNr">24699 </span> 89/<- %eax 1/r32/ecx -<span id="L24700" class="LineNr">24700 </span><span class="Constant">$type-tail:end</span>: -<span id="L24701" class="LineNr">24701 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24702" class="LineNr">24702 </span> 59/pop-to-ecx -<span id="L24703" class="LineNr">24703 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24704" class="LineNr">24704 </span> 89/<- %esp 5/r32/ebp -<span id="L24705" class="LineNr">24705 </span> 5d/pop-to-ebp -<span id="L24706" class="LineNr">24706 </span> c3/return -<span id="L24707" class="LineNr">24707 </span> -<span id="L24708" class="LineNr">24708 </span><span class="subxFunction">type-equal?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</span> -<span id="L24709" class="LineNr">24709 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24710" class="LineNr">24710 </span> 55/push-ebp -<span id="L24711" class="LineNr">24711 </span> 89/<- %ebp 4/r32/esp -<span id="L24712" class="LineNr">24712 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24713" class="LineNr">24713 </span> 51/push-ecx -<span id="L24714" class="LineNr">24714 </span> 52/push-edx -<span id="L24715" class="LineNr">24715 </span> 53/push-ebx -<span id="L24716" class="LineNr">24716 </span> <span class="subxComment"># ecx = a</span> -<span id="L24717" class="LineNr">24717 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L24718" class="LineNr">24718 </span> <span class="subxComment"># edx = b</span> -<span id="L24719" class="LineNr">24719 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L24720" class="LineNr">24720 </span><span class="Constant">$type-equal?:compare-addr</span>: -<span id="L24721" class="LineNr">24721 </span> <span class="subxComment"># if (a == b) return true</span> -<span id="L24722" class="LineNr">24722 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L24723" class="LineNr">24723 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L24724" class="LineNr">24724 </span> b8/copy-to-eax 1/imm32/true -<span id="L24725" class="LineNr">24725 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L24726" class="LineNr">24726 </span><span class="Constant">$type-equal?:compare-null-a</span>: -<span id="L24727" class="LineNr">24727 </span> <span class="subxComment"># if (a == 0) return false</span> -<span id="L24728" class="LineNr">24728 </span> b8/copy-to-eax 0/imm32/false -<span id="L24729" class="LineNr">24729 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L24730" class="LineNr">24730 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L24731" class="LineNr">24731 </span><span class="Constant">$type-equal?:compare-null-b</span>: -<span id="L24732" class="LineNr">24732 </span> <span class="subxComment"># if (b == 0) return false</span> -<span id="L24733" class="LineNr">24733 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L24734" class="LineNr">24734 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L24735" class="LineNr">24735 </span><span class="Constant">$type-equal?:compare-atom-state</span>: -<span id="L24736" class="LineNr">24736 </span> <span class="subxComment"># if (a->is-atom? != b->is-atom?) return false</span> -<span id="L24737" class="LineNr">24737 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24738" class="LineNr">24738 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24739" class="LineNr">24739 </span> b8/copy-to-eax 0/imm32/false -<span id="L24740" class="LineNr">24740 </span> 0f 85/jump-if-!= $type-equal?:end/disp32 -<span id="L24741" class="LineNr">24741 </span> <span class="subxComment"># if a->is-atom? return (a->value == b->value)</span> -<span id="L24742" class="LineNr">24742 </span> { -<span id="L24743" class="LineNr">24743 </span><span class="Constant">$type-equal?:check-atom</span>: -<span id="L24744" class="LineNr">24744 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L24745" class="LineNr">24745 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24746" class="LineNr">24746 </span><span class="Constant">$type-equal?:is-atom</span>: -<span id="L24747" class="LineNr">24747 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L24748" class="LineNr">24748 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L24749" class="LineNr">24749 </span> 0f 94/set-if-= %al -<span id="L24750" class="LineNr">24750 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L24751" class="LineNr">24751 </span> e9/jump $type-equal?:end/disp32 -<span id="L24752" class="LineNr">24752 </span> } -<span id="L24753" class="LineNr">24753 </span><span class="Constant">$type-equal?:check-left</span>: -<span id="L24754" class="LineNr">24754 </span> <span class="subxComment"># if (!type-equal?(a->left, b->left)) return false</span> -<span id="L24755" class="LineNr">24755 </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="L24756" class="LineNr">24756 </span> 89/<- %ebx 0/r32/eax -<span id="L24757" class="LineNr">24757 </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="L24758" class="LineNr">24758 </span> (<a href='mu.subx.html#L24708'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L24759" class="LineNr">24759 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24760" class="LineNr">24760 </span> 74/jump-if-= $type-equal?:end/disp8 -<span id="L24761" class="LineNr">24761 </span><span class="Constant">$type-equal?:check-right</span>: -<span id="L24762" class="LineNr">24762 </span> <span class="subxComment"># return type-equal?(a->right, b->right)</span> -<span id="L24763" class="LineNr">24763 </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="L24764" class="LineNr">24764 </span> 89/<- %ebx 0/r32/eax -<span id="L24765" class="LineNr">24765 </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="L24766" class="LineNr">24766 </span> (<a href='mu.subx.html#L24708'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L24767" class="LineNr">24767 </span><span class="Constant">$type-equal?:end</span>: -<span id="L24768" class="LineNr">24768 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24769" class="LineNr">24769 </span> 5b/pop-to-ebx -<span id="L24770" class="LineNr">24770 </span> 5a/pop-to-edx -<span id="L24771" class="LineNr">24771 </span> 59/pop-to-ecx -<span id="L24772" class="LineNr">24772 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24773" class="LineNr">24773 </span> 89/<- %esp 5/r32/ebp -<span id="L24774" class="LineNr">24774 </span> 5d/pop-to-ebp -<span id="L24775" class="LineNr">24775 </span> c3/return -<span id="L24776" class="LineNr">24776 </span> -<span id="L24777" class="LineNr">24777 </span><span class="subxComment">#######################################################</span> -<span id="L24778" class="LineNr">24778 </span><span class="subxComment"># Code-generation</span> -<span id="L24779" class="LineNr">24779 </span><span class="subxComment">#######################################################</span> -<span id="L24780" class="LineNr">24780 </span> -<span id="L24781" class="LineNr">24781 </span>== data -<span id="L24782" class="LineNr">24782 </span> -<span id="L24783" class="LineNr">24783 </span><span class="subxComment"># Global state added to each var record when performing code-generation.</span> -<span id="L24784" class="LineNr">24784 </span><span class="SpecialChar">Curr-local-stack-offset</span>: <span class="subxComment"># (addr int)</span> -<span id="L24785" class="LineNr">24785 </span> 0/imm32 -<span id="L24786" class="LineNr">24786 </span> -<span id="L24787" class="LineNr">24787 </span>== code -<span id="L24788" class="LineNr">24788 </span> -<span id="L24789" class="LineNr">24789 </span><span class="subxComment"># We may not need to pass err/ed everywhere here. I think they're relics of Mu</span> -<span id="L24790" class="LineNr">24790 </span><span class="subxComment"># getting type checks later in life.</span> -<span id="L24791" class="LineNr">24791 </span><span class="subxComment"># But we do need them for runtime checks, particularly array index bounds checks.</span> -<span id="L24792" class="LineNr">24792 </span><span class="subxComment"># So perhaps it's not worth taking them out. They're a safety net.</span> -<span id="L24793" class="LineNr">24793 </span> -<span id="L24794" class="LineNr">24794 </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="L24795" class="LineNr">24795 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24796" class="LineNr">24796 </span> 55/push-ebp -<span id="L24797" class="LineNr">24797 </span> 89/<- %ebp 4/r32/esp -<span id="L24798" class="LineNr">24798 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24799" class="LineNr">24799 </span> 50/push-eax -<span id="L24800" class="LineNr">24800 </span> <span class="subxComment"># var curr/eax: (addr function) = *Program->functions</span> -<span id="L24801" class="LineNr">24801 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L24802" class="LineNr">24802 </span> { -<span id="L24803" class="LineNr">24803 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L24804" class="LineNr">24804 </span> 3d/compare-eax-and 0/imm32 -<span id="L24805" class="LineNr">24805 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L24806" class="LineNr">24806 </span> (<a href='mu.subx.html#L24819'>emit-subx-function</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L24807" class="LineNr">24807 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L24808" class="LineNr">24808 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L24809" class="LineNr">24809 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L24810" class="LineNr">24810 </span> } -<span id="L24811" class="LineNr">24811 </span><span class="Constant">$emit-subx:end</span>: -<span id="L24812" class="LineNr">24812 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24813" class="LineNr">24813 </span> 58/pop-to-eax -<span id="L24814" class="LineNr">24814 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24815" class="LineNr">24815 </span> 89/<- %esp 5/r32/ebp -<span id="L24816" class="LineNr">24816 </span> 5d/pop-to-ebp -<span id="L24817" class="LineNr">24817 </span> c3/return -<span id="L24818" class="LineNr">24818 </span> -<span id="L24819" class="LineNr">24819 </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="L24820" class="LineNr">24820 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24821" class="LineNr">24821 </span> 55/push-ebp -<span id="L24822" class="LineNr">24822 </span> 89/<- %ebp 4/r32/esp -<span id="L24823" class="LineNr">24823 </span> <span class="subxComment"># some preprocessing</span> -<span id="L24824" class="LineNr">24824 </span> (<a href='mu.subx.html#L24864'>populate-mu-type-offsets-in-inouts</a> *(ebp+0xc)) -<span id="L24825" class="LineNr">24825 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24826" class="LineNr">24826 </span> 50/push-eax -<span id="L24827" class="LineNr">24827 </span> 51/push-ecx -<span id="L24828" class="LineNr">24828 </span> 52/push-edx -<span id="L24829" class="LineNr">24829 </span> <span class="subxComment"># initialize some global state</span> -<span id="L24830" class="LineNr">24830 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 1/imm32 <span class="subxComment"># Important: keep this in sync with the parse phase</span> -<span id="L24831" class="LineNr">24831 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L24784'>Curr-local-stack-offset</a></span> 0/imm32 -<span id="L24832" class="LineNr">24832 </span> <span class="subxComment"># ecx = f</span> -<span id="L24833" class="LineNr">24833 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L24834" class="LineNr">24834 </span> <span class="subxComment"># var vars/edx: (stack (addr var) 256)</span> -<span id="L24835" class="LineNr">24835 </span> 81 5/subop/subtract %esp 0xc00/imm32 -<span id="L24836" class="LineNr">24836 </span> 68/push 0xc00/imm32/size -<span id="L24837" class="LineNr">24837 </span> 68/push 0/imm32/top -<span id="L24838" class="LineNr">24838 </span> 89/<- %edx 4/r32/esp -<span id="L24839" class="LineNr">24839 </span> <span class="subxComment"># var name/eax: (addr array byte) = lookup(f->name)</span> -<span id="L24840" class="LineNr">24840 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24841" class="LineNr">24841 </span> <span class="subxComment">#</span> -<span id="L24842" class="LineNr">24842 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L24843" class="LineNr">24843 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":\n"</span>) -<span id="L24844" class="LineNr">24844 </span> (<a href='mu.subx.html#L36028'>emit-subx-prologue</a> *(ebp+8)) -<span id="L24845" class="LineNr">24845 </span> <span class="subxComment"># var body/eax: (addr block) = lookup(f->body)</span> -<span id="L24846" class="LineNr">24846 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> -<span id="L24847" class="LineNr">24847 </span> <span class="subxComment">#</span> -<span id="L24848" class="LineNr">24848 </span> (<a href='mu.subx.html#L27842'>emit-subx-block</a> *(ebp+8) %eax %edx *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L24849" class="LineNr">24849 </span> (<a href='mu.subx.html#L36042'>emit-subx-epilogue</a> *(ebp+8)) -<span id="L24850" class="LineNr">24850 </span> <span class="subxComment"># TODO: validate that *Curr-block-depth and *Curr-local-stack-offset have</span> -<span id="L24851" class="LineNr">24851 </span> <span class="subxComment"># been cleaned up</span> -<span id="L24852" class="LineNr">24852 </span><span class="Constant">$emit-subx-function:end</span>: -<span id="L24853" class="LineNr">24853 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L24854" class="LineNr">24854 </span> 81 0/subop/add %esp 0xc08/imm32 -<span id="L24855" class="LineNr">24855 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24856" class="LineNr">24856 </span> 5a/pop-to-edx -<span id="L24857" class="LineNr">24857 </span> 59/pop-to-ecx -<span id="L24858" class="LineNr">24858 </span> 58/pop-to-eax -<span id="L24859" class="LineNr">24859 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24860" class="LineNr">24860 </span> 89/<- %esp 5/r32/ebp -<span id="L24861" class="LineNr">24861 </span> 5d/pop-to-ebp -<span id="L24862" class="LineNr">24862 </span> c3/return -<span id="L24863" class="LineNr">24863 </span> -<span id="L24864" class="LineNr">24864 </span><span class="subxFunction">populate-mu-type-offsets-in-inouts</span>: <span class="subxComment"># f: (addr function)</span> -<span id="L24865" class="LineNr">24865 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24866" class="LineNr">24866 </span> 55/push-ebp -<span id="L24867" class="LineNr">24867 </span> 89/<- %ebp 4/r32/esp -<span id="L24868" class="LineNr">24868 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24869" class="LineNr">24869 </span> 50/push-eax -<span id="L24870" class="LineNr">24870 </span> 51/push-ecx -<span id="L24871" class="LineNr">24871 </span> 52/push-edx -<span id="L24872" class="LineNr">24872 </span> 53/push-ebx -<span id="L24873" class="LineNr">24873 </span> 57/push-edi -<span id="L24874" class="LineNr">24874 </span> <span class="subxComment"># var next-offset/edx: int = 8</span> -<span id="L24875" class="LineNr">24875 </span> ba/copy-to-edx 8/imm32 -<span id="L24876" class="LineNr">24876 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(f->inouts)</span> -<span id="L24877" class="LineNr">24877 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L24878" class="LineNr">24878 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</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="Constant">$populate-mu-type-offsets-in-inouts:loop</span>: -<span id="L24882" class="LineNr">24882 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L24402" class="LineNr">24402 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24403" class="LineNr">24403 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> +<span id="L24404" class="LineNr">24404 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24405" class="LineNr">24405 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24406" class="LineNr">24406 </span> e9/jump $check-mu-convert-stmt:error-invalid-inout-type/disp32 +<span id="L24407" class="LineNr">24407 </span> } +<span id="L24408" class="LineNr">24408 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L24409" class="LineNr">24409 </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="L24410" class="LineNr">24410 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L24411" class="LineNr">24411 </span> 3d/compare-eax-and 0/imm32 +<span id="L24412" class="LineNr">24412 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-output-not-in-register/disp32 +<span id="L24413" class="LineNr">24413 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> +<span id="L24414" class="LineNr">24414 </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="L24415" class="LineNr">24415 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24416" class="LineNr">24416 </span> 89/<- %edx 0/r32/eax +<span id="L24417" class="LineNr">24417 </span> <span class="subxComment"># if output is not int or float, abort</span> +<span id="L24418" class="LineNr">24418 </span> { +<span id="L24419" class="LineNr">24419 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L24420" class="LineNr">24420 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24421" class="LineNr">24421 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24422" class="LineNr">24422 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> +<span id="L24423" class="LineNr">24423 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24424" class="LineNr">24424 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24425" class="LineNr">24425 </span> e9/jump $check-mu-convert-stmt:error-invalid-output-type/disp32 +<span id="L24426" class="LineNr">24426 </span> } +<span id="L24427" class="LineNr">24427 </span> <span class="subxComment"># if both are ints, abort</span> +<span id="L24428" class="LineNr">24428 </span> { +<span id="L24429" class="LineNr">24429 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L24430" class="LineNr">24430 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24431" class="LineNr">24431 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24432" class="LineNr">24432 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> +<span id="L24433" class="LineNr">24433 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24434" class="LineNr">24434 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24435" class="LineNr">24435 </span> e9/jump $check-mu-convert-stmt:error-int-to-int/disp32 +<span id="L24436" class="LineNr">24436 </span> } +<span id="L24437" class="LineNr">24437 </span> <span class="subxComment"># if both are floats, abort</span> +<span id="L24438" class="LineNr">24438 </span> { +<span id="L24439" class="LineNr">24439 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> +<span id="L24440" class="LineNr">24440 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24441" class="LineNr">24441 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24442" class="LineNr">24442 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> +<span id="L24443" class="LineNr">24443 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24444" class="LineNr">24444 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24445" class="LineNr">24445 </span> e9/jump $check-mu-convert-stmt:error-float-to-float/disp32 +<span id="L24446" class="LineNr">24446 </span> } +<span id="L24447" class="LineNr">24447 </span><span class="Constant">$check-mu-convert-stmt:end</span>: +<span id="L24448" class="LineNr">24448 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24449" class="LineNr">24449 </span> 5f/pop-to-edi +<span id="L24450" class="LineNr">24450 </span> 5e/pop-to-esi +<span id="L24451" class="LineNr">24451 </span> 5a/pop-to-edx +<span id="L24452" class="LineNr">24452 </span> 59/pop-to-ecx +<span id="L24453" class="LineNr">24453 </span> 58/pop-to-eax +<span id="L24454" class="LineNr">24454 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24455" class="LineNr">24455 </span> 89/<- %esp 5/r32/ebp +<span id="L24456" class="LineNr">24456 </span> 5d/pop-to-ebp +<span id="L24457" class="LineNr">24457 </span> c3/return +<span id="L24458" class="LineNr">24458 </span> +<span id="L24459" class="LineNr">24459 </span><span class="Constant">$check-mu-convert-stmt:error-no-inout</span>: +<span id="L24460" class="LineNr">24460 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24461" class="LineNr">24461 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24462" class="LineNr">24462 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24463" class="LineNr">24463 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24464" class="LineNr">24464 </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="L24465" class="LineNr">24465 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24466" class="LineNr">24466 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24467" class="LineNr">24467 </span> <span class="subxComment"># never gets here</span> +<span id="L24468" class="LineNr">24468 </span> +<span id="L24469" class="LineNr">24469 </span><span class="Constant">$check-mu-convert-stmt:error-too-many-inouts</span>: +<span id="L24470" class="LineNr">24470 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24471" class="LineNr">24471 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24472" class="LineNr">24472 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24473" class="LineNr">24473 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24474" class="LineNr">24474 </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="L24475" class="LineNr">24475 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24476" class="LineNr">24476 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24477" class="LineNr">24477 </span> <span class="subxComment"># never gets here</span> +<span id="L24478" class="LineNr">24478 </span> +<span id="L24479" class="LineNr">24479 </span><span class="Constant">$check-mu-convert-stmt:error-no-output</span>: +<span id="L24480" class="LineNr">24480 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24481" class="LineNr">24481 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24482" class="LineNr">24482 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24483" class="LineNr">24483 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24484" class="LineNr">24484 </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="L24485" class="LineNr">24485 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24486" class="LineNr">24486 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24487" class="LineNr">24487 </span> <span class="subxComment"># never gets here</span> +<span id="L24488" class="LineNr">24488 </span> +<span id="L24489" class="LineNr">24489 </span><span class="Constant">$check-mu-convert-stmt:error-output-not-in-register</span>: +<span id="L24490" class="LineNr">24490 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24491" class="LineNr">24491 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24492" class="LineNr">24492 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24493" class="LineNr">24493 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24494" class="LineNr">24494 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) +<span id="L24495" class="LineNr">24495 </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="L24496" class="LineNr">24496 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+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">"' not 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-convert-stmt:error-too-many-outputs</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#L256'>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 'convert' must have just one output\n"</span>) +<span id="L24509" class="LineNr">24509 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24510" class="LineNr">24510 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24511" class="LineNr">24511 </span> <span class="subxComment"># never gets here</span> +<span id="L24512" class="LineNr">24512 </span> +<span id="L24513" class="LineNr">24513 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-inout-type</span>: +<span id="L24514" class="LineNr">24514 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24515" class="LineNr">24515 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24516" class="LineNr">24516 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24517" class="LineNr">24517 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24518" class="LineNr">24518 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: inout '"</span>) +<span id="L24519" class="LineNr">24519 </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="L24520" class="LineNr">24520 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24521" class="LineNr">24521 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24522" class="LineNr">24522 </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="L24523" class="LineNr">24523 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24524" class="LineNr">24524 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24525" class="LineNr">24525 </span> <span class="subxComment"># never gets here</span> +<span id="L24526" class="LineNr">24526 </span> +<span id="L24527" class="LineNr">24527 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-output-type</span>: +<span id="L24528" class="LineNr">24528 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24529" class="LineNr">24529 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24530" class="LineNr">24530 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24531" class="LineNr">24531 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24532" class="LineNr">24532 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) +<span id="L24533" class="LineNr">24533 </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="L24534" class="LineNr">24534 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24535" class="LineNr">24535 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24536" class="LineNr">24536 </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="L24537" class="LineNr">24537 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24538" class="LineNr">24538 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24539" class="LineNr">24539 </span> <span class="subxComment"># never gets here</span> +<span id="L24540" class="LineNr">24540 </span> +<span id="L24541" class="LineNr">24541 </span><span class="Constant">$check-mu-convert-stmt:error-int-to-int</span>: +<span id="L24542" class="LineNr">24542 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24543" class="LineNr">24543 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24544" class="LineNr">24544 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24545" class="LineNr">24545 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24546" class="LineNr">24546 </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="L24547" class="LineNr">24547 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24548" class="LineNr">24548 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24549" class="LineNr">24549 </span> <span class="subxComment"># never gets here</span> +<span id="L24550" class="LineNr">24550 </span> +<span id="L24551" class="LineNr">24551 </span><span class="Constant">$check-mu-convert-stmt:error-float-to-float</span>: +<span id="L24552" class="LineNr">24552 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24553" class="LineNr">24553 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24554" class="LineNr">24554 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24555" class="LineNr">24555 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24556" class="LineNr">24556 </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="L24557" class="LineNr">24557 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24558" class="LineNr">24558 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24559" class="LineNr">24559 </span> <span class="subxComment"># never gets here</span> +<span id="L24560" class="LineNr">24560 </span> +<span id="L24561" class="LineNr">24561 </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="L24562" class="LineNr">24562 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24563" class="LineNr">24563 </span> 55/push-ebp +<span id="L24564" class="LineNr">24564 </span> 89/<- %ebp 4/r32/esp +<span id="L24565" class="LineNr">24565 </span> <span class="subxComment"># var type-parameters: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L24566" class="LineNr">24566 </span> 68/push 0/imm32 +<span id="L24567" class="LineNr">24567 </span> <span class="subxComment"># var type-parameters-storage: (table (handle array byte) (addr type-tree) 8)</span> +<span id="L24568" class="LineNr">24568 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L24569" class="LineNr">24569 </span> 68/push 0x60/imm32/size +<span id="L24570" class="LineNr">24570 </span> 68/push 0/imm32/read +<span id="L24571" class="LineNr">24571 </span> 68/push 0/imm32/write +<span id="L24572" class="LineNr">24572 </span> <span class="subxComment"># save a pointer to type-parameters-storage at type-parameters</span> +<span id="L24573" class="LineNr">24573 </span> 89/<- *(ebp-4) 4/r32/esp +<span id="L24574" class="LineNr">24574 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> *(ebp-4)) +<span id="L24575" class="LineNr">24575 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24576" class="LineNr">24576 </span> 50/push-eax +<span id="L24577" class="LineNr">24577 </span> 51/push-ecx +<span id="L24578" class="LineNr">24578 </span> 52/push-edx +<span id="L24579" class="LineNr">24579 </span> 53/push-ebx +<span id="L24580" class="LineNr">24580 </span> 56/push-esi +<span id="L24581" class="LineNr">24581 </span> 57/push-edi +<span id="L24582" class="LineNr">24582 </span> <span class="subxComment"># esi = stmt</span> +<span id="L24583" class="LineNr">24583 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24584" class="LineNr">24584 </span> <span class="subxComment"># edi = callee</span> +<span id="L24585" class="LineNr">24585 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L24586" class="LineNr">24586 </span> <span class="subxComment"># var inouts/ecx: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L24587" class="LineNr">24587 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24588" class="LineNr">24588 </span> 89/<- %ecx 0/r32/eax +<span id="L24589" class="LineNr">24589 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->inouts)</span> +<span id="L24590" class="LineNr">24590 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L24591" class="LineNr">24591 </span> 89/<- %edx 0/r32/eax +<span id="L24592" class="LineNr">24592 </span> { +<span id="L24593" class="LineNr">24593 </span><span class="Constant">$check-mu-call:check-for-inouts</span>: +<span id="L24594" class="LineNr">24594 </span> <span class="subxComment"># if (inouts == 0) break</span> +<span id="L24595" class="LineNr">24595 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L24596" class="LineNr">24596 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L24597" class="LineNr">24597 </span> <span class="subxComment"># if (expected == 0) error</span> +<span id="L24598" class="LineNr">24598 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L24599" class="LineNr">24599 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L24600" class="LineNr">24600 </span><span class="Constant">$check-mu-call:check-null-addr</span>: +<span id="L24601" class="LineNr">24601 </span> <span class="subxComment"># if (inouts->value->name == "0") continue</span> +<span id="L24602" class="LineNr">24602 </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="L24603" class="LineNr">24603 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24604" class="LineNr">24604 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L24605" class="LineNr">24605 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24606" class="LineNr">24606 </span> 0f 85/jump-if-!= $check-mu-call:continue-to-next-inout/disp32 +<span id="L24607" class="LineNr">24607 </span><span class="Constant">$check-mu-call:check-inout-type</span>: +<span id="L24608" class="LineNr">24608 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = inouts->value->type</span> +<span id="L24609" class="LineNr">24609 </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="L24610" class="LineNr">24610 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24611" class="LineNr">24611 </span> 89/<- %ebx 0/r32/eax +<span id="L24612" class="LineNr">24612 </span> <span class="subxComment"># if (inouts->is-deref?) t = t->right</span> +<span id="L24613" class="LineNr">24613 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L24614" class="LineNr">24614 </span> { +<span id="L24615" class="LineNr">24615 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24616" class="LineNr">24616 </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="L24617" class="LineNr">24617 </span> 89/<- %ebx 0/r32/eax +<span id="L24618" class="LineNr">24618 </span> <span class="subxComment"># if t->right is null, t = t->left</span> +<span id="L24619" class="LineNr">24619 </span> 81 7/subop/compare *(ebx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L24620" class="LineNr">24620 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24621" class="LineNr">24621 </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="L24622" class="LineNr">24622 </span> 89/<- %ebx 0/r32/eax +<span id="L24623" class="LineNr">24623 </span> } +<span id="L24624" class="LineNr">24624 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L24625" class="LineNr">24625 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L24626" class="LineNr">24626 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> +<span id="L24627" class="LineNr">24627 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24628" class="LineNr">24628 </span> <span class="subxComment"># if (t != t2) error</span> +<span id="L24629" class="LineNr">24629 </span> (<a href='mu.subx.html#L24859'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> +<span id="L24630" class="LineNr">24630 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24631" class="LineNr">24631 </span> { +<span id="L24632" class="LineNr">24632 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L24633" class="LineNr">24633 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L24634" class="LineNr">24634 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L24635" class="LineNr">24635 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24636" class="LineNr">24636 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24637" class="LineNr">24637 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L24638" class="LineNr">24638 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24639" class="LineNr">24639 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24640" class="LineNr">24640 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for inout '"</span>) +<span id="L24641" class="LineNr">24641 </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="L24642" class="LineNr">24642 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24643" class="LineNr">24643 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24644" class="LineNr">24644 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L24645" class="LineNr">24645 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L24646" class="LineNr">24646 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L24647" class="LineNr">24647 </span> } +<span id="L24648" class="LineNr">24648 </span><span class="Constant">$check-mu-call:continue-to-next-inout</span>: +<span id="L24649" class="LineNr">24649 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L24650" class="LineNr">24650 </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="L24651" class="LineNr">24651 </span> 89/<- %ecx 0/r32/eax +<span id="L24652" class="LineNr">24652 </span> <span class="subxComment"># expected = lookup(expected->next)</span> +<span id="L24653" class="LineNr">24653 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L24654" class="LineNr">24654 </span> 89/<- %edx 0/r32/eax +<span id="L24655" class="LineNr">24655 </span> <span class="subxComment">#</span> +<span id="L24656" class="LineNr">24656 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L24657" class="LineNr">24657 </span> } +<span id="L24658" class="LineNr">24658 </span><span class="Constant">$check-mu-call:check-inout-count</span>: +<span id="L24659" class="LineNr">24659 </span> <span class="subxComment"># if (inouts == expected) proceed</span> +<span id="L24660" class="LineNr">24660 </span> 39/compare %ecx 2/r32/edx +<span id="L24661" class="LineNr">24661 </span> { +<span id="L24662" class="LineNr">24662 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L24663" class="LineNr">24663 </span> <span class="subxComment"># exactly one of the two is null</span> +<span id="L24664" class="LineNr">24664 </span> <span class="subxComment"># if (inouts == 0) error("too many inouts")</span> +<span id="L24665" class="LineNr">24665 </span> { +<span id="L24666" class="LineNr">24666 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L24667" class="LineNr">24667 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L24668" class="LineNr">24668 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L24669" class="LineNr">24669 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L24670" class="LineNr">24670 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24671" class="LineNr">24671 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24672" class="LineNr">24672 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L24673" class="LineNr">24673 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24674" class="LineNr">24674 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24675" class="LineNr">24675 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many inouts\n"</span>) +<span id="L24676" class="LineNr">24676 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L24677" class="LineNr">24677 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L24678" class="LineNr">24678 </span> } +<span id="L24679" class="LineNr">24679 </span> <span class="subxComment"># if (expected == 0) error("too few inouts")</span> +<span id="L24680" class="LineNr">24680 </span> { +<span id="L24681" class="LineNr">24681 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L24682" class="LineNr">24682 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L24683" class="LineNr">24683 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L24684" class="LineNr">24684 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L24685" class="LineNr">24685 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24686" class="LineNr">24686 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24687" class="LineNr">24687 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L24688" class="LineNr">24688 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+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+0x14) %eax) +<span id="L24690" class="LineNr">24690 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few inouts\n"</span>) +<span id="L24691" class="LineNr">24691 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L24692" class="LineNr">24692 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L24693" class="LineNr">24693 </span> } +<span id="L24694" class="LineNr">24694 </span> } +<span id="L24695" class="LineNr">24695 </span><span class="Constant">$check-mu-call:check-outputs</span>: +<span id="L24696" class="LineNr">24696 </span> <span class="subxComment"># var outputs/ecx: (addr stmt-var) = lookup(stmt->outputs)</span> +<span id="L24697" class="LineNr">24697 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24698" class="LineNr">24698 </span> 89/<- %ecx 0/r32/eax +<span id="L24699" class="LineNr">24699 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->outputs)</span> +<span id="L24700" class="LineNr">24700 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x10) *(edi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L24701" class="LineNr">24701 </span> 89/<- %edx 0/r32/eax +<span id="L24702" class="LineNr">24702 </span> { +<span id="L24703" class="LineNr">24703 </span><span class="Constant">$check-mu-call:check-for-outputs</span>: +<span id="L24704" class="LineNr">24704 </span> <span class="subxComment"># if (outputs == 0) break</span> +<span id="L24705" class="LineNr">24705 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L24706" class="LineNr">24706 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L24707" class="LineNr">24707 </span> <span class="subxComment"># if (expected == 0) error</span> +<span id="L24708" class="LineNr">24708 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L24709" class="LineNr">24709 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L24710" class="LineNr">24710 </span><span class="Constant">$check-mu-call:check-output-type</span>: +<span id="L24711" class="LineNr">24711 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> +<span id="L24712" class="LineNr">24712 </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="L24713" class="LineNr">24713 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = lookup(v->type)</span> +<span id="L24714" class="LineNr">24714 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24715" class="LineNr">24715 </span> 89/<- %ebx 0/r32/eax +<span id="L24716" class="LineNr">24716 </span> <span class="subxComment"># if (outputs->is-deref?) t = t->right # TODO: check that t->left is an addr</span> +<span id="L24717" class="LineNr">24717 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L24718" class="LineNr">24718 </span> { +<span id="L24719" class="LineNr">24719 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24720" class="LineNr">24720 </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="L24721" class="LineNr">24721 </span> 89/<- %ebx 0/r32/eax +<span id="L24722" class="LineNr">24722 </span> } +<span id="L24723" class="LineNr">24723 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L24724" class="LineNr">24724 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L24725" class="LineNr">24725 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> +<span id="L24726" class="LineNr">24726 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24727" class="LineNr">24727 </span> <span class="subxComment"># if (t != t2) error</span> +<span id="L24728" class="LineNr">24728 </span> (<a href='mu.subx.html#L24859'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> +<span id="L24729" class="LineNr">24729 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24730" class="LineNr">24730 </span> { +<span id="L24731" class="LineNr">24731 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L24732" class="LineNr">24732 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L24733" class="LineNr">24733 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L24734" class="LineNr">24734 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24735" class="LineNr">24735 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24736" class="LineNr">24736 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L24737" class="LineNr">24737 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24738" class="LineNr">24738 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24739" class="LineNr">24739 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for output '"</span>) +<span id="L24740" class="LineNr">24740 </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="L24741" class="LineNr">24741 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24742" class="LineNr">24742 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24743" class="LineNr">24743 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L24744" class="LineNr">24744 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L24745" class="LineNr">24745 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L24746" class="LineNr">24746 </span> } +<span id="L24747" class="LineNr">24747 </span><span class="Constant">$check-mu-call:check-output-register</span>: +<span id="L24748" class="LineNr">24748 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> +<span id="L24749" class="LineNr">24749 </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="L24750" class="LineNr">24750 </span> <span class="subxComment"># var r/ebx: (addr array byte) = lookup(v->register)</span> +<span id="L24751" class="LineNr">24751 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L24752" class="LineNr">24752 </span> 89/<- %ebx 0/r32/eax +<span id="L24753" class="LineNr">24753 </span> <span class="subxComment"># if (r == 0) error</span> +<span id="L24754" class="LineNr">24754 </span> 3d/compare-eax-and 0/imm32 +<span id="L24755" class="LineNr">24755 </span> { +<span id="L24756" class="LineNr">24756 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L24757" class="LineNr">24757 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L24758" class="LineNr">24758 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L24759" class="LineNr">24759 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24760" class="LineNr">24760 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24761" class="LineNr">24761 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L24762" class="LineNr">24762 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24763" class="LineNr">24763 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24764" class="LineNr">24764 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": output '"</span>) +<span id="L24765" class="LineNr">24765 </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="L24766" class="LineNr">24766 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24767" class="LineNr">24767 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24768" class="LineNr">24768 </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="L24769" class="LineNr">24769 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L24770" class="LineNr">24770 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L24771" class="LineNr">24771 </span> } +<span id="L24772" class="LineNr">24772 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L24773" class="LineNr">24773 </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="L24774" class="LineNr">24774 </span> <span class="subxComment"># var r2/eax: (addr array byte) = lookup(v2->register)</span> +<span id="L24775" class="LineNr">24775 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L24776" class="LineNr">24776 </span> <span class="subxComment"># if (r != r2) error</span> +<span id="L24777" class="LineNr">24777 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L24778" class="LineNr">24778 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24779" class="LineNr">24779 </span> { +<span id="L24780" class="LineNr">24780 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L24781" class="LineNr">24781 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L24782" class="LineNr">24782 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L24783" class="LineNr">24783 </span> (<a href='../120allocate.subx.html#L256'>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+0x14) %eax) +<span id="L24785" class="LineNr">24785 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L24786" class="LineNr">24786 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24787" class="LineNr">24787 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24788" class="LineNr">24788 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": register for output '"</span>) +<span id="L24789" class="LineNr">24789 </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="L24790" class="LineNr">24790 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24791" class="LineNr">24791 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24792" class="LineNr">24792 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L24793" class="LineNr">24793 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L24794" class="LineNr">24794 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L24795" class="LineNr">24795 </span> } +<span id="L24796" class="LineNr">24796 </span><span class="Constant">$check-mu-call:continue-to-next-output</span>: +<span id="L24797" class="LineNr">24797 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> +<span id="L24798" class="LineNr">24798 </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="L24799" class="LineNr">24799 </span> 89/<- %ecx 0/r32/eax +<span id="L24800" class="LineNr">24800 </span> <span class="subxComment"># expected = lookup(expected->next)</span> +<span id="L24801" class="LineNr">24801 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L24802" class="LineNr">24802 </span> 89/<- %edx 0/r32/eax +<span id="L24803" class="LineNr">24803 </span> <span class="subxComment">#</span> +<span id="L24804" class="LineNr">24804 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L24805" class="LineNr">24805 </span> } +<span id="L24806" class="LineNr">24806 </span><span class="Constant">$check-mu-call:check-output-count</span>: +<span id="L24807" class="LineNr">24807 </span> <span class="subxComment"># if (outputs == expected) proceed</span> +<span id="L24808" class="LineNr">24808 </span> 39/compare %ecx 2/r32/edx +<span id="L24809" class="LineNr">24809 </span> { +<span id="L24810" class="LineNr">24810 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L24811" class="LineNr">24811 </span> <span class="subxComment"># exactly one of the two is null</span> +<span id="L24812" class="LineNr">24812 </span> <span class="subxComment"># if (outputs == 0) error("too many outputs")</span> +<span id="L24813" class="LineNr">24813 </span> { +<span id="L24814" class="LineNr">24814 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L24815" class="LineNr">24815 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L24816" class="LineNr">24816 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L24817" class="LineNr">24817 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L24818" class="LineNr">24818 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24819" class="LineNr">24819 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24820" class="LineNr">24820 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L24821" class="LineNr">24821 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24822" class="LineNr">24822 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24823" class="LineNr">24823 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many outputs\n"</span>) +<span id="L24824" class="LineNr">24824 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L24825" class="LineNr">24825 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L24826" class="LineNr">24826 </span> } +<span id="L24827" class="LineNr">24827 </span> <span class="subxComment"># if (expected == 0) error("too few outputs")</span> +<span id="L24828" class="LineNr">24828 </span> { +<span id="L24829" class="LineNr">24829 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L24830" class="LineNr">24830 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L24831" class="LineNr">24831 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L24832" class="LineNr">24832 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L24833" class="LineNr">24833 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24834" class="LineNr">24834 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24835" class="LineNr">24835 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L24836" class="LineNr">24836 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24837" class="LineNr">24837 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L24838" class="LineNr">24838 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few outputs\n"</span>) +<span id="L24839" class="LineNr">24839 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L24840" class="LineNr">24840 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L24841" class="LineNr">24841 </span> } +<span id="L24842" class="LineNr">24842 </span> } +<span id="L24843" class="LineNr">24843 </span><span class="Constant">$check-mu-call:end</span>: +<span id="L24844" class="LineNr">24844 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24845" class="LineNr">24845 </span> 5f/pop-to-edi +<span id="L24846" class="LineNr">24846 </span> 5e/pop-to-esi +<span id="L24847" class="LineNr">24847 </span> 5b/pop-to-ebx +<span id="L24848" class="LineNr">24848 </span> 5a/pop-to-edx +<span id="L24849" class="LineNr">24849 </span> 59/pop-to-ecx +<span id="L24850" class="LineNr">24850 </span> 58/pop-to-eax +<span id="L24851" class="LineNr">24851 </span> <span class="subxS1Comment"># . reclaim locals exclusively on the stack</span> +<span id="L24852" class="LineNr">24852 </span> 81 0/subop/add %esp 0x70/imm32 +<span id="L24853" class="LineNr">24853 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24854" class="LineNr">24854 </span> 89/<- %esp 5/r32/ebp +<span id="L24855" class="LineNr">24855 </span> 5d/pop-to-ebp +<span id="L24856" class="LineNr">24856 </span> c3/return +<span id="L24857" class="LineNr">24857 </span> +<span id="L24858" class="LineNr">24858 </span><span class="subxComment"># like type-equal? but takes literals type parameters into account</span> +<span id="L24859" class="LineNr">24859 </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="L24860" class="LineNr">24860 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24861" class="LineNr">24861 </span> 55/push-ebp +<span id="L24862" class="LineNr">24862 </span> 89/<- %ebp 4/r32/esp +<span id="L24863" class="LineNr">24863 </span> <span class="subxComment"># if (call is literal and def is numberlike) return true</span> +<span id="L24864" class="LineNr">24864 </span> { +<span id="L24865" class="LineNr">24865 </span><span class="Constant">$type-match?:check-literal-int</span>: +<span id="L24866" class="LineNr">24866 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> *(ebp+0xc) 0) <span class="subxComment"># literal => eax</span> +<span id="L24867" class="LineNr">24867 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24868" class="LineNr">24868 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24869" class="LineNr">24869 </span> (<a href='mu.subx.html#L20830'>is-mu-numberlike-output?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L24870" class="LineNr">24870 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24871" class="LineNr">24871 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24872" class="LineNr">24872 </span> b8/copy-to-eax 1/imm32/true +<span id="L24873" class="LineNr">24873 </span> e9/jump $type-match?:end/disp32 +<span id="L24874" class="LineNr">24874 </span> } +<span id="L24875" class="LineNr">24875 </span> <span class="subxComment"># if (call is literal-string and def is string) return true</span> +<span id="L24876" class="LineNr">24876 </span> { +<span id="L24877" class="LineNr">24877 </span><span class="Constant">$type-match?:check-literal-string</span>: +<span id="L24878" class="LineNr">24878 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> *(ebp+0xc) 0x10) <span class="subxComment"># literal-string => eax</span> +<span id="L24879" class="LineNr">24879 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24880" class="LineNr">24880 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24881" class="LineNr">24881 </span> (<a href='mu.subx.html#L34152'>is-mu-string-type?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L24882" class="LineNr">24882 </span> 3d/compare-eax-and 0/imm32/false <span id="L24883" class="LineNr">24883 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24884" class="LineNr">24884 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(curr->value)</span> -<span id="L24885" class="LineNr">24885 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L24886" class="LineNr">24886 </span> 89/<- %ebx 0/r32/eax -<span id="L24887" class="LineNr">24887 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4))</span> -<span id="L24888" class="LineNr">24888 </span><span class="CommentedCode">#? (write-buffered Stderr "setting offset of fn inout ")</span> -<span id="L24889" class="LineNr">24889 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L24890" class="LineNr">24890 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> -<span id="L24891" class="LineNr">24891 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L24892" class="LineNr">24892 </span><span class="CommentedCode">#? (write-buffered Stderr " to ")</span> -<span id="L24893" class="LineNr">24893 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edx)</span> -<span id="L24894" class="LineNr">24894 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L24895" class="LineNr">24895 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L24896" class="LineNr">24896 </span> <span class="subxComment"># v->offset = next-offset</span> -<span id="L24897" class="LineNr">24897 </span> 89/<- *(ebx+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> -<span id="L24898" class="LineNr">24898 </span> <span class="subxComment"># next-offset += size-of(v)</span> -<span id="L24899" class="LineNr">24899 </span> (<a href='mu.subx.html#L24381'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L24900" class="LineNr">24900 </span> 01/add-to %edx 0/r32/eax -<span id="L24901" class="LineNr">24901 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L24902" class="LineNr">24902 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L24903" class="LineNr">24903 </span> 89/<- %ecx 0/r32/eax -<span id="L24904" class="LineNr">24904 </span> <span class="subxComment">#</span> -<span id="L24905" class="LineNr">24905 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L24906" class="LineNr">24906 </span> } -<span id="L24907" class="LineNr">24907 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:end</span>: -<span id="L24908" class="LineNr">24908 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24909" class="LineNr">24909 </span> 5f/pop-to-edi -<span id="L24910" class="LineNr">24910 </span> 5b/pop-to-ebx -<span id="L24911" class="LineNr">24911 </span> 5a/pop-to-edx -<span id="L24912" class="LineNr">24912 </span> 59/pop-to-ecx -<span id="L24913" class="LineNr">24913 </span> 58/pop-to-eax -<span id="L24914" class="LineNr">24914 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24915" class="LineNr">24915 </span> 89/<- %esp 5/r32/ebp -<span id="L24916" class="LineNr">24916 </span> 5d/pop-to-ebp -<span id="L24917" class="LineNr">24917 </span> c3/return -<span id="L24918" class="LineNr">24918 </span> -<span id="L24919" class="LineNr">24919 </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="L24920" class="LineNr">24920 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24921" class="LineNr">24921 </span> 55/push-ebp -<span id="L24922" class="LineNr">24922 </span> 89/<- %ebp 4/r32/esp -<span id="L24923" class="LineNr">24923 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24924" class="LineNr">24924 </span> 50/push-eax -<span id="L24925" class="LineNr">24925 </span> 51/push-ecx -<span id="L24926" class="LineNr">24926 </span> 53/push-ebx -<span id="L24927" class="LineNr">24927 </span> 56/push-esi -<span id="L24928" class="LineNr">24928 </span> <span class="subxComment"># esi = stmts</span> -<span id="L24929" class="LineNr">24929 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L24930" class="LineNr">24930 </span> <span class="subxComment">#</span> -<span id="L24931" class="LineNr">24931 </span> { -<span id="L24932" class="LineNr">24932 </span><span class="Constant">$emit-subx-stmt-list:loop</span>: -<span id="L24933" class="LineNr">24933 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L24934" class="LineNr">24934 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L24935" class="LineNr">24935 </span> <span class="subxComment"># var curr-stmt/ecx: (addr stmt) = lookup(stmts->value)</span> -<span id="L24936" class="LineNr">24936 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L24937" class="LineNr">24937 </span> 89/<- %ecx 0/r32/eax -<span id="L24938" class="LineNr">24938 </span> { -<span id="L24939" class="LineNr">24939 </span><span class="Constant">$emit-subx-stmt-list:check-for-block</span>: -<span id="L24940" class="LineNr">24940 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L24941" class="LineNr">24941 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24942" class="LineNr">24942 </span><span class="Constant">$emit-subx-stmt-list:block</span>: -<span id="L24943" class="LineNr">24943 </span> (<a href='mu.subx.html#L27842'>emit-subx-block</a> *(ebp+8) %ecx *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L24944" class="LineNr">24944 </span> } -<span id="L24945" class="LineNr">24945 </span> { -<span id="L24946" class="LineNr">24946 </span><span class="Constant">$emit-subx-stmt-list:check-for-stmt</span>: -<span id="L24947" class="LineNr">24947 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L24948" class="LineNr">24948 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L24949" class="LineNr">24949 </span><span class="Constant">$emit-subx-stmt-list:stmt1</span>: -<span id="L24950" class="LineNr">24950 </span> { -<span id="L24951" class="LineNr">24951 </span> (<a href='mu.subx.html#L25340'>is-mu-branch?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L24952" class="LineNr">24952 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24953" class="LineNr">24953 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L24954" class="LineNr">24954 </span><span class="Constant">$emit-subx-stmt-list:branch-stmt</span>: -<span id="L24955" class="Folded">24955 </span><span class="Folded">+-- 25 lines: # unconditional return -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L24980" class="Folded">24980 </span><span class="Folded">+-- 27 lines: # unconditional loops --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L25007" class="Folded">25007 </span><span class="Folded">+-- 16 lines: # unconditional breaks -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L25023" class="Folded">25023 </span><span class="Folded">+-- 38 lines: # simple conditional branches without a target -------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L25061" class="Folded">25061 </span><span class="Folded">+-- 19 lines: # conditional branches with an explicit target -------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L25080" class="LineNr">25080 </span> } -<span id="L25081" class="LineNr">25081 </span><span class="Constant">$emit-subx-stmt-list:1-to-1</span>: -<span id="L25082" class="LineNr">25082 </span> (<a href='mu.subx.html#L26390'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L27949'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L25083" class="LineNr">25083 </span> e9/jump $emit-subx-stmt-list:continue/disp32 -<span id="L25084" class="LineNr">25084 </span> } -<span id="L25085" class="LineNr">25085 </span> { -<span id="L25086" class="LineNr">25086 </span><span class="Constant">$emit-subx-stmt-list:check-for-var-def</span>: -<span id="L25087" class="LineNr">25087 </span> 81 7/subop/compare *ecx 2/imm32/var-def <span class="subxComment"># Stmt-tag</span> -<span id="L25088" class="LineNr">25088 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25089" class="LineNr">25089 </span><span class="Constant">$emit-subx-stmt-list:var-def</span>: -<span id="L25090" class="LineNr">25090 </span> (<a href='mu.subx.html#L26296'>emit-subx-var-def</a> *(ebp+8) %ecx) -<span id="L25091" class="LineNr">25091 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) <span class="subxComment"># Vardef-var</span> -<span id="L25092" class="LineNr">25092 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+8)) <span class="subxComment"># Vardef-var</span> -<span id="L25093" class="LineNr">25093 </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="L25094" class="LineNr">25094 </span> <span class="subxComment">#</span> -<span id="L25095" class="LineNr">25095 </span> eb/jump $emit-subx-stmt-list:continue/disp8 -<span id="L25096" class="LineNr">25096 </span> } -<span id="L25097" class="LineNr">25097 </span> { -<span id="L25098" class="LineNr">25098 </span><span class="Constant">$emit-subx-stmt-list:check-for-reg-var-def</span>: -<span id="L25099" class="LineNr">25099 </span> 81 7/subop/compare *ecx 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> -<span id="L25100" class="LineNr">25100 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L25101" class="LineNr">25101 </span><span class="Constant">$emit-subx-stmt-list:reg-var-def</span>: -<span id="L25102" class="LineNr">25102 </span> <span class="subxComment"># TODO: ensure that there's exactly one output</span> -<span id="L25103" class="LineNr">25103 </span> (<a href='mu.subx.html#L25132'>push-output-and-maybe-emit-spill</a> *(ebp+8) %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L25104" class="LineNr">25104 </span> <span class="subxComment"># emit the instruction as usual</span> -<span id="L25105" class="LineNr">25105 </span> (<a href='mu.subx.html#L26390'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L27949'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L25106" class="LineNr">25106 </span> <span class="subxComment">#</span> -<span id="L25107" class="LineNr">25107 </span> eb/jump $emit-subx-stmt-list:continue/disp8 -<span id="L25108" class="LineNr">25108 </span> } -<span id="L25109" class="LineNr">25109 </span><span class="Constant">$emit-subx-stmt-list:continue</span>: -<span id="L25110" class="LineNr">25110 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> -<span id="L25111" class="LineNr">25111 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L25112" class="LineNr">25112 </span> 89/<- %esi 0/r32/eax -<span id="L25113" class="LineNr">25113 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L25114" class="LineNr">25114 </span> } -<span id="L25115" class="LineNr">25115 </span><span class="Constant">$emit-subx-stmt-list:emit-cleanup</span>: -<span id="L25116" class="LineNr">25116 </span> (<a href='mu.subx.html#L25502'>emit-cleanup-code-until-depth</a> *(ebp+8) *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25117" class="LineNr">25117 </span><span class="Constant">$emit-subx-stmt-list:clean-up</span>: -<span id="L25118" class="LineNr">25118 </span> (<a href='mu.subx.html#L25832'>clean-up-stack-offset-state</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25119" class="LineNr">25119 </span> (<a href='mu.subx.html#L26220'>clean-up-blocks</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> *(ebp+0x14)) -<span id="L25120" class="LineNr">25120 </span><span class="Constant">$emit-subx-stmt-list:end</span>: -<span id="L25121" class="LineNr">25121 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25122" class="LineNr">25122 </span> 5e/pop-to-esi -<span id="L25123" class="LineNr">25123 </span> 5b/pop-to-ebx -<span id="L25124" class="LineNr">25124 </span> 59/pop-to-ecx -<span id="L25125" class="LineNr">25125 </span> 58/pop-to-eax -<span id="L25126" class="LineNr">25126 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25127" class="LineNr">25127 </span> 89/<- %esp 5/r32/ebp -<span id="L25128" class="LineNr">25128 </span> 5d/pop-to-ebp -<span id="L25129" class="LineNr">25129 </span> c3/return -<span id="L25130" class="LineNr">25130 </span> -<span id="L25131" class="LineNr">25131 </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="L25132" class="LineNr">25132 </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="L25133" class="LineNr">25133 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25134" class="LineNr">25134 </span> 55/push-ebp -<span id="L25135" class="LineNr">25135 </span> 89/<- %ebp 4/r32/esp -<span id="L25136" class="LineNr">25136 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25137" class="LineNr">25137 </span> 50/push-eax -<span id="L25138" class="LineNr">25138 </span> 51/push-ecx -<span id="L25139" class="LineNr">25139 </span> 52/push-edx -<span id="L25140" class="LineNr">25140 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L25141" class="LineNr">25141 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L25142" class="LineNr">25142 </span> <span class="subxComment"># var sv/eax: (addr stmt-var) = lookup(curr-stmt->outputs)</span> -<span id="L25143" class="LineNr">25143 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L25144" class="LineNr">25144 </span> <span class="subxComment"># TODO: assert !sv->is-deref?</span> -<span id="L25145" class="LineNr">25145 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(sv->value)</span> -<span id="L25146" class="LineNr">25146 </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="L25147" class="LineNr">25147 </span> 89/<- %ecx 0/r32/eax -<span id="L25148" class="LineNr">25148 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L25149" class="LineNr">25149 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/r32/eax -<span id="L25150" class="LineNr">25150 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L25151" class="LineNr">25151 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L25152" class="LineNr">25152 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4))</span> -<span id="L25153" class="LineNr">25153 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L25154" class="LineNr">25154 </span><span class="CommentedCode">#? (write-buffered Stderr " at depth ")</span> -<span id="L25155" class="LineNr">25155 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+0x10))</span> -<span id="L25156" class="LineNr">25156 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L25157" class="LineNr">25157 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L25158" class="LineNr">25158 </span> <span class="subxComment"># ensure that v is in a register</span> -<span id="L25159" class="LineNr">25159 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L25160" class="LineNr">25160 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:abort/disp32 -<span id="L25161" class="LineNr">25161 </span> <span class="subxComment"># var emit-spill?/edx: boolean = not-yet-spilled-this-block? && will-not-write-some-register?(fn)</span> -<span id="L25162" class="LineNr">25162 </span> (<a href='mu.subx.html#L25904'>not-yet-spilled-this-block?</a> %ecx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L25163" class="LineNr">25163 </span> 89/<- %edx 0/r32/eax -<span id="L25164" class="LineNr">25164 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25165" class="LineNr">25165 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a>/disp32 -<span id="L25166" class="LineNr">25166 </span> (<a href='mu.subx.html#L25977'>will-not-write-some-register?</a> %ecx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L25167" class="LineNr">25167 </span> 89/<- %edx 0/r32/eax -<span id="L25168" class="LineNr">25168 </span> <span class="subxComment"># check emit-spill?</span> -<span id="L25169" class="LineNr">25169 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25170" class="LineNr">25170 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a>/disp32 -<span id="L25171" class="LineNr">25171 </span> <span class="subxComment"># TODO: assert(size-of(output) == 4)</span> -<span id="L25172" class="LineNr">25172 </span> <span class="subxComment"># *Curr-local-stack-offset -= 4</span> -<span id="L25173" class="LineNr">25173 </span> 81 5/subop/subtract *<span class="SpecialChar"><a href='mu.subx.html#L24784'>Curr-local-stack-offset</a></span> 4/imm32 -<span id="L25174" class="LineNr">25174 </span> <span class="subxComment"># emit spill</span> -<span id="L25175" class="LineNr">25175 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25176" class="LineNr">25176 </span> (<a href='mu.subx.html#L25675'>emit-push-register</a> *(ebp+8) %eax) -<span id="L25177" class="LineNr">25177 </span><span class="Constant">$push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a></span>: -<span id="L25178" class="LineNr">25178 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L25179" class="LineNr">25179 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L25180" class="LineNr">25180 </span> <span class="subxComment"># push(vars, {sv->value, emit-spill?})</span> -<span id="L25181" class="LineNr">25181 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *eax) <span class="subxComment"># Stmt-var-value</span> -<span id="L25182" class="LineNr">25182 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(eax+4)) <span class="subxComment"># Stmt-var-value</span> -<span id="L25183" class="LineNr">25183 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) %edx) -<span id="L25184" class="LineNr">25184 </span><span class="Constant">$push-output-and-maybe-emit-spill:end</span>: -<span id="L25185" class="LineNr">25185 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25186" class="LineNr">25186 </span> 5a/pop-to-edx -<span id="L25187" class="LineNr">25187 </span> 59/pop-to-ecx -<span id="L25188" class="LineNr">25188 </span> 58/pop-to-eax -<span id="L25189" class="LineNr">25189 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25190" class="LineNr">25190 </span> 89/<- %esp 5/r32/ebp -<span id="L25191" class="LineNr">25191 </span> 5d/pop-to-ebp -<span id="L25192" class="LineNr">25192 </span> c3/return -<span id="L25193" class="LineNr">25193 </span> -<span id="L25194" class="LineNr">25194 </span><span class="Constant">$push-output-and-maybe-emit-spill:abort</span>: -<span id="L25195" class="LineNr">25195 </span> <span class="subxComment"># error("var '" var->name "' initialized from an instruction must live in a register\n")</span> -<span id="L25196" class="LineNr">25196 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) <span class="Constant">"var '"</span>) -<span id="L25197" class="LineNr">25197 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) *eax) <span class="subxComment"># Var-name</span> -<span id="L25198" class="LineNr">25198 </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="L25199" class="LineNr">25199 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x1c)) -<span id="L25200" class="LineNr">25200 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x20) 1) -<span id="L25201" class="LineNr">25201 </span> <span class="subxComment"># never gets here</span> -<span id="L25202" class="LineNr">25202 </span> -<span id="L25203" class="LineNr">25203 </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="L25204" class="LineNr">25204 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25205" class="LineNr">25205 </span> 55/push-ebp -<span id="L25206" class="LineNr">25206 </span> 89/<- %ebp 4/r32/esp -<span id="L25207" class="LineNr">25207 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25208" class="LineNr">25208 </span> 50/push-eax -<span id="L25209" class="LineNr">25209 </span> 51/push-ecx -<span id="L25210" class="LineNr">25210 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L25211" class="LineNr">25211 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L25212" class="LineNr">25212 </span> <span class="subxComment"># var target/eax: (addr array byte) = curr-stmt->inouts->value->name</span> -<span id="L25213" class="LineNr">25213 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25214" class="LineNr">25214 </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="L25215" class="LineNr">25215 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25216" class="LineNr">25216 </span> <span class="subxComment"># clean up until target block</span> -<span id="L25217" class="LineNr">25217 </span> (<a href='mu.subx.html#L25755'>emit-cleanup-code-until-target</a> *(ebp+8) *(ebp+0x10) %eax) -<span id="L25218" class="LineNr">25218 </span> <span class="subxComment"># emit jump to target block</span> -<span id="L25219" class="LineNr">25219 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25220" class="LineNr">25220 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) -<span id="L25221" class="LineNr">25221 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L25222" class="LineNr">25222 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L25223" class="LineNr">25223 </span> (<a href='../105string-equal.subx.html#L57'>string-starts-with?</a> %eax <span class="Constant">"break"</span>) -<span id="L25224" class="LineNr">25224 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25225" class="LineNr">25225 </span> { -<span id="L25226" class="LineNr">25226 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25227" class="LineNr">25227 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break/disp32\n"</span>) -<span id="L25228" class="LineNr">25228 </span> eb/jump $emit-subx-cleanup-and-unconditional-nonlocal-branch:end/disp8 -<span id="L25229" class="LineNr">25229 </span> } -<span id="L25230" class="LineNr">25230 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop/disp32\n"</span>) -<span id="L25231" class="LineNr">25231 </span><span class="Constant">$emit-subx-cleanup-and-unconditional-nonlocal-branch:end</span>: -<span id="L25232" class="LineNr">25232 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25233" class="LineNr">25233 </span> 59/pop-to-ecx -<span id="L25234" class="LineNr">25234 </span> 58/pop-to-eax -<span id="L25235" class="LineNr">25235 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25236" class="LineNr">25236 </span> 89/<- %esp 5/r32/ebp -<span id="L25237" class="LineNr">25237 </span> 5d/pop-to-ebp -<span id="L25238" class="LineNr">25238 </span> c3/return -<span id="L25239" class="LineNr">25239 </span> -<span id="L25240" class="LineNr">25240 </span><span class="subxFunction">emit-outputs</span>: <span class="subxComment"># out: (addr buffered-file), return-stmt: (addr stmt1), fn: (addr function)</span> -<span id="L25241" class="LineNr">25241 </span> <span class="subxComment"># pseudocode:</span> -<span id="L25242" class="LineNr">25242 </span> <span class="subxComment"># for every inout, output in return-stmt, fn->outputs</span> -<span id="L25243" class="LineNr">25243 </span> <span class="subxComment"># if inout is a literal</span> -<span id="L25244" class="LineNr">25244 </span> <span class="subxComment"># c7 0/subop/copy %output inout/imm32</span> -<span id="L25245" class="LineNr">25245 </span> <span class="subxComment"># otherwise</span> -<span id="L25246" class="LineNr">25246 </span> <span class="subxComment"># 8b/-> inout %output</span> -<span id="L25247" class="LineNr">25247 </span> <span class="subxComment">#</span> -<span id="L25248" class="LineNr">25248 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25249" class="LineNr">25249 </span> 55/push-ebp -<span id="L25250" class="LineNr">25250 </span> 89/<- %ebp 4/r32/esp -<span id="L25251" class="LineNr">25251 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25252" class="LineNr">25252 </span> 50/push-eax -<span id="L25253" class="LineNr">25253 </span> 51/push-ecx -<span id="L25254" class="LineNr">25254 </span> 56/push-esi -<span id="L25255" class="LineNr">25255 </span> 57/push-edi -<span id="L25256" class="LineNr">25256 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-stmt->inouts</span> -<span id="L25257" class="LineNr">25257 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25258" class="LineNr">25258 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25259" class="LineNr">25259 </span> 89/<- %esi 0/r32/eax -<span id="L25260" class="LineNr">25260 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn->outputs</span> -<span id="L25261" class="LineNr">25261 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L25262" class="LineNr">25262 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L25263" class="LineNr">25263 </span> 89/<- %edi 0/r32/eax -<span id="L25264" class="LineNr">25264 </span> { -<span id="L25265" class="LineNr">25265 </span><span class="Constant">$emit-outputs:loop</span>: -<span id="L25266" class="LineNr">25266 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L25267" class="LineNr">25267 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L25268" class="LineNr">25268 </span> <span class="subxComment"># emit copy to output register</span> -<span id="L25269" class="LineNr">25269 </span> <span class="subxComment"># var curr-var/ecx = lookup(curr-inout->value)</span> -<span id="L25270" class="LineNr">25270 </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="L25271" class="LineNr">25271 </span> 89/<- %ecx 0/r32/eax -<span id="L25272" class="LineNr">25272 </span> <span class="subxComment"># if curr-var is a literal, emit copy of a literal to the output</span> -<span id="L25273" class="LineNr">25273 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25274" class="LineNr">25274 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L25275" class="LineNr">25275 </span> { -<span id="L25276" class="LineNr">25276 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25277" class="LineNr">25277 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L25278" class="LineNr">25278 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25279" class="LineNr">25279 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c7 0/subop/copy %"</span>) -<span id="L25280" class="LineNr">25280 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L25281" class="LineNr">25281 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25282" class="LineNr">25282 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L25283" class="LineNr">25283 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L25284" class="LineNr">25284 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25285" class="LineNr">25285 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L25286" class="LineNr">25286 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L25287" class="LineNr">25287 </span> e9/jump $emit-outputs:continue/disp32 -<span id="L25288" class="LineNr">25288 </span> } -<span id="L25289" class="LineNr">25289 </span> <span class="subxComment"># if the non-literal is a register starting with "x", emit a floating-point copy</span> -<span id="L25290" class="LineNr">25290 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25291" class="LineNr">25291 </span> { -<span id="L25292" class="LineNr">25292 </span> 3d/compare-eax-and 0/imm32 -<span id="L25293" class="LineNr">25293 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L25294" class="LineNr">25294 </span> 8a/copy-byte *(eax+4) 0/r32/AL -<span id="L25295" class="LineNr">25295 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L25296" class="LineNr">25296 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L25297" class="LineNr">25297 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L25298" class="LineNr">25298 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25299" class="LineNr">25299 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/->"</span>) -<span id="L25300" class="LineNr">25300 </span> (<a href='mu.subx.html#L32971'>emit-subx-var-as-rm32</a> *(ebp+8) %esi) -<span id="L25301" class="LineNr">25301 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L25302" class="LineNr">25302 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L25303" class="LineNr">25303 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25304" class="LineNr">25304 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L17859'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L25305" class="LineNr">25305 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L25306" class="LineNr">25306 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L25307" class="LineNr">25307 </span> e9/jump $emit-outputs:continue/disp32 -<span id="L25308" class="LineNr">25308 </span> } -<span id="L25309" class="LineNr">25309 </span> <span class="subxComment"># otherwise emit an integer copy</span> -<span id="L25310" class="LineNr">25310 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25311" class="LineNr">25311 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/->"</span>) -<span id="L25312" class="LineNr">25312 </span> (<a href='mu.subx.html#L32971'>emit-subx-var-as-rm32</a> *(ebp+8) %esi) -<span id="L25313" class="LineNr">25313 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L25314" class="LineNr">25314 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L25315" class="LineNr">25315 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25316" class="LineNr">25316 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L17859'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L25317" class="LineNr">25317 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L25318" class="LineNr">25318 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L25319" class="LineNr">25319 </span><span class="Constant">$emit-outputs:continue</span>: -<span id="L25320" class="LineNr">25320 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> -<span id="L25321" class="LineNr">25321 </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="L25322" class="LineNr">25322 </span> 89/<- %esi 0/r32/eax -<span id="L25323" class="LineNr">25323 </span> <span class="subxComment"># curr-output = curr-output->next</span> -<span id="L25324" class="LineNr">25324 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L25325" class="LineNr">25325 </span> 89/<- %edi 0/r32/eax -<span id="L25326" class="LineNr">25326 </span> <span class="subxComment">#</span> -<span id="L25327" class="LineNr">25327 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L24884" class="LineNr">24884 </span> b8/copy-to-eax 1/imm32/true +<span id="L24885" class="LineNr">24885 </span> e9/jump $type-match?:end/disp32 +<span id="L24886" class="LineNr">24886 </span> } +<span id="L24887" class="LineNr">24887 </span><span class="Constant">$type-match?:baseline</span>: +<span id="L24888" class="LineNr">24888 </span> <span class="subxComment"># otherwise fall back</span> +<span id="L24889" class="LineNr">24889 </span> (<a href='mu.subx.html#L24896'>type-component-match?</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L24890" class="LineNr">24890 </span><span class="Constant">$type-match?:end</span>: +<span id="L24891" class="LineNr">24891 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24892" class="LineNr">24892 </span> 89/<- %esp 5/r32/ebp +<span id="L24893" class="LineNr">24893 </span> 5d/pop-to-ebp +<span id="L24894" class="LineNr">24894 </span> c3/return +<span id="L24895" class="LineNr">24895 </span> +<span id="L24896" class="LineNr">24896 </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="L24897" class="LineNr">24897 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24898" class="LineNr">24898 </span> 55/push-ebp +<span id="L24899" class="LineNr">24899 </span> 89/<- %ebp 4/r32/esp +<span id="L24900" class="LineNr">24900 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24901" class="LineNr">24901 </span> 51/push-ecx +<span id="L24902" class="LineNr">24902 </span> 52/push-edx +<span id="L24903" class="LineNr">24903 </span> 53/push-ebx +<span id="L24904" class="LineNr">24904 </span> <span class="subxComment"># ecx = def</span> +<span id="L24905" class="LineNr">24905 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L24906" class="LineNr">24906 </span> <span class="subxComment"># edx = call</span> +<span id="L24907" class="LineNr">24907 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L24908" class="LineNr">24908 </span><span class="Constant">$type-component-match?:compare-addr</span>: +<span id="L24909" class="LineNr">24909 </span> <span class="subxComment"># if (def == call) return true</span> +<span id="L24910" class="LineNr">24910 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L24911" class="LineNr">24911 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L24912" class="LineNr">24912 </span> b8/copy-to-eax 1/imm32/true +<span id="L24913" class="LineNr">24913 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L24914" class="LineNr">24914 </span> <span class="subxComment"># if (def == 0) return false</span> +<span id="L24915" class="LineNr">24915 </span> b8/copy-to-eax 0/imm32/false +<span id="L24916" class="LineNr">24916 </span> 81 7/subop/compare %ecx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24917" class="LineNr">24917 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L24918" class="LineNr">24918 </span> <span class="subxComment"># if (call == 0) return false</span> +<span id="L24919" class="LineNr">24919 </span> 81 7/subop/compare %edx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24920" class="LineNr">24920 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L24921" class="LineNr">24921 </span> <span class="subxComment"># if def is a type parameter, just check in type-parameters</span> +<span id="L24922" class="LineNr">24922 </span> { +<span id="L24923" class="LineNr">24923 </span><span class="Constant">$type-component-match?:check-type-parameter</span>: +<span id="L24924" class="LineNr">24924 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24925" class="LineNr">24925 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24926" class="LineNr">24926 </span> 81 7/subop/compare *(ecx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L24927" class="LineNr">24927 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24928" class="LineNr">24928 </span><span class="Constant">$type-component-match?:type-parameter</span>: +<span id="L24929" class="LineNr">24929 </span> (<a href='mu.subx.html#L24993'>type-parameter-match?</a> *(ecx+8) *(ecx+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L24930" class="LineNr">24930 </span> e9/jump $type-component-match?:end/disp32 +<span id="L24931" class="LineNr">24931 </span> } +<span id="L24932" class="LineNr">24932 </span> <span class="subxComment"># if def is a list containing just a type parameter, just check in type-parameters</span> +<span id="L24933" class="LineNr">24933 </span> { +<span id="L24934" class="LineNr">24934 </span><span class="Constant">$type-component-match?:check-list-type-parameter</span>: +<span id="L24935" class="LineNr">24935 </span> <span class="subxComment"># if def is a list..</span> +<span id="L24936" class="LineNr">24936 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24937" class="LineNr">24937 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24938" class="LineNr">24938 </span> <span class="subxComment"># ..that's a singleton</span> +<span id="L24939" class="LineNr">24939 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-left</span> +<span id="L24940" class="LineNr">24940 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24941" class="LineNr">24941 </span> <span class="subxComment"># ..and whose head is a type parameter</span> +<span id="L24942" class="LineNr">24942 </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="L24943" class="LineNr">24943 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24944" class="LineNr">24944 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24945" class="LineNr">24945 </span> 81 7/subop/compare *(eax+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L24946" class="LineNr">24946 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24947" class="LineNr">24947 </span><span class="Constant">$type-component-match?:list-type-parameter</span>: +<span id="L24948" class="LineNr">24948 </span> (<a href='mu.subx.html#L24993'>type-parameter-match?</a> *(eax+8) *(eax+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L24949" class="LineNr">24949 </span> e9/jump $type-component-match?:end/disp32 +<span id="L24950" class="LineNr">24950 </span> } +<span id="L24951" class="LineNr">24951 </span><span class="Constant">$type-component-match?:compare-atom-state</span>: +<span id="L24952" class="LineNr">24952 </span> <span class="subxComment"># if (def->is-atom? != call->is-atom?) return false</span> +<span id="L24953" class="LineNr">24953 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24954" class="LineNr">24954 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24955" class="LineNr">24955 </span> b8/copy-to-eax 0/imm32/false +<span id="L24956" class="LineNr">24956 </span> 0f 85/jump-if-!= $type-component-match?:end/disp32 +<span id="L24957" class="LineNr">24957 </span> <span class="subxComment"># if def->is-atom? return (def->value == call->value)</span> +<span id="L24958" class="LineNr">24958 </span> { +<span id="L24959" class="LineNr">24959 </span><span class="Constant">$type-component-match?:check-atom</span>: +<span id="L24960" class="LineNr">24960 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L24961" class="LineNr">24961 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24962" class="LineNr">24962 </span><span class="Constant">$type-component-match?:is-atom</span>: +<span id="L24963" class="LineNr">24963 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L24964" class="LineNr">24964 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L24965" class="LineNr">24965 </span> 0f 94/set-if-= %al +<span id="L24966" class="LineNr">24966 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L24967" class="LineNr">24967 </span> e9/jump $type-component-match?:end/disp32 +<span id="L24968" class="LineNr">24968 </span> } +<span id="L24969" class="LineNr">24969 </span><span class="Constant">$type-component-match?:check-left</span>: +<span id="L24970" class="LineNr">24970 </span> <span class="subxComment"># if (!type-component-match?(def->left, call->left)) return false</span> +<span id="L24971" class="LineNr">24971 </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="L24972" class="LineNr">24972 </span> 89/<- %ebx 0/r32/eax +<span id="L24973" class="LineNr">24973 </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="L24974" class="LineNr">24974 </span> (<a href='mu.subx.html#L24896'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <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> 74/jump-if-= $type-component-match?:end/disp8 +<span id="L24977" class="LineNr">24977 </span><span class="Constant">$type-component-match?:check-right</span>: +<span id="L24978" class="LineNr">24978 </span> <span class="subxComment"># return type-component-match?(def->right, call->right)</span> +<span id="L24979" class="LineNr">24979 </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="L24980" class="LineNr">24980 </span> 89/<- %ebx 0/r32/eax +<span id="L24981" class="LineNr">24981 </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="L24982" class="LineNr">24982 </span> (<a href='mu.subx.html#L24896'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L24983" class="LineNr">24983 </span><span class="Constant">$type-component-match?:end</span>: +<span id="L24984" class="LineNr">24984 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24985" class="LineNr">24985 </span> 5b/pop-to-ebx +<span id="L24986" class="LineNr">24986 </span> 5a/pop-to-edx +<span id="L24987" class="LineNr">24987 </span> 59/pop-to-ecx +<span id="L24988" class="LineNr">24988 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24989" class="LineNr">24989 </span> 89/<- %esp 5/r32/ebp +<span id="L24990" class="LineNr">24990 </span> 5d/pop-to-ebp +<span id="L24991" class="LineNr">24991 </span> c3/return +<span id="L24992" class="LineNr">24992 </span> +<span id="L24993" class="LineNr">24993 </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="L24994" class="LineNr">24994 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24995" class="LineNr">24995 </span> 55/push-ebp +<span id="L24996" class="LineNr">24996 </span> 89/<- %ebp 4/r32/esp +<span id="L24997" class="LineNr">24997 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24998" class="LineNr">24998 </span> 51/push-ecx +<span id="L24999" class="LineNr">24999 </span> <span class="subxComment">#</span> +<span id="L25000" class="LineNr">25000 </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="L25001" class="LineNr">25001 </span> <span class="subxComment"># if parameter wasn't saved, save it</span> +<span id="L25002" class="LineNr">25002 </span> { +<span id="L25003" class="LineNr">25003 </span> 81 7/subop/compare *eax 0/imm32 +<span id="L25004" class="LineNr">25004 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25005" class="LineNr">25005 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L25006" class="LineNr">25006 </span> 89/<- *eax 1/r32/ecx +<span id="L25007" class="LineNr">25007 </span> } +<span id="L25008" class="LineNr">25008 </span> <span class="subxComment">#</span> +<span id="L25009" class="LineNr">25009 </span> (<a href='mu.subx.html#L25345'>type-equal?</a> *(ebp+0x10) *eax) <span class="subxComment"># => eax</span> +<span id="L25010" class="LineNr">25010 </span><span class="Constant">$type-parameter-match?:end</span>: +<span id="L25011" class="LineNr">25011 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25012" class="LineNr">25012 </span> 59/pop-to-ecx +<span id="L25013" class="LineNr">25013 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25014" class="LineNr">25014 </span> 89/<- %esp 5/r32/ebp +<span id="L25015" class="LineNr">25015 </span> 5d/pop-to-ebp +<span id="L25016" class="LineNr">25016 </span> c3/return +<span id="L25017" class="LineNr">25017 </span> +<span id="L25018" class="LineNr">25018 </span><span class="subxFunction">size-of</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> +<span id="L25019" class="LineNr">25019 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25020" class="LineNr">25020 </span> 55/push-ebp +<span id="L25021" class="LineNr">25021 </span> 89/<- %ebp 4/r32/esp +<span id="L25022" class="LineNr">25022 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25023" class="LineNr">25023 </span> 51/push-ecx +<span id="L25024" class="LineNr">25024 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L25025" class="LineNr">25025 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L25026" class="LineNr">25026 </span><span class="CommentedCode">#? (write-buffered Stderr "size-of ")</span> +<span id="L25027" class="LineNr">25027 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L25028" class="LineNr">25028 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L25029" class="LineNr">25029 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid: ")</span> +<span id="L25030" class="LineNr">25030 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+8))</span> +<span id="L25031" class="LineNr">25031 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L25032" class="LineNr">25032 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L25033" class="LineNr">25033 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25034" class="LineNr">25034 </span> 89/<- %ecx 0/r32/eax +<span id="L25035" class="LineNr">25035 </span> <span class="subxComment"># if is-mu-array?(t) return size-of-array(t)</span> +<span id="L25036" class="LineNr">25036 </span> { +<span id="L25037" class="LineNr">25037 </span> (<a href='mu.subx.html#L25115'>is-mu-array?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25038" class="LineNr">25038 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25039" class="LineNr">25039 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25040" class="LineNr">25040 </span> (<a href='mu.subx.html#L25146'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25041" class="LineNr">25041 </span> eb/jump $size-of:end/disp8 +<span id="L25042" class="LineNr">25042 </span> } +<span id="L25043" class="LineNr">25043 </span> <span class="subxComment"># if is-mu-stream?(t) return size-of-stream(t)</span> +<span id="L25044" class="LineNr">25044 </span> { +<span id="L25045" class="LineNr">25045 </span> (<a href='mu.subx.html#L25180'>is-mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25046" class="LineNr">25046 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25047" class="LineNr">25047 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25048" class="LineNr">25048 </span> (<a href='mu.subx.html#L25211'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25049" class="LineNr">25049 </span> eb/jump $size-of:end/disp8 +<span id="L25050" class="LineNr">25050 </span> } +<span id="L25051" class="LineNr">25051 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> +<span id="L25052" class="LineNr">25052 </span> { +<span id="L25053" class="LineNr">25053 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25054" class="LineNr">25054 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25055" class="LineNr">25055 </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="L25056" class="LineNr">25056 </span> 89/<- %ecx 0/r32/eax +<span id="L25057" class="LineNr">25057 </span> } +<span id="L25058" class="LineNr">25058 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> +<span id="L25059" class="LineNr">25059 </span> (<a href='mu.subx.html#L25224'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L25060" class="LineNr">25060 </span><span class="Constant">$size-of:end</span>: +<span id="L25061" class="LineNr">25061 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25062" class="LineNr">25062 </span> 59/pop-to-ecx +<span id="L25063" class="LineNr">25063 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25064" class="LineNr">25064 </span> 89/<- %esp 5/r32/ebp +<span id="L25065" class="LineNr">25065 </span> 5d/pop-to-ebp +<span id="L25066" class="LineNr">25066 </span> c3/return +<span id="L25067" class="LineNr">25067 </span> +<span id="L25068" class="LineNr">25068 </span><span class="subxFunction">size-of-deref</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> +<span id="L25069" class="LineNr">25069 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25070" class="LineNr">25070 </span> 55/push-ebp +<span id="L25071" class="LineNr">25071 </span> 89/<- %ebp 4/r32/esp +<span id="L25072" class="LineNr">25072 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25073" class="LineNr">25073 </span> 51/push-ecx +<span id="L25074" class="LineNr">25074 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L25075" class="LineNr">25075 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L25076" class="LineNr">25076 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25077" class="LineNr">25077 </span> 89/<- %ecx 0/r32/eax +<span id="L25078" class="LineNr">25078 </span> <span class="subxComment"># TODO: assert(t is an addr)</span> +<span id="L25079" class="LineNr">25079 </span> <span class="subxComment"># t = lookup(t->right)</span> +<span id="L25080" class="LineNr">25080 </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="L25081" class="LineNr">25081 </span> 89/<- %ecx 0/r32/eax +<span id="L25082" class="LineNr">25082 </span> <span class="subxComment"># if is-mu-array?(t) return size-of-array(t)</span> +<span id="L25083" class="LineNr">25083 </span> { +<span id="L25084" class="LineNr">25084 </span> (<a href='mu.subx.html#L25115'>is-mu-array?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25085" class="LineNr">25085 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25086" class="LineNr">25086 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25087" class="LineNr">25087 </span> (<a href='mu.subx.html#L25146'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25088" class="LineNr">25088 </span> eb/jump $size-of-deref:end/disp8 +<span id="L25089" class="LineNr">25089 </span> } +<span id="L25090" class="LineNr">25090 </span> <span class="subxComment"># if is-mu-stream?(t) return size-of-stream(t)</span> +<span id="L25091" class="LineNr">25091 </span> { +<span id="L25092" class="LineNr">25092 </span> (<a href='mu.subx.html#L25180'>is-mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25093" class="LineNr">25093 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25094" class="LineNr">25094 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25095" class="LineNr">25095 </span> (<a href='mu.subx.html#L25211'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25096" class="LineNr">25096 </span> eb/jump $size-of-deref:end/disp8 +<span id="L25097" class="LineNr">25097 </span> } +<span id="L25098" class="LineNr">25098 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> +<span id="L25099" class="LineNr">25099 </span> { +<span id="L25100" class="LineNr">25100 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25101" class="LineNr">25101 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25102" class="LineNr">25102 </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="L25103" class="LineNr">25103 </span> 89/<- %ecx 0/r32/eax +<span id="L25104" class="LineNr">25104 </span> } +<span id="L25105" class="LineNr">25105 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> +<span id="L25106" class="LineNr">25106 </span> (<a href='mu.subx.html#L25224'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L25107" class="LineNr">25107 </span><span class="Constant">$size-of-deref:end</span>: +<span id="L25108" class="LineNr">25108 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25109" class="LineNr">25109 </span> 59/pop-to-ecx +<span id="L25110" class="LineNr">25110 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25111" class="LineNr">25111 </span> 89/<- %esp 5/r32/ebp +<span id="L25112" class="LineNr">25112 </span> 5d/pop-to-ebp +<span id="L25113" class="LineNr">25113 </span> c3/return +<span id="L25114" class="LineNr">25114 </span> +<span id="L25115" class="LineNr">25115 </span><span class="subxFunction">is-mu-array?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> +<span id="L25116" class="LineNr">25116 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25117" class="LineNr">25117 </span> 55/push-ebp +<span id="L25118" class="LineNr">25118 </span> 89/<- %ebp 4/r32/esp +<span id="L25119" class="LineNr">25119 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25120" class="LineNr">25120 </span> 51/push-ecx +<span id="L25121" class="LineNr">25121 </span> <span class="subxComment"># ecx = t</span> +<span id="L25122" class="LineNr">25122 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L25123" class="LineNr">25123 </span> <span class="subxComment"># if t->is-atom?, return false</span> +<span id="L25124" class="LineNr">25124 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25125" class="LineNr">25125 </span> 75/jump-if-!= $is-mu-array?:return-false/disp8 +<span id="L25126" class="LineNr">25126 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> +<span id="L25127" class="LineNr">25127 </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="L25128" class="LineNr">25128 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25129" class="LineNr">25129 </span> 74/jump-if-= $is-mu-array?:return-false/disp8 +<span id="L25130" class="LineNr">25130 </span> <span class="subxComment"># return t->left->value == array</span> +<span id="L25131" class="LineNr">25131 </span> 81 7/subop/compare *(eax+4) 3/imm32/array-type-id <span class="subxComment"># Type-tree-value</span> +<span id="L25132" class="LineNr">25132 </span> 0f 94/set-if-= %al +<span id="L25133" class="LineNr">25133 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L25134" class="LineNr">25134 </span> eb/jump $is-mu-array?:end/disp8 +<span id="L25135" class="LineNr">25135 </span><span class="Constant">$is-mu-array?:return-false</span>: +<span id="L25136" class="LineNr">25136 </span> b8/copy-to-eax 0/imm32/false +<span id="L25137" class="LineNr">25137 </span><span class="Constant">$is-mu-array?:end</span>: +<span id="L25138" class="LineNr">25138 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25139" class="LineNr">25139 </span> 59/pop-to-ecx +<span id="L25140" class="LineNr">25140 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25141" class="LineNr">25141 </span> 89/<- %esp 5/r32/ebp +<span id="L25142" class="LineNr">25142 </span> 5d/pop-to-ebp +<span id="L25143" class="LineNr">25143 </span> c3/return +<span id="L25144" class="LineNr">25144 </span> +<span id="L25145" class="LineNr">25145 </span><span class="subxComment"># size of a statically allocated array where the size is part of the type expression</span> +<span id="L25146" class="LineNr">25146 </span><span class="subxFunction">size-of-array</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L25147" class="LineNr">25147 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25148" class="LineNr">25148 </span> 55/push-ebp +<span id="L25149" class="LineNr">25149 </span> 89/<- %ebp 4/r32/esp +<span id="L25150" class="LineNr">25150 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25151" class="LineNr">25151 </span> 51/push-ecx +<span id="L25152" class="LineNr">25152 </span> 52/push-edx +<span id="L25153" class="LineNr">25153 </span> <span class="subxComment">#</span> +<span id="L25154" class="LineNr">25154 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L25155" class="LineNr">25155 </span> <span class="subxComment"># TODO: assert that a->left is 'array'</span> +<span id="L25156" class="LineNr">25156 </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="L25157" class="LineNr">25157 </span> 89/<- %ecx 0/r32/eax +<span id="L25158" class="LineNr">25158 </span> <span class="subxComment"># var elem-type/edx: type-id = a->right->left->value</span> +<span id="L25159" class="LineNr">25159 </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="L25160" class="LineNr">25160 </span> 8b/-> *(eax+4) 2/r32/edx <span class="subxComment"># Type-tree-value</span> +<span id="L25161" class="LineNr">25161 </span> <span class="subxComment"># TODO: assert that a->right->right->left->value == size</span> +<span id="L25162" class="LineNr">25162 </span> <span class="subxComment"># var array-size/ecx: int = a->right->right->left->value-size</span> +<span id="L25163" class="LineNr">25163 </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="L25164" class="LineNr">25164 </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="L25165" class="LineNr">25165 </span> 8b/-> *(eax+8) 1/r32/ecx <span class="subxComment"># Type-tree-value-size</span> +<span id="L25166" class="LineNr">25166 </span> <span class="subxComment"># return 4 + array-size * size-of(elem-type)</span> +<span id="L25167" class="LineNr">25167 </span> (<a href='mu.subx.html#L27402'>size-of-type-id-as-array-element</a> %edx) <span class="subxComment"># => eax</span> +<span id="L25168" class="LineNr">25168 </span> f7 4/subop/multiply-into-edx-eax %ecx +<span id="L25169" class="LineNr">25169 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array size</span> +<span id="L25170" class="LineNr">25170 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L25171" class="LineNr">25171 </span><span class="Constant">$size-of-array:end</span>: +<span id="L25172" class="LineNr">25172 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25173" class="LineNr">25173 </span> 5a/pop-to-edx +<span id="L25174" class="LineNr">25174 </span> 59/pop-to-ecx +<span id="L25175" class="LineNr">25175 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25176" class="LineNr">25176 </span> 89/<- %esp 5/r32/ebp +<span id="L25177" class="LineNr">25177 </span> 5d/pop-to-ebp +<span id="L25178" class="LineNr">25178 </span> c3/return +<span id="L25179" class="LineNr">25179 </span> +<span id="L25180" class="LineNr">25180 </span><span class="subxFunction">is-mu-stream?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> +<span id="L25181" class="LineNr">25181 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25182" class="LineNr">25182 </span> 55/push-ebp +<span id="L25183" class="LineNr">25183 </span> 89/<- %ebp 4/r32/esp +<span id="L25184" class="LineNr">25184 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25185" class="LineNr">25185 </span> 51/push-ecx +<span id="L25186" class="LineNr">25186 </span> <span class="subxComment"># ecx = t</span> +<span id="L25187" class="LineNr">25187 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L25188" class="LineNr">25188 </span> <span class="subxComment"># if t->is-atom?, return false</span> +<span id="L25189" class="LineNr">25189 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25190" class="LineNr">25190 </span> 75/jump-if-!= $is-mu-stream?:return-false/disp8 +<span id="L25191" class="LineNr">25191 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> +<span id="L25192" class="LineNr">25192 </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="L25193" class="LineNr">25193 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25194" class="LineNr">25194 </span> 74/jump-if-= $is-mu-stream?:return-false/disp8 +<span id="L25195" class="LineNr">25195 </span> <span class="subxComment"># return t->left->value == stream</span> +<span id="L25196" class="LineNr">25196 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream-type-id <span class="subxComment"># Type-tree-value</span> +<span id="L25197" class="LineNr">25197 </span> 0f 94/set-if-= %al +<span id="L25198" class="LineNr">25198 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L25199" class="LineNr">25199 </span> eb/jump $is-mu-stream?:end/disp8 +<span id="L25200" class="LineNr">25200 </span><span class="Constant">$is-mu-stream?:return-false</span>: +<span id="L25201" class="LineNr">25201 </span> b8/copy-to-eax 0/imm32/false +<span id="L25202" class="LineNr">25202 </span><span class="Constant">$is-mu-stream?:end</span>: +<span id="L25203" class="LineNr">25203 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25204" class="LineNr">25204 </span> 59/pop-to-ecx +<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="subxComment"># size of a statically allocated stream where the size is part of the type expression</span> +<span id="L25211" class="LineNr">25211 </span><span class="subxFunction">size-of-stream</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L25212" class="LineNr">25212 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25213" class="LineNr">25213 </span> 55/push-ebp +<span id="L25214" class="LineNr">25214 </span> 89/<- %ebp 4/r32/esp +<span id="L25215" class="LineNr">25215 </span> <span class="subxComment">#</span> +<span id="L25216" class="LineNr">25216 </span> (<a href='mu.subx.html#L25146'>size-of-array</a> *(ebp+8)) <span class="subxComment"># assumes we ignore the actual type name 'array' in the type</span> +<span id="L25217" class="LineNr">25217 </span> 05/add-to-eax 8/imm32 <span class="subxComment"># for read/write pointers</span> +<span id="L25218" class="LineNr">25218 </span><span class="Constant">$size-of-stream:end</span>: +<span id="L25219" class="LineNr">25219 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25220" class="LineNr">25220 </span> 89/<- %esp 5/r32/ebp +<span id="L25221" class="LineNr">25221 </span> 5d/pop-to-ebp +<span id="L25222" class="LineNr">25222 </span> c3/return +<span id="L25223" class="LineNr">25223 </span> +<span id="L25224" class="LineNr">25224 </span><span class="subxFunction">size-of-type-id</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> +<span id="L25225" class="LineNr">25225 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25226" class="LineNr">25226 </span> 55/push-ebp +<span id="L25227" class="LineNr">25227 </span> 89/<- %ebp 4/r32/esp +<span id="L25228" class="LineNr">25228 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25229" class="LineNr">25229 </span> 51/push-ecx +<span id="L25230" class="LineNr">25230 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> +<span id="L25231" class="LineNr">25231 </span> 68/push 0/imm32 +<span id="L25232" class="LineNr">25232 </span> 68/push 0/imm32 +<span id="L25233" class="LineNr">25233 </span> 89/<- %ecx 4/r32/esp +<span id="L25234" class="LineNr">25234 </span> <span class="subxComment"># eax = t</span> +<span id="L25235" class="LineNr">25235 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L25236" class="LineNr">25236 </span> <span class="subxComment"># if t is a literal, return 0</span> +<span id="L25237" class="LineNr">25237 </span> 3d/compare-eax-and 0/imm32 +<span id="L25238" class="LineNr">25238 </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="L25239" class="LineNr">25239 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> +<span id="L25240" class="LineNr">25240 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L25241" class="LineNr">25241 </span> { +<span id="L25242" class="LineNr">25242 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25243" class="LineNr">25243 </span> b8/copy-to-eax 4/imm32 +<span id="L25244" class="LineNr">25244 </span> eb/jump $size-of-type-id:end/disp8 +<span id="L25245" class="LineNr">25245 </span> } +<span id="L25246" class="LineNr">25246 </span> <span class="subxComment"># if t is a handle, return 8</span> +<span id="L25247" class="LineNr">25247 </span> 3d/compare-eax-and 4/imm32/handle +<span id="L25248" class="LineNr">25248 </span> { +<span id="L25249" class="LineNr">25249 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25250" class="LineNr">25250 </span> b8/copy-to-eax 8/imm32 +<span id="L25251" class="LineNr">25251 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L25252" class="LineNr">25252 </span> } +<span id="L25253" class="LineNr">25253 </span> <span class="subxComment"># if t is a slice, return 8</span> +<span id="L25254" class="LineNr">25254 </span> 3d/compare-eax-and 0xc/imm32/slice +<span id="L25255" class="LineNr">25255 </span> { +<span id="L25256" class="LineNr">25256 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25257" class="LineNr">25257 </span> b8/copy-to-eax 8/imm32 +<span id="L25258" class="LineNr">25258 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L25259" class="LineNr">25259 </span> } +<span id="L25260" class="LineNr">25260 </span> <span class="subxComment"># if t is a user-defined type, return its size</span> +<span id="L25261" class="LineNr">25261 </span> <span class="subxComment"># TODO: support non-atom type</span> +<span id="L25262" class="LineNr">25262 </span> (<a href='mu.subx.html#L19223'>find-typeinfo</a> %eax %ecx) +<span id="L25263" class="LineNr">25263 </span> { +<span id="L25264" class="LineNr">25264 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L25265" class="LineNr">25265 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25266" class="LineNr">25266 </span><span class="Constant">$size-of-type-id:user-defined</span>: +<span id="L25267" class="LineNr">25267 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L25268" class="LineNr">25268 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L25269" class="LineNr">25269 </span> eb/jump $size-of-type-id:end/disp8 +<span id="L25270" class="LineNr">25270 </span> } +<span id="L25271" class="LineNr">25271 </span> <span class="subxComment"># otherwise return the word size</span> +<span id="L25272" class="LineNr">25272 </span> b8/copy-to-eax 4/imm32 +<span id="L25273" class="LineNr">25273 </span><span class="Constant">$size-of-type-id:end</span>: +<span id="L25274" class="LineNr">25274 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L25275" class="LineNr">25275 </span> 81 0/subop/add %esp 8/imm32 +<span id="L25276" class="LineNr">25276 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25277" class="LineNr">25277 </span> 59/pop-to-ecx +<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="subxComment"># Minor violation of our type system since it returns an addr. But we could</span> +<span id="L25284" class="LineNr">25284 </span><span class="subxComment"># replace it with a handle some time.</span> +<span id="L25285" class="LineNr">25285 </span><span class="subxComment"># Returns null if t is an atom.</span> +<span id="L25286" class="LineNr">25286 </span><span class="subxFunction">type-tail</span>: <span class="subxComment"># t: (addr type-tree) -> out/eax: (addr type-tree)</span> +<span id="L25287" class="LineNr">25287 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25288" class="LineNr">25288 </span> 55/push-ebp +<span id="L25289" class="LineNr">25289 </span> 89/<- %ebp 4/r32/esp +<span id="L25290" class="LineNr">25290 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25291" class="LineNr">25291 </span> 51/push-ecx +<span id="L25292" class="LineNr">25292 </span> <span class="subxComment"># eax = 0</span> +<span id="L25293" class="LineNr">25293 </span> b8/copy-to-eax 0/imm32 +<span id="L25294" class="LineNr">25294 </span> <span class="subxComment"># ecx = t</span> +<span id="L25295" class="LineNr">25295 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L25296" class="LineNr">25296 </span><span class="Constant">$type-tail:check-atom</span>: +<span id="L25297" class="LineNr">25297 </span> <span class="subxComment"># if t->is-atom? return 0</span> +<span id="L25298" class="LineNr">25298 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25299" class="LineNr">25299 </span> 0f 85/jump-if-!= $type-tail:end/disp32 +<span id="L25300" class="LineNr">25300 </span> <span class="subxComment"># var tail = t->right</span> +<span id="L25301" class="LineNr">25301 </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="L25302" class="LineNr">25302 </span> 89/<- %ecx 0/r32/eax +<span id="L25303" class="LineNr">25303 </span><span class="Constant">$type-tail:check-singleton</span>: +<span id="L25304" class="LineNr">25304 </span> <span class="subxComment"># if (tail->right == 0) return tail->left</span> +<span id="L25305" class="LineNr">25305 </span> { +<span id="L25306" class="LineNr">25306 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25307" class="LineNr">25307 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25308" class="LineNr">25308 </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="L25309" class="LineNr">25309 </span> e9/jump $type-tail:end/disp32 +<span id="L25310" class="LineNr">25310 </span> } +<span id="L25311" class="LineNr">25311 </span> <span class="subxComment"># if tail->right->left is an array-capacity, return tail->left</span> +<span id="L25312" class="LineNr">25312 </span> { +<span id="L25313" class="LineNr">25313 </span><span class="Constant">$type-tail:check-array-capacity</span>: +<span id="L25314" class="LineNr">25314 </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="L25315" class="LineNr">25315 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25316" class="LineNr">25316 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25317" class="LineNr">25317 </span><span class="Constant">$type-tail:check-array-capacity-1</span>: +<span id="L25318" class="LineNr">25318 </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="L25319" class="LineNr">25319 </span> 3d/compare-eax-and 0/imm32 +<span id="L25320" class="LineNr">25320 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25321" class="LineNr">25321 </span><span class="Constant">$type-tail:check-array-capacity-2</span>: +<span id="L25322" class="LineNr">25322 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 9) <span class="subxComment"># array-capacity => eax</span> +<span id="L25323" class="LineNr">25323 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25324" class="LineNr">25324 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25325" class="LineNr">25325 </span><span class="Constant">$type-tail:array-capacity</span>: +<span id="L25326" class="LineNr">25326 </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="L25327" class="LineNr">25327 </span> eb/jump $type-tail:end/disp8 <span id="L25328" class="LineNr">25328 </span> } -<span id="L25329" class="LineNr">25329 </span><span class="Constant">$emit-outputs:end</span>: -<span id="L25330" class="LineNr">25330 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25331" class="LineNr">25331 </span> 5f/pop-to-edi -<span id="L25332" class="LineNr">25332 </span> 5e/pop-to-esi -<span id="L25333" class="LineNr">25333 </span> 59/pop-to-ecx -<span id="L25334" class="LineNr">25334 </span> 58/pop-to-eax -<span id="L25335" class="LineNr">25335 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25336" class="LineNr">25336 </span> 89/<- %esp 5/r32/ebp -<span id="L25337" class="LineNr">25337 </span> 5d/pop-to-ebp -<span id="L25338" class="LineNr">25338 </span> c3/return -<span id="L25339" class="LineNr">25339 </span> -<span id="L25340" class="LineNr">25340 </span><span class="subxFunction">is-mu-branch?</span>: <span class="subxComment"># stmt: (addr stmt1) -> result/eax: boolean</span> -<span id="L25341" class="LineNr">25341 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25342" class="LineNr">25342 </span> 55/push-ebp -<span id="L25343" class="LineNr">25343 </span> 89/<- %ebp 4/r32/esp -<span id="L25344" class="LineNr">25344 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25345" class="LineNr">25345 </span> 51/push-ecx -<span id="L25346" class="LineNr">25346 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> -<span id="L25347" class="LineNr">25347 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L25348" class="LineNr">25348 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L25349" class="LineNr">25349 </span> 89/<- %ecx 0/r32/eax -<span id="L25350" class="LineNr">25350 </span> <span class="subxComment"># if (stmt->operation starts with "loop") return true</span> -<span id="L25351" class="LineNr">25351 </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="L25352" class="LineNr">25352 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25353" class="LineNr">25353 </span> 75/jump-if-not-equal $is-mu-branch?:end/disp8 -<span id="L25354" class="LineNr">25354 </span> <span class="subxComment"># if (stmt->operation starts with "break") return true</span> -<span id="L25355" class="LineNr">25355 </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="L25356" class="LineNr">25356 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25357" class="LineNr">25357 </span> 75/jump-if-not-equal $is-mu-branch?:end/disp8 -<span id="L25358" class="LineNr">25358 </span> <span class="subxComment"># otherwise return (stmt->operation starts with "return")</span> -<span id="L25359" class="LineNr">25359 </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="L25360" class="LineNr">25360 </span><span class="Constant">$is-mu-branch?:end</span>: -<span id="L25361" class="LineNr">25361 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25362" class="LineNr">25362 </span> 59/pop-to-ecx -<span id="L25363" class="LineNr">25363 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25364" class="LineNr">25364 </span> 89/<- %esp 5/r32/ebp -<span id="L25365" class="LineNr">25365 </span> 5d/pop-to-ebp -<span id="L25366" class="LineNr">25366 </span> c3/return -<span id="L25367" class="LineNr">25367 </span> -<span id="L25368" class="LineNr">25368 </span><span class="subxFunction">emit-reverse-break</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt1)</span> -<span id="L25369" class="LineNr">25369 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25370" class="LineNr">25370 </span> 55/push-ebp -<span id="L25371" class="LineNr">25371 </span> 89/<- %ebp 4/r32/esp -<span id="L25372" class="LineNr">25372 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25373" class="LineNr">25373 </span> 50/push-eax -<span id="L25374" class="LineNr">25374 </span> <span class="subxComment"># eax = stmt</span> -<span id="L25375" class="LineNr">25375 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25376" class="LineNr">25376 </span> <span class="subxComment">#</span> -<span id="L25377" class="LineNr">25377 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L25378" class="LineNr">25378 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L25394'>Reverse-branch</a></span> %eax 0x10 <span class="Constant">"reverse-branch: "</span>) <span class="subxComment"># => eax: (addr handle array byte)</span> -<span id="L25379" class="LineNr">25379 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25380" class="LineNr">25380 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L25381" class="LineNr">25381 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L25382" class="LineNr">25382 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" break/disp32\n"</span>) -<span id="L25383" class="LineNr">25383 </span><span class="Constant">$emit-reverse-break:end</span>: -<span id="L25384" class="LineNr">25384 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25385" class="LineNr">25385 </span> 58/pop-to-eax -<span id="L25386" class="LineNr">25386 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25387" class="LineNr">25387 </span> 89/<- %esp 5/r32/ebp -<span id="L25388" class="LineNr">25388 </span> 5d/pop-to-ebp -<span id="L25389" class="LineNr">25389 </span> c3/return -<span id="L25390" class="LineNr">25390 </span> -<span id="L25391" class="LineNr">25391 </span>== data -<span id="L25392" class="LineNr">25392 </span> -<span id="L25393" class="LineNr">25393 </span><span class="subxComment"># Table from Mu branch instructions to the reverse SubX opcodes for them.</span> -<span id="L25394" class="LineNr">25394 </span><span class="SpecialChar">Reverse-branch</span>: <span class="subxComment"># (table (handle array byte) (handle array byte))</span> -<span id="L25395" class="LineNr">25395 </span> <span class="subxComment"># a table is a stream</span> -<span id="L25396" class="LineNr">25396 </span> 0x1c0/imm32/write -<span id="L25397" class="LineNr">25397 </span> 0/imm32/read -<span id="L25398" class="LineNr">25398 </span> 0x1c0/imm32/size -<span id="L25399" class="LineNr">25399 </span> <span class="subxComment"># data</span> -<span id="L25400" class="LineNr">25400 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31341'>_string-break-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31688'>_string_0f_85_jump_label</a>/imm32 -<span id="L25401" class="LineNr">25401 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31451'>_string-loop-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31688'>_string_0f_85_jump_label</a>/imm32 -<span id="L25402" class="LineNr">25402 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31356'>_string-break-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31673'>_string_0f_84_jump_label</a>/imm32 -<span id="L25403" class="LineNr">25403 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31466'>_string-loop-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31673'>_string_0f_84_jump_label</a>/imm32 -<span id="L25404" class="LineNr">25404 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31331'>_string-break-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31748'>_string_0f_8d_jump_label</a>/imm32 -<span id="L25405" class="LineNr">25405 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31441'>_string-loop-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31748'>_string_0f_8d_jump_label</a>/imm32 -<span id="L25406" class="LineNr">25406 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31346'>_string-break-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31763'>_string_0f_8e_jump_label</a>/imm32 -<span id="L25407" class="LineNr">25407 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31456'>_string-loop-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31763'>_string_0f_8e_jump_label</a>/imm32 -<span id="L25408" class="LineNr">25408 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31336'>_string-break-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31718'>_string_0f_87_jump_label</a>/imm32 -<span id="L25409" class="LineNr">25409 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31446'>_string-loop-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31718'>_string_0f_87_jump_label</a>/imm32 -<span id="L25410" class="LineNr">25410 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31351'>_string-break-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31733'>_string_0f_8c_jump_label</a>/imm32 -<span id="L25411" class="LineNr">25411 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31461'>_string-loop-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31733'>_string_0f_8c_jump_label</a>/imm32 -<span id="L25412" class="LineNr">25412 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31361'>_string-break-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31658'>_string_0f_83_jump_label</a>/imm32 -<span id="L25413" class="LineNr">25413 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31471'>_string-loop-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31658'>_string_0f_83_jump_label</a>/imm32 -<span id="L25414" class="LineNr">25414 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31371'>_string-break-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31703'>_string_0f_86_jump_label</a>/imm32 -<span id="L25415" class="LineNr">25415 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31481'>_string-loop-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31703'>_string_0f_86_jump_label</a>/imm32 -<span id="L25416" class="LineNr">25416 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31366'>_string-break-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31718'>_string_0f_87_jump_label</a>/imm32 -<span id="L25417" class="LineNr">25417 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31476'>_string-loop-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31718'>_string_0f_87_jump_label</a>/imm32 -<span id="L25418" class="LineNr">25418 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31376'>_string-break-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31643'>_string_0f_82_jump_label</a>/imm32 -<span id="L25419" class="LineNr">25419 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31486'>_string-loop-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31643'>_string_0f_82_jump_label</a>/imm32 -<span id="L25420" class="LineNr">25420 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31381'>_string-break-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31658'>_string_0f_83_jump_label</a>/imm32 -<span id="L25421" class="LineNr">25421 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31491'>_string-loop-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31658'>_string_0f_83_jump_label</a>/imm32 -<span id="L25422" class="LineNr">25422 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31391'>_string-break-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31703'>_string_0f_86_jump_label</a>/imm32 -<span id="L25423" class="LineNr">25423 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31501'>_string-loop-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31703'>_string_0f_86_jump_label</a>/imm32 -<span id="L25424" class="LineNr">25424 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31386'>_string-break-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31718'>_string_0f_87_jump_label</a>/imm32 -<span id="L25425" class="LineNr">25425 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31496'>_string-loop-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31718'>_string_0f_87_jump_label</a>/imm32 -<span id="L25426" class="LineNr">25426 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31396'>_string-break-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31643'>_string_0f_82_jump_label</a>/imm32 -<span id="L25427" class="LineNr">25427 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31506'>_string-loop-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L31643'>_string_0f_82_jump_label</a>/imm32 -<span id="L25428" class="LineNr">25428 </span> -<span id="L25429" class="LineNr">25429 </span>== code +<span id="L25329" class="LineNr">25329 </span><span class="Constant">$type-tail:check-compound-left</span>: +<span id="L25330" class="LineNr">25330 </span> <span class="subxComment"># if !tail->left->is-atom? return tail->left</span> +<span id="L25331" class="LineNr">25331 </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="L25332" class="LineNr">25332 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25333" class="LineNr">25333 </span> 74/jump-if-= $type-tail:end/disp8 +<span id="L25334" class="LineNr">25334 </span><span class="Constant">$type-tail:return-tail</span>: +<span id="L25335" class="LineNr">25335 </span> <span class="subxComment"># return tail</span> +<span id="L25336" class="LineNr">25336 </span> 89/<- %eax 1/r32/ecx +<span id="L25337" class="LineNr">25337 </span><span class="Constant">$type-tail:end</span>: +<span id="L25338" class="LineNr">25338 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25339" class="LineNr">25339 </span> 59/pop-to-ecx +<span id="L25340" class="LineNr">25340 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25341" class="LineNr">25341 </span> 89/<- %esp 5/r32/ebp +<span id="L25342" class="LineNr">25342 </span> 5d/pop-to-ebp +<span id="L25343" class="LineNr">25343 </span> c3/return +<span id="L25344" class="LineNr">25344 </span> +<span id="L25345" class="LineNr">25345 </span><span class="subxFunction">type-equal?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</span> +<span id="L25346" class="LineNr">25346 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25347" class="LineNr">25347 </span> 55/push-ebp +<span id="L25348" class="LineNr">25348 </span> 89/<- %ebp 4/r32/esp +<span id="L25349" class="LineNr">25349 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25350" class="LineNr">25350 </span> 51/push-ecx +<span id="L25351" class="LineNr">25351 </span> 52/push-edx +<span id="L25352" class="LineNr">25352 </span> 53/push-ebx +<span id="L25353" class="LineNr">25353 </span> <span class="subxComment"># ecx = a</span> +<span id="L25354" class="LineNr">25354 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L25355" class="LineNr">25355 </span> <span class="subxComment"># edx = b</span> +<span id="L25356" class="LineNr">25356 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L25357" class="LineNr">25357 </span><span class="Constant">$type-equal?:compare-addr</span>: +<span id="L25358" class="LineNr">25358 </span> <span class="subxComment"># if (a == b) return true</span> +<span id="L25359" class="LineNr">25359 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L25360" class="LineNr">25360 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L25361" class="LineNr">25361 </span> b8/copy-to-eax 1/imm32/true +<span id="L25362" class="LineNr">25362 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L25363" class="LineNr">25363 </span><span class="Constant">$type-equal?:compare-null-a</span>: +<span id="L25364" class="LineNr">25364 </span> <span class="subxComment"># if (a == 0) return false</span> +<span id="L25365" class="LineNr">25365 </span> b8/copy-to-eax 0/imm32/false +<span id="L25366" class="LineNr">25366 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L25367" class="LineNr">25367 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L25368" class="LineNr">25368 </span><span class="Constant">$type-equal?:compare-null-b</span>: +<span id="L25369" class="LineNr">25369 </span> <span class="subxComment"># if (b == 0) return false</span> +<span id="L25370" class="LineNr">25370 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L25371" class="LineNr">25371 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L25372" class="LineNr">25372 </span><span class="Constant">$type-equal?:compare-atom-state</span>: +<span id="L25373" class="LineNr">25373 </span> <span class="subxComment"># if (a->is-atom? != b->is-atom?) return false</span> +<span id="L25374" class="LineNr">25374 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25375" class="LineNr">25375 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25376" class="LineNr">25376 </span> b8/copy-to-eax 0/imm32/false +<span id="L25377" class="LineNr">25377 </span> 0f 85/jump-if-!= $type-equal?:end/disp32 +<span id="L25378" class="LineNr">25378 </span> <span class="subxComment"># if a->is-atom? return (a->value == b->value)</span> +<span id="L25379" class="LineNr">25379 </span> { +<span id="L25380" class="LineNr">25380 </span><span class="Constant">$type-equal?:check-atom</span>: +<span id="L25381" class="LineNr">25381 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L25382" class="LineNr">25382 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25383" class="LineNr">25383 </span><span class="Constant">$type-equal?:is-atom</span>: +<span id="L25384" class="LineNr">25384 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L25385" class="LineNr">25385 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L25386" class="LineNr">25386 </span> 0f 94/set-if-= %al +<span id="L25387" class="LineNr">25387 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L25388" class="LineNr">25388 </span> e9/jump $type-equal?:end/disp32 +<span id="L25389" class="LineNr">25389 </span> } +<span id="L25390" class="LineNr">25390 </span><span class="Constant">$type-equal?:check-left</span>: +<span id="L25391" class="LineNr">25391 </span> <span class="subxComment"># if (!type-equal?(a->left, b->left)) return false</span> +<span id="L25392" class="LineNr">25392 </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="L25393" class="LineNr">25393 </span> 89/<- %ebx 0/r32/eax +<span id="L25394" class="LineNr">25394 </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="L25395" class="LineNr">25395 </span> (<a href='mu.subx.html#L25345'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L25396" class="LineNr">25396 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25397" class="LineNr">25397 </span> 74/jump-if-= $type-equal?:end/disp8 +<span id="L25398" class="LineNr">25398 </span><span class="Constant">$type-equal?:check-right</span>: +<span id="L25399" class="LineNr">25399 </span> <span class="subxComment"># return type-equal?(a->right, b->right)</span> +<span id="L25400" class="LineNr">25400 </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="L25401" class="LineNr">25401 </span> 89/<- %ebx 0/r32/eax +<span id="L25402" class="LineNr">25402 </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="L25403" class="LineNr">25403 </span> (<a href='mu.subx.html#L25345'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L25404" class="LineNr">25404 </span><span class="Constant">$type-equal?:end</span>: +<span id="L25405" class="LineNr">25405 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25406" class="LineNr">25406 </span> 5b/pop-to-ebx +<span id="L25407" class="LineNr">25407 </span> 5a/pop-to-edx +<span id="L25408" class="LineNr">25408 </span> 59/pop-to-ecx +<span id="L25409" class="LineNr">25409 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25410" class="LineNr">25410 </span> 89/<- %esp 5/r32/ebp +<span id="L25411" class="LineNr">25411 </span> 5d/pop-to-ebp +<span id="L25412" class="LineNr">25412 </span> c3/return +<span id="L25413" class="LineNr">25413 </span> +<span id="L25414" class="LineNr">25414 </span><span class="subxComment">#######################################################</span> +<span id="L25415" class="LineNr">25415 </span><span class="subxComment"># Code-generation</span> +<span id="L25416" class="LineNr">25416 </span><span class="subxComment">#######################################################</span> +<span id="L25417" class="LineNr">25417 </span> +<span id="L25418" class="LineNr">25418 </span>== data +<span id="L25419" class="LineNr">25419 </span> +<span id="L25420" class="LineNr">25420 </span><span class="subxComment"># Global state added to each var record when performing code-generation.</span> +<span id="L25421" class="LineNr">25421 </span><span class="SpecialChar">Curr-local-stack-offset</span>: <span class="subxComment"># (addr int)</span> +<span id="L25422" class="LineNr">25422 </span> 0/imm32 +<span id="L25423" class="LineNr">25423 </span> +<span id="L25424" class="LineNr">25424 </span>== code +<span id="L25425" class="LineNr">25425 </span> +<span id="L25426" class="LineNr">25426 </span><span class="subxComment"># We may not need to pass err/ed everywhere here. I think they're relics of Mu</span> +<span id="L25427" class="LineNr">25427 </span><span class="subxComment"># getting type checks later in life.</span> +<span id="L25428" class="LineNr">25428 </span><span class="subxComment"># But we do need them for runtime checks, particularly array index bounds checks.</span> +<span id="L25429" class="LineNr">25429 </span><span class="subxComment"># So perhaps it's not worth taking them out. They're a safety net.</span> <span id="L25430" class="LineNr">25430 </span> -<span id="L25431" class="LineNr">25431 </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="L25431" class="LineNr">25431 </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="L25432" class="LineNr">25432 </span> <span class="subxS1Comment"># . prologue</span> <span id="L25433" class="LineNr">25433 </span> 55/push-ebp <span id="L25434" class="LineNr">25434 </span> 89/<- %ebp 4/r32/esp <span id="L25435" class="LineNr">25435 </span> <span class="subxS1Comment"># . save registers</span> <span id="L25436" class="LineNr">25436 </span> 50/push-eax -<span id="L25437" class="LineNr">25437 </span> 51/push-ecx -<span id="L25438" class="LineNr">25438 </span> 52/push-edx -<span id="L25439" class="LineNr">25439 </span> 53/push-ebx -<span id="L25440" class="LineNr">25440 </span> 56/push-esi -<span id="L25441" class="LineNr">25441 </span> <span class="subxComment"># ecx = vars</span> -<span id="L25442" class="LineNr">25442 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L25443" class="LineNr">25443 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L25444" class="LineNr">25444 </span> 8b/-> *ecx 0/r32/eax -<span id="L25445" class="LineNr">25445 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L25446" class="LineNr">25446 </span> 8d/copy-address *(ecx+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L25447" class="LineNr">25447 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L25448" class="LineNr">25448 </span> 8d/copy-address *(ecx+8) 1/r32/ecx -<span id="L25449" class="LineNr">25449 </span> <span class="subxComment"># edx = depth</span> -<span id="L25450" class="LineNr">25450 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L25451" class="LineNr">25451 </span> { -<span id="L25452" class="LineNr">25452 </span><span class="Constant">$emit-unconditional-jump-to-depth:loop</span>: -<span id="L25453" class="LineNr">25453 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L25454" class="LineNr">25454 </span> 39/compare %esi 1/r32/ecx -<span id="L25455" class="LineNr">25455 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L25456" class="LineNr">25456 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L25457" class="LineNr">25457 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L25458" class="LineNr">25458 </span> 89/<- %ebx 0/r32/eax -<span id="L25459" class="LineNr">25459 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L25460" class="LineNr">25460 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L25461" class="LineNr">25461 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L25462" class="LineNr">25462 </span> { -<span id="L25463" class="LineNr">25463 </span><span class="Constant">$emit-unconditional-jump-to-depth:check</span>: -<span id="L25464" class="LineNr">25464 </span> <span class="subxComment"># if v->block-depth != until-block-depth, continue</span> -<span id="L25465" class="LineNr">25465 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L25466" class="LineNr">25466 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L25467" class="LineNr">25467 </span><span class="Constant">$emit-unconditional-jump-to-depth:depth-found</span>: -<span id="L25468" class="LineNr">25468 </span> <span class="subxComment"># if v is not a literal, continue</span> -<span id="L25469" class="LineNr">25469 </span> (<a href='mu.subx.html#L24381'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25470" class="LineNr">25470 </span> 3d/compare-eax-and 0/imm32 -<span id="L25471" class="LineNr">25471 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L25472" class="LineNr">25472 </span><span class="Constant">$emit-unconditional-jump-to-depth:label-found</span>: -<span id="L25473" class="LineNr">25473 </span> <span class="subxComment"># emit unconditional jump, then return</span> -<span id="L25474" class="LineNr">25474 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25475" class="LineNr">25475 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) -<span id="L25476" class="LineNr">25476 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25477" class="LineNr">25477 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L25478" class="LineNr">25478 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":"</span>) -<span id="L25479" class="LineNr">25479 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x14)) -<span id="L25480" class="LineNr">25480 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32\n"</span>) -<span id="L25481" class="LineNr">25481 </span> eb/jump $emit-unconditional-jump-to-depth:end/disp8 -<span id="L25482" class="LineNr">25482 </span> } -<span id="L25483" class="LineNr">25483 </span> <span class="subxComment"># curr -= 12</span> -<span id="L25484" class="LineNr">25484 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L25485" class="LineNr">25485 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L25486" class="LineNr">25486 </span> } -<span id="L25487" class="LineNr">25487 </span> <span class="subxComment"># TODO: error if no label at 'depth' was found</span> -<span id="L25488" class="LineNr">25488 </span><span class="Constant">$emit-unconditional-jump-to-depth:end</span>: -<span id="L25489" class="LineNr">25489 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25490" class="LineNr">25490 </span> 5e/pop-to-esi -<span id="L25491" class="LineNr">25491 </span> 5b/pop-to-ebx -<span id="L25492" class="LineNr">25492 </span> 5a/pop-to-edx -<span id="L25493" class="LineNr">25493 </span> 59/pop-to-ecx -<span id="L25494" class="LineNr">25494 </span> 58/pop-to-eax -<span id="L25495" class="LineNr">25495 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25496" class="LineNr">25496 </span> 89/<- %esp 5/r32/ebp -<span id="L25497" class="LineNr">25497 </span> 5d/pop-to-ebp -<span id="L25498" class="LineNr">25498 </span> c3/return -<span id="L25499" class="LineNr">25499 </span> -<span id="L25500" class="LineNr">25500 </span><span class="subxComment"># emit clean-up code for 'vars' until some block depth</span> -<span id="L25501" class="LineNr">25501 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L25502" class="LineNr">25502 </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="L25503" class="LineNr">25503 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25504" class="LineNr">25504 </span> 55/push-ebp -<span id="L25505" class="LineNr">25505 </span> 89/<- %ebp 4/r32/esp -<span id="L25506" class="LineNr">25506 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25507" class="LineNr">25507 </span> 50/push-eax -<span id="L25508" class="LineNr">25508 </span> 51/push-ecx -<span id="L25509" class="LineNr">25509 </span> 52/push-edx -<span id="L25510" class="LineNr">25510 </span> 53/push-ebx -<span id="L25511" class="LineNr">25511 </span> 56/push-esi -<span id="L25512" class="LineNr">25512 </span><span class="CommentedCode">#? (write-buffered Stderr "--- cleanup\n")</span> -<span id="L25513" class="LineNr">25513 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L25514" class="LineNr">25514 </span> <span class="subxComment"># ecx = vars</span> -<span id="L25515" class="LineNr">25515 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L25516" class="LineNr">25516 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L25517" class="LineNr">25517 </span> 8b/-> *ecx 6/r32/esi -<span id="L25518" class="LineNr">25518 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L25519" class="LineNr">25519 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L25520" class="LineNr">25520 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L25521" class="LineNr">25521 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L25522" class="LineNr">25522 </span> <span class="subxComment"># edx = until-block-depth</span> -<span id="L25523" class="LineNr">25523 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L25524" class="LineNr">25524 </span> { -<span id="L25525" class="LineNr">25525 </span><span class="Constant">$emit-cleanup-code-until-depth:loop</span>: -<span id="L25526" class="LineNr">25526 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L25527" class="LineNr">25527 </span> 39/compare %esi 1/r32/ecx -<span id="L25528" class="LineNr">25528 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L25529" class="LineNr">25529 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L25530" class="LineNr">25530 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L25531" class="LineNr">25531 </span> 89/<- %ebx 0/r32/eax -<span id="L25532" class="LineNr">25532 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4)) # Var-name</span> -<span id="L25533" class="LineNr">25533 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L25534" class="LineNr">25534 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L25535" class="LineNr">25535 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L25536" class="LineNr">25536 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L25537" class="LineNr">25537 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L25538" class="LineNr">25538 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L25539" class="LineNr">25539 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L25540" class="LineNr">25540 </span> <span class="subxComment"># if v is in a register</span> -<span id="L25541" class="LineNr">25541 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L25542" class="LineNr">25542 </span> { -<span id="L25543" class="LineNr">25543 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L25544" class="LineNr">25544 </span> { -<span id="L25545" class="LineNr">25545 </span><span class="Constant">$emit-cleanup-code-until-depth:check-for-previous-spill</span>: -<span id="L25546" class="LineNr">25546 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L25547" class="LineNr">25547 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25548" class="LineNr">25548 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25549" class="LineNr">25549 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-in-register</span>: -<span id="L25550" class="LineNr">25550 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25551" class="LineNr">25551 </span> (<a href='mu.subx.html#L25712'>emit-pop-register</a> *(ebp+8) %eax) -<span id="L25552" class="LineNr">25552 </span> } -<span id="L25553" class="LineNr">25553 </span> eb/jump $emit-cleanup-code-until-depth:continue/disp8 -<span id="L25554" class="LineNr">25554 </span> } -<span id="L25555" class="LineNr">25555 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L25556" class="LineNr">25556 </span> { -<span id="L25557" class="LineNr">25557 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25558" class="LineNr">25558 </span><span class="Constant">$emit-cleanup-code-until-depth:var-on-stack</span>: -<span id="L25559" class="LineNr">25559 </span> (<a href='mu.subx.html#L24381'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25560" class="LineNr">25560 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L25561" class="LineNr">25561 </span> 3d/compare-eax-and 0/imm32 -<span id="L25562" class="LineNr">25562 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25563" class="LineNr">25563 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-on-stack</span>: -<span id="L25564" class="LineNr">25564 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25565" class="LineNr">25565 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) -<span id="L25566" class="LineNr">25566 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L25567" class="LineNr">25567 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L25568" class="LineNr">25568 </span> } -<span id="L25569" class="LineNr">25569 </span><span class="Constant">$emit-cleanup-code-until-depth:continue</span>: -<span id="L25570" class="LineNr">25570 </span> <span class="subxComment"># curr -= 12</span> -<span id="L25571" class="LineNr">25571 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L25572" class="LineNr">25572 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L25573" class="LineNr">25573 </span> } -<span id="L25574" class="LineNr">25574 </span><span class="Constant">$emit-cleanup-code-until-depth:end</span>: -<span id="L25575" class="LineNr">25575 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25576" class="LineNr">25576 </span> 5e/pop-to-esi -<span id="L25577" class="LineNr">25577 </span> 5b/pop-to-ebx -<span id="L25578" class="LineNr">25578 </span> 5a/pop-to-edx -<span id="L25579" class="LineNr">25579 </span> 59/pop-to-ecx -<span id="L25580" class="LineNr">25580 </span> 58/pop-to-eax -<span id="L25581" class="LineNr">25581 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25582" class="LineNr">25582 </span> 89/<- %esp 5/r32/ebp -<span id="L25583" class="LineNr">25583 </span> 5d/pop-to-ebp -<span id="L25584" class="LineNr">25584 </span> c3/return -<span id="L25585" class="LineNr">25585 </span> -<span id="L25586" class="LineNr">25586 </span><span class="subxComment"># emit clean-up code for 'vars' that don't conflict with output registers</span> -<span id="L25587" class="LineNr">25587 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L25588" class="LineNr">25588 </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="L25589" class="LineNr">25589 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25590" class="LineNr">25590 </span> 55/push-ebp -<span id="L25591" class="LineNr">25591 </span> 89/<- %ebp 4/r32/esp -<span id="L25592" class="LineNr">25592 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25593" class="LineNr">25593 </span> 50/push-eax -<span id="L25594" class="LineNr">25594 </span> 51/push-ecx -<span id="L25595" class="LineNr">25595 </span> 52/push-edx -<span id="L25596" class="LineNr">25596 </span> 53/push-ebx -<span id="L25597" class="LineNr">25597 </span> 56/push-esi -<span id="L25598" class="LineNr">25598 </span> 57/push-edi -<span id="L25599" class="LineNr">25599 </span> <span class="subxComment"># ecx = vars</span> -<span id="L25600" class="LineNr">25600 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L25601" class="LineNr">25601 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L25602" class="LineNr">25602 </span> 8b/-> *ecx 6/r32/esi -<span id="L25603" class="LineNr">25603 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L25604" class="LineNr">25604 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L25605" class="LineNr">25605 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L25606" class="LineNr">25606 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L25607" class="LineNr">25607 </span> { -<span id="L25608" class="LineNr">25608 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:loop</span>: -<span id="L25609" class="LineNr">25609 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L25610" class="LineNr">25610 </span> 39/compare %esi 1/r32/ecx -<span id="L25611" class="LineNr">25611 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L25612" class="LineNr">25612 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L25613" class="LineNr">25613 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L25614" class="LineNr">25614 </span> 89/<- %ebx 0/r32/eax -<span id="L25615" class="LineNr">25615 </span> <span class="subxComment"># if v is in a register</span> -<span id="L25616" class="LineNr">25616 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L25617" class="LineNr">25617 </span> { -<span id="L25618" class="LineNr">25618 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L25619" class="LineNr">25619 </span> { -<span id="L25620" class="LineNr">25620 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:check-for-previous-spill</span>: -<span id="L25621" class="LineNr">25621 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L25622" class="LineNr">25622 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25623" class="LineNr">25623 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L25624" class="LineNr">25624 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register</span>: -<span id="L25625" class="LineNr">25625 </span> <span class="subxComment"># var reg/edi: (addr array name) = v->register</span> -<span id="L25626" class="LineNr">25626 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25627" class="LineNr">25627 </span> 89/<- %edi 0/r32/eax -<span id="L25628" class="LineNr">25628 </span> <span class="subxComment"># if reg is not in function outputs, emit a pop</span> -<span id="L25629" class="LineNr">25629 </span> (<a href='mu.subx.html#L26258'>reg-in-function-outputs?</a> *(ebp+0x10) %edi) <span class="subxComment"># => eax</span> -<span id="L25630" class="LineNr">25630 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25631" class="LineNr">25631 </span> { -<span id="L25632" class="LineNr">25632 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25633" class="LineNr">25633 </span> (<a href='mu.subx.html#L25712'>emit-pop-register</a> *(ebp+8) %edi) -<span id="L25634" class="LineNr">25634 </span> eb/jump $emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done/disp8 -<span id="L25635" class="LineNr">25635 </span> } -<span id="L25636" class="LineNr">25636 </span> <span class="subxComment"># otherwise just drop it from the stack</span> -<span id="L25637" class="LineNr">25637 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25638" class="LineNr">25638 </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="L25639" class="LineNr">25639 </span> } -<span id="L25640" class="LineNr">25640 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done</span>: -<span id="L25641" class="LineNr">25641 </span> eb/jump $emit-cleanup-code-for-non-outputs:continue/disp8 -<span id="L25642" class="LineNr">25642 </span> } -<span id="L25643" class="LineNr">25643 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L25644" class="LineNr">25644 </span> { -<span id="L25645" class="LineNr">25645 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25646" class="LineNr">25646 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:var-on-stack</span>: -<span id="L25647" class="LineNr">25647 </span> (<a href='mu.subx.html#L24381'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25648" class="LineNr">25648 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L25649" class="LineNr">25649 </span> 3d/compare-eax-and 0/imm32 -<span id="L25650" class="LineNr">25650 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25651" class="LineNr">25651 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-on-stack</span>: -<span id="L25652" class="LineNr">25652 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25653" class="LineNr">25653 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) -<span id="L25654" class="LineNr">25654 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L25655" class="LineNr">25655 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L25656" class="LineNr">25656 </span> } -<span id="L25657" class="LineNr">25657 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:continue</span>: -<span id="L25658" class="LineNr">25658 </span> <span class="subxComment"># curr -= 12</span> -<span id="L25659" class="LineNr">25659 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L25660" class="LineNr">25660 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L25661" class="LineNr">25661 </span> } -<span id="L25662" class="LineNr">25662 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:end</span>: -<span id="L25663" class="LineNr">25663 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25664" class="LineNr">25664 </span> 5f/pop-to-edi -<span id="L25665" class="LineNr">25665 </span> 5e/pop-to-esi -<span id="L25666" class="LineNr">25666 </span> 5b/pop-to-ebx -<span id="L25667" class="LineNr">25667 </span> 5a/pop-to-edx -<span id="L25668" class="LineNr">25668 </span> 59/pop-to-ecx -<span id="L25669" class="LineNr">25669 </span> 58/pop-to-eax -<span id="L25670" class="LineNr">25670 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25671" class="LineNr">25671 </span> 89/<- %esp 5/r32/ebp -<span id="L25672" class="LineNr">25672 </span> 5d/pop-to-ebp -<span id="L25673" class="LineNr">25673 </span> c3/return -<span id="L25674" class="LineNr">25674 </span> -<span id="L25675" class="LineNr">25675 </span><span class="subxFunction">emit-push-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> -<span id="L25676" class="LineNr">25676 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25677" class="LineNr">25677 </span> 55/push-ebp -<span id="L25678" class="LineNr">25678 </span> 89/<- %ebp 4/r32/esp -<span id="L25679" class="LineNr">25679 </span> <span class="subxComment"># eax = reg</span> -<span id="L25680" class="LineNr">25680 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25681" class="LineNr">25681 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> -<span id="L25682" class="LineNr">25682 </span> 8a/copy-byte *(eax+4) 0/r32/AL -<span id="L25683" class="LineNr">25683 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L25684" class="LineNr">25684 </span> <span class="subxComment"># if (prefix == 'x') push xmm register</span> -<span id="L25685" class="LineNr">25685 </span> { -<span id="L25686" class="LineNr">25686 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L25687" class="LineNr">25687 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L25688" class="LineNr">25688 </span> <span class="subxComment"># TODO validate register</span> -<span id="L25689" class="LineNr">25689 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25690" class="LineNr">25690 </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="L25691" class="LineNr">25691 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25692" class="LineNr">25692 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 11/<- *esp "</span>) -<span id="L25693" class="LineNr">25693 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> -<span id="L25694" class="LineNr">25694 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25695" class="LineNr">25695 </span> 8a/copy-byte *(eax+7) 0/r32/AL -<span id="L25696" class="LineNr">25696 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L25697" class="LineNr">25697 </span> (<a href='../115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) -<span id="L25698" class="LineNr">25698 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L25699" class="LineNr">25699 </span> e9/jump $emit-push-register:end/disp32 -<span id="L25700" class="LineNr">25700 </span> } -<span id="L25701" class="LineNr">25701 </span> <span class="subxComment"># otherwise push gp register</span> -<span id="L25702" class="LineNr">25702 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25703" class="LineNr">25703 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"ff 6/subop/push %"</span>) -<span id="L25704" class="LineNr">25704 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L25705" class="LineNr">25705 </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="L25706" class="LineNr">25706 </span><span class="Constant">$emit-push-register:end</span>: -<span id="L25707" class="LineNr">25707 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25708" class="LineNr">25708 </span> 89/<- %esp 5/r32/ebp -<span id="L25709" class="LineNr">25709 </span> 5d/pop-to-ebp -<span id="L25710" class="LineNr">25710 </span> c3/return -<span id="L25711" class="LineNr">25711 </span> -<span id="L25712" class="LineNr">25712 </span><span class="subxFunction">emit-pop-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> -<span id="L25713" class="LineNr">25713 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25714" class="LineNr">25714 </span> 55/push-ebp -<span id="L25715" class="LineNr">25715 </span> 89/<- %ebp 4/r32/esp -<span id="L25716" class="LineNr">25716 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25717" class="LineNr">25717 </span> 50/push-eax -<span id="L25718" class="LineNr">25718 </span> <span class="subxComment"># eax = reg</span> -<span id="L25719" class="LineNr">25719 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25720" class="LineNr">25720 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> -<span id="L25721" class="LineNr">25721 </span> 8a/copy-byte *(eax+4) 0/r32/AL -<span id="L25722" class="LineNr">25722 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L25723" class="LineNr">25723 </span> <span class="subxComment"># if (prefix == 'x') pop to xmm register</span> -<span id="L25724" class="LineNr">25724 </span> { -<span id="L25725" class="LineNr">25725 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L25726" class="LineNr">25726 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L25727" class="LineNr">25727 </span> <span class="subxComment"># TODO validate register</span> -<span id="L25728" class="LineNr">25728 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25729" class="LineNr">25729 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/-> *esp "</span>) -<span id="L25730" class="LineNr">25730 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> -<span id="L25731" class="LineNr">25731 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25732" class="LineNr">25732 </span> 8a/copy-byte *(eax+7) 0/r32/AL -<span id="L25733" class="LineNr">25733 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L25734" class="LineNr">25734 </span> (<a href='../115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) -<span id="L25735" class="LineNr">25735 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L25736" class="LineNr">25736 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25737" class="LineNr">25737 </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="L25738" class="LineNr">25738 </span> e9/jump $emit-pop-register:end/disp32 -<span id="L25739" class="LineNr">25739 </span> } -<span id="L25740" class="LineNr">25740 </span> <span class="subxComment"># otherwise pop to gp register</span> -<span id="L25741" class="LineNr">25741 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25742" class="LineNr">25742 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8f 0/subop/pop %"</span>) -<span id="L25743" class="LineNr">25743 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L25744" class="LineNr">25744 </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="L25745" class="LineNr">25745 </span><span class="Constant">$emit-pop-register:end</span>: -<span id="L25746" class="LineNr">25746 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25747" class="LineNr">25747 </span> 58/pop-to-eax -<span id="L25748" class="LineNr">25748 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25749" class="LineNr">25749 </span> 89/<- %esp 5/r32/ebp -<span id="L25750" class="LineNr">25750 </span> 5d/pop-to-ebp -<span id="L25751" class="LineNr">25751 </span> c3/return -<span id="L25752" class="LineNr">25752 </span> -<span id="L25753" class="LineNr">25753 </span><span class="subxComment"># emit clean-up code for 'vars' until a given label is encountered</span> -<span id="L25754" class="LineNr">25754 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L25755" class="LineNr">25755 </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="L25756" class="LineNr">25756 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25757" class="LineNr">25757 </span> 55/push-ebp -<span id="L25758" class="LineNr">25758 </span> 89/<- %ebp 4/r32/esp -<span id="L25759" class="LineNr">25759 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25760" class="LineNr">25760 </span> 50/push-eax -<span id="L25761" class="LineNr">25761 </span> 51/push-ecx -<span id="L25762" class="LineNr">25762 </span> 52/push-edx -<span id="L25763" class="LineNr">25763 </span> 53/push-ebx -<span id="L25764" class="LineNr">25764 </span> <span class="subxComment"># ecx = vars</span> -<span id="L25765" class="LineNr">25765 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L25766" class="LineNr">25766 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L25767" class="LineNr">25767 </span> 8b/-> *ecx 0/r32/eax -<span id="L25768" class="LineNr">25768 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L25769" class="LineNr">25769 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L25770" class="LineNr">25770 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L25771" class="LineNr">25771 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L25772" class="LineNr">25772 </span> { -<span id="L25773" class="LineNr">25773 </span><span class="Constant">$emit-cleanup-code-until-target:loop</span>: -<span id="L25774" class="LineNr">25774 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L25775" class="LineNr">25775 </span> 39/compare %edx 1/r32/ecx -<span id="L25776" class="LineNr">25776 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L25777" class="LineNr">25777 </span> <span class="subxComment"># var v/ebx: (handle var) = lookup(*curr)</span> -<span id="L25778" class="LineNr">25778 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L25779" class="LineNr">25779 </span> 89/<- %ebx 0/r32/eax -<span id="L25780" class="LineNr">25780 </span> <span class="subxComment"># if (v->name == until-block-label) break</span> -<span id="L25781" class="LineNr">25781 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25782" class="LineNr">25782 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L25783" class="LineNr">25783 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25784" class="LineNr">25784 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L25785" class="LineNr">25785 </span> <span class="subxComment"># if v is in a register</span> -<span id="L25786" class="LineNr">25786 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L25787" class="LineNr">25787 </span> { -<span id="L25788" class="LineNr">25788 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L25789" class="LineNr">25789 </span> { -<span id="L25790" class="LineNr">25790 </span><span class="Constant">$emit-cleanup-code-until-target:check-for-previous-spill</span>: -<span id="L25791" class="LineNr">25791 </span> 8b/-> *(edx+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L25792" class="LineNr">25792 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25793" class="LineNr">25793 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25794" class="LineNr">25794 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-in-register</span>: -<span id="L25795" class="LineNr">25795 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25796" class="LineNr">25796 </span> (<a href='mu.subx.html#L25712'>emit-pop-register</a> *(ebp+8) %eax) -<span id="L25797" class="LineNr">25797 </span> } -<span id="L25798" class="LineNr">25798 </span> eb/jump $emit-cleanup-code-until-target:continue/disp8 -<span id="L25799" class="LineNr">25799 </span> } -<span id="L25800" class="LineNr">25800 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L25801" class="LineNr">25801 </span> { -<span id="L25802" class="LineNr">25802 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25803" class="LineNr">25803 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-on-stack</span>: -<span id="L25804" class="LineNr">25804 </span> (<a href='mu.subx.html#L24381'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25805" class="LineNr">25805 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L25806" class="LineNr">25806 </span> 3d/compare-eax-and 0/imm32 -<span id="L25807" class="LineNr">25807 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25808" class="LineNr">25808 </span> <span class="subxComment">#</span> -<span id="L25809" class="LineNr">25809 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L25810" class="LineNr">25810 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) -<span id="L25811" class="LineNr">25811 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L25812" class="LineNr">25812 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L25813" class="LineNr">25813 </span> } -<span id="L25814" class="LineNr">25814 </span><span class="Constant">$emit-cleanup-code-until-target:continue</span>: -<span id="L25815" class="LineNr">25815 </span> <span class="subxComment"># curr -= 12</span> -<span id="L25816" class="LineNr">25816 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L25817" class="LineNr">25817 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L25818" class="LineNr">25818 </span> } -<span id="L25819" class="LineNr">25819 </span><span class="Constant">$emit-cleanup-code-until-target:end</span>: -<span id="L25820" class="LineNr">25820 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25821" class="LineNr">25821 </span> 5b/pop-to-ebx -<span id="L25822" class="LineNr">25822 </span> 5a/pop-to-edx -<span id="L25823" class="LineNr">25823 </span> 59/pop-to-ecx -<span id="L25824" class="LineNr">25824 </span> 58/pop-to-eax -<span id="L25825" class="LineNr">25825 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25826" class="LineNr">25826 </span> 89/<- %esp 5/r32/ebp -<span id="L25827" class="LineNr">25827 </span> 5d/pop-to-ebp -<span id="L25828" class="LineNr">25828 </span> c3/return -<span id="L25829" class="LineNr">25829 </span> -<span id="L25830" class="LineNr">25830 </span><span class="subxComment"># update Curr-local-stack-offset assuming vars until some block depth are popped</span> -<span id="L25831" class="LineNr">25831 </span><span class="subxComment"># doesn't actually modify 'vars', so we need traverse manually inside the stack</span> -<span id="L25832" class="LineNr">25832 </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="L25833" class="LineNr">25833 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25834" class="LineNr">25834 </span> 55/push-ebp -<span id="L25835" class="LineNr">25835 </span> 89/<- %ebp 4/r32/esp -<span id="L25836" class="LineNr">25836 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25837" class="LineNr">25837 </span> 50/push-eax -<span id="L25838" class="LineNr">25838 </span> 51/push-ecx -<span id="L25839" class="LineNr">25839 </span> 52/push-edx -<span id="L25840" class="LineNr">25840 </span> 53/push-ebx -<span id="L25841" class="LineNr">25841 </span> 56/push-esi -<span id="L25842" class="LineNr">25842 </span> <span class="subxComment"># ecx = vars</span> -<span id="L25843" class="LineNr">25843 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L25844" class="LineNr">25844 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L25845" class="LineNr">25845 </span> 8b/-> *ecx 6/r32/esi -<span id="L25846" class="LineNr">25846 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L25847" class="LineNr">25847 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L25848" class="LineNr">25848 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L25849" class="LineNr">25849 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L25850" class="LineNr">25850 </span> <span class="subxComment"># edx = until-block-depth</span> -<span id="L25851" class="LineNr">25851 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L25852" class="LineNr">25852 </span> { -<span id="L25853" class="LineNr">25853 </span><span class="Constant">$clean-up-stack-offset-state:loop</span>: -<span id="L25854" class="LineNr">25854 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L25855" class="LineNr">25855 </span> 39/compare %esi 1/r32/ecx -<span id="L25856" class="LineNr">25856 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L25857" class="LineNr">25857 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L25858" class="LineNr">25858 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L25859" class="LineNr">25859 </span> 89/<- %ebx 0/r32/eax -<span id="L25860" class="LineNr">25860 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L25861" class="LineNr">25861 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L25862" class="LineNr">25862 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L25863" class="LineNr">25863 </span> <span class="subxComment"># if v is in a register</span> -<span id="L25864" class="LineNr">25864 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L25865" class="LineNr">25865 </span> { -<span id="L25866" class="LineNr">25866 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L25867" class="LineNr">25867 </span> { -<span id="L25868" class="LineNr">25868 </span><span class="Constant">$clean-up-stack-offset-state:check-for-previous-spill</span>: -<span id="L25869" class="LineNr">25869 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L25870" class="LineNr">25870 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25871" class="LineNr">25871 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25872" class="LineNr">25872 </span><span class="Constant">$clean-up-stack-offset-state:reclaim-var-in-register</span>: -<span id="L25873" class="LineNr">25873 </span> 81 0/subop/add *<span class="SpecialChar"><a href='mu.subx.html#L24784'>Curr-local-stack-offset</a></span> 4/imm32 -<span id="L25874" class="LineNr">25874 </span> } -<span id="L25875" class="LineNr">25875 </span> eb/jump $clean-up-stack-offset-state:continue/disp8 -<span id="L25876" class="LineNr">25876 </span> } -<span id="L25877" class="LineNr">25877 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L25878" class="LineNr">25878 </span> { -<span id="L25879" class="LineNr">25879 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25880" class="LineNr">25880 </span><span class="Constant">$clean-up-stack-offset-state:var-on-stack</span>: -<span id="L25881" class="LineNr">25881 </span> (<a href='mu.subx.html#L24381'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25882" class="LineNr">25882 </span> 01/add-to *<span class="SpecialChar"><a href='mu.subx.html#L24784'>Curr-local-stack-offset</a></span> 0/r32/eax -<span id="L25883" class="LineNr">25883 </span> } -<span id="L25884" class="LineNr">25884 </span><span class="Constant">$clean-up-stack-offset-state:continue</span>: -<span id="L25885" class="LineNr">25885 </span> <span class="subxComment"># curr -= 12</span> -<span id="L25886" class="LineNr">25886 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L25887" class="LineNr">25887 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L25888" class="LineNr">25888 </span> } -<span id="L25889" class="LineNr">25889 </span><span class="Constant">$clean-up-stack-offset-state:end</span>: -<span id="L25890" class="LineNr">25890 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25891" class="LineNr">25891 </span> 5e/pop-to-esi -<span id="L25892" class="LineNr">25892 </span> 5b/pop-to-ebx -<span id="L25893" class="LineNr">25893 </span> 5a/pop-to-edx -<span id="L25894" class="LineNr">25894 </span> 59/pop-to-ecx -<span id="L25895" class="LineNr">25895 </span> 58/pop-to-eax -<span id="L25896" class="LineNr">25896 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25897" class="LineNr">25897 </span> 89/<- %esp 5/r32/ebp -<span id="L25898" class="LineNr">25898 </span> 5d/pop-to-ebp -<span id="L25899" class="LineNr">25899 </span> c3/return -<span id="L25900" class="LineNr">25900 </span> -<span id="L25901" class="LineNr">25901 </span><span class="subxComment"># Return true if there isn't a variable in 'vars' with the same block-depth</span> -<span id="L25902" class="LineNr">25902 </span><span class="subxComment"># and register as 'v'.</span> -<span id="L25903" class="LineNr">25903 </span><span class="subxComment"># 'v' is guaranteed not to be within 'vars'.</span> -<span id="L25904" class="LineNr">25904 </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="L25905" class="LineNr">25905 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25906" class="LineNr">25906 </span> 55/push-ebp -<span id="L25907" class="LineNr">25907 </span> 89/<- %ebp 4/r32/esp -<span id="L25908" class="LineNr">25908 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25909" class="LineNr">25909 </span> 51/push-ecx -<span id="L25910" class="LineNr">25910 </span> 52/push-edx -<span id="L25911" class="LineNr">25911 </span> 53/push-ebx -<span id="L25912" class="LineNr">25912 </span> 56/push-esi -<span id="L25913" class="LineNr">25913 </span> 57/push-edi -<span id="L25914" class="LineNr">25914 </span> <span class="subxComment"># ecx = vars</span> -<span id="L25915" class="LineNr">25915 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L25916" class="LineNr">25916 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L25917" class="LineNr">25917 </span> 8b/-> *ecx 0/r32/eax -<span id="L25918" class="LineNr">25918 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L25919" class="LineNr">25919 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L25920" class="LineNr">25920 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L25921" class="LineNr">25921 </span> 8d/copy-address *(ecx+8) 1/r32/ecx -<span id="L25922" class="LineNr">25922 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> -<span id="L25923" class="LineNr">25923 </span> 8b/-> *(ebp+8) 3/r32/ebx -<span id="L25924" class="LineNr">25924 </span> 8b/-> *(ebx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L25925" class="LineNr">25925 </span> <span class="subxComment"># var needle/esi: (addr array byte) = v->register</span> -<span id="L25926" class="LineNr">25926 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25927" class="LineNr">25927 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25928" class="LineNr">25928 </span> 89/<- %esi 0/r32/eax -<span id="L25929" class="LineNr">25929 </span> { -<span id="L25930" class="LineNr">25930 </span><span class="Constant">$not-yet-spilled-this-block?:loop</span>: -<span id="L25931" class="LineNr">25931 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L25932" class="LineNr">25932 </span> 39/compare %edx 1/r32/ecx -<span id="L25933" class="LineNr">25933 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L25934" class="LineNr">25934 </span> <span class="subxComment"># var cand/edi: (addr var) = lookup(*curr)</span> -<span id="L25935" class="LineNr">25935 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L25936" class="LineNr">25936 </span> 89/<- %edi 0/r32/eax -<span id="L25937" class="LineNr">25937 </span> <span class="subxComment"># if (cand->block-depth < depth) break</span> -<span id="L25938" class="LineNr">25938 </span> 39/compare *(edi+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L25939" class="LineNr">25939 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L25940" class="LineNr">25940 </span> <span class="subxComment"># var cand-reg/edi: (array array byte) = cand->reg</span> -<span id="L25941" class="LineNr">25941 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25942" class="LineNr">25942 </span> 89/<- %edi 0/r32/eax -<span id="L25943" class="LineNr">25943 </span> <span class="subxComment"># if (cand-reg == null) continue</span> -<span id="L25944" class="LineNr">25944 </span> { -<span id="L25945" class="LineNr">25945 </span><span class="Constant">$not-yet-spilled-this-block?:check-reg</span>: -<span id="L25946" class="LineNr">25946 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L25947" class="LineNr">25947 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L25948" class="LineNr">25948 </span> <span class="subxComment"># if (cand-reg == needle) return true</span> -<span id="L25949" class="LineNr">25949 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <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> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25952" class="LineNr">25952 </span><span class="Constant">$not-yet-spilled-this-block?:return-false</span>: -<span id="L25953" class="LineNr">25953 </span> b8/copy-to-eax 0/imm32/false -<span id="L25954" class="LineNr">25954 </span> eb/jump $not-yet-spilled-this-block?:end/disp8 -<span id="L25955" class="LineNr">25955 </span> } -<span id="L25956" class="LineNr">25956 </span><span class="Constant">$not-yet-spilled-this-block?:continue</span>: -<span id="L25957" class="LineNr">25957 </span> <span class="subxComment"># curr -= 12</span> -<span id="L25958" class="LineNr">25958 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L25959" class="LineNr">25959 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L25960" class="LineNr">25960 </span> } -<span id="L25961" class="LineNr">25961 </span><span class="Constant">$not-yet-spilled-this-block?:return-true</span>: -<span id="L25962" class="LineNr">25962 </span> <span class="subxComment"># return true</span> -<span id="L25963" class="LineNr">25963 </span> b8/copy-to-eax 1/imm32/true -<span id="L25964" class="LineNr">25964 </span><span class="Constant">$not-yet-spilled-this-block?:end</span>: -<span id="L25965" class="LineNr">25965 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25966" class="LineNr">25966 </span> 5f/pop-to-edi -<span id="L25967" class="LineNr">25967 </span> 5e/pop-to-esi -<span id="L25968" class="LineNr">25968 </span> 5b/pop-to-ebx -<span id="L25969" class="LineNr">25969 </span> 5a/pop-to-edx +<span id="L25437" class="LineNr">25437 </span> <span class="subxComment"># var curr/eax: (addr function) = *Program->functions</span> +<span id="L25438" class="LineNr">25438 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L25439" class="LineNr">25439 </span> { +<span id="L25440" class="LineNr">25440 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L25441" class="LineNr">25441 </span> 3d/compare-eax-and 0/imm32 +<span id="L25442" class="LineNr">25442 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L25443" class="LineNr">25443 </span> (<a href='mu.subx.html#L25456'>emit-subx-function</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L25444" class="LineNr">25444 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L25445" class="LineNr">25445 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L25446" class="LineNr">25446 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L25447" class="LineNr">25447 </span> } +<span id="L25448" class="LineNr">25448 </span><span class="Constant">$emit-subx:end</span>: +<span id="L25449" class="LineNr">25449 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25450" class="LineNr">25450 </span> 58/pop-to-eax +<span id="L25451" class="LineNr">25451 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25452" class="LineNr">25452 </span> 89/<- %esp 5/r32/ebp +<span id="L25453" class="LineNr">25453 </span> 5d/pop-to-ebp +<span id="L25454" class="LineNr">25454 </span> c3/return +<span id="L25455" class="LineNr">25455 </span> +<span id="L25456" class="LineNr">25456 </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="L25457" class="LineNr">25457 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25458" class="LineNr">25458 </span> 55/push-ebp +<span id="L25459" class="LineNr">25459 </span> 89/<- %ebp 4/r32/esp +<span id="L25460" class="LineNr">25460 </span> <span class="subxComment"># some preprocessing</span> +<span id="L25461" class="LineNr">25461 </span> (<a href='mu.subx.html#L25501'>populate-mu-type-offsets-in-inouts</a> *(ebp+0xc)) +<span id="L25462" class="LineNr">25462 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25463" class="LineNr">25463 </span> 50/push-eax +<span id="L25464" class="LineNr">25464 </span> 51/push-ecx +<span id="L25465" class="LineNr">25465 </span> 52/push-edx +<span id="L25466" class="LineNr">25466 </span> <span class="subxComment"># initialize some global state</span> +<span id="L25467" class="LineNr">25467 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 1/imm32 <span class="subxComment"># Important: keep this in sync with the parse phase</span> +<span id="L25468" class="LineNr">25468 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L25421'>Curr-local-stack-offset</a></span> 0/imm32 +<span id="L25469" class="LineNr">25469 </span> <span class="subxComment"># ecx = f</span> +<span id="L25470" class="LineNr">25470 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L25471" class="LineNr">25471 </span> <span class="subxComment"># var vars/edx: (stack (addr var) 256)</span> +<span id="L25472" class="LineNr">25472 </span> 81 5/subop/subtract %esp 0xc00/imm32 +<span id="L25473" class="LineNr">25473 </span> 68/push 0xc00/imm32/size +<span id="L25474" class="LineNr">25474 </span> 68/push 0/imm32/top +<span id="L25475" class="LineNr">25475 </span> 89/<- %edx 4/r32/esp +<span id="L25476" class="LineNr">25476 </span> <span class="subxComment"># var name/eax: (addr array byte) = lookup(f->name)</span> +<span id="L25477" class="LineNr">25477 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25478" class="LineNr">25478 </span> <span class="subxComment">#</span> +<span id="L25479" class="LineNr">25479 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L25480" class="LineNr">25480 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":\n"</span>) +<span id="L25481" class="LineNr">25481 </span> (<a href='mu.subx.html#L36665'>emit-subx-prologue</a> *(ebp+8)) +<span id="L25482" class="LineNr">25482 </span> <span class="subxComment"># var body/eax: (addr block) = lookup(f->body)</span> +<span id="L25483" class="LineNr">25483 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> +<span id="L25484" class="LineNr">25484 </span> <span class="subxComment">#</span> +<span id="L25485" class="LineNr">25485 </span> (<a href='mu.subx.html#L28479'>emit-subx-block</a> *(ebp+8) %eax %edx *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L25486" class="LineNr">25486 </span> (<a href='mu.subx.html#L36679'>emit-subx-epilogue</a> *(ebp+8)) +<span id="L25487" class="LineNr">25487 </span> <span class="subxComment"># TODO: validate that *Curr-block-depth and *Curr-local-stack-offset have</span> +<span id="L25488" class="LineNr">25488 </span> <span class="subxComment"># been cleaned up</span> +<span id="L25489" class="LineNr">25489 </span><span class="Constant">$emit-subx-function:end</span>: +<span id="L25490" class="LineNr">25490 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L25491" class="LineNr">25491 </span> 81 0/subop/add %esp 0xc08/imm32 +<span id="L25492" class="LineNr">25492 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25493" class="LineNr">25493 </span> 5a/pop-to-edx +<span id="L25494" class="LineNr">25494 </span> 59/pop-to-ecx +<span id="L25495" class="LineNr">25495 </span> 58/pop-to-eax +<span id="L25496" class="LineNr">25496 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25497" class="LineNr">25497 </span> 89/<- %esp 5/r32/ebp +<span id="L25498" class="LineNr">25498 </span> 5d/pop-to-ebp +<span id="L25499" class="LineNr">25499 </span> c3/return +<span id="L25500" class="LineNr">25500 </span> +<span id="L25501" class="LineNr">25501 </span><span class="subxFunction">populate-mu-type-offsets-in-inouts</span>: <span class="subxComment"># f: (addr function)</span> +<span id="L25502" class="LineNr">25502 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25503" class="LineNr">25503 </span> 55/push-ebp +<span id="L25504" class="LineNr">25504 </span> 89/<- %ebp 4/r32/esp +<span id="L25505" class="LineNr">25505 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25506" class="LineNr">25506 </span> 50/push-eax +<span id="L25507" class="LineNr">25507 </span> 51/push-ecx +<span id="L25508" class="LineNr">25508 </span> 52/push-edx +<span id="L25509" class="LineNr">25509 </span> 53/push-ebx +<span id="L25510" class="LineNr">25510 </span> 57/push-edi +<span id="L25511" class="LineNr">25511 </span> <span class="subxComment"># var next-offset/edx: int = 8</span> +<span id="L25512" class="LineNr">25512 </span> ba/copy-to-edx 8/imm32 +<span id="L25513" class="LineNr">25513 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(f->inouts)</span> +<span id="L25514" class="LineNr">25514 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L25515" class="LineNr">25515 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L25516" class="LineNr">25516 </span> 89/<- %ecx 0/r32/eax +<span id="L25517" class="LineNr">25517 </span> { +<span id="L25518" class="LineNr">25518 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:loop</span>: +<span id="L25519" class="LineNr">25519 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L25520" class="LineNr">25520 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25521" class="LineNr">25521 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(curr->value)</span> +<span id="L25522" class="LineNr">25522 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L25523" class="LineNr">25523 </span> 89/<- %ebx 0/r32/eax +<span id="L25524" class="LineNr">25524 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4))</span> +<span id="L25525" class="LineNr">25525 </span><span class="CommentedCode">#? (write-buffered Stderr "setting offset of fn inout ")</span> +<span id="L25526" class="LineNr">25526 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L25527" class="LineNr">25527 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> +<span id="L25528" class="LineNr">25528 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L25529" class="LineNr">25529 </span><span class="CommentedCode">#? (write-buffered Stderr " to ")</span> +<span id="L25530" class="LineNr">25530 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edx)</span> +<span id="L25531" class="LineNr">25531 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L25532" class="LineNr">25532 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L25533" class="LineNr">25533 </span> <span class="subxComment"># v->offset = next-offset</span> +<span id="L25534" class="LineNr">25534 </span> 89/<- *(ebx+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> +<span id="L25535" class="LineNr">25535 </span> <span class="subxComment"># next-offset += size-of(v)</span> +<span id="L25536" class="LineNr">25536 </span> (<a href='mu.subx.html#L25018'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L25537" class="LineNr">25537 </span> 01/add-to %edx 0/r32/eax +<span id="L25538" class="LineNr">25538 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L25539" class="LineNr">25539 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L25540" class="LineNr">25540 </span> 89/<- %ecx 0/r32/eax +<span id="L25541" class="LineNr">25541 </span> <span class="subxComment">#</span> +<span id="L25542" class="LineNr">25542 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L25543" class="LineNr">25543 </span> } +<span id="L25544" class="LineNr">25544 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:end</span>: +<span id="L25545" class="LineNr">25545 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25546" class="LineNr">25546 </span> 5f/pop-to-edi +<span id="L25547" class="LineNr">25547 </span> 5b/pop-to-ebx +<span id="L25548" class="LineNr">25548 </span> 5a/pop-to-edx +<span id="L25549" class="LineNr">25549 </span> 59/pop-to-ecx +<span id="L25550" class="LineNr">25550 </span> 58/pop-to-eax +<span id="L25551" class="LineNr">25551 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25552" class="LineNr">25552 </span> 89/<- %esp 5/r32/ebp +<span id="L25553" class="LineNr">25553 </span> 5d/pop-to-ebp +<span id="L25554" class="LineNr">25554 </span> c3/return +<span id="L25555" class="LineNr">25555 </span> +<span id="L25556" class="LineNr">25556 </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="L25557" class="LineNr">25557 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25558" class="LineNr">25558 </span> 55/push-ebp +<span id="L25559" class="LineNr">25559 </span> 89/<- %ebp 4/r32/esp +<span id="L25560" class="LineNr">25560 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25561" class="LineNr">25561 </span> 50/push-eax +<span id="L25562" class="LineNr">25562 </span> 51/push-ecx +<span id="L25563" class="LineNr">25563 </span> 53/push-ebx +<span id="L25564" class="LineNr">25564 </span> 56/push-esi +<span id="L25565" class="LineNr">25565 </span> <span class="subxComment"># esi = stmts</span> +<span id="L25566" class="LineNr">25566 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L25567" class="LineNr">25567 </span> <span class="subxComment">#</span> +<span id="L25568" class="LineNr">25568 </span> { +<span id="L25569" class="LineNr">25569 </span><span class="Constant">$emit-subx-stmt-list:loop</span>: +<span id="L25570" class="LineNr">25570 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L25571" class="LineNr">25571 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L25572" class="LineNr">25572 </span> <span class="subxComment"># var curr-stmt/ecx: (addr stmt) = lookup(stmts->value)</span> +<span id="L25573" class="LineNr">25573 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L25574" class="LineNr">25574 </span> 89/<- %ecx 0/r32/eax +<span id="L25575" class="LineNr">25575 </span> { +<span id="L25576" class="LineNr">25576 </span><span class="Constant">$emit-subx-stmt-list:check-for-block</span>: +<span id="L25577" class="LineNr">25577 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L25578" class="LineNr">25578 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25579" class="LineNr">25579 </span><span class="Constant">$emit-subx-stmt-list:block</span>: +<span id="L25580" class="LineNr">25580 </span> (<a href='mu.subx.html#L28479'>emit-subx-block</a> *(ebp+8) %ecx *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L25581" class="LineNr">25581 </span> } +<span id="L25582" class="LineNr">25582 </span> { +<span id="L25583" class="LineNr">25583 </span><span class="Constant">$emit-subx-stmt-list:check-for-stmt</span>: +<span id="L25584" class="LineNr">25584 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L25585" class="LineNr">25585 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L25586" class="LineNr">25586 </span><span class="Constant">$emit-subx-stmt-list:stmt1</span>: +<span id="L25587" class="LineNr">25587 </span> { +<span id="L25588" class="LineNr">25588 </span> (<a href='mu.subx.html#L25977'>is-mu-branch?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25589" class="LineNr">25589 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25590" class="LineNr">25590 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L25591" class="LineNr">25591 </span><span class="Constant">$emit-subx-stmt-list:branch-stmt</span>: +<span id="L25592" class="Folded">25592 </span><span class="Folded">+-- 25 lines: # unconditional return --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25617" class="Folded">25617 </span><span class="Folded">+-- 27 lines: # unconditional loops ---------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25644" class="Folded">25644 </span><span class="Folded">+-- 16 lines: # unconditional breaks --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25660" class="Folded">25660 </span><span class="Folded">+-- 38 lines: # simple conditional branches without a target --------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25698" class="Folded">25698 </span><span class="Folded">+-- 19 lines: # conditional branches with an explicit target --------------------------------------------------------------------------------------------------------------------------</span> +<span id="L25717" class="LineNr">25717 </span> } +<span id="L25718" class="LineNr">25718 </span><span class="Constant">$emit-subx-stmt-list:1-to-1</span>: +<span id="L25719" class="LineNr">25719 </span> (<a href='mu.subx.html#L27027'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L28586'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L25720" class="LineNr">25720 </span> e9/jump $emit-subx-stmt-list:continue/disp32 +<span id="L25721" class="LineNr">25721 </span> } +<span id="L25722" class="LineNr">25722 </span> { +<span id="L25723" class="LineNr">25723 </span><span class="Constant">$emit-subx-stmt-list:check-for-var-def</span>: +<span id="L25724" class="LineNr">25724 </span> 81 7/subop/compare *ecx 2/imm32/var-def <span class="subxComment"># Stmt-tag</span> +<span id="L25725" class="LineNr">25725 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25726" class="LineNr">25726 </span><span class="Constant">$emit-subx-stmt-list:var-def</span>: +<span id="L25727" class="LineNr">25727 </span> (<a href='mu.subx.html#L26933'>emit-subx-var-def</a> *(ebp+8) %ecx) +<span id="L25728" class="LineNr">25728 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) <span class="subxComment"># Vardef-var</span> +<span id="L25729" class="LineNr">25729 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+8)) <span class="subxComment"># Vardef-var</span> +<span id="L25730" class="LineNr">25730 </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="L25731" class="LineNr">25731 </span> <span class="subxComment">#</span> +<span id="L25732" class="LineNr">25732 </span> eb/jump $emit-subx-stmt-list:continue/disp8 +<span id="L25733" class="LineNr">25733 </span> } +<span id="L25734" class="LineNr">25734 </span> { +<span id="L25735" class="LineNr">25735 </span><span class="Constant">$emit-subx-stmt-list:check-for-reg-var-def</span>: +<span id="L25736" class="LineNr">25736 </span> 81 7/subop/compare *ecx 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> +<span id="L25737" class="LineNr">25737 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L25738" class="LineNr">25738 </span><span class="Constant">$emit-subx-stmt-list:reg-var-def</span>: +<span id="L25739" class="LineNr">25739 </span> <span class="subxComment"># TODO: ensure that there's exactly one output</span> +<span id="L25740" class="LineNr">25740 </span> (<a href='mu.subx.html#L25769'>push-output-and-maybe-emit-spill</a> *(ebp+8) %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L25741" class="LineNr">25741 </span> <span class="subxComment"># emit the instruction as usual</span> +<span id="L25742" class="LineNr">25742 </span> (<a href='mu.subx.html#L27027'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L28586'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L25743" class="LineNr">25743 </span> <span class="subxComment">#</span> +<span id="L25744" class="LineNr">25744 </span> eb/jump $emit-subx-stmt-list:continue/disp8 +<span id="L25745" class="LineNr">25745 </span> } +<span id="L25746" class="LineNr">25746 </span><span class="Constant">$emit-subx-stmt-list:continue</span>: +<span id="L25747" class="LineNr">25747 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> +<span id="L25748" class="LineNr">25748 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L25749" class="LineNr">25749 </span> 89/<- %esi 0/r32/eax +<span id="L25750" class="LineNr">25750 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L25751" class="LineNr">25751 </span> } +<span id="L25752" class="LineNr">25752 </span><span class="Constant">$emit-subx-stmt-list:emit-cleanup</span>: +<span id="L25753" class="LineNr">25753 </span> (<a href='mu.subx.html#L26139'>emit-cleanup-code-until-depth</a> *(ebp+8) *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L25754" class="LineNr">25754 </span><span class="Constant">$emit-subx-stmt-list:clean-up</span>: +<span id="L25755" class="LineNr">25755 </span> (<a href='mu.subx.html#L26469'>clean-up-stack-offset-state</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L25756" class="LineNr">25756 </span> (<a href='mu.subx.html#L26857'>clean-up-blocks</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> *(ebp+0x14)) +<span id="L25757" class="LineNr">25757 </span><span class="Constant">$emit-subx-stmt-list:end</span>: +<span id="L25758" class="LineNr">25758 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25759" class="LineNr">25759 </span> 5e/pop-to-esi +<span id="L25760" class="LineNr">25760 </span> 5b/pop-to-ebx +<span id="L25761" class="LineNr">25761 </span> 59/pop-to-ecx +<span id="L25762" class="LineNr">25762 </span> 58/pop-to-eax +<span id="L25763" class="LineNr">25763 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25764" class="LineNr">25764 </span> 89/<- %esp 5/r32/ebp +<span id="L25765" class="LineNr">25765 </span> 5d/pop-to-ebp +<span id="L25766" class="LineNr">25766 </span> c3/return +<span id="L25767" class="LineNr">25767 </span> +<span id="L25768" class="LineNr">25768 </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="L25769" class="LineNr">25769 </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="L25770" class="LineNr">25770 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25771" class="LineNr">25771 </span> 55/push-ebp +<span id="L25772" class="LineNr">25772 </span> 89/<- %ebp 4/r32/esp +<span id="L25773" class="LineNr">25773 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25774" class="LineNr">25774 </span> 50/push-eax +<span id="L25775" class="LineNr">25775 </span> 51/push-ecx +<span id="L25776" class="LineNr">25776 </span> 52/push-edx +<span id="L25777" class="LineNr">25777 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L25778" class="LineNr">25778 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L25779" class="LineNr">25779 </span> <span class="subxComment"># var sv/eax: (addr stmt-var) = lookup(curr-stmt->outputs)</span> +<span id="L25780" class="LineNr">25780 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L25781" class="LineNr">25781 </span> <span class="subxComment"># TODO: assert !sv->is-deref?</span> +<span id="L25782" class="LineNr">25782 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(sv->value)</span> +<span id="L25783" class="LineNr">25783 </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="L25784" class="LineNr">25784 </span> 89/<- %ecx 0/r32/eax +<span id="L25785" class="LineNr">25785 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L25786" class="LineNr">25786 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/r32/eax +<span id="L25787" class="LineNr">25787 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L25788" class="LineNr">25788 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L25789" class="LineNr">25789 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4))</span> +<span id="L25790" class="LineNr">25790 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L25791" class="LineNr">25791 </span><span class="CommentedCode">#? (write-buffered Stderr " at depth ")</span> +<span id="L25792" class="LineNr">25792 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+0x10))</span> +<span id="L25793" class="LineNr">25793 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L25794" class="LineNr">25794 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L25795" class="LineNr">25795 </span> <span class="subxComment"># ensure that v is in a register</span> +<span id="L25796" class="LineNr">25796 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L25797" class="LineNr">25797 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:abort/disp32 +<span id="L25798" class="LineNr">25798 </span> <span class="subxComment"># var emit-spill?/edx: boolean = not-yet-spilled-this-block? && will-not-write-some-register?(fn)</span> +<span id="L25799" class="LineNr">25799 </span> (<a href='mu.subx.html#L26541'>not-yet-spilled-this-block?</a> %ecx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L25800" class="LineNr">25800 </span> 89/<- %edx 0/r32/eax +<span id="L25801" class="LineNr">25801 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25802" class="LineNr">25802 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a>/disp32 +<span id="L25803" class="LineNr">25803 </span> (<a href='mu.subx.html#L26614'>will-not-write-some-register?</a> %ecx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L25804" class="LineNr">25804 </span> 89/<- %edx 0/r32/eax +<span id="L25805" class="LineNr">25805 </span> <span class="subxComment"># check emit-spill?</span> +<span id="L25806" class="LineNr">25806 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25807" class="LineNr">25807 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a>/disp32 +<span id="L25808" class="LineNr">25808 </span> <span class="subxComment"># TODO: assert(size-of(output) == 4)</span> +<span id="L25809" class="LineNr">25809 </span> <span class="subxComment"># *Curr-local-stack-offset -= 4</span> +<span id="L25810" class="LineNr">25810 </span> 81 5/subop/subtract *<span class="SpecialChar"><a href='mu.subx.html#L25421'>Curr-local-stack-offset</a></span> 4/imm32 +<span id="L25811" class="LineNr">25811 </span> <span class="subxComment"># emit spill</span> +<span id="L25812" class="LineNr">25812 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L25813" class="LineNr">25813 </span> (<a href='mu.subx.html#L26312'>emit-push-register</a> *(ebp+8) %eax) +<span id="L25814" class="LineNr">25814 </span><span class="Constant">$push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a></span>: +<span id="L25815" class="LineNr">25815 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L25816" class="LineNr">25816 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L25817" class="LineNr">25817 </span> <span class="subxComment"># push(vars, {sv->value, emit-spill?})</span> +<span id="L25818" class="LineNr">25818 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *eax) <span class="subxComment"># Stmt-var-value</span> +<span id="L25819" class="LineNr">25819 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(eax+4)) <span class="subxComment"># Stmt-var-value</span> +<span id="L25820" class="LineNr">25820 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) %edx) +<span id="L25821" class="LineNr">25821 </span><span class="Constant">$push-output-and-maybe-emit-spill:end</span>: +<span id="L25822" class="LineNr">25822 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25823" class="LineNr">25823 </span> 5a/pop-to-edx +<span id="L25824" class="LineNr">25824 </span> 59/pop-to-ecx +<span id="L25825" class="LineNr">25825 </span> 58/pop-to-eax +<span id="L25826" class="LineNr">25826 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25827" class="LineNr">25827 </span> 89/<- %esp 5/r32/ebp +<span id="L25828" class="LineNr">25828 </span> 5d/pop-to-ebp +<span id="L25829" class="LineNr">25829 </span> c3/return +<span id="L25830" class="LineNr">25830 </span> +<span id="L25831" class="LineNr">25831 </span><span class="Constant">$push-output-and-maybe-emit-spill:abort</span>: +<span id="L25832" class="LineNr">25832 </span> <span class="subxComment"># error("var '" var->name "' initialized from an instruction must live in a register\n")</span> +<span id="L25833" class="LineNr">25833 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) <span class="Constant">"var '"</span>) +<span id="L25834" class="LineNr">25834 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) *eax) <span class="subxComment"># Var-name</span> +<span id="L25835" class="LineNr">25835 </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="L25836" class="LineNr">25836 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x1c)) +<span id="L25837" class="LineNr">25837 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x20) 1) +<span id="L25838" class="LineNr">25838 </span> <span class="subxComment"># never gets here</span> +<span id="L25839" class="LineNr">25839 </span> +<span id="L25840" class="LineNr">25840 </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="L25841" class="LineNr">25841 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25842" class="LineNr">25842 </span> 55/push-ebp +<span id="L25843" class="LineNr">25843 </span> 89/<- %ebp 4/r32/esp +<span id="L25844" class="LineNr">25844 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25845" class="LineNr">25845 </span> 50/push-eax +<span id="L25846" class="LineNr">25846 </span> 51/push-ecx +<span id="L25847" class="LineNr">25847 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L25848" class="LineNr">25848 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L25849" class="LineNr">25849 </span> <span class="subxComment"># var target/eax: (addr array byte) = curr-stmt->inouts->value->name</span> +<span id="L25850" class="LineNr">25850 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25851" class="LineNr">25851 </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="L25852" class="LineNr">25852 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25853" class="LineNr">25853 </span> <span class="subxComment"># clean up until target block</span> +<span id="L25854" class="LineNr">25854 </span> (<a href='mu.subx.html#L26392'>emit-cleanup-code-until-target</a> *(ebp+8) *(ebp+0x10) %eax) +<span id="L25855" class="LineNr">25855 </span> <span class="subxComment"># emit jump to target block</span> +<span id="L25856" class="LineNr">25856 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L25857" class="LineNr">25857 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) +<span id="L25858" class="LineNr">25858 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L25859" class="LineNr">25859 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L25860" class="LineNr">25860 </span> (<a href='../105string-equal.subx.html#L57'>string-starts-with?</a> %eax <span class="Constant">"break"</span>) +<span id="L25861" class="LineNr">25861 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25862" class="LineNr">25862 </span> { +<span id="L25863" class="LineNr">25863 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25864" class="LineNr">25864 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break/disp32\n"</span>) +<span id="L25865" class="LineNr">25865 </span> eb/jump $emit-subx-cleanup-and-unconditional-nonlocal-branch:end/disp8 +<span id="L25866" class="LineNr">25866 </span> } +<span id="L25867" class="LineNr">25867 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop/disp32\n"</span>) +<span id="L25868" class="LineNr">25868 </span><span class="Constant">$emit-subx-cleanup-and-unconditional-nonlocal-branch:end</span>: +<span id="L25869" class="LineNr">25869 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25870" class="LineNr">25870 </span> 59/pop-to-ecx +<span id="L25871" class="LineNr">25871 </span> 58/pop-to-eax +<span id="L25872" class="LineNr">25872 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25873" class="LineNr">25873 </span> 89/<- %esp 5/r32/ebp +<span id="L25874" class="LineNr">25874 </span> 5d/pop-to-ebp +<span id="L25875" class="LineNr">25875 </span> c3/return +<span id="L25876" class="LineNr">25876 </span> +<span id="L25877" class="LineNr">25877 </span><span class="subxFunction">emit-outputs</span>: <span class="subxComment"># out: (addr buffered-file), return-stmt: (addr stmt1), fn: (addr function)</span> +<span id="L25878" class="LineNr">25878 </span> <span class="subxComment"># pseudocode:</span> +<span id="L25879" class="LineNr">25879 </span> <span class="subxComment"># for every inout, output in return-stmt, fn->outputs</span> +<span id="L25880" class="LineNr">25880 </span> <span class="subxComment"># if inout is a literal</span> +<span id="L25881" class="LineNr">25881 </span> <span class="subxComment"># c7 0/subop/copy %output inout/imm32</span> +<span id="L25882" class="LineNr">25882 </span> <span class="subxComment"># otherwise</span> +<span id="L25883" class="LineNr">25883 </span> <span class="subxComment"># 8b/-> inout %output</span> +<span id="L25884" class="LineNr">25884 </span> <span class="subxComment">#</span> +<span id="L25885" class="LineNr">25885 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25886" class="LineNr">25886 </span> 55/push-ebp +<span id="L25887" class="LineNr">25887 </span> 89/<- %ebp 4/r32/esp +<span id="L25888" class="LineNr">25888 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25889" class="LineNr">25889 </span> 50/push-eax +<span id="L25890" class="LineNr">25890 </span> 51/push-ecx +<span id="L25891" class="LineNr">25891 </span> 56/push-esi +<span id="L25892" class="LineNr">25892 </span> 57/push-edi +<span id="L25893" class="LineNr">25893 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-stmt->inouts</span> +<span id="L25894" class="LineNr">25894 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25895" class="LineNr">25895 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25896" class="LineNr">25896 </span> 89/<- %esi 0/r32/eax +<span id="L25897" class="LineNr">25897 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn->outputs</span> +<span id="L25898" class="LineNr">25898 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L25899" class="LineNr">25899 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L25900" class="LineNr">25900 </span> 89/<- %edi 0/r32/eax +<span id="L25901" class="LineNr">25901 </span> { +<span id="L25902" class="LineNr">25902 </span><span class="Constant">$emit-outputs:loop</span>: +<span id="L25903" class="LineNr">25903 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L25904" class="LineNr">25904 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L25905" class="LineNr">25905 </span> <span class="subxComment"># emit copy to output register</span> +<span id="L25906" class="LineNr">25906 </span> <span class="subxComment"># var curr-var/ecx = lookup(curr-inout->value)</span> +<span id="L25907" class="LineNr">25907 </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="L25908" class="LineNr">25908 </span> 89/<- %ecx 0/r32/eax +<span id="L25909" class="LineNr">25909 </span> <span class="subxComment"># if curr-var is a literal, emit copy of a literal to the output</span> +<span id="L25910" class="LineNr">25910 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25911" class="LineNr">25911 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L25912" class="LineNr">25912 </span> { +<span id="L25913" class="LineNr">25913 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25914" class="LineNr">25914 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L25915" class="LineNr">25915 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L25916" class="LineNr">25916 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c7 0/subop/copy %"</span>) +<span id="L25917" class="LineNr">25917 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L25918" class="LineNr">25918 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L25919" class="LineNr">25919 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L25920" class="LineNr">25920 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L25921" class="LineNr">25921 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25922" class="LineNr">25922 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L25923" class="LineNr">25923 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L25924" class="LineNr">25924 </span> e9/jump $emit-outputs:continue/disp32 +<span id="L25925" class="LineNr">25925 </span> } +<span id="L25926" class="LineNr">25926 </span> <span class="subxComment"># if the non-literal is a register starting with "x", emit a floating-point copy</span> +<span id="L25927" class="LineNr">25927 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L25928" class="LineNr">25928 </span> { +<span id="L25929" class="LineNr">25929 </span> 3d/compare-eax-and 0/imm32 +<span id="L25930" class="LineNr">25930 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L25931" class="LineNr">25931 </span> 8a/copy-byte *(eax+4) 0/r32/AL +<span id="L25932" class="LineNr">25932 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L25933" class="LineNr">25933 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L25934" class="LineNr">25934 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L25935" class="LineNr">25935 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L25936" class="LineNr">25936 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/->"</span>) +<span id="L25937" class="LineNr">25937 </span> (<a href='mu.subx.html#L33608'>emit-subx-var-as-rm32</a> *(ebp+8) %esi) +<span id="L25938" class="LineNr">25938 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L25939" class="LineNr">25939 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L25940" class="LineNr">25940 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L25941" class="LineNr">25941 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L18292'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> +<span id="L25942" class="LineNr">25942 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L25943" class="LineNr">25943 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L25944" class="LineNr">25944 </span> e9/jump $emit-outputs:continue/disp32 +<span id="L25945" class="LineNr">25945 </span> } +<span id="L25946" class="LineNr">25946 </span> <span class="subxComment"># otherwise emit an integer copy</span> +<span id="L25947" class="LineNr">25947 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L25948" class="LineNr">25948 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/->"</span>) +<span id="L25949" class="LineNr">25949 </span> (<a href='mu.subx.html#L33608'>emit-subx-var-as-rm32</a> *(ebp+8) %esi) +<span id="L25950" class="LineNr">25950 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L25951" class="LineNr">25951 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L25952" class="LineNr">25952 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L25953" class="LineNr">25953 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L18292'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> +<span id="L25954" class="LineNr">25954 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L25955" class="LineNr">25955 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L25956" class="LineNr">25956 </span><span class="Constant">$emit-outputs:continue</span>: +<span id="L25957" class="LineNr">25957 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> +<span id="L25958" class="LineNr">25958 </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="L25959" class="LineNr">25959 </span> 89/<- %esi 0/r32/eax +<span id="L25960" class="LineNr">25960 </span> <span class="subxComment"># curr-output = curr-output->next</span> +<span id="L25961" class="LineNr">25961 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L25962" class="LineNr">25962 </span> 89/<- %edi 0/r32/eax +<span id="L25963" class="LineNr">25963 </span> <span class="subxComment">#</span> +<span id="L25964" class="LineNr">25964 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L25965" class="LineNr">25965 </span> } +<span id="L25966" class="LineNr">25966 </span><span class="Constant">$emit-outputs:end</span>: +<span id="L25967" class="LineNr">25967 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25968" class="LineNr">25968 </span> 5f/pop-to-edi +<span id="L25969" class="LineNr">25969 </span> 5e/pop-to-esi <span id="L25970" class="LineNr">25970 </span> 59/pop-to-ecx -<span id="L25971" class="LineNr">25971 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25972" class="LineNr">25972 </span> 89/<- %esp 5/r32/ebp -<span id="L25973" class="LineNr">25973 </span> 5d/pop-to-ebp -<span id="L25974" class="LineNr">25974 </span> c3/return -<span id="L25975" class="LineNr">25975 </span> -<span id="L25976" class="LineNr">25976 </span><span class="subxComment"># could the register of 'v' ever be written to by one of the vars in fn-outputs?</span> -<span id="L25977" class="LineNr">25977 </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="L25971" class="LineNr">25971 </span> 58/pop-to-eax +<span id="L25972" class="LineNr">25972 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25973" class="LineNr">25973 </span> 89/<- %esp 5/r32/ebp +<span id="L25974" class="LineNr">25974 </span> 5d/pop-to-ebp +<span id="L25975" class="LineNr">25975 </span> c3/return +<span id="L25976" class="LineNr">25976 </span> +<span id="L25977" class="LineNr">25977 </span><span class="subxFunction">is-mu-branch?</span>: <span class="subxComment"># stmt: (addr stmt1) -> result/eax: boolean</span> <span id="L25978" class="LineNr">25978 </span> <span class="subxS1Comment"># . prologue</span> <span id="L25979" class="LineNr">25979 </span> 55/push-ebp <span id="L25980" class="LineNr">25980 </span> 89/<- %ebp 4/r32/esp -<span id="L25981" class="LineNr">25981 </span> <span class="subxComment"># eax = v</span> -<span id="L25982" class="LineNr">25982 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L25983" class="LineNr">25983 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> -<span id="L25984" class="LineNr">25984 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25985" class="LineNr">25985 </span> <span class="subxComment"># var target/eax: (addr var) = find-register(fn-outputs, reg)</span> -<span id="L25986" class="LineNr">25986 </span> (<a href='mu.subx.html#L26007'>find-register</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> -<span id="L25987" class="LineNr">25987 </span> <span class="subxComment"># if (target == 0) return true</span> -<span id="L25988" class="LineNr">25988 </span> { -<span id="L25989" class="LineNr">25989 </span> 3d/compare-eax-and 0/imm32 -<span id="L25990" class="LineNr">25990 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25991" class="LineNr">25991 </span> b8/copy-to-eax 1/imm32/true -<span id="L25992" class="LineNr">25992 </span> eb/jump $will-not-write-some-register?:end/disp8 -<span id="L25993" class="LineNr">25993 </span> } -<span id="L25994" class="LineNr">25994 </span> <span class="subxComment"># return !assigns-in-stmts?(stmts, target)</span> -<span id="L25995" class="LineNr">25995 </span> (<a href='mu.subx.html#L26049'>assigns-in-stmts?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> -<span id="L25996" class="LineNr">25996 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25997" class="LineNr">25997 </span> <span class="subxComment"># assume: true = 1, so no need to mask with 0x000000ff</span> -<span id="L25998" class="LineNr">25998 </span> 0f 94/set-if-= %al -<span id="L25999" class="LineNr">25999 </span><span class="Constant">$will-not-write-some-register?:end</span>: +<span id="L25981" class="LineNr">25981 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25982" class="LineNr">25982 </span> 51/push-ecx +<span id="L25983" class="LineNr">25983 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> +<span id="L25984" class="LineNr">25984 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L25985" class="LineNr">25985 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L25986" class="LineNr">25986 </span> 89/<- %ecx 0/r32/eax +<span id="L25987" class="LineNr">25987 </span> <span class="subxComment"># if (stmt->operation starts with "loop") return true</span> +<span id="L25988" class="LineNr">25988 </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="L25989" class="LineNr">25989 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25990" class="LineNr">25990 </span> 75/jump-if-not-equal $is-mu-branch?:end/disp8 +<span id="L25991" class="LineNr">25991 </span> <span class="subxComment"># if (stmt->operation starts with "break") return true</span> +<span id="L25992" class="LineNr">25992 </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="L25993" class="LineNr">25993 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25994" class="LineNr">25994 </span> 75/jump-if-not-equal $is-mu-branch?:end/disp8 +<span id="L25995" class="LineNr">25995 </span> <span class="subxComment"># otherwise return (stmt->operation starts with "return")</span> +<span id="L25996" class="LineNr">25996 </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="L25997" class="LineNr">25997 </span><span class="Constant">$is-mu-branch?:end</span>: +<span id="L25998" class="LineNr">25998 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25999" class="LineNr">25999 </span> 59/pop-to-ecx <span id="L26000" class="LineNr">26000 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L26001" class="LineNr">26001 </span> 89/<- %esp 5/r32/ebp <span id="L26002" class="LineNr">26002 </span> 5d/pop-to-ebp <span id="L26003" class="LineNr">26003 </span> c3/return <span id="L26004" class="LineNr">26004 </span> -<span id="L26005" class="LineNr">26005 </span><span class="subxComment"># return fn output with matching register</span> -<span id="L26006" class="LineNr">26006 </span><span class="subxComment"># always returns false if 'reg' is null</span> -<span id="L26007" class="LineNr">26007 </span><span class="subxFunction">find-register</span>: <span class="subxComment"># fn: (addr function), reg: (addr array byte) -> result/eax: (addr var)</span> -<span id="L26008" class="LineNr">26008 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26009" class="LineNr">26009 </span> 55/push-ebp -<span id="L26010" class="LineNr">26010 </span> 89/<- %ebp 4/r32/esp -<span id="L26011" class="LineNr">26011 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26012" class="LineNr">26012 </span> 51/push-ecx -<span id="L26013" class="LineNr">26013 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> -<span id="L26014" class="LineNr">26014 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26015" class="LineNr">26015 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L26016" class="LineNr">26016 </span> 89/<- %ecx 0/r32/eax -<span id="L26017" class="LineNr">26017 </span> { -<span id="L26018" class="LineNr">26018 </span><span class="Constant">$find-register:loop</span>: -<span id="L26019" class="LineNr">26019 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L26020" class="LineNr">26020 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26021" class="LineNr">26021 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26022" class="LineNr">26022 </span> <span class="subxComment"># eax = curr->value->register</span> -<span id="L26023" class="LineNr">26023 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L26024" class="LineNr">26024 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26025" class="LineNr">26025 </span> <span class="subxComment"># if (eax == reg) return curr->value</span> -<span id="L26026" class="LineNr">26026 </span><span class="Constant">$find-register:compare</span>: -<span id="L26027" class="LineNr">26027 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> -<span id="L26028" class="LineNr">26028 </span> { -<span id="L26029" class="LineNr">26029 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26030" class="LineNr">26030 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26031" class="LineNr">26031 </span><span class="Constant">$find-register:found</span>: -<span id="L26032" class="LineNr">26032 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L26033" class="LineNr">26033 </span> eb/jump $find-register:end/disp8 -<span id="L26034" class="LineNr">26034 </span> } -<span id="L26035" class="LineNr">26035 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L26036" class="LineNr">26036 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L26037" class="LineNr">26037 </span> 89/<- %ecx 0/r32/eax -<span id="L26038" class="LineNr">26038 </span> <span class="subxComment">#</span> -<span id="L26039" class="LineNr">26039 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L26040" class="LineNr">26040 </span> } -<span id="L26041" class="LineNr">26041 </span><span class="Constant">$find-register:end</span>: -<span id="L26042" class="LineNr">26042 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26043" class="LineNr">26043 </span> 59/pop-to-ecx -<span id="L26044" class="LineNr">26044 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26045" class="LineNr">26045 </span> 89/<- %esp 5/r32/ebp -<span id="L26046" class="LineNr">26046 </span> 5d/pop-to-ebp -<span id="L26047" class="LineNr">26047 </span> c3/return -<span id="L26048" class="LineNr">26048 </span> -<span id="L26049" class="LineNr">26049 </span><span class="subxFunction">assigns-in-stmts?</span>: <span class="subxComment"># stmts: (addr list stmt), v: (addr var) -> result/eax: boolean</span> -<span id="L26050" class="LineNr">26050 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26051" class="LineNr">26051 </span> 55/push-ebp -<span id="L26052" class="LineNr">26052 </span> 89/<- %ebp 4/r32/esp -<span id="L26053" class="LineNr">26053 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26054" class="LineNr">26054 </span> 51/push-ecx -<span id="L26055" class="LineNr">26055 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = stmts</span> -<span id="L26056" class="LineNr">26056 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26057" class="LineNr">26057 </span> { -<span id="L26058" class="LineNr">26058 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L26059" class="LineNr">26059 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26060" class="LineNr">26060 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26061" class="LineNr">26061 </span> <span class="subxComment"># if assigns-in-stmt?(curr->value, v) return true</span> -<span id="L26062" class="LineNr">26062 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L26063" class="LineNr">26063 </span> (<a href='mu.subx.html#L26080'>assigns-in-stmt?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L26064" class="LineNr">26064 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26065" class="LineNr">26065 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26066" class="LineNr">26066 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L26067" class="LineNr">26067 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L26068" class="LineNr">26068 </span> 89/<- %ecx 0/r32/eax -<span id="L26069" class="LineNr">26069 </span> <span class="subxComment">#</span> -<span id="L26070" class="LineNr">26070 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L26071" class="LineNr">26071 </span> } -<span id="L26072" class="LineNr">26072 </span><span class="Constant">$assigns-in-stmts?:end</span>: -<span id="L26073" class="LineNr">26073 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26074" class="LineNr">26074 </span> 59/pop-to-ecx -<span id="L26075" class="LineNr">26075 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26076" class="LineNr">26076 </span> 89/<- %esp 5/r32/ebp -<span id="L26077" class="LineNr">26077 </span> 5d/pop-to-ebp -<span id="L26078" class="LineNr">26078 </span> c3/return -<span id="L26079" class="LineNr">26079 </span> -<span id="L26080" class="LineNr">26080 </span><span class="subxFunction">assigns-in-stmt?</span>: <span class="subxComment"># stmt: (addr stmt), v: (addr var) -> result/eax: boolean</span> -<span id="L26081" class="LineNr">26081 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26082" class="LineNr">26082 </span> 55/push-ebp -<span id="L26083" class="LineNr">26083 </span> 89/<- %ebp 4/r32/esp -<span id="L26084" class="LineNr">26084 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26085" class="LineNr">26085 </span> 51/push-ecx -<span id="L26086" class="LineNr">26086 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L26087" class="LineNr">26087 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26088" class="LineNr">26088 </span> <span class="subxComment"># if stmt is a stmt1, return assigns-in-stmt-vars?(stmt->outputs, v)</span> -<span id="L26089" class="LineNr">26089 </span> { -<span id="L26090" class="LineNr">26090 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L26091" class="LineNr">26091 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26092" class="LineNr">26092 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L26093" class="LineNr">26093 </span> (<a href='mu.subx.html#L26114'>assigns-in-stmt-vars?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L26094" class="LineNr">26094 </span> eb/jump $assigns-in-stmt?:end/disp8 -<span id="L26095" class="LineNr">26095 </span> } -<span id="L26096" class="LineNr">26096 </span> <span class="subxComment"># if stmt is a block, return assigns-in-stmts?(stmt->stmts, v)</span> -<span id="L26097" class="LineNr">26097 </span> { -<span id="L26098" class="LineNr">26098 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L26099" class="LineNr">26099 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26100" class="LineNr">26100 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L26101" class="LineNr">26101 </span> (<a href='mu.subx.html#L26049'>assigns-in-stmts?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L26102" class="LineNr">26102 </span> eb/jump $assigns-in-stmt?:end/disp8 -<span id="L26103" class="LineNr">26103 </span> } -<span id="L26104" class="LineNr">26104 </span> <span class="subxComment"># otherwise return false</span> -<span id="L26105" class="LineNr">26105 </span> b8/copy 0/imm32/false -<span id="L26106" class="LineNr">26106 </span><span class="Constant">$assigns-in-stmt?:end</span>: -<span id="L26107" class="LineNr">26107 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26108" class="LineNr">26108 </span> 59/pop-to-ecx -<span id="L26109" class="LineNr">26109 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26110" class="LineNr">26110 </span> 89/<- %esp 5/r32/ebp -<span id="L26111" class="LineNr">26111 </span> 5d/pop-to-ebp -<span id="L26112" class="LineNr">26112 </span> c3/return -<span id="L26113" class="LineNr">26113 </span> -<span id="L26114" class="LineNr">26114 </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="L26115" class="LineNr">26115 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26116" class="LineNr">26116 </span> 55/push-ebp -<span id="L26117" class="LineNr">26117 </span> 89/<- %ebp 4/r32/esp -<span id="L26118" class="LineNr">26118 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26119" class="LineNr">26119 </span> 51/push-ecx -<span id="L26120" class="LineNr">26120 </span> <span class="subxComment"># var curr/ecx: (addr stmt-var) = stmt-var</span> -<span id="L26121" class="LineNr">26121 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26122" class="LineNr">26122 </span> { -<span id="L26123" class="LineNr">26123 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L26124" class="LineNr">26124 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26125" class="LineNr">26125 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26126" class="LineNr">26126 </span> <span class="subxComment"># eax = lookup(curr->value)</span> -<span id="L26127" class="LineNr">26127 </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="L26128" class="LineNr">26128 </span> <span class="subxComment"># if (eax == v && curr->is-deref? == false) return true</span> -<span id="L26129" class="LineNr">26129 </span> { -<span id="L26130" class="LineNr">26130 </span> 39/compare *(ebp+0xc) 0/r32/eax -<span id="L26131" class="LineNr">26131 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26132" class="LineNr">26132 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L26133" class="LineNr">26133 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26134" class="LineNr">26134 </span> b8/copy-to-eax 1/imm32/true -<span id="L26135" class="LineNr">26135 </span> eb/jump $assigns-in-stmt-vars?:end/disp8 -<span id="L26136" class="LineNr">26136 </span> } -<span id="L26137" class="LineNr">26137 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L26138" class="LineNr">26138 </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="L26139" class="LineNr">26139 </span> 89/<- %ecx 0/r32/eax -<span id="L26140" class="LineNr">26140 </span> <span class="subxComment">#</span> -<span id="L26141" class="LineNr">26141 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L26142" class="LineNr">26142 </span> } -<span id="L26143" class="LineNr">26143 </span><span class="Constant">$assigns-in-stmt-vars?:end</span>: -<span id="L26144" class="LineNr">26144 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26145" class="LineNr">26145 </span> 59/pop-to-ecx -<span id="L26146" class="LineNr">26146 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26147" class="LineNr">26147 </span> 89/<- %esp 5/r32/ebp -<span id="L26148" class="LineNr">26148 </span> 5d/pop-to-ebp -<span id="L26149" class="LineNr">26149 </span> c3/return -<span id="L26150" class="LineNr">26150 </span> -<span id="L26151" class="LineNr">26151 </span><span class="subxComment"># is there a var before 'v' with the same block-depth and register on the 'vars' stack?</span> -<span id="L26152" class="LineNr">26152 </span><span class="subxComment"># v is guaranteed to be within vars</span> -<span id="L26153" class="LineNr">26153 </span><span class="subxComment"># 'start' is provided as an optimization, a pointer within vars</span> -<span id="L26154" class="LineNr">26154 </span><span class="subxComment"># *start == v</span> -<span id="L26155" class="LineNr">26155 </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="L26156" class="LineNr">26156 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26157" class="LineNr">26157 </span> 55/push-ebp -<span id="L26158" class="LineNr">26158 </span> 89/<- %ebp 4/r32/esp -<span id="L26159" class="LineNr">26159 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26160" class="LineNr">26160 </span> 51/push-ecx -<span id="L26161" class="LineNr">26161 </span> 52/push-edx -<span id="L26162" class="LineNr">26162 </span> 53/push-ebx -<span id="L26163" class="LineNr">26163 </span> 56/push-esi -<span id="L26164" class="LineNr">26164 </span> 57/push-edi -<span id="L26165" class="LineNr">26165 </span> <span class="subxComment"># ecx = v</span> -<span id="L26166" class="LineNr">26166 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26167" class="LineNr">26167 </span> <span class="subxComment"># var reg/edx: (addr array byte) = lookup(v->register)</span> -<span id="L26168" class="LineNr">26168 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26169" class="LineNr">26169 </span> 89/<- %edx 0/r32/eax -<span id="L26170" class="LineNr">26170 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> -<span id="L26171" class="LineNr">26171 </span> 8b/-> *(ecx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L26172" class="LineNr">26172 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L26173" class="LineNr">26173 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L26174" class="LineNr">26174 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L26175" class="LineNr">26175 </span> <span class="subxComment"># TODO: check that start >= min and start < &vars->data[top]</span> -<span id="L26176" class="LineNr">26176 </span> <span class="subxComment"># TODO: check that *start == v</span> -<span id="L26177" class="LineNr">26177 </span> <span class="subxComment"># var curr/esi: (addr handle var) = start</span> -<span id="L26178" class="LineNr">26178 </span> 8b/-> *(ebp+0x10) 6/r32/esi -<span id="L26179" class="LineNr">26179 </span> <span class="subxComment"># curr -= 8</span> -<span id="L26180" class="LineNr">26180 </span> 81 5/subop/subtract %esi 8/imm32 -<span id="L26181" class="LineNr">26181 </span> { -<span id="L26182" class="LineNr">26182 </span><span class="Constant">$same-register-spilled-before?:loop</span>: -<span id="L26183" class="LineNr">26183 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L26184" class="LineNr">26184 </span> 39/compare %esi 1/r32/ecx -<span id="L26185" class="LineNr">26185 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L26186" class="LineNr">26186 </span> <span class="subxComment"># var x/eax: (addr var) = lookup(*curr)</span> -<span id="L26187" class="LineNr">26187 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L26188" class="LineNr">26188 </span> <span class="subxComment"># if (x->block-depth < depth) break</span> -<span id="L26189" class="LineNr">26189 </span> 39/compare *(eax+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L26190" class="LineNr">26190 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L26191" class="LineNr">26191 </span> <span class="subxComment"># if (x->register == 0) continue</span> -<span id="L26192" class="LineNr">26192 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L26193" class="LineNr">26193 </span> 74/jump-if-= $same-register-spilled-before?:continue/disp8 -<span id="L26194" class="LineNr">26194 </span> <span class="subxComment"># if (x->register == reg) return true</span> -<span id="L26195" class="LineNr">26195 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26196" class="LineNr">26196 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %edx) <span class="subxComment"># => eax</span> -<span id="L26197" class="LineNr">26197 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26198" class="LineNr">26198 </span> b8/copy-to-eax 1/imm32/true -<span id="L26199" class="LineNr">26199 </span> 75/jump-if-!= $same-register-spilled-before?:end/disp8 -<span id="L26200" class="LineNr">26200 </span><span class="Constant">$same-register-spilled-before?:continue</span>: -<span id="L26201" class="LineNr">26201 </span> <span class="subxComment"># curr -= 8</span> -<span id="L26202" class="LineNr">26202 </span> 81 5/subop/subtract %esi 8/imm32 -<span id="L26203" class="LineNr">26203 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L26204" class="LineNr">26204 </span> } -<span id="L26205" class="LineNr">26205 </span><span class="Constant">$same-register-spilled-before?:false</span>: -<span id="L26206" class="LineNr">26206 </span> b8/copy-to-eax 0/imm32/false -<span id="L26207" class="LineNr">26207 </span><span class="Constant">$same-register-spilled-before?:end</span>: -<span id="L26208" class="LineNr">26208 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26209" class="LineNr">26209 </span> 5f/pop-to-edi -<span id="L26210" class="LineNr">26210 </span> 5e/pop-to-esi -<span id="L26211" class="LineNr">26211 </span> 5b/pop-to-ebx -<span id="L26212" class="LineNr">26212 </span> 5a/pop-to-edx -<span id="L26213" class="LineNr">26213 </span> 59/pop-to-ecx -<span id="L26214" class="LineNr">26214 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26215" class="LineNr">26215 </span> 89/<- %esp 5/r32/ebp -<span id="L26216" class="LineNr">26216 </span> 5d/pop-to-ebp -<span id="L26217" class="LineNr">26217 </span> c3/return -<span id="L26218" class="LineNr">26218 </span> -<span id="L26219" class="LineNr">26219 </span><span class="subxComment"># clean up global state for 'vars' until some block depth (inclusive)</span> -<span id="L26220" class="LineNr">26220 </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="L26221" class="LineNr">26221 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26222" class="LineNr">26222 </span> 55/push-ebp -<span id="L26223" class="LineNr">26223 </span> 89/<- %ebp 4/r32/esp -<span id="L26224" class="LineNr">26224 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26225" class="LineNr">26225 </span> 50/push-eax -<span id="L26226" class="LineNr">26226 </span> 51/push-ecx -<span id="L26227" class="LineNr">26227 </span> 56/push-esi -<span id="L26228" class="LineNr">26228 </span> <span class="subxComment"># esi = vars</span> -<span id="L26229" class="LineNr">26229 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L26230" class="LineNr">26230 </span> <span class="subxComment"># ecx = until-block-depth</span> -<span id="L26231" class="LineNr">26231 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L26232" class="LineNr">26232 </span> { -<span id="L26233" class="LineNr">26233 </span><span class="Constant">$clean-up-blocks:reclaim-loop</span>: -<span id="L26234" class="LineNr">26234 </span> <span class="subxComment"># if (vars->top <= 0) break</span> -<span id="L26235" class="LineNr">26235 </span> 8b/-> *esi 0/r32/eax <span class="subxComment"># Stack-top</span> -<span id="L26236" class="LineNr">26236 </span> 3d/compare-eax-and 0/imm32 -<span id="L26237" class="LineNr">26237 </span> 0f 8e/jump-if-<= <span class="Constant">break</span>/disp32 -<span id="L26238" class="LineNr">26238 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(vars[vars->top-12])</span> -<span id="L26239" class="LineNr">26239 </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="L26240" class="LineNr">26240 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L26241" class="LineNr">26241 </span> 39/compare *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> -<span id="L26242" class="LineNr">26242 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L26243" class="LineNr">26243 </span> (<a href='../203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> -<span id="L26244" class="LineNr">26244 </span> (<a href='../203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> -<span id="L26245" class="LineNr">26245 </span> (<a href='../203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> -<span id="L26246" class="LineNr">26246 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L26247" class="LineNr">26247 </span> } -<span id="L26248" class="LineNr">26248 </span><span class="Constant">$clean-up-blocks:end</span>: -<span id="L26249" class="LineNr">26249 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26250" class="LineNr">26250 </span> 5e/pop-to-esi -<span id="L26251" class="LineNr">26251 </span> 59/pop-to-ecx -<span id="L26252" class="LineNr">26252 </span> 58/pop-to-eax -<span id="L26253" class="LineNr">26253 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26254" class="LineNr">26254 </span> 89/<- %esp 5/r32/ebp -<span id="L26255" class="LineNr">26255 </span> 5d/pop-to-ebp -<span id="L26256" class="LineNr">26256 </span> c3/return -<span id="L26257" class="LineNr">26257 </span> -<span id="L26258" class="LineNr">26258 </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="L26259" class="LineNr">26259 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26260" class="LineNr">26260 </span> 55/push-ebp -<span id="L26261" class="LineNr">26261 </span> 89/<- %ebp 4/r32/esp -<span id="L26262" class="LineNr">26262 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26263" class="LineNr">26263 </span> 51/push-ecx -<span id="L26264" class="LineNr">26264 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> -<span id="L26265" class="LineNr">26265 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L26266" class="LineNr">26266 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L26267" class="LineNr">26267 </span> 89/<- %ecx 0/r32/eax -<span id="L26268" class="LineNr">26268 </span> <span class="subxComment"># while curr != null</span> -<span id="L26269" class="LineNr">26269 </span> { -<span id="L26270" class="LineNr">26270 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26271" class="LineNr">26271 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26272" class="LineNr">26272 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(curr->value)</span> -<span id="L26273" class="LineNr">26273 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L26274" class="LineNr">26274 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> -<span id="L26275" class="LineNr">26275 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26276" class="LineNr">26276 </span> <span class="subxComment"># if (reg == target) return true</span> -<span id="L26277" class="LineNr">26277 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L26278" class="LineNr">26278 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26279" class="LineNr">26279 </span> 75/jump-if-!= $reg-in-function-outputs?:end/disp8 -<span id="L26280" class="LineNr">26280 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L26281" class="LineNr">26281 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L26282" class="LineNr">26282 </span> 89/<- %ecx 0/r32/eax -<span id="L26283" class="LineNr">26283 </span> <span class="subxComment">#</span> -<span id="L26284" class="LineNr">26284 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L26285" class="LineNr">26285 </span> } -<span id="L26286" class="LineNr">26286 </span> <span class="subxComment"># return false</span> -<span id="L26287" class="LineNr">26287 </span> b8/copy-to-eax 0/imm32 -<span id="L26288" class="LineNr">26288 </span><span class="Constant">$reg-in-function-outputs?:end</span>: -<span id="L26289" class="LineNr">26289 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26290" class="LineNr">26290 </span> 59/pop-to-ecx -<span id="L26291" class="LineNr">26291 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26292" class="LineNr">26292 </span> 89/<- %esp 5/r32/ebp -<span id="L26293" class="LineNr">26293 </span> 5d/pop-to-ebp -<span id="L26294" class="LineNr">26294 </span> c3/return -<span id="L26295" class="LineNr">26295 </span> -<span id="L26296" class="LineNr">26296 </span><span class="subxFunction">emit-subx-var-def</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> -<span id="L26297" class="LineNr">26297 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26298" class="LineNr">26298 </span> 55/push-ebp -<span id="L26299" class="LineNr">26299 </span> 89/<- %ebp 4/r32/esp -<span id="L26300" class="LineNr">26300 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26301" class="LineNr">26301 </span> 50/push-eax -<span id="L26302" class="LineNr">26302 </span> 51/push-ecx -<span id="L26303" class="LineNr">26303 </span> 52/push-edx -<span id="L26304" class="LineNr">26304 </span> <span class="subxComment"># eax = stmt</span> -<span id="L26305" class="LineNr">26305 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L26306" class="LineNr">26306 </span> <span class="subxComment"># var v/ecx: (addr var)</span> -<span id="L26307" class="LineNr">26307 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> -<span id="L26308" class="LineNr">26308 </span> 89/<- %ecx 0/r32/eax -<span id="L26309" class="LineNr">26309 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L26310" class="LineNr">26310 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/r32/eax -<span id="L26311" class="LineNr">26311 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L26312" class="LineNr">26312 </span> <span class="subxComment"># var n/edx: int = size-of(stmt->var)</span> -<span id="L26313" class="LineNr">26313 </span> (<a href='mu.subx.html#L24381'>size-of</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26314" class="LineNr">26314 </span> 89/<- %edx 0/r32/eax -<span id="L26315" class="LineNr">26315 </span> <span class="subxComment"># *Curr-local-stack-offset -= n</span> -<span id="L26316" class="LineNr">26316 </span> 29/subtract-from *<span class="SpecialChar"><a href='mu.subx.html#L24784'>Curr-local-stack-offset</a></span> 2/r32/edx -<span id="L26317" class="LineNr">26317 </span> <span class="subxComment"># v->offset = *Curr-local-stack-offset</span> -<span id="L26318" class="LineNr">26318 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L24784'>Curr-local-stack-offset</a></span> 0/r32/eax -<span id="L26319" class="LineNr">26319 </span> 89/<- *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L26320" class="LineNr">26320 </span> <span class="subxComment"># if v is an array, do something special to initialize it</span> -<span id="L26321" class="LineNr">26321 </span> { -<span id="L26322" class="LineNr">26322 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26323" class="LineNr">26323 </span> (<a href='mu.subx.html#L24478'>is-mu-array?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L26324" class="LineNr">26324 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26325" class="LineNr">26325 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26326" class="LineNr">26326 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-4</span> -<span id="L26327" class="LineNr">26327 </span> 81 5/subop/subtract %edx 4/imm32 -<span id="L26328" class="LineNr">26328 </span> <span class="subxComment">#</span> -<span id="L26329" class="LineNr">26329 </span> (<a href='mu.subx.html#L26371'>emit-array-data-initialization</a> *(ebp+8) %edx) -<span id="L26330" class="LineNr">26330 </span> e9/jump $emit-subx-var-def:end/disp32 -<span id="L26331" class="LineNr">26331 </span> } -<span id="L26332" class="LineNr">26332 </span> <span class="subxComment"># another special-case for initializing streams</span> -<span id="L26333" class="LineNr">26333 </span> <span class="subxComment"># a stream is an array with 2 extra pointers</span> -<span id="L26334" class="LineNr">26334 </span> { -<span id="L26335" class="LineNr">26335 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26336" class="LineNr">26336 </span> (<a href='mu.subx.html#L24543'>is-mu-stream?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L26337" class="LineNr">26337 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26338" class="LineNr">26338 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26339" class="LineNr">26339 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-12</span> -<span id="L26340" class="LineNr">26340 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L26341" class="LineNr">26341 </span> (<a href='mu.subx.html#L26371'>emit-array-data-initialization</a> *(ebp+8) %edx) -<span id="L26342" class="LineNr">26342 </span> <span class="subxComment"># emit read and write pointers</span> -<span id="L26343" class="LineNr">26343 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26344" class="LineNr">26344 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L26345" class="LineNr">26345 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26346" class="LineNr">26346 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L26347" class="LineNr">26347 </span> <span class="subxComment">#</span> -<span id="L26348" class="LineNr">26348 </span> eb/jump $emit-subx-var-def:end/disp8 -<span id="L26349" class="LineNr">26349 </span> } -<span id="L26350" class="LineNr">26350 </span> <span class="subxComment"># while n > 0</span> -<span id="L26351" class="LineNr">26351 </span> { -<span id="L26352" class="LineNr">26352 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26353" class="LineNr">26353 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L26354" class="LineNr">26354 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26355" class="LineNr">26355 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L26356" class="LineNr">26356 </span> <span class="subxComment"># n -= 4</span> -<span id="L26357" class="LineNr">26357 </span> 81 5/subop/subtract %edx 4/imm32 -<span id="L26358" class="LineNr">26358 </span> <span class="subxComment">#</span> -<span id="L26359" class="LineNr">26359 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L26360" class="LineNr">26360 </span> } -<span id="L26361" class="LineNr">26361 </span><span class="Constant">$emit-subx-var-def:end</span>: -<span id="L26362" class="LineNr">26362 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26363" class="LineNr">26363 </span> 5a/pop-to-edx -<span id="L26364" class="LineNr">26364 </span> 59/pop-to-ecx -<span id="L26365" class="LineNr">26365 </span> 58/pop-to-eax -<span id="L26366" class="LineNr">26366 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26367" class="LineNr">26367 </span> 89/<- %esp 5/r32/ebp -<span id="L26368" class="LineNr">26368 </span> 5d/pop-to-ebp -<span id="L26369" class="LineNr">26369 </span> c3/return -<span id="L26370" class="LineNr">26370 </span> -<span id="L26371" class="LineNr">26371 </span><span class="subxFunction">emit-array-data-initialization</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> -<span id="L26372" class="LineNr">26372 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26373" class="LineNr">26373 </span> 55/push-ebp -<span id="L26374" class="LineNr">26374 </span> 89/<- %ebp 4/r32/esp -<span id="L26375" class="LineNr">26375 </span> <span class="subxComment">#</span> -<span id="L26376" class="LineNr">26376 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26377" class="LineNr">26377 </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="L26378" class="LineNr">26378 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L26379" class="LineNr">26379 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L26380" class="LineNr">26380 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26381" class="LineNr">26381 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) -<span id="L26382" class="LineNr">26382 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L26383" class="LineNr">26383 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L26384" class="LineNr">26384 </span><span class="Constant">$emit-array-data-initialization:end</span>: +<span id="L26005" class="LineNr">26005 </span><span class="subxFunction">emit-reverse-break</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt1)</span> +<span id="L26006" class="LineNr">26006 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26007" class="LineNr">26007 </span> 55/push-ebp +<span id="L26008" class="LineNr">26008 </span> 89/<- %ebp 4/r32/esp +<span id="L26009" class="LineNr">26009 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26010" class="LineNr">26010 </span> 50/push-eax +<span id="L26011" class="LineNr">26011 </span> <span class="subxComment"># eax = stmt</span> +<span id="L26012" class="LineNr">26012 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26013" class="LineNr">26013 </span> <span class="subxComment">#</span> +<span id="L26014" class="LineNr">26014 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L26015" class="LineNr">26015 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L26031'>Reverse-branch</a></span> %eax 0x10 <span class="Constant">"reverse-branch: "</span>) <span class="subxComment"># => eax: (addr handle array byte)</span> +<span id="L26016" class="LineNr">26016 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26017" class="LineNr">26017 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L26018" class="LineNr">26018 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L26019" class="LineNr">26019 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" break/disp32\n"</span>) +<span id="L26020" class="LineNr">26020 </span><span class="Constant">$emit-reverse-break:end</span>: +<span id="L26021" class="LineNr">26021 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26022" class="LineNr">26022 </span> 58/pop-to-eax +<span id="L26023" class="LineNr">26023 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26024" class="LineNr">26024 </span> 89/<- %esp 5/r32/ebp +<span id="L26025" class="LineNr">26025 </span> 5d/pop-to-ebp +<span id="L26026" class="LineNr">26026 </span> c3/return +<span id="L26027" class="LineNr">26027 </span> +<span id="L26028" class="LineNr">26028 </span>== data +<span id="L26029" class="LineNr">26029 </span> +<span id="L26030" class="LineNr">26030 </span><span class="subxComment"># Table from Mu branch instructions to the reverse SubX opcodes for them.</span> +<span id="L26031" class="LineNr">26031 </span><span class="SpecialChar">Reverse-branch</span>: <span class="subxComment"># (table (handle array byte) (handle array byte))</span> +<span id="L26032" class="LineNr">26032 </span> <span class="subxComment"># a table is a stream</span> +<span id="L26033" class="LineNr">26033 </span> 0x1c0/imm32/write +<span id="L26034" class="LineNr">26034 </span> 0/imm32/read +<span id="L26035" class="LineNr">26035 </span> 0x1c0/imm32/size +<span id="L26036" class="LineNr">26036 </span> <span class="subxComment"># data</span> +<span id="L26037" class="LineNr">26037 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31978'>_string-break-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32325'>_string_0f_85_jump_label</a>/imm32 +<span id="L26038" class="LineNr">26038 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32088'>_string-loop-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32325'>_string_0f_85_jump_label</a>/imm32 +<span id="L26039" class="LineNr">26039 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31993'>_string-break-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32310'>_string_0f_84_jump_label</a>/imm32 +<span id="L26040" class="LineNr">26040 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32103'>_string-loop-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32310'>_string_0f_84_jump_label</a>/imm32 +<span id="L26041" class="LineNr">26041 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31968'>_string-break-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32385'>_string_0f_8d_jump_label</a>/imm32 +<span id="L26042" class="LineNr">26042 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32078'>_string-loop-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32385'>_string_0f_8d_jump_label</a>/imm32 +<span id="L26043" class="LineNr">26043 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31983'>_string-break-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32400'>_string_0f_8e_jump_label</a>/imm32 +<span id="L26044" class="LineNr">26044 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32093'>_string-loop-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32400'>_string_0f_8e_jump_label</a>/imm32 +<span id="L26045" class="LineNr">26045 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31973'>_string-break-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32355'>_string_0f_87_jump_label</a>/imm32 +<span id="L26046" class="LineNr">26046 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32083'>_string-loop-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32355'>_string_0f_87_jump_label</a>/imm32 +<span id="L26047" class="LineNr">26047 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31988'>_string-break-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32370'>_string_0f_8c_jump_label</a>/imm32 +<span id="L26048" class="LineNr">26048 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32098'>_string-loop-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32370'>_string_0f_8c_jump_label</a>/imm32 +<span id="L26049" class="LineNr">26049 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L31998'>_string-break-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32295'>_string_0f_83_jump_label</a>/imm32 +<span id="L26050" class="LineNr">26050 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32108'>_string-loop-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32295'>_string_0f_83_jump_label</a>/imm32 +<span id="L26051" class="LineNr">26051 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32008'>_string-break-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32340'>_string_0f_86_jump_label</a>/imm32 +<span id="L26052" class="LineNr">26052 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32118'>_string-loop-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32340'>_string_0f_86_jump_label</a>/imm32 +<span id="L26053" class="LineNr">26053 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32003'>_string-break-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32355'>_string_0f_87_jump_label</a>/imm32 +<span id="L26054" class="LineNr">26054 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32113'>_string-loop-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32355'>_string_0f_87_jump_label</a>/imm32 +<span id="L26055" class="LineNr">26055 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32013'>_string-break-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32280'>_string_0f_82_jump_label</a>/imm32 +<span id="L26056" class="LineNr">26056 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32123'>_string-loop-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32280'>_string_0f_82_jump_label</a>/imm32 +<span id="L26057" class="LineNr">26057 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32018'>_string-break-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32295'>_string_0f_83_jump_label</a>/imm32 +<span id="L26058" class="LineNr">26058 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32128'>_string-loop-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32295'>_string_0f_83_jump_label</a>/imm32 +<span id="L26059" class="LineNr">26059 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32028'>_string-break-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32340'>_string_0f_86_jump_label</a>/imm32 +<span id="L26060" class="LineNr">26060 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32138'>_string-loop-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32340'>_string_0f_86_jump_label</a>/imm32 +<span id="L26061" class="LineNr">26061 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32023'>_string-break-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32355'>_string_0f_87_jump_label</a>/imm32 +<span id="L26062" class="LineNr">26062 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32133'>_string-loop-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32355'>_string_0f_87_jump_label</a>/imm32 +<span id="L26063" class="LineNr">26063 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32033'>_string-break-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32280'>_string_0f_82_jump_label</a>/imm32 +<span id="L26064" class="LineNr">26064 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L32143'>_string-loop-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L32280'>_string_0f_82_jump_label</a>/imm32 +<span id="L26065" class="LineNr">26065 </span> +<span id="L26066" class="LineNr">26066 </span>== code +<span id="L26067" class="LineNr">26067 </span> +<span id="L26068" class="LineNr">26068 </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="L26069" class="LineNr">26069 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26070" class="LineNr">26070 </span> 55/push-ebp +<span id="L26071" class="LineNr">26071 </span> 89/<- %ebp 4/r32/esp +<span id="L26072" class="LineNr">26072 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26073" class="LineNr">26073 </span> 50/push-eax +<span id="L26074" class="LineNr">26074 </span> 51/push-ecx +<span id="L26075" class="LineNr">26075 </span> 52/push-edx +<span id="L26076" class="LineNr">26076 </span> 53/push-ebx +<span id="L26077" class="LineNr">26077 </span> 56/push-esi +<span id="L26078" class="LineNr">26078 </span> <span class="subxComment"># ecx = vars</span> +<span id="L26079" class="LineNr">26079 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L26080" class="LineNr">26080 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L26081" class="LineNr">26081 </span> 8b/-> *ecx 0/r32/eax +<span id="L26082" class="LineNr">26082 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L26083" class="LineNr">26083 </span> 8d/copy-address *(ecx+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L26084" class="LineNr">26084 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L26085" class="LineNr">26085 </span> 8d/copy-address *(ecx+8) 1/r32/ecx +<span id="L26086" class="LineNr">26086 </span> <span class="subxComment"># edx = depth</span> +<span id="L26087" class="LineNr">26087 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L26088" class="LineNr">26088 </span> { +<span id="L26089" class="LineNr">26089 </span><span class="Constant">$emit-unconditional-jump-to-depth:loop</span>: +<span id="L26090" class="LineNr">26090 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L26091" class="LineNr">26091 </span> 39/compare %esi 1/r32/ecx +<span id="L26092" class="LineNr">26092 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L26093" class="LineNr">26093 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L26094" class="LineNr">26094 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L26095" class="LineNr">26095 </span> 89/<- %ebx 0/r32/eax +<span id="L26096" class="LineNr">26096 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L26097" class="LineNr">26097 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L26098" class="LineNr">26098 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L26099" class="LineNr">26099 </span> { +<span id="L26100" class="LineNr">26100 </span><span class="Constant">$emit-unconditional-jump-to-depth:check</span>: +<span id="L26101" class="LineNr">26101 </span> <span class="subxComment"># if v->block-depth != until-block-depth, continue</span> +<span id="L26102" class="LineNr">26102 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L26103" class="LineNr">26103 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26104" class="LineNr">26104 </span><span class="Constant">$emit-unconditional-jump-to-depth:depth-found</span>: +<span id="L26105" class="LineNr">26105 </span> <span class="subxComment"># if v is not a literal, continue</span> +<span id="L26106" class="LineNr">26106 </span> (<a href='mu.subx.html#L25018'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L26107" class="LineNr">26107 </span> 3d/compare-eax-and 0/imm32 +<span id="L26108" class="LineNr">26108 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26109" class="LineNr">26109 </span><span class="Constant">$emit-unconditional-jump-to-depth:label-found</span>: +<span id="L26110" class="LineNr">26110 </span> <span class="subxComment"># emit unconditional jump, then return</span> +<span id="L26111" class="LineNr">26111 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26112" class="LineNr">26112 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) +<span id="L26113" class="LineNr">26113 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26114" class="LineNr">26114 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L26115" class="LineNr">26115 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":"</span>) +<span id="L26116" class="LineNr">26116 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x14)) +<span id="L26117" class="LineNr">26117 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32\n"</span>) +<span id="L26118" class="LineNr">26118 </span> eb/jump $emit-unconditional-jump-to-depth:end/disp8 +<span id="L26119" class="LineNr">26119 </span> } +<span id="L26120" class="LineNr">26120 </span> <span class="subxComment"># curr -= 12</span> +<span id="L26121" class="LineNr">26121 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L26122" class="LineNr">26122 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26123" class="LineNr">26123 </span> } +<span id="L26124" class="LineNr">26124 </span> <span class="subxComment"># TODO: error if no label at 'depth' was found</span> +<span id="L26125" class="LineNr">26125 </span><span class="Constant">$emit-unconditional-jump-to-depth:end</span>: +<span id="L26126" class="LineNr">26126 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26127" class="LineNr">26127 </span> 5e/pop-to-esi +<span id="L26128" class="LineNr">26128 </span> 5b/pop-to-ebx +<span id="L26129" class="LineNr">26129 </span> 5a/pop-to-edx +<span id="L26130" class="LineNr">26130 </span> 59/pop-to-ecx +<span id="L26131" class="LineNr">26131 </span> 58/pop-to-eax +<span id="L26132" class="LineNr">26132 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26133" class="LineNr">26133 </span> 89/<- %esp 5/r32/ebp +<span id="L26134" class="LineNr">26134 </span> 5d/pop-to-ebp +<span id="L26135" class="LineNr">26135 </span> c3/return +<span id="L26136" class="LineNr">26136 </span> +<span id="L26137" class="LineNr">26137 </span><span class="subxComment"># emit clean-up code for 'vars' until some block depth</span> +<span id="L26138" class="LineNr">26138 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L26139" class="LineNr">26139 </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="L26140" class="LineNr">26140 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26141" class="LineNr">26141 </span> 55/push-ebp +<span id="L26142" class="LineNr">26142 </span> 89/<- %ebp 4/r32/esp +<span id="L26143" class="LineNr">26143 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26144" class="LineNr">26144 </span> 50/push-eax +<span id="L26145" class="LineNr">26145 </span> 51/push-ecx +<span id="L26146" class="LineNr">26146 </span> 52/push-edx +<span id="L26147" class="LineNr">26147 </span> 53/push-ebx +<span id="L26148" class="LineNr">26148 </span> 56/push-esi +<span id="L26149" class="LineNr">26149 </span><span class="CommentedCode">#? (write-buffered Stderr "--- cleanup\n")</span> +<span id="L26150" class="LineNr">26150 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L26151" class="LineNr">26151 </span> <span class="subxComment"># ecx = vars</span> +<span id="L26152" class="LineNr">26152 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L26153" class="LineNr">26153 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L26154" class="LineNr">26154 </span> 8b/-> *ecx 6/r32/esi +<span id="L26155" class="LineNr">26155 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L26156" class="LineNr">26156 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L26157" class="LineNr">26157 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L26158" class="LineNr">26158 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L26159" class="LineNr">26159 </span> <span class="subxComment"># edx = until-block-depth</span> +<span id="L26160" class="LineNr">26160 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L26161" class="LineNr">26161 </span> { +<span id="L26162" class="LineNr">26162 </span><span class="Constant">$emit-cleanup-code-until-depth:loop</span>: +<span id="L26163" class="LineNr">26163 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L26164" class="LineNr">26164 </span> 39/compare %esi 1/r32/ecx +<span id="L26165" class="LineNr">26165 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L26166" class="LineNr">26166 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L26167" class="LineNr">26167 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L26168" class="LineNr">26168 </span> 89/<- %ebx 0/r32/eax +<span id="L26169" class="LineNr">26169 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4)) # Var-name</span> +<span id="L26170" class="LineNr">26170 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L26171" class="LineNr">26171 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L26172" class="LineNr">26172 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L26173" class="LineNr">26173 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L26174" class="LineNr">26174 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L26175" class="LineNr">26175 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L26176" class="LineNr">26176 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L26177" class="LineNr">26177 </span> <span class="subxComment"># if v is in a register</span> +<span id="L26178" class="LineNr">26178 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L26179" class="LineNr">26179 </span> { +<span id="L26180" class="LineNr">26180 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26181" class="LineNr">26181 </span> { +<span id="L26182" class="LineNr">26182 </span><span class="Constant">$emit-cleanup-code-until-depth:check-for-previous-spill</span>: +<span id="L26183" class="LineNr">26183 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L26184" class="LineNr">26184 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26185" class="LineNr">26185 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26186" class="LineNr">26186 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-in-register</span>: +<span id="L26187" class="LineNr">26187 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26188" class="LineNr">26188 </span> (<a href='mu.subx.html#L26349'>emit-pop-register</a> *(ebp+8) %eax) +<span id="L26189" class="LineNr">26189 </span> } +<span id="L26190" class="LineNr">26190 </span> eb/jump $emit-cleanup-code-until-depth:continue/disp8 +<span id="L26191" class="LineNr">26191 </span> } +<span id="L26192" class="LineNr">26192 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L26193" class="LineNr">26193 </span> { +<span id="L26194" class="LineNr">26194 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26195" class="LineNr">26195 </span><span class="Constant">$emit-cleanup-code-until-depth:var-on-stack</span>: +<span id="L26196" class="LineNr">26196 </span> (<a href='mu.subx.html#L25018'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L26197" class="LineNr">26197 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L26198" class="LineNr">26198 </span> 3d/compare-eax-and 0/imm32 +<span id="L26199" class="LineNr">26199 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26200" class="LineNr">26200 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-on-stack</span>: +<span id="L26201" class="LineNr">26201 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26202" class="LineNr">26202 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L26203" class="LineNr">26203 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L26204" class="LineNr">26204 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L26205" class="LineNr">26205 </span> } +<span id="L26206" class="LineNr">26206 </span><span class="Constant">$emit-cleanup-code-until-depth:continue</span>: +<span id="L26207" class="LineNr">26207 </span> <span class="subxComment"># curr -= 12</span> +<span id="L26208" class="LineNr">26208 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L26209" class="LineNr">26209 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26210" class="LineNr">26210 </span> } +<span id="L26211" class="LineNr">26211 </span><span class="Constant">$emit-cleanup-code-until-depth:end</span>: +<span id="L26212" class="LineNr">26212 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26213" class="LineNr">26213 </span> 5e/pop-to-esi +<span id="L26214" class="LineNr">26214 </span> 5b/pop-to-ebx +<span id="L26215" class="LineNr">26215 </span> 5a/pop-to-edx +<span id="L26216" class="LineNr">26216 </span> 59/pop-to-ecx +<span id="L26217" class="LineNr">26217 </span> 58/pop-to-eax +<span id="L26218" class="LineNr">26218 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26219" class="LineNr">26219 </span> 89/<- %esp 5/r32/ebp +<span id="L26220" class="LineNr">26220 </span> 5d/pop-to-ebp +<span id="L26221" class="LineNr">26221 </span> c3/return +<span id="L26222" class="LineNr">26222 </span> +<span id="L26223" class="LineNr">26223 </span><span class="subxComment"># emit clean-up code for 'vars' that don't conflict with output registers</span> +<span id="L26224" class="LineNr">26224 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L26225" class="LineNr">26225 </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="L26226" class="LineNr">26226 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26227" class="LineNr">26227 </span> 55/push-ebp +<span id="L26228" class="LineNr">26228 </span> 89/<- %ebp 4/r32/esp +<span id="L26229" class="LineNr">26229 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26230" class="LineNr">26230 </span> 50/push-eax +<span id="L26231" class="LineNr">26231 </span> 51/push-ecx +<span id="L26232" class="LineNr">26232 </span> 52/push-edx +<span id="L26233" class="LineNr">26233 </span> 53/push-ebx +<span id="L26234" class="LineNr">26234 </span> 56/push-esi +<span id="L26235" class="LineNr">26235 </span> 57/push-edi +<span id="L26236" class="LineNr">26236 </span> <span class="subxComment"># ecx = vars</span> +<span id="L26237" class="LineNr">26237 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L26238" class="LineNr">26238 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L26239" class="LineNr">26239 </span> 8b/-> *ecx 6/r32/esi +<span id="L26240" class="LineNr">26240 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L26241" class="LineNr">26241 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L26242" class="LineNr">26242 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L26243" class="LineNr">26243 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L26244" class="LineNr">26244 </span> { +<span id="L26245" class="LineNr">26245 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:loop</span>: +<span id="L26246" class="LineNr">26246 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L26247" class="LineNr">26247 </span> 39/compare %esi 1/r32/ecx +<span id="L26248" class="LineNr">26248 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L26249" class="LineNr">26249 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L26250" class="LineNr">26250 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L26251" class="LineNr">26251 </span> 89/<- %ebx 0/r32/eax +<span id="L26252" class="LineNr">26252 </span> <span class="subxComment"># if v is in a register</span> +<span id="L26253" class="LineNr">26253 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L26254" class="LineNr">26254 </span> { +<span id="L26255" class="LineNr">26255 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26256" class="LineNr">26256 </span> { +<span id="L26257" class="LineNr">26257 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:check-for-previous-spill</span>: +<span id="L26258" class="LineNr">26258 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L26259" class="LineNr">26259 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26260" class="LineNr">26260 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26261" class="LineNr">26261 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register</span>: +<span id="L26262" class="LineNr">26262 </span> <span class="subxComment"># var reg/edi: (addr array name) = v->register</span> +<span id="L26263" class="LineNr">26263 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26264" class="LineNr">26264 </span> 89/<- %edi 0/r32/eax +<span id="L26265" class="LineNr">26265 </span> <span class="subxComment"># if reg is not in function outputs, emit a pop</span> +<span id="L26266" class="LineNr">26266 </span> (<a href='mu.subx.html#L26895'>reg-in-function-outputs?</a> *(ebp+0x10) %edi) <span class="subxComment"># => eax</span> +<span id="L26267" class="LineNr">26267 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26268" class="LineNr">26268 </span> { +<span id="L26269" class="LineNr">26269 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26270" class="LineNr">26270 </span> (<a href='mu.subx.html#L26349'>emit-pop-register</a> *(ebp+8) %edi) +<span id="L26271" class="LineNr">26271 </span> eb/jump $emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done/disp8 +<span id="L26272" class="LineNr">26272 </span> } +<span id="L26273" class="LineNr">26273 </span> <span class="subxComment"># otherwise just drop it from the stack</span> +<span id="L26274" class="LineNr">26274 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26275" class="LineNr">26275 </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="L26276" class="LineNr">26276 </span> } +<span id="L26277" class="LineNr">26277 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done</span>: +<span id="L26278" class="LineNr">26278 </span> eb/jump $emit-cleanup-code-for-non-outputs:continue/disp8 +<span id="L26279" class="LineNr">26279 </span> } +<span id="L26280" class="LineNr">26280 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L26281" class="LineNr">26281 </span> { +<span id="L26282" class="LineNr">26282 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26283" class="LineNr">26283 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:var-on-stack</span>: +<span id="L26284" class="LineNr">26284 </span> (<a href='mu.subx.html#L25018'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L26285" class="LineNr">26285 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L26286" class="LineNr">26286 </span> 3d/compare-eax-and 0/imm32 +<span id="L26287" class="LineNr">26287 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26288" class="LineNr">26288 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-on-stack</span>: +<span id="L26289" class="LineNr">26289 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26290" class="LineNr">26290 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L26291" class="LineNr">26291 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L26292" class="LineNr">26292 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L26293" class="LineNr">26293 </span> } +<span id="L26294" class="LineNr">26294 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:continue</span>: +<span id="L26295" class="LineNr">26295 </span> <span class="subxComment"># curr -= 12</span> +<span id="L26296" class="LineNr">26296 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L26297" class="LineNr">26297 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26298" class="LineNr">26298 </span> } +<span id="L26299" class="LineNr">26299 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:end</span>: +<span id="L26300" class="LineNr">26300 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26301" class="LineNr">26301 </span> 5f/pop-to-edi +<span id="L26302" class="LineNr">26302 </span> 5e/pop-to-esi +<span id="L26303" class="LineNr">26303 </span> 5b/pop-to-ebx +<span id="L26304" class="LineNr">26304 </span> 5a/pop-to-edx +<span id="L26305" class="LineNr">26305 </span> 59/pop-to-ecx +<span id="L26306" class="LineNr">26306 </span> 58/pop-to-eax +<span id="L26307" class="LineNr">26307 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26308" class="LineNr">26308 </span> 89/<- %esp 5/r32/ebp +<span id="L26309" class="LineNr">26309 </span> 5d/pop-to-ebp +<span id="L26310" class="LineNr">26310 </span> c3/return +<span id="L26311" class="LineNr">26311 </span> +<span id="L26312" class="LineNr">26312 </span><span class="subxFunction">emit-push-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> +<span id="L26313" class="LineNr">26313 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26314" class="LineNr">26314 </span> 55/push-ebp +<span id="L26315" class="LineNr">26315 </span> 89/<- %ebp 4/r32/esp +<span id="L26316" class="LineNr">26316 </span> <span class="subxComment"># eax = reg</span> +<span id="L26317" class="LineNr">26317 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26318" class="LineNr">26318 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> +<span id="L26319" class="LineNr">26319 </span> 8a/copy-byte *(eax+4) 0/r32/AL +<span id="L26320" class="LineNr">26320 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L26321" class="LineNr">26321 </span> <span class="subxComment"># if (prefix == 'x') push xmm register</span> +<span id="L26322" class="LineNr">26322 </span> { +<span id="L26323" class="LineNr">26323 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L26324" class="LineNr">26324 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26325" class="LineNr">26325 </span> <span class="subxComment"># TODO validate register</span> +<span id="L26326" class="LineNr">26326 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26327" class="LineNr">26327 </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="L26328" class="LineNr">26328 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26329" class="LineNr">26329 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 11/<- *esp "</span>) +<span id="L26330" class="LineNr">26330 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> +<span id="L26331" class="LineNr">26331 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26332" class="LineNr">26332 </span> 8a/copy-byte *(eax+7) 0/r32/AL +<span id="L26333" class="LineNr">26333 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L26334" class="LineNr">26334 </span> (<a href='../115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) +<span id="L26335" class="LineNr">26335 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L26336" class="LineNr">26336 </span> e9/jump $emit-push-register:end/disp32 +<span id="L26337" class="LineNr">26337 </span> } +<span id="L26338" class="LineNr">26338 </span> <span class="subxComment"># otherwise push gp register</span> +<span id="L26339" class="LineNr">26339 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26340" class="LineNr">26340 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"ff 6/subop/push %"</span>) +<span id="L26341" class="LineNr">26341 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L26342" class="LineNr">26342 </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="L26343" class="LineNr">26343 </span><span class="Constant">$emit-push-register:end</span>: +<span id="L26344" class="LineNr">26344 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26345" class="LineNr">26345 </span> 89/<- %esp 5/r32/ebp +<span id="L26346" class="LineNr">26346 </span> 5d/pop-to-ebp +<span id="L26347" class="LineNr">26347 </span> c3/return +<span id="L26348" class="LineNr">26348 </span> +<span id="L26349" class="LineNr">26349 </span><span class="subxFunction">emit-pop-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> +<span id="L26350" class="LineNr">26350 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26351" class="LineNr">26351 </span> 55/push-ebp +<span id="L26352" class="LineNr">26352 </span> 89/<- %ebp 4/r32/esp +<span id="L26353" class="LineNr">26353 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26354" class="LineNr">26354 </span> 50/push-eax +<span id="L26355" class="LineNr">26355 </span> <span class="subxComment"># eax = reg</span> +<span id="L26356" class="LineNr">26356 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26357" class="LineNr">26357 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> +<span id="L26358" class="LineNr">26358 </span> 8a/copy-byte *(eax+4) 0/r32/AL +<span id="L26359" class="LineNr">26359 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L26360" class="LineNr">26360 </span> <span class="subxComment"># if (prefix == 'x') pop to xmm register</span> +<span id="L26361" class="LineNr">26361 </span> { +<span id="L26362" class="LineNr">26362 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L26363" class="LineNr">26363 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26364" class="LineNr">26364 </span> <span class="subxComment"># TODO validate register</span> +<span id="L26365" class="LineNr">26365 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26366" class="LineNr">26366 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/-> *esp "</span>) +<span id="L26367" class="LineNr">26367 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> +<span id="L26368" class="LineNr">26368 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26369" class="LineNr">26369 </span> 8a/copy-byte *(eax+7) 0/r32/AL +<span id="L26370" class="LineNr">26370 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L26371" class="LineNr">26371 </span> (<a href='../115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) +<span id="L26372" class="LineNr">26372 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L26373" class="LineNr">26373 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26374" class="LineNr">26374 </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="L26375" class="LineNr">26375 </span> e9/jump $emit-pop-register:end/disp32 +<span id="L26376" class="LineNr">26376 </span> } +<span id="L26377" class="LineNr">26377 </span> <span class="subxComment"># otherwise pop to gp register</span> +<span id="L26378" class="LineNr">26378 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26379" class="LineNr">26379 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8f 0/subop/pop %"</span>) +<span id="L26380" class="LineNr">26380 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L26381" class="LineNr">26381 </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="L26382" class="LineNr">26382 </span><span class="Constant">$emit-pop-register:end</span>: +<span id="L26383" class="LineNr">26383 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26384" class="LineNr">26384 </span> 58/pop-to-eax <span id="L26385" class="LineNr">26385 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L26386" class="LineNr">26386 </span> 89/<- %esp 5/r32/ebp <span id="L26387" class="LineNr">26387 </span> 5d/pop-to-ebp <span id="L26388" class="LineNr">26388 </span> c3/return <span id="L26389" class="LineNr">26389 </span> -<span id="L26390" class="LineNr">26390 </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="L26391" class="LineNr">26391 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26392" class="LineNr">26392 </span> 55/push-ebp -<span id="L26393" class="LineNr">26393 </span> 89/<- %ebp 4/r32/esp -<span id="L26394" class="LineNr">26394 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26395" class="LineNr">26395 </span> 50/push-eax -<span id="L26396" class="LineNr">26396 </span> 51/push-ecx -<span id="L26397" class="LineNr">26397 </span> <span class="subxH1Comment"># - some special-case primitives that don't actually use the 'primitives' data structure</span> -<span id="L26398" class="LineNr">26398 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L26399" class="LineNr">26399 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L26400" class="LineNr">26400 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L26401" class="LineNr">26401 </span> 89/<- %ecx 0/r32/eax -<span id="L26402" class="LineNr">26402 </span> <span class="subxComment"># array size</span> -<span id="L26403" class="LineNr">26403 </span> { -<span id="L26404" class="LineNr">26404 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "length")) break</span> -<span id="L26405" class="LineNr">26405 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L26406" class="LineNr">26406 </span> 3d/compare-eax-and 0/imm32 -<span id="L26407" class="LineNr">26407 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26408" class="LineNr">26408 </span> (<a href='mu.subx.html#L26525'>translate-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L26409" class="LineNr">26409 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L26410" class="LineNr">26410 </span> } -<span id="L26411" class="LineNr">26411 </span> <span class="subxComment"># index into array</span> -<span id="L26412" class="LineNr">26412 </span> { -<span id="L26413" class="LineNr">26413 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "index")) break</span> -<span id="L26414" class="LineNr">26414 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L26415" class="LineNr">26415 </span> 3d/compare-eax-and 0/imm32 -<span id="L26416" class="LineNr">26416 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26417" class="LineNr">26417 </span> (<a href='mu.subx.html#L26852'>translate-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L26418" class="LineNr">26418 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L26419" class="LineNr">26419 </span> } -<span id="L26420" class="LineNr">26420 </span> <span class="subxComment"># compute-offset for index into array</span> -<span id="L26421" class="LineNr">26421 </span> { -<span id="L26422" class="LineNr">26422 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "compute-offset")) break</span> -<span id="L26423" class="LineNr">26423 </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="L26424" class="LineNr">26424 </span> 3d/compare-eax-and 0/imm32 -<span id="L26425" class="LineNr">26425 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26426" class="LineNr">26426 </span> (<a href='mu.subx.html#L27256'>translate-mu-compute-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L26427" class="LineNr">26427 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L26428" class="LineNr">26428 </span> } -<span id="L26429" class="LineNr">26429 </span> <span class="subxComment"># get field from record</span> -<span id="L26430" class="LineNr">26430 </span> { -<span id="L26431" class="LineNr">26431 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "get")) break</span> -<span id="L26432" class="LineNr">26432 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L26433" class="LineNr">26433 </span> 3d/compare-eax-and 0/imm32 -<span id="L26434" class="LineNr">26434 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26435" class="LineNr">26435 </span> (<a href='mu.subx.html#L27304'>translate-mu-get-stmt</a> *(ebp+8) *(ebp+0xc)) -<span id="L26436" class="LineNr">26436 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L26437" class="LineNr">26437 </span> } -<span id="L26438" class="LineNr">26438 </span> <span class="subxComment"># allocate scalar</span> -<span id="L26439" class="LineNr">26439 </span> { -<span id="L26440" class="LineNr">26440 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "allocate")) break</span> -<span id="L26441" class="LineNr">26441 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L26442" class="LineNr">26442 </span> 3d/compare-eax-and 0/imm32 -<span id="L26443" class="LineNr">26443 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26444" class="LineNr">26444 </span> (<a href='mu.subx.html#L27423'>translate-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L26445" class="LineNr">26445 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L26446" class="LineNr">26446 </span> } -<span id="L26447" class="LineNr">26447 </span> <span class="subxComment"># copy-object</span> -<span id="L26448" class="LineNr">26448 </span> { -<span id="L26449" class="LineNr">26449 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-object")) break</span> -<span id="L26450" class="LineNr">26450 </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="L26451" class="LineNr">26451 </span> 3d/compare-eax-and 0/imm32 -<span id="L26452" class="LineNr">26452 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26453" class="LineNr">26453 </span> (<a href='mu.subx.html#L27366'>translate-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L26454" class="LineNr">26454 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L26390" class="LineNr">26390 </span><span class="subxComment"># emit clean-up code for 'vars' until a given label is encountered</span> +<span id="L26391" class="LineNr">26391 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L26392" class="LineNr">26392 </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="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="subxS1Comment"># . save registers</span> +<span id="L26397" class="LineNr">26397 </span> 50/push-eax +<span id="L26398" class="LineNr">26398 </span> 51/push-ecx +<span id="L26399" class="LineNr">26399 </span> 52/push-edx +<span id="L26400" class="LineNr">26400 </span> 53/push-ebx +<span id="L26401" class="LineNr">26401 </span> <span class="subxComment"># ecx = vars</span> +<span id="L26402" class="LineNr">26402 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L26403" class="LineNr">26403 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L26404" class="LineNr">26404 </span> 8b/-> *ecx 0/r32/eax +<span id="L26405" class="LineNr">26405 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L26406" class="LineNr">26406 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L26407" class="LineNr">26407 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L26408" class="LineNr">26408 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L26409" class="LineNr">26409 </span> { +<span id="L26410" class="LineNr">26410 </span><span class="Constant">$emit-cleanup-code-until-target:loop</span>: +<span id="L26411" class="LineNr">26411 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L26412" class="LineNr">26412 </span> 39/compare %edx 1/r32/ecx +<span id="L26413" class="LineNr">26413 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L26414" class="LineNr">26414 </span> <span class="subxComment"># var v/ebx: (handle var) = lookup(*curr)</span> +<span id="L26415" class="LineNr">26415 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L26416" class="LineNr">26416 </span> 89/<- %ebx 0/r32/eax +<span id="L26417" class="LineNr">26417 </span> <span class="subxComment"># if (v->name == until-block-label) break</span> +<span id="L26418" class="LineNr">26418 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26419" class="LineNr">26419 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26420" class="LineNr">26420 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26421" class="LineNr">26421 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26422" class="LineNr">26422 </span> <span class="subxComment"># if v is in a register</span> +<span id="L26423" class="LineNr">26423 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L26424" class="LineNr">26424 </span> { +<span id="L26425" class="LineNr">26425 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26426" class="LineNr">26426 </span> { +<span id="L26427" class="LineNr">26427 </span><span class="Constant">$emit-cleanup-code-until-target:check-for-previous-spill</span>: +<span id="L26428" class="LineNr">26428 </span> 8b/-> *(edx+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L26429" class="LineNr">26429 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26430" class="LineNr">26430 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26431" class="LineNr">26431 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-in-register</span>: +<span id="L26432" class="LineNr">26432 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26433" class="LineNr">26433 </span> (<a href='mu.subx.html#L26349'>emit-pop-register</a> *(ebp+8) %eax) +<span id="L26434" class="LineNr">26434 </span> } +<span id="L26435" class="LineNr">26435 </span> eb/jump $emit-cleanup-code-until-target:continue/disp8 +<span id="L26436" class="LineNr">26436 </span> } +<span id="L26437" class="LineNr">26437 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L26438" class="LineNr">26438 </span> { +<span id="L26439" class="LineNr">26439 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26440" class="LineNr">26440 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-on-stack</span>: +<span id="L26441" class="LineNr">26441 </span> (<a href='mu.subx.html#L25018'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L26442" class="LineNr">26442 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L26443" class="LineNr">26443 </span> 3d/compare-eax-and 0/imm32 +<span id="L26444" class="LineNr">26444 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26445" class="LineNr">26445 </span> <span class="subxComment">#</span> +<span id="L26446" class="LineNr">26446 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26447" class="LineNr">26447 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L26448" class="LineNr">26448 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L26449" class="LineNr">26449 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L26450" class="LineNr">26450 </span> } +<span id="L26451" class="LineNr">26451 </span><span class="Constant">$emit-cleanup-code-until-target:continue</span>: +<span id="L26452" class="LineNr">26452 </span> <span class="subxComment"># curr -= 12</span> +<span id="L26453" class="LineNr">26453 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L26454" class="LineNr">26454 </span> e9/jump <span class="Constant">loop</span>/disp32 <span id="L26455" class="LineNr">26455 </span> } -<span id="L26456" class="LineNr">26456 </span> <span class="subxComment"># clear-object</span> -<span id="L26457" class="LineNr">26457 </span> { -<span id="L26458" class="LineNr">26458 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "clear-object")) break</span> -<span id="L26459" class="LineNr">26459 </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="L26460" class="LineNr">26460 </span> 3d/compare-eax-and 0/imm32 -<span id="L26461" class="LineNr">26461 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26462" class="LineNr">26462 </span> (<a href='mu.subx.html#L27396'>translate-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L26463" class="LineNr">26463 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L26464" class="LineNr">26464 </span> } -<span id="L26465" class="LineNr">26465 </span> <span class="subxComment"># allocate array</span> -<span id="L26466" class="LineNr">26466 </span> { -<span id="L26467" class="LineNr">26467 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate")) break</span> -<span id="L26468" class="LineNr">26468 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L26469" class="LineNr">26469 </span> 3d/compare-eax-and 0/imm32 -<span id="L26470" class="LineNr">26470 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26471" class="LineNr">26471 </span> (<a href='mu.subx.html#L27519'>translate-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L26472" class="LineNr">26472 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L26473" class="LineNr">26473 </span> } -<span id="L26474" class="LineNr">26474 </span> <span class="subxComment"># allocate stream</span> -<span id="L26475" class="LineNr">26475 </span> { -<span id="L26476" class="LineNr">26476 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate-stream")) break</span> -<span id="L26477" class="LineNr">26477 </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="L26478" class="LineNr">26478 </span> 3d/compare-eax-and 0/imm32 -<span id="L26479" class="LineNr">26479 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26480" class="LineNr">26480 </span> (<a href='mu.subx.html#L27555'>translate-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L26481" class="LineNr">26481 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L26482" class="LineNr">26482 </span> } -<span id="L26483" class="LineNr">26483 </span> <span class="subxComment"># read from stream</span> -<span id="L26484" class="LineNr">26484 </span> { -<span id="L26485" class="LineNr">26485 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "read-from-stream")) break</span> -<span id="L26486" class="LineNr">26486 </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="L26487" class="LineNr">26487 </span> 3d/compare-eax-and 0/imm32 -<span id="L26488" class="LineNr">26488 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26489" class="LineNr">26489 </span> (<a href='mu.subx.html#L27591'>translate-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L26490" class="LineNr">26490 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L26491" class="LineNr">26491 </span> } -<span id="L26492" class="LineNr">26492 </span> <span class="subxComment"># write to stream</span> -<span id="L26493" class="LineNr">26493 </span> { -<span id="L26494" class="LineNr">26494 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "write-to-stream")) break</span> -<span id="L26495" class="LineNr">26495 </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="L26496" class="LineNr">26496 </span> 3d/compare-eax-and 0/imm32 -<span id="L26497" class="LineNr">26497 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26498" class="LineNr">26498 </span> (<a href='mu.subx.html#L27628'>translate-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L26499" class="LineNr">26499 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L26500" class="LineNr">26500 </span> } -<span id="L26501" class="LineNr">26501 </span> <span class="subxH1Comment"># - if stmt matches a primitive, emit it</span> -<span id="L26502" class="LineNr">26502 </span> { -<span id="L26503" class="LineNr">26503 </span><span class="Constant">$emit-subx-stmt:check-for-primitive</span>: -<span id="L26504" class="LineNr">26504 </span> <span class="subxComment"># var curr/eax: (addr primitive)</span> -<span id="L26505" class="LineNr">26505 </span> (<a href='mu.subx.html#L33030'>find-matching-primitive</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># primitives, stmt => eax</span> -<span id="L26506" class="LineNr">26506 </span> 3d/compare-eax-and 0/imm32 -<span id="L26507" class="LineNr">26507 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26508" class="LineNr">26508 </span><span class="Constant">$emit-subx-stmt:primitive</span>: -<span id="L26509" class="LineNr">26509 </span> (<a href='mu.subx.html#L32501'>emit-subx-primitive</a> *(ebp+8) *(ebp+0xc) %eax) <span class="subxComment"># out, stmt, curr</span> -<span id="L26510" class="LineNr">26510 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L26511" class="LineNr">26511 </span> } -<span id="L26512" class="LineNr">26512 </span> <span class="subxH1Comment"># - otherwise emit a call</span> -<span id="L26513" class="LineNr">26513 </span> <span class="subxComment"># TODO: type-checking</span> -<span id="L26514" class="LineNr">26514 </span><span class="Constant">$emit-subx-stmt:call</span>: -<span id="L26515" class="LineNr">26515 </span> (<a href='mu.subx.html#L32770'>emit-call</a> *(ebp+8) *(ebp+0xc)) -<span id="L26516" class="LineNr">26516 </span><span class="Constant">$emit-subx-stmt:end</span>: -<span id="L26517" class="LineNr">26517 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26518" class="LineNr">26518 </span> 59/pop-to-ecx -<span id="L26519" class="LineNr">26519 </span> 58/pop-to-eax -<span id="L26520" class="LineNr">26520 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26521" class="LineNr">26521 </span> 89/<- %esp 5/r32/ebp -<span id="L26522" class="LineNr">26522 </span> 5d/pop-to-ebp -<span id="L26523" class="LineNr">26523 </span> c3/return -<span id="L26524" class="LineNr">26524 </span> -<span id="L26525" class="LineNr">26525 </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="L26526" class="LineNr">26526 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26527" class="LineNr">26527 </span> 55/push-ebp -<span id="L26528" class="LineNr">26528 </span> 89/<- %ebp 4/r32/esp -<span id="L26529" class="LineNr">26529 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26530" class="LineNr">26530 </span> 50/push-eax -<span id="L26531" class="LineNr">26531 </span> 51/push-ecx -<span id="L26532" class="LineNr">26532 </span> 52/push-edx -<span id="L26533" class="LineNr">26533 </span> 53/push-ebx -<span id="L26534" class="LineNr">26534 </span> 56/push-esi -<span id="L26535" class="LineNr">26535 </span> <span class="subxComment"># esi = stmt</span> -<span id="L26536" class="LineNr">26536 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L26537" class="LineNr">26537 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]->value</span> -<span id="L26538" class="LineNr">26538 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L26539" class="LineNr">26539 </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="L26540" class="LineNr">26540 </span> 89/<- %ebx 0/r32/eax -<span id="L26541" class="LineNr">26541 </span> <span class="subxComment"># var elemsize/ecx: int = array-element-size(base)</span> -<span id="L26542" class="LineNr">26542 </span> (<a href='mu.subx.html#L26646'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L26543" class="LineNr">26543 </span> 89/<- %ecx 0/r32/eax -<span id="L26544" class="LineNr">26544 </span> <span class="subxComment"># var outreg/edx: (addr array byte) = stmt->outputs[0]->value->register</span> -<span id="L26545" class="LineNr">26545 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L26546" class="LineNr">26546 </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="L26547" class="LineNr">26547 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26548" class="LineNr">26548 </span> 89/<- %edx 0/r32/eax -<span id="L26549" class="LineNr">26549 </span> <span class="subxComment"># if elemsize == 1</span> -<span id="L26550" class="LineNr">26550 </span> { -<span id="L26551" class="LineNr">26551 </span> 81 7/subop/compare %ecx 1/imm32 -<span id="L26552" class="LineNr">26552 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26553" class="LineNr">26553 </span><span class="Constant">$translate-mu-length-stmt:size-1</span>: -<span id="L26554" class="LineNr">26554 </span> (<a href='mu.subx.html#L26786'>emit-save-size-to</a> *(ebp+8) %ebx %edx) -<span id="L26555" class="LineNr">26555 </span> e9/jump $translate-mu-length-stmt:end/disp32 -<span id="L26556" class="LineNr">26556 </span> } -<span id="L26557" class="LineNr">26557 </span> <span class="subxComment"># if elemsize is a power of 2 less than 256</span> -<span id="L26558" class="LineNr">26558 </span> { -<span id="L26559" class="LineNr">26559 </span> (<a href='mu.subx.html#L27754'>power-of-2?</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L26560" class="LineNr">26560 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26561" class="LineNr">26561 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26562" class="LineNr">26562 </span> 81 7/subop/compare %ecx 0xff/imm32 -<span id="L26563" class="LineNr">26563 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 -<span id="L26564" class="LineNr">26564 </span><span class="Constant">$translate-mu-length-stmt:size-power-of-2</span>: -<span id="L26565" class="LineNr">26565 </span> (<a href='mu.subx.html#L26786'>emit-save-size-to</a> *(ebp+8) %ebx %edx) -<span id="L26566" class="LineNr">26566 </span> (<a href='mu.subx.html#L26829'>emit-divide-by-shift-right</a> *(ebp+8) %edx %ecx) -<span id="L26567" class="LineNr">26567 </span> e9/jump $translate-mu-length-stmt:end/disp32 -<span id="L26568" class="LineNr">26568 </span> } -<span id="L26569" class="LineNr">26569 </span> <span class="subxComment"># otherwise, the complex case</span> -<span id="L26570" class="LineNr">26570 </span> <span class="subxS1Comment"># . emit register spills</span> -<span id="L26571" class="LineNr">26571 </span> { -<span id="L26572" class="LineNr">26572 </span><span class="Constant">$translate-mu-length-stmt:complex</span>: -<span id="L26573" class="LineNr">26573 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L26574" class="LineNr">26574 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26575" class="LineNr">26575 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L26576" class="LineNr">26576 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26577" class="LineNr">26577 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"50/push-eax\n"</span>) -<span id="L26578" class="LineNr">26578 </span> } -<span id="L26579" class="LineNr">26579 </span> { -<span id="L26580" class="LineNr">26580 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> -<span id="L26581" class="LineNr">26581 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26582" class="LineNr">26582 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L26583" class="LineNr">26583 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26584" class="LineNr">26584 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"51/push-ecx\n"</span>) -<span id="L26585" class="LineNr">26585 </span> } -<span id="L26586" class="LineNr">26586 </span> { -<span id="L26587" class="LineNr">26587 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> -<span id="L26588" class="LineNr">26588 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26589" class="LineNr">26589 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L26590" class="LineNr">26590 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26591" class="LineNr">26591 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"52/push-edx\n"</span>) -<span id="L26592" class="LineNr">26592 </span> } -<span id="L26593" class="LineNr">26593 </span> <span class="subxS1Comment"># .</span> -<span id="L26594" class="LineNr">26594 </span> (<a href='mu.subx.html#L26786'>emit-save-size-to</a> *(ebp+8) %ebx <span class="Constant">"eax"</span>) -<span id="L26595" class="LineNr">26595 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26596" class="LineNr">26596 </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="L26597" class="LineNr">26597 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26598" class="LineNr">26598 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"b9/copy-to-ecx "</span>) -<span id="L26599" class="LineNr">26599 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) -<span id="L26600" class="LineNr">26600 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L26601" class="LineNr">26601 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26602" class="LineNr">26602 </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="L26603" class="LineNr">26603 </span> { -<span id="L26604" class="LineNr">26604 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L26605" class="LineNr">26605 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26606" class="LineNr">26606 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L26607" class="LineNr">26607 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26608" class="LineNr">26608 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"89/<- %"</span>) -<span id="L26609" class="LineNr">26609 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %edx) -<span id="L26610" class="LineNr">26610 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/r32/eax\n"</span>) -<span id="L26611" class="LineNr">26611 </span> } -<span id="L26612" class="LineNr">26612 </span> <span class="subxS1Comment"># . emit register restores</span> -<span id="L26613" class="LineNr">26613 </span> { -<span id="L26614" class="LineNr">26614 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> -<span id="L26615" class="LineNr">26615 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26616" class="LineNr">26616 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L26617" class="LineNr">26617 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26618" class="LineNr">26618 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"5a/pop-to-edx\n"</span>) -<span id="L26619" class="LineNr">26619 </span> } -<span id="L26620" class="LineNr">26620 </span> { -<span id="L26621" class="LineNr">26621 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> -<span id="L26622" class="LineNr">26622 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26623" class="LineNr">26623 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L26624" class="LineNr">26624 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26625" class="LineNr">26625 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"59/pop-to-ecx\n"</span>) -<span id="L26626" class="LineNr">26626 </span> } -<span id="L26627" class="LineNr">26627 </span> { -<span id="L26628" class="LineNr">26628 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L26629" class="LineNr">26629 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26630" class="LineNr">26630 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L26631" class="LineNr">26631 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26632" class="LineNr">26632 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"58/pop-to-eax\n"</span>) -<span id="L26633" class="LineNr">26633 </span> } -<span id="L26634" class="LineNr">26634 </span><span class="Constant">$translate-mu-length-stmt:end</span>: -<span id="L26635" class="LineNr">26635 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26636" class="LineNr">26636 </span> 5e/pop-to-esi -<span id="L26637" class="LineNr">26637 </span> 5b/pop-to-ebx -<span id="L26638" class="LineNr">26638 </span> 5a/pop-to-edx -<span id="L26639" class="LineNr">26639 </span> 59/pop-to-ecx -<span id="L26640" class="LineNr">26640 </span> 58/pop-to-eax -<span id="L26641" class="LineNr">26641 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26642" class="LineNr">26642 </span> 89/<- %esp 5/r32/ebp -<span id="L26643" class="LineNr">26643 </span> 5d/pop-to-ebp -<span id="L26644" class="LineNr">26644 </span> c3/return -<span id="L26645" class="LineNr">26645 </span> -<span id="L26646" class="LineNr">26646 </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="L26647" class="LineNr">26647 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26648" class="LineNr">26648 </span> 55/push-ebp -<span id="L26649" class="LineNr">26649 </span> 89/<- %ebp 4/r32/esp -<span id="L26650" class="LineNr">26650 </span> <span class="subxComment">#</span> -<span id="L26651" class="LineNr">26651 </span> (<a href='mu.subx.html#L26659'>array-element-type-id</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26652" class="LineNr">26652 </span> (<a href='mu.subx.html#L26765'>size-of-type-id-as-array-element</a> %eax) <span class="subxComment"># => eax</span> -<span id="L26653" class="LineNr">26653 </span><span class="Constant">$array-element-size:end</span>: -<span id="L26654" class="LineNr">26654 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26655" class="LineNr">26655 </span> 89/<- %esp 5/r32/ebp -<span id="L26656" class="LineNr">26656 </span> 5d/pop-to-ebp -<span id="L26657" class="LineNr">26657 </span> c3/return -<span id="L26658" class="LineNr">26658 </span> -<span id="L26659" class="LineNr">26659 </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="L26660" class="LineNr">26660 </span> <span class="subxComment"># precondition: n is positive</span> -<span id="L26661" class="LineNr">26661 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26662" class="LineNr">26662 </span> 55/push-ebp -<span id="L26663" class="LineNr">26663 </span> 89/<- %ebp 4/r32/esp -<span id="L26664" class="LineNr">26664 </span> <span class="subxComment">#</span> -<span id="L26665" class="LineNr">26665 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L26666" class="LineNr">26666 </span> <span class="subxComment"># var t/eax: (addr type-tree)</span> -<span id="L26667" class="LineNr">26667 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26668" class="LineNr">26668 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L26669" class="LineNr">26669 </span> 3d/compare-eax-with 0/imm32 -<span id="L26670" class="LineNr">26670 </span> 0f 84/jump-if-== $array-element-type-id:error0/disp32 -<span id="L26671" class="LineNr">26671 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L26672" class="LineNr">26672 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26673" class="LineNr">26673 </span> 0f 85/jump-if-!= $array-element-type-id:error1/disp32 -<span id="L26674" class="LineNr">26674 </span> <span class="subxComment"># if (t->left == addr) t = t->right</span> -<span id="L26675" class="LineNr">26675 </span> { -<span id="L26676" class="LineNr">26676 </span> 50/push-eax -<span id="L26677" class="LineNr">26677 </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="L26678" class="LineNr">26678 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L26679" class="LineNr">26679 </span> 3d/compare-eax-with 0/imm32/false -<span id="L26680" class="LineNr">26680 </span> 58/pop-to-eax -<span id="L26681" class="LineNr">26681 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26682" class="LineNr">26682 </span><span class="Constant">$array-element-type-id:skip-addr</span>: -<span id="L26683" class="LineNr">26683 </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="L26684" class="LineNr">26684 </span> } -<span id="L26685" class="LineNr">26685 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L26686" class="LineNr">26686 </span> 3d/compare-eax-with 0/imm32 -<span id="L26687" class="LineNr">26687 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L26688" class="LineNr">26688 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L26689" class="LineNr">26689 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26690" class="LineNr">26690 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 -<span id="L26691" class="LineNr">26691 </span> <span class="subxComment"># if t->left != array abort</span> -<span id="L26692" class="LineNr">26692 </span> { -<span id="L26693" class="LineNr">26693 </span> 50/push-eax -<span id="L26694" class="LineNr">26694 </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="L26695" class="LineNr">26695 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L26696" class="LineNr">26696 </span> 3d/compare-eax-with 0/imm32/false -<span id="L26697" class="LineNr">26697 </span> 58/pop-to-eax -<span id="L26698" class="LineNr">26698 </span><span class="Constant">$array-element-type-id:no-array</span>: -<span id="L26699" class="LineNr">26699 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L26700" class="LineNr">26700 </span> } -<span id="L26701" class="LineNr">26701 </span><span class="Constant">$array-element-type-id:skip-array</span>: -<span id="L26702" class="LineNr">26702 </span> <span class="subxComment"># t = t->right</span> -<span id="L26703" class="LineNr">26703 </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="L26704" class="LineNr">26704 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L26705" class="LineNr">26705 </span> 3d/compare-eax-with 0/imm32 -<span id="L26706" class="LineNr">26706 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L26707" class="LineNr">26707 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L26708" class="LineNr">26708 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26709" class="LineNr">26709 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 -<span id="L26710" class="LineNr">26710 </span> <span class="subxComment"># t = t->left</span> -<span id="L26711" class="LineNr">26711 </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="L26712" class="LineNr">26712 </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="L26713" class="LineNr">26713 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> -<span id="L26714" class="LineNr">26714 </span> { -<span id="L26715" class="LineNr">26715 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26716" class="LineNr">26716 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26717" class="LineNr">26717 </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="L26718" class="LineNr">26718 </span> } -<span id="L26719" class="LineNr">26719 </span> <span class="subxComment"># return t->value</span> -<span id="L26720" class="LineNr">26720 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L26721" class="LineNr">26721 </span><span class="Constant">$array-element-type-id:end</span>: -<span id="L26722" class="LineNr">26722 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26723" class="LineNr">26723 </span> 89/<- %esp 5/r32/ebp -<span id="L26724" class="LineNr">26724 </span> 5d/pop-to-ebp -<span id="L26725" class="LineNr">26725 </span> c3/return -<span id="L26726" class="LineNr">26726 </span> -<span id="L26727" class="LineNr">26727 </span><span class="Constant">$array-element-type-id:error0</span>: -<span id="L26728" class="LineNr">26728 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L26729" class="LineNr">26729 </span> 50/push-eax -<span id="L26730" class="LineNr">26730 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L26731" class="LineNr">26731 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26732" class="LineNr">26732 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L26733" class="LineNr">26733 </span> 58/pop-to-eax -<span id="L26734" class="LineNr">26734 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) -<span id="L26735" class="LineNr">26735 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L26736" class="LineNr">26736 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L26737" class="LineNr">26737 </span> <span class="subxComment"># never gets here</span> -<span id="L26738" class="LineNr">26738 </span> -<span id="L26739" class="LineNr">26739 </span><span class="Constant">$array-element-type-id:error1</span>: -<span id="L26740" class="LineNr">26740 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L26741" class="LineNr">26741 </span> 50/push-eax -<span id="L26742" class="LineNr">26742 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L26743" class="LineNr">26743 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26744" class="LineNr">26744 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L26745" class="LineNr">26745 </span> 58/pop-to-eax -<span id="L26746" class="LineNr">26746 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) -<span id="L26747" class="LineNr">26747 </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="L26748" class="LineNr">26748 </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="L26749" class="LineNr">26749 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L26750" class="LineNr">26750 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L26751" class="LineNr">26751 </span> <span class="subxComment"># never gets here</span> -<span id="L26752" class="LineNr">26752 </span> -<span id="L26753" class="LineNr">26753 </span><span class="Constant">$array-element-type-id:error2</span>: -<span id="L26754" class="LineNr">26754 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L26755" class="LineNr">26755 </span> 50/push-eax -<span id="L26756" class="LineNr">26756 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L26757" class="LineNr">26757 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26758" class="LineNr">26758 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L26759" class="LineNr">26759 </span> 58/pop-to-eax -<span id="L26760" class="LineNr">26760 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-array type\n"</span>) -<span id="L26761" class="LineNr">26761 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L26762" class="LineNr">26762 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L26763" class="LineNr">26763 </span> <span class="subxComment"># never gets here</span> -<span id="L26764" class="LineNr">26764 </span> -<span id="L26765" class="LineNr">26765 </span><span class="subxFunction">size-of-type-id-as-array-element</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> -<span id="L26766" class="LineNr">26766 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26767" class="LineNr">26767 </span> 55/push-ebp -<span id="L26768" class="LineNr">26768 </span> 89/<- %ebp 4/r32/esp -<span id="L26769" class="LineNr">26769 </span> <span class="subxComment"># eax = t</span> -<span id="L26770" class="LineNr">26770 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L26771" class="LineNr">26771 </span> <span class="subxComment"># if t is 'byte', size is 1</span> -<span id="L26772" class="LineNr">26772 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L26773" class="LineNr">26773 </span> { -<span id="L26774" class="LineNr">26774 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26775" class="LineNr">26775 </span> b8/copy-to-eax 1/imm32 -<span id="L26776" class="LineNr">26776 </span> eb/jump $size-of-type-id-as-array-element:end/disp8 -<span id="L26777" class="LineNr">26777 </span> } -<span id="L26778" class="LineNr">26778 </span> <span class="subxComment"># otherwise proceed as usual</span> -<span id="L26779" class="LineNr">26779 </span> (<a href='mu.subx.html#L24587'>size-of-type-id</a> %eax) <span class="subxComment"># => eax</span> -<span id="L26780" class="LineNr">26780 </span><span class="Constant">$size-of-type-id-as-array-element:end</span>: -<span id="L26781" class="LineNr">26781 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26782" class="LineNr">26782 </span> 89/<- %esp 5/r32/ebp -<span id="L26783" class="LineNr">26783 </span> 5d/pop-to-ebp -<span id="L26784" class="LineNr">26784 </span> c3/return -<span id="L26785" class="LineNr">26785 </span> -<span id="L26786" class="LineNr">26786 </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="L26787" class="LineNr">26787 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26788" class="LineNr">26788 </span> 55/push-ebp -<span id="L26789" class="LineNr">26789 </span> 89/<- %ebp 4/r32/esp -<span id="L26790" class="LineNr">26790 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26791" class="LineNr">26791 </span> 50/push-eax -<span id="L26792" class="LineNr">26792 </span> 53/push-ebx -<span id="L26793" class="LineNr">26793 </span> <span class="subxComment"># ebx = base</span> -<span id="L26794" class="LineNr">26794 </span> 8b/-> *(ebp+0xc) 3/r32/ebx -<span id="L26795" class="LineNr">26795 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26796" class="LineNr">26796 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/-> *"</span>) -<span id="L26797" class="LineNr">26797 </span> <span class="subxComment"># if base is an (addr array ...) in a register</span> -<span id="L26798" class="LineNr">26798 </span> { -<span id="L26799" class="LineNr">26799 </span> 81 7/subop/compare *(ebx+0x18)) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L26800" class="LineNr">26800 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26801" class="LineNr">26801 </span><span class="Constant">$emit-save-size-to:emit-base-from-register</span>: -<span id="L26802" class="LineNr">26802 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26803" class="LineNr">26803 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L26804" class="LineNr">26804 </span> eb/jump $emit-save-size-to:emit-output/disp8 -<span id="L26805" class="LineNr">26805 </span> } -<span id="L26806" class="LineNr">26806 </span> <span class="subxComment"># otherwise if base is an (array ...) on the stack</span> -<span id="L26807" class="LineNr">26807 </span> { -<span id="L26808" class="LineNr">26808 </span> 81 7/subop/compare *(ebx+0x14)) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L26809" class="LineNr">26809 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26810" class="LineNr">26810 </span><span class="Constant">$emit-save-size-to:emit-base-from-stack</span>: -<span id="L26811" class="LineNr">26811 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(ebp+"</span>) -<span id="L26812" class="LineNr">26812 </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="L26813" class="LineNr">26813 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L26814" class="LineNr">26814 </span> } -<span id="L26815" class="LineNr">26815 </span><span class="Constant">$emit-save-size-to:emit-output</span>: -<span id="L26816" class="LineNr">26816 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L26817" class="LineNr">26817 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L17859'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L26818" class="LineNr">26818 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L26819" class="LineNr">26819 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L26820" class="LineNr">26820 </span><span class="Constant">$emit-save-size-to:end</span>: -<span id="L26821" class="LineNr">26821 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26822" class="LineNr">26822 </span> 5b/pop-to-ebx -<span id="L26823" class="LineNr">26823 </span> 58/pop-to-eax -<span id="L26824" class="LineNr">26824 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26825" class="LineNr">26825 </span> 89/<- %esp 5/r32/ebp -<span id="L26826" class="LineNr">26826 </span> 5d/pop-to-ebp -<span id="L26827" class="LineNr">26827 </span> c3/return -<span id="L26828" class="LineNr">26828 </span> -<span id="L26829" class="LineNr">26829 </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="L26830" class="LineNr">26830 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26831" class="LineNr">26831 </span> 55/push-ebp -<span id="L26832" class="LineNr">26832 </span> 89/<- %ebp 4/r32/esp -<span id="L26833" class="LineNr">26833 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26834" class="LineNr">26834 </span> 50/push-eax -<span id="L26835" class="LineNr">26835 </span> <span class="subxComment">#</span> -<span id="L26836" class="LineNr">26836 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26837" class="LineNr">26837 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c1/shift 5/subop/>> %"</span>) -<span id="L26838" class="LineNr">26838 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L26839" class="LineNr">26839 </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="L26840" class="LineNr">26840 </span> (<a href='mu.subx.html#L27784'>num-shift-rights</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26841" class="LineNr">26841 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L26842" class="LineNr">26842 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8\n"</span>) -<span id="L26843" class="LineNr">26843 </span><span class="Constant">$emit-divide-by-shift-right:end</span>: -<span id="L26844" class="LineNr">26844 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26845" class="LineNr">26845 </span> 58/pop-to-eax -<span id="L26846" class="LineNr">26846 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26847" class="LineNr">26847 </span> 89/<- %esp 5/r32/ebp -<span id="L26848" class="LineNr">26848 </span> 5d/pop-to-ebp -<span id="L26849" class="LineNr">26849 </span> c3/return -<span id="L26850" class="LineNr">26850 </span> -<span id="L26851" class="LineNr">26851 </span><span class="subxComment"># a little different from other translate- functions; notice the extra 'fn' argument</span> -<span id="L26852" class="LineNr">26852 </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="L26853" class="LineNr">26853 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26854" class="LineNr">26854 </span> 55/push-ebp -<span id="L26855" class="LineNr">26855 </span> 89/<- %ebp 4/r32/esp -<span id="L26856" class="LineNr">26856 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26857" class="LineNr">26857 </span> 53/push-ebx -<span id="L26858" class="LineNr">26858 </span> <span class="subxComment"># ebx = stmt</span> -<span id="L26859" class="LineNr">26859 </span> 8b/-> *(ebp+0xc) 3/r32/ebx -<span id="L26860" class="LineNr">26860 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]</span> -<span id="L26861" class="LineNr">26861 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L26862" class="LineNr">26862 </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="L26863" class="LineNr">26863 </span> 89/<- %ebx 0/r32/eax -<span id="L26864" class="LineNr">26864 </span> <span class="subxComment"># emit bounds-check</span> -<span id="L26865" class="LineNr">26865 </span> (<a href='mu.subx.html#L26902'>emit-mu-index-bounds-check</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) -<span id="L26866" class="LineNr">26866 </span> <span class="subxComment"># if (var->register) do one thing</span> -<span id="L26867" class="LineNr">26867 </span> { -<span id="L26868" class="LineNr">26868 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L26869" class="LineNr">26869 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26870" class="LineNr">26870 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> -<span id="L26871" class="LineNr">26871 </span> (<a href='mu.subx.html#L27021'>translate-mu-index-stmt-with-array-in-register</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L26872" class="LineNr">26872 </span> eb/jump $translate-mu-index-stmt:end/disp8 -<span id="L26873" class="LineNr">26873 </span> } -<span id="L26874" class="LineNr">26874 </span> <span class="subxComment"># if (var->offset) do a different thing</span> -<span id="L26875" class="LineNr">26875 </span> { -<span id="L26876" class="LineNr">26876 </span> 81 7/subop/compare *(ebx+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L26877" class="LineNr">26877 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26878" class="LineNr">26878 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> -<span id="L26879" class="LineNr">26879 </span> (<a href='mu.subx.html#L27137'>translate-mu-index-stmt-with-array-on-stack</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L26880" class="LineNr">26880 </span> eb/jump $translate-mu-index-stmt:end/disp8 -<span id="L26881" class="LineNr">26881 </span> } -<span id="L26882" class="LineNr">26882 </span><span class="Constant">$translate-mu-index-stmt:end</span>: -<span id="L26883" class="LineNr">26883 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26884" class="LineNr">26884 </span> 5b/pop-to-ebx -<span id="L26885" class="LineNr">26885 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26886" class="LineNr">26886 </span> 89/<- %esp 5/r32/ebp -<span id="L26887" class="LineNr">26887 </span> 5d/pop-to-ebp -<span id="L26888" class="LineNr">26888 </span> c3/return -<span id="L26889" class="LineNr">26889 </span> -<span id="L26890" class="LineNr">26890 </span><span class="Constant">$translate-mu-index-stmt:error1</span>: -<span id="L26891" class="LineNr">26891 </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="L26892" class="LineNr">26892 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26893" class="LineNr">26893 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26894" class="LineNr">26894 </span> <span class="subxComment"># never gets here</span> -<span id="L26895" class="LineNr">26895 </span> -<span id="L26896" class="LineNr">26896 </span><span class="Constant">$translate-mu-index-stmt:error2</span>: -<span id="L26897" class="LineNr">26897 </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="L26898" class="LineNr">26898 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26899" class="LineNr">26899 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26900" class="LineNr">26900 </span> <span class="subxComment"># never gets here</span> -<span id="L26901" class="LineNr">26901 </span> -<span id="L26902" class="LineNr">26902 </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="L26903" class="LineNr">26903 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26904" class="LineNr">26904 </span> 55/push-ebp -<span id="L26905" class="LineNr">26905 </span> 89/<- %ebp 4/r32/esp -<span id="L26906" class="LineNr">26906 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26907" class="LineNr">26907 </span> 50/push-eax -<span id="L26908" class="LineNr">26908 </span> 51/push-ecx -<span id="L26909" class="LineNr">26909 </span> 52/push-edx -<span id="L26910" class="LineNr">26910 </span> 53/push-ebx -<span id="L26911" class="LineNr">26911 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L26912" class="LineNr">26912 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L26913" class="LineNr">26913 </span> <span class="subxComment">#</span> -<span id="L26914" class="LineNr">26914 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L26915" class="LineNr">26915 </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="L26916" class="LineNr">26916 </span><span class="Constant">$emit-mu-index-bounds-check:compute-base</span>: -<span id="L26917" class="LineNr">26917 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> -<span id="L26918" class="LineNr">26918 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L26919" class="LineNr">26919 </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="L26920" class="LineNr">26920 </span> 89/<- %ebx 0/r32/eax -<span id="L26921" class="LineNr">26921 </span><span class="Constant">$emit-mu-index-bounds-check:emit-index</span>: -<span id="L26922" class="LineNr">26922 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> -<span id="L26923" class="LineNr">26923 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L26924" class="LineNr">26924 </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="L26925" class="LineNr">26925 </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="L26926" class="LineNr">26926 </span> 89/<- %edx 0/r32/eax -<span id="L26927" class="LineNr">26927 </span> <span class="subxComment"># if index->register, print its code</span> -<span id="L26928" class="LineNr">26928 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L26929" class="LineNr">26929 </span> { -<span id="L26930" class="LineNr">26930 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26931" class="LineNr">26931 </span><span class="Constant">$emit-mu-index-bounds-check:emit-register-index</span>: -<span id="L26932" class="LineNr">26932 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"%"</span>) -<span id="L26933" class="LineNr">26933 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26934" class="LineNr">26934 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L26935" class="LineNr">26935 </span> eb/jump $emit-mu-index-bounds-check:index-done/disp8 -<span id="L26936" class="LineNr">26936 </span> } -<span id="L26937" class="LineNr">26937 </span> <span class="subxComment"># otherwise if index is a literal, print it</span> -<span id="L26938" class="LineNr">26938 </span><span class="Constant">$emit-mu-index-bounds-check:emit-literal-index</span>: -<span id="L26939" class="LineNr">26939 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26940" class="LineNr">26940 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L26941" class="LineNr">26941 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26942" class="LineNr">26942 </span> { -<span id="L26943" class="LineNr">26943 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26944" class="LineNr">26944 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26945" class="LineNr">26945 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L26946" class="LineNr">26946 </span> } -<span id="L26947" class="LineNr">26947 </span><span class="Constant">$emit-mu-index-bounds-check:index-done</span>: -<span id="L26948" class="LineNr">26948 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L26949" class="LineNr">26949 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size</span>: -<span id="L26950" class="LineNr">26950 </span> <span class="subxComment"># if index is a literal or int, print size of array element</span> -<span id="L26951" class="LineNr">26951 </span> { -<span id="L26952" class="LineNr">26952 </span> { -<span id="L26953" class="LineNr">26953 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26954" class="LineNr">26954 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L26955" class="LineNr">26955 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26956" class="LineNr">26956 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26957" class="LineNr">26957 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26958" class="LineNr">26958 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L26959" class="LineNr">26959 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26960" class="LineNr">26960 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26961" class="LineNr">26961 </span> eb/jump $emit-mu-index-bounds-check:emit-element-size-offset/disp8 -<span id="L26962" class="LineNr">26962 </span> } -<span id="L26963" class="LineNr">26963 </span><span class="Constant">$emit-mu-index-bounds-check:emit-int-register-index</span>: -<span id="L26964" class="LineNr">26964 </span> (<a href='mu.subx.html#L26646'>array-element-size</a> %ebx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L26965" class="LineNr">26965 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L26966" class="LineNr">26966 </span> e9/jump $emit-mu-index-bounds-check:emit-base/disp32 -<span id="L26967" class="LineNr">26967 </span> } -<span id="L26968" class="LineNr">26968 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size-offset</span>: -<span id="L26969" class="LineNr">26969 </span> <span class="subxComment"># if index has type (offset ...), print "1"</span> -<span id="L26970" class="LineNr">26970 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26971" class="LineNr">26971 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26972" class="LineNr">26972 </span> { -<span id="L26973" class="LineNr">26973 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26974" class="LineNr">26974 </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="L26975" class="LineNr">26975 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> -<span id="L26976" class="LineNr">26976 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26977" class="LineNr">26977 </span> { -<span id="L26978" class="LineNr">26978 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26979" class="LineNr">26979 </span><span class="Constant">$emit-mu-index-bounds-check:emit-offset-register-index</span>: -<span id="L26980" class="LineNr">26980 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"1"</span>) -<span id="L26981" class="LineNr">26981 </span> } -<span id="L26982" class="LineNr">26982 </span> } -<span id="L26983" class="LineNr">26983 </span><span class="Constant">$emit-mu-index-bounds-check:emit-base</span>: -<span id="L26984" class="LineNr">26984 </span> <span class="subxComment"># if base is in a register, print " *" base->register</span> -<span id="L26985" class="LineNr">26985 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L26986" class="LineNr">26986 </span> { -<span id="L26987" class="LineNr">26987 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26988" class="LineNr">26988 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) -<span id="L26989" class="LineNr">26989 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26990" class="LineNr">26990 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L26991" class="LineNr">26991 </span> e9/jump $emit-mu-index-bounds-check:emit-function-name/disp32 -<span id="L26992" class="LineNr">26992 </span> } -<span id="L26993" class="LineNr">26993 </span> <span class="subxComment"># otherwise print " *(ebp+" base->offset ")"</span> -<span id="L26994" class="LineNr">26994 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) -<span id="L26995" class="LineNr">26995 </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="L26996" class="LineNr">26996 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L26997" class="LineNr">26997 </span><span class="Constant">$emit-mu-index-bounds-check:emit-function-name</span>: -<span id="L26998" class="LineNr">26998 </span> <span class="subxComment"># " \"" function-name "\""</span> -<span id="L26999" class="LineNr">26999 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") -<span id="L27000" class="LineNr">27000 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L27001" class="LineNr">27001 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L27002" class="LineNr">27002 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27003" class="LineNr">27003 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>") -<span id="L27004" class="LineNr">27004 </span><span class="Constant">$emit-mu-index-bounds-check:emit-array-name</span>: -<span id="L27005" class="LineNr">27005 </span> <span class="subxComment"># " \"" base->name "\""</span> -<span id="L27006" class="LineNr">27006 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") -<span id="L27007" class="LineNr">27007 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27008" class="LineNr">27008 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27009" class="LineNr">27009 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>)\n") -<span id="L27010" class="LineNr">27010 </span><span class="Constant">$emit-mu-index-bounds-check:end</span>: -<span id="L27011" class="LineNr">27011 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27012" class="LineNr">27012 </span> 5b/pop-to-ebx -<span id="L27013" class="LineNr">27013 </span> 5a/pop-to-edx -<span id="L27014" class="LineNr">27014 </span> 59/pop-to-ecx -<span id="L27015" class="LineNr">27015 </span> 58/pop-to-eax -<span id="L27016" class="LineNr">27016 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27017" class="LineNr">27017 </span> 89/<- %esp 5/r32/ebp -<span id="L27018" class="LineNr">27018 </span> 5d/pop-to-ebp -<span id="L27019" class="LineNr">27019 </span> c3/return -<span id="L27020" class="LineNr">27020 </span> -<span id="L27021" class="LineNr">27021 </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="L27022" class="LineNr">27022 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27023" class="LineNr">27023 </span> 55/push-ebp -<span id="L27024" class="LineNr">27024 </span> 89/<- %ebp 4/r32/esp -<span id="L27025" class="LineNr">27025 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27026" class="LineNr">27026 </span> 50/push-eax -<span id="L27027" class="LineNr">27027 </span> 51/push-ecx -<span id="L27028" class="LineNr">27028 </span> 52/push-edx -<span id="L27029" class="LineNr">27029 </span> 53/push-ebx -<span id="L27030" class="LineNr">27030 </span> <span class="subxComment">#</span> -<span id="L27031" class="LineNr">27031 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L27032" class="LineNr">27032 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *("</span>) -<span id="L27033" class="LineNr">27033 </span> <span class="subxComment"># TODO: ensure inouts[0] is in a register and not dereferenced</span> -<span id="L27034" class="LineNr">27034 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-base</span>: -<span id="L27035" class="LineNr">27035 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L26456" class="LineNr">26456 </span><span class="Constant">$emit-cleanup-code-until-target:end</span>: +<span id="L26457" class="LineNr">26457 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26458" class="LineNr">26458 </span> 5b/pop-to-ebx +<span id="L26459" class="LineNr">26459 </span> 5a/pop-to-edx +<span id="L26460" class="LineNr">26460 </span> 59/pop-to-ecx +<span id="L26461" class="LineNr">26461 </span> 58/pop-to-eax +<span id="L26462" class="LineNr">26462 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26463" class="LineNr">26463 </span> 89/<- %esp 5/r32/ebp +<span id="L26464" class="LineNr">26464 </span> 5d/pop-to-ebp +<span id="L26465" class="LineNr">26465 </span> c3/return +<span id="L26466" class="LineNr">26466 </span> +<span id="L26467" class="LineNr">26467 </span><span class="subxComment"># update Curr-local-stack-offset assuming vars until some block depth are popped</span> +<span id="L26468" class="LineNr">26468 </span><span class="subxComment"># doesn't actually modify 'vars', so we need traverse manually inside the stack</span> +<span id="L26469" class="LineNr">26469 </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="L26470" class="LineNr">26470 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26471" class="LineNr">26471 </span> 55/push-ebp +<span id="L26472" class="LineNr">26472 </span> 89/<- %ebp 4/r32/esp +<span id="L26473" class="LineNr">26473 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26474" class="LineNr">26474 </span> 50/push-eax +<span id="L26475" class="LineNr">26475 </span> 51/push-ecx +<span id="L26476" class="LineNr">26476 </span> 52/push-edx +<span id="L26477" class="LineNr">26477 </span> 53/push-ebx +<span id="L26478" class="LineNr">26478 </span> 56/push-esi +<span id="L26479" class="LineNr">26479 </span> <span class="subxComment"># ecx = vars</span> +<span id="L26480" class="LineNr">26480 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26481" class="LineNr">26481 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L26482" class="LineNr">26482 </span> 8b/-> *ecx 6/r32/esi +<span id="L26483" class="LineNr">26483 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L26484" class="LineNr">26484 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L26485" class="LineNr">26485 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L26486" class="LineNr">26486 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L26487" class="LineNr">26487 </span> <span class="subxComment"># edx = until-block-depth</span> +<span id="L26488" class="LineNr">26488 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L26489" class="LineNr">26489 </span> { +<span id="L26490" class="LineNr">26490 </span><span class="Constant">$clean-up-stack-offset-state:loop</span>: +<span id="L26491" class="LineNr">26491 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L26492" class="LineNr">26492 </span> 39/compare %esi 1/r32/ecx +<span id="L26493" class="LineNr">26493 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L26494" class="LineNr">26494 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L26495" class="LineNr">26495 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L26496" class="LineNr">26496 </span> 89/<- %ebx 0/r32/eax +<span id="L26497" class="LineNr">26497 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L26498" class="LineNr">26498 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L26499" class="LineNr">26499 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L26500" class="LineNr">26500 </span> <span class="subxComment"># if v is in a register</span> +<span id="L26501" class="LineNr">26501 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L26502" class="LineNr">26502 </span> { +<span id="L26503" class="LineNr">26503 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26504" class="LineNr">26504 </span> { +<span id="L26505" class="LineNr">26505 </span><span class="Constant">$clean-up-stack-offset-state:check-for-previous-spill</span>: +<span id="L26506" class="LineNr">26506 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L26507" class="LineNr">26507 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26508" class="LineNr">26508 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26509" class="LineNr">26509 </span><span class="Constant">$clean-up-stack-offset-state:reclaim-var-in-register</span>: +<span id="L26510" class="LineNr">26510 </span> 81 0/subop/add *<span class="SpecialChar"><a href='mu.subx.html#L25421'>Curr-local-stack-offset</a></span> 4/imm32 +<span id="L26511" class="LineNr">26511 </span> } +<span id="L26512" class="LineNr">26512 </span> eb/jump $clean-up-stack-offset-state:continue/disp8 +<span id="L26513" class="LineNr">26513 </span> } +<span id="L26514" class="LineNr">26514 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L26515" class="LineNr">26515 </span> { +<span id="L26516" class="LineNr">26516 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26517" class="LineNr">26517 </span><span class="Constant">$clean-up-stack-offset-state:var-on-stack</span>: +<span id="L26518" class="LineNr">26518 </span> (<a href='mu.subx.html#L25018'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L26519" class="LineNr">26519 </span> 01/add-to *<span class="SpecialChar"><a href='mu.subx.html#L25421'>Curr-local-stack-offset</a></span> 0/r32/eax +<span id="L26520" class="LineNr">26520 </span> } +<span id="L26521" class="LineNr">26521 </span><span class="Constant">$clean-up-stack-offset-state:continue</span>: +<span id="L26522" class="LineNr">26522 </span> <span class="subxComment"># curr -= 12</span> +<span id="L26523" class="LineNr">26523 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L26524" class="LineNr">26524 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26525" class="LineNr">26525 </span> } +<span id="L26526" class="LineNr">26526 </span><span class="Constant">$clean-up-stack-offset-state:end</span>: +<span id="L26527" class="LineNr">26527 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26528" class="LineNr">26528 </span> 5e/pop-to-esi +<span id="L26529" class="LineNr">26529 </span> 5b/pop-to-ebx +<span id="L26530" class="LineNr">26530 </span> 5a/pop-to-edx +<span id="L26531" class="LineNr">26531 </span> 59/pop-to-ecx +<span id="L26532" class="LineNr">26532 </span> 58/pop-to-eax +<span id="L26533" class="LineNr">26533 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26534" class="LineNr">26534 </span> 89/<- %esp 5/r32/ebp +<span id="L26535" class="LineNr">26535 </span> 5d/pop-to-ebp +<span id="L26536" class="LineNr">26536 </span> c3/return +<span id="L26537" class="LineNr">26537 </span> +<span id="L26538" class="LineNr">26538 </span><span class="subxComment"># Return true if there isn't a variable in 'vars' with the same block-depth</span> +<span id="L26539" class="LineNr">26539 </span><span class="subxComment"># and register as 'v'.</span> +<span id="L26540" class="LineNr">26540 </span><span class="subxComment"># 'v' is guaranteed not to be within 'vars'.</span> +<span id="L26541" class="LineNr">26541 </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="L26542" class="LineNr">26542 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26543" class="LineNr">26543 </span> 55/push-ebp +<span id="L26544" class="LineNr">26544 </span> 89/<- %ebp 4/r32/esp +<span id="L26545" class="LineNr">26545 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26546" class="LineNr">26546 </span> 51/push-ecx +<span id="L26547" class="LineNr">26547 </span> 52/push-edx +<span id="L26548" class="LineNr">26548 </span> 53/push-ebx +<span id="L26549" class="LineNr">26549 </span> 56/push-esi +<span id="L26550" class="LineNr">26550 </span> 57/push-edi +<span id="L26551" class="LineNr">26551 </span> <span class="subxComment"># ecx = vars</span> +<span id="L26552" class="LineNr">26552 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L26553" class="LineNr">26553 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L26554" class="LineNr">26554 </span> 8b/-> *ecx 0/r32/eax +<span id="L26555" class="LineNr">26555 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L26556" class="LineNr">26556 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L26557" class="LineNr">26557 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L26558" class="LineNr">26558 </span> 8d/copy-address *(ecx+8) 1/r32/ecx +<span id="L26559" class="LineNr">26559 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> +<span id="L26560" class="LineNr">26560 </span> 8b/-> *(ebp+8) 3/r32/ebx +<span id="L26561" class="LineNr">26561 </span> 8b/-> *(ebx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L26562" class="LineNr">26562 </span> <span class="subxComment"># var needle/esi: (addr array byte) = v->register</span> +<span id="L26563" class="LineNr">26563 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L26564" class="LineNr">26564 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26565" class="LineNr">26565 </span> 89/<- %esi 0/r32/eax +<span id="L26566" class="LineNr">26566 </span> { +<span id="L26567" class="LineNr">26567 </span><span class="Constant">$not-yet-spilled-this-block?:loop</span>: +<span id="L26568" class="LineNr">26568 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L26569" class="LineNr">26569 </span> 39/compare %edx 1/r32/ecx +<span id="L26570" class="LineNr">26570 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L26571" class="LineNr">26571 </span> <span class="subxComment"># var cand/edi: (addr var) = lookup(*curr)</span> +<span id="L26572" class="LineNr">26572 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L26573" class="LineNr">26573 </span> 89/<- %edi 0/r32/eax +<span id="L26574" class="LineNr">26574 </span> <span class="subxComment"># if (cand->block-depth < depth) break</span> +<span id="L26575" class="LineNr">26575 </span> 39/compare *(edi+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L26576" class="LineNr">26576 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L26577" class="LineNr">26577 </span> <span class="subxComment"># var cand-reg/edi: (array array byte) = cand->reg</span> +<span id="L26578" class="LineNr">26578 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26579" class="LineNr">26579 </span> 89/<- %edi 0/r32/eax +<span id="L26580" class="LineNr">26580 </span> <span class="subxComment"># if (cand-reg == null) continue</span> +<span id="L26581" class="LineNr">26581 </span> { +<span id="L26582" class="LineNr">26582 </span><span class="Constant">$not-yet-spilled-this-block?:check-reg</span>: +<span id="L26583" class="LineNr">26583 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L26584" class="LineNr">26584 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26585" class="LineNr">26585 </span> <span class="subxComment"># if (cand-reg == needle) return true</span> +<span id="L26586" class="LineNr">26586 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> +<span id="L26587" class="LineNr">26587 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26588" class="LineNr">26588 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26589" class="LineNr">26589 </span><span class="Constant">$not-yet-spilled-this-block?:return-false</span>: +<span id="L26590" class="LineNr">26590 </span> b8/copy-to-eax 0/imm32/false +<span id="L26591" class="LineNr">26591 </span> eb/jump $not-yet-spilled-this-block?:end/disp8 +<span id="L26592" class="LineNr">26592 </span> } +<span id="L26593" class="LineNr">26593 </span><span class="Constant">$not-yet-spilled-this-block?:continue</span>: +<span id="L26594" class="LineNr">26594 </span> <span class="subxComment"># curr -= 12</span> +<span id="L26595" class="LineNr">26595 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L26596" class="LineNr">26596 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26597" class="LineNr">26597 </span> } +<span id="L26598" class="LineNr">26598 </span><span class="Constant">$not-yet-spilled-this-block?:return-true</span>: +<span id="L26599" class="LineNr">26599 </span> <span class="subxComment"># return true</span> +<span id="L26600" class="LineNr">26600 </span> b8/copy-to-eax 1/imm32/true +<span id="L26601" class="LineNr">26601 </span><span class="Constant">$not-yet-spilled-this-block?:end</span>: +<span id="L26602" class="LineNr">26602 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26603" class="LineNr">26603 </span> 5f/pop-to-edi +<span id="L26604" class="LineNr">26604 </span> 5e/pop-to-esi +<span id="L26605" class="LineNr">26605 </span> 5b/pop-to-ebx +<span id="L26606" class="LineNr">26606 </span> 5a/pop-to-edx +<span id="L26607" class="LineNr">26607 </span> 59/pop-to-ecx +<span id="L26608" class="LineNr">26608 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26609" class="LineNr">26609 </span> 89/<- %esp 5/r32/ebp +<span id="L26610" class="LineNr">26610 </span> 5d/pop-to-ebp +<span id="L26611" class="LineNr">26611 </span> c3/return +<span id="L26612" class="LineNr">26612 </span> +<span id="L26613" class="LineNr">26613 </span><span class="subxComment"># could the register of 'v' ever be written to by one of the vars in fn-outputs?</span> +<span id="L26614" class="LineNr">26614 </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="L26615" class="LineNr">26615 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26616" class="LineNr">26616 </span> 55/push-ebp +<span id="L26617" class="LineNr">26617 </span> 89/<- %ebp 4/r32/esp +<span id="L26618" class="LineNr">26618 </span> <span class="subxComment"># eax = v</span> +<span id="L26619" class="LineNr">26619 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L26620" class="LineNr">26620 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> +<span id="L26621" class="LineNr">26621 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26622" class="LineNr">26622 </span> <span class="subxComment"># var target/eax: (addr var) = find-register(fn-outputs, reg)</span> +<span id="L26623" class="LineNr">26623 </span> (<a href='mu.subx.html#L26644'>find-register</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> +<span id="L26624" class="LineNr">26624 </span> <span class="subxComment"># if (target == 0) return true</span> +<span id="L26625" class="LineNr">26625 </span> { +<span id="L26626" class="LineNr">26626 </span> 3d/compare-eax-and 0/imm32 +<span id="L26627" class="LineNr">26627 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26628" class="LineNr">26628 </span> b8/copy-to-eax 1/imm32/true +<span id="L26629" class="LineNr">26629 </span> eb/jump $will-not-write-some-register?:end/disp8 +<span id="L26630" class="LineNr">26630 </span> } +<span id="L26631" class="LineNr">26631 </span> <span class="subxComment"># return !assigns-in-stmts?(stmts, target)</span> +<span id="L26632" class="LineNr">26632 </span> (<a href='mu.subx.html#L26686'>assigns-in-stmts?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> +<span id="L26633" class="LineNr">26633 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26634" class="LineNr">26634 </span> <span class="subxComment"># assume: true = 1, so no need to mask with 0x000000ff</span> +<span id="L26635" class="LineNr">26635 </span> 0f 94/set-if-= %al +<span id="L26636" class="LineNr">26636 </span><span class="Constant">$will-not-write-some-register?:end</span>: +<span id="L26637" class="LineNr">26637 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26638" class="LineNr">26638 </span> 89/<- %esp 5/r32/ebp +<span id="L26639" class="LineNr">26639 </span> 5d/pop-to-ebp +<span id="L26640" class="LineNr">26640 </span> c3/return +<span id="L26641" class="LineNr">26641 </span> +<span id="L26642" class="LineNr">26642 </span><span class="subxComment"># return fn output with matching register</span> +<span id="L26643" class="LineNr">26643 </span><span class="subxComment"># always returns false if 'reg' is null</span> +<span id="L26644" class="LineNr">26644 </span><span class="subxFunction">find-register</span>: <span class="subxComment"># fn: (addr function), reg: (addr array byte) -> result/eax: (addr var)</span> +<span id="L26645" class="LineNr">26645 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26646" class="LineNr">26646 </span> 55/push-ebp +<span id="L26647" class="LineNr">26647 </span> 89/<- %ebp 4/r32/esp +<span id="L26648" class="LineNr">26648 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26649" class="LineNr">26649 </span> 51/push-ecx +<span id="L26650" class="LineNr">26650 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> +<span id="L26651" class="LineNr">26651 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26652" class="LineNr">26652 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L26653" class="LineNr">26653 </span> 89/<- %ecx 0/r32/eax +<span id="L26654" class="LineNr">26654 </span> { +<span id="L26655" class="LineNr">26655 </span><span class="Constant">$find-register:loop</span>: +<span id="L26656" class="LineNr">26656 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L26657" class="LineNr">26657 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26658" class="LineNr">26658 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26659" class="LineNr">26659 </span> <span class="subxComment"># eax = curr->value->register</span> +<span id="L26660" class="LineNr">26660 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L26661" class="LineNr">26661 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26662" class="LineNr">26662 </span> <span class="subxComment"># if (eax == reg) return curr->value</span> +<span id="L26663" class="LineNr">26663 </span><span class="Constant">$find-register:compare</span>: +<span id="L26664" class="LineNr">26664 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> +<span id="L26665" class="LineNr">26665 </span> { +<span id="L26666" class="LineNr">26666 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26667" class="LineNr">26667 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26668" class="LineNr">26668 </span><span class="Constant">$find-register:found</span>: +<span id="L26669" class="LineNr">26669 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L26670" class="LineNr">26670 </span> eb/jump $find-register:end/disp8 +<span id="L26671" class="LineNr">26671 </span> } +<span id="L26672" class="LineNr">26672 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L26673" class="LineNr">26673 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L26674" class="LineNr">26674 </span> 89/<- %ecx 0/r32/eax +<span id="L26675" class="LineNr">26675 </span> <span class="subxComment">#</span> +<span id="L26676" class="LineNr">26676 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L26677" class="LineNr">26677 </span> } +<span id="L26678" class="LineNr">26678 </span><span class="Constant">$find-register:end</span>: +<span id="L26679" class="LineNr">26679 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26680" class="LineNr">26680 </span> 59/pop-to-ecx +<span id="L26681" class="LineNr">26681 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26682" class="LineNr">26682 </span> 89/<- %esp 5/r32/ebp +<span id="L26683" class="LineNr">26683 </span> 5d/pop-to-ebp +<span id="L26684" class="LineNr">26684 </span> c3/return +<span id="L26685" class="LineNr">26685 </span> +<span id="L26686" class="LineNr">26686 </span><span class="subxFunction">assigns-in-stmts?</span>: <span class="subxComment"># stmts: (addr list stmt), v: (addr var) -> result/eax: boolean</span> +<span id="L26687" class="LineNr">26687 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26688" class="LineNr">26688 </span> 55/push-ebp +<span id="L26689" class="LineNr">26689 </span> 89/<- %ebp 4/r32/esp +<span id="L26690" class="LineNr">26690 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26691" class="LineNr">26691 </span> 51/push-ecx +<span id="L26692" class="LineNr">26692 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = stmts</span> +<span id="L26693" class="LineNr">26693 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26694" class="LineNr">26694 </span> { +<span id="L26695" class="LineNr">26695 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L26696" class="LineNr">26696 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26697" class="LineNr">26697 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26698" class="LineNr">26698 </span> <span class="subxComment"># if assigns-in-stmt?(curr->value, v) return true</span> +<span id="L26699" class="LineNr">26699 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L26700" class="LineNr">26700 </span> (<a href='mu.subx.html#L26717'>assigns-in-stmt?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L26701" class="LineNr">26701 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26702" class="LineNr">26702 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26703" class="LineNr">26703 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L26704" class="LineNr">26704 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L26705" class="LineNr">26705 </span> 89/<- %ecx 0/r32/eax +<span id="L26706" class="LineNr">26706 </span> <span class="subxComment">#</span> +<span id="L26707" class="LineNr">26707 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L26708" class="LineNr">26708 </span> } +<span id="L26709" class="LineNr">26709 </span><span class="Constant">$assigns-in-stmts?:end</span>: +<span id="L26710" class="LineNr">26710 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26711" class="LineNr">26711 </span> 59/pop-to-ecx +<span id="L26712" class="LineNr">26712 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26713" class="LineNr">26713 </span> 89/<- %esp 5/r32/ebp +<span id="L26714" class="LineNr">26714 </span> 5d/pop-to-ebp +<span id="L26715" class="LineNr">26715 </span> c3/return +<span id="L26716" class="LineNr">26716 </span> +<span id="L26717" class="LineNr">26717 </span><span class="subxFunction">assigns-in-stmt?</span>: <span class="subxComment"># stmt: (addr stmt), v: (addr var) -> result/eax: boolean</span> +<span id="L26718" class="LineNr">26718 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26719" class="LineNr">26719 </span> 55/push-ebp +<span id="L26720" class="LineNr">26720 </span> 89/<- %ebp 4/r32/esp +<span id="L26721" class="LineNr">26721 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26722" class="LineNr">26722 </span> 51/push-ecx +<span id="L26723" class="LineNr">26723 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L26724" class="LineNr">26724 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26725" class="LineNr">26725 </span> <span class="subxComment"># if stmt is a stmt1, return assigns-in-stmt-vars?(stmt->outputs, v)</span> +<span id="L26726" class="LineNr">26726 </span> { +<span id="L26727" class="LineNr">26727 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L26728" class="LineNr">26728 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26729" class="LineNr">26729 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L26730" class="LineNr">26730 </span> (<a href='mu.subx.html#L26751'>assigns-in-stmt-vars?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L26731" class="LineNr">26731 </span> eb/jump $assigns-in-stmt?:end/disp8 +<span id="L26732" class="LineNr">26732 </span> } +<span id="L26733" class="LineNr">26733 </span> <span class="subxComment"># if stmt is a block, return assigns-in-stmts?(stmt->stmts, v)</span> +<span id="L26734" class="LineNr">26734 </span> { +<span id="L26735" class="LineNr">26735 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L26736" class="LineNr">26736 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26737" class="LineNr">26737 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L26738" class="LineNr">26738 </span> (<a href='mu.subx.html#L26686'>assigns-in-stmts?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L26739" class="LineNr">26739 </span> eb/jump $assigns-in-stmt?:end/disp8 +<span id="L26740" class="LineNr">26740 </span> } +<span id="L26741" class="LineNr">26741 </span> <span class="subxComment"># otherwise return false</span> +<span id="L26742" class="LineNr">26742 </span> b8/copy 0/imm32/false +<span id="L26743" class="LineNr">26743 </span><span class="Constant">$assigns-in-stmt?:end</span>: +<span id="L26744" class="LineNr">26744 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26745" class="LineNr">26745 </span> 59/pop-to-ecx +<span id="L26746" class="LineNr">26746 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26747" class="LineNr">26747 </span> 89/<- %esp 5/r32/ebp +<span id="L26748" class="LineNr">26748 </span> 5d/pop-to-ebp +<span id="L26749" class="LineNr">26749 </span> c3/return +<span id="L26750" class="LineNr">26750 </span> +<span id="L26751" class="LineNr">26751 </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="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> 51/push-ecx +<span id="L26757" class="LineNr">26757 </span> <span class="subxComment"># var curr/ecx: (addr stmt-var) = stmt-var</span> +<span id="L26758" class="LineNr">26758 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26759" class="LineNr">26759 </span> { +<span id="L26760" class="LineNr">26760 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L26761" class="LineNr">26761 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26762" class="LineNr">26762 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26763" class="LineNr">26763 </span> <span class="subxComment"># eax = lookup(curr->value)</span> +<span id="L26764" class="LineNr">26764 </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="L26765" class="LineNr">26765 </span> <span class="subxComment"># if (eax == v && curr->is-deref? == false) return true</span> +<span id="L26766" class="LineNr">26766 </span> { +<span id="L26767" class="LineNr">26767 </span> 39/compare *(ebp+0xc) 0/r32/eax +<span id="L26768" class="LineNr">26768 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26769" class="LineNr">26769 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L26770" class="LineNr">26770 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26771" class="LineNr">26771 </span> b8/copy-to-eax 1/imm32/true +<span id="L26772" class="LineNr">26772 </span> eb/jump $assigns-in-stmt-vars?:end/disp8 +<span id="L26773" class="LineNr">26773 </span> } +<span id="L26774" class="LineNr">26774 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L26775" class="LineNr">26775 </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="L26776" class="LineNr">26776 </span> 89/<- %ecx 0/r32/eax +<span id="L26777" class="LineNr">26777 </span> <span class="subxComment">#</span> +<span id="L26778" class="LineNr">26778 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L26779" class="LineNr">26779 </span> } +<span id="L26780" class="LineNr">26780 </span><span class="Constant">$assigns-in-stmt-vars?:end</span>: +<span id="L26781" class="LineNr">26781 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26782" class="LineNr">26782 </span> 59/pop-to-ecx +<span id="L26783" class="LineNr">26783 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26784" class="LineNr">26784 </span> 89/<- %esp 5/r32/ebp +<span id="L26785" class="LineNr">26785 </span> 5d/pop-to-ebp +<span id="L26786" class="LineNr">26786 </span> c3/return +<span id="L26787" class="LineNr">26787 </span> +<span id="L26788" class="LineNr">26788 </span><span class="subxComment"># is there a var before 'v' with the same block-depth and register on the 'vars' stack?</span> +<span id="L26789" class="LineNr">26789 </span><span class="subxComment"># v is guaranteed to be within vars</span> +<span id="L26790" class="LineNr">26790 </span><span class="subxComment"># 'start' is provided as an optimization, a pointer within vars</span> +<span id="L26791" class="LineNr">26791 </span><span class="subxComment"># *start == v</span> +<span id="L26792" class="LineNr">26792 </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="L26793" class="LineNr">26793 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26794" class="LineNr">26794 </span> 55/push-ebp +<span id="L26795" class="LineNr">26795 </span> 89/<- %ebp 4/r32/esp +<span id="L26796" class="LineNr">26796 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26797" class="LineNr">26797 </span> 51/push-ecx +<span id="L26798" class="LineNr">26798 </span> 52/push-edx +<span id="L26799" class="LineNr">26799 </span> 53/push-ebx +<span id="L26800" class="LineNr">26800 </span> 56/push-esi +<span id="L26801" class="LineNr">26801 </span> 57/push-edi +<span id="L26802" class="LineNr">26802 </span> <span class="subxComment"># ecx = v</span> +<span id="L26803" class="LineNr">26803 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26804" class="LineNr">26804 </span> <span class="subxComment"># var reg/edx: (addr array byte) = lookup(v->register)</span> +<span id="L26805" class="LineNr">26805 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26806" class="LineNr">26806 </span> 89/<- %edx 0/r32/eax +<span id="L26807" class="LineNr">26807 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> +<span id="L26808" class="LineNr">26808 </span> 8b/-> *(ecx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L26809" class="LineNr">26809 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L26810" class="LineNr">26810 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L26811" class="LineNr">26811 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L26812" class="LineNr">26812 </span> <span class="subxComment"># TODO: check that start >= min and start < &vars->data[top]</span> +<span id="L26813" class="LineNr">26813 </span> <span class="subxComment"># TODO: check that *start == v</span> +<span id="L26814" class="LineNr">26814 </span> <span class="subxComment"># var curr/esi: (addr handle var) = start</span> +<span id="L26815" class="LineNr">26815 </span> 8b/-> *(ebp+0x10) 6/r32/esi +<span id="L26816" class="LineNr">26816 </span> <span class="subxComment"># curr -= 8</span> +<span id="L26817" class="LineNr">26817 </span> 81 5/subop/subtract %esi 8/imm32 +<span id="L26818" class="LineNr">26818 </span> { +<span id="L26819" class="LineNr">26819 </span><span class="Constant">$same-register-spilled-before?:loop</span>: +<span id="L26820" class="LineNr">26820 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L26821" class="LineNr">26821 </span> 39/compare %esi 1/r32/ecx +<span id="L26822" class="LineNr">26822 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L26823" class="LineNr">26823 </span> <span class="subxComment"># var x/eax: (addr var) = lookup(*curr)</span> +<span id="L26824" class="LineNr">26824 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L26825" class="LineNr">26825 </span> <span class="subxComment"># if (x->block-depth < depth) break</span> +<span id="L26826" class="LineNr">26826 </span> 39/compare *(eax+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L26827" class="LineNr">26827 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L26828" class="LineNr">26828 </span> <span class="subxComment"># if (x->register == 0) continue</span> +<span id="L26829" class="LineNr">26829 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L26830" class="LineNr">26830 </span> 74/jump-if-= $same-register-spilled-before?:continue/disp8 +<span id="L26831" class="LineNr">26831 </span> <span class="subxComment"># if (x->register == reg) return true</span> +<span id="L26832" class="LineNr">26832 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26833" class="LineNr">26833 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %edx) <span class="subxComment"># => eax</span> +<span id="L26834" class="LineNr">26834 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26835" class="LineNr">26835 </span> b8/copy-to-eax 1/imm32/true +<span id="L26836" class="LineNr">26836 </span> 75/jump-if-!= $same-register-spilled-before?:end/disp8 +<span id="L26837" class="LineNr">26837 </span><span class="Constant">$same-register-spilled-before?:continue</span>: +<span id="L26838" class="LineNr">26838 </span> <span class="subxComment"># curr -= 8</span> +<span id="L26839" class="LineNr">26839 </span> 81 5/subop/subtract %esi 8/imm32 +<span id="L26840" class="LineNr">26840 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26841" class="LineNr">26841 </span> } +<span id="L26842" class="LineNr">26842 </span><span class="Constant">$same-register-spilled-before?:false</span>: +<span id="L26843" class="LineNr">26843 </span> b8/copy-to-eax 0/imm32/false +<span id="L26844" class="LineNr">26844 </span><span class="Constant">$same-register-spilled-before?:end</span>: +<span id="L26845" class="LineNr">26845 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26846" class="LineNr">26846 </span> 5f/pop-to-edi +<span id="L26847" class="LineNr">26847 </span> 5e/pop-to-esi +<span id="L26848" class="LineNr">26848 </span> 5b/pop-to-ebx +<span id="L26849" class="LineNr">26849 </span> 5a/pop-to-edx +<span id="L26850" class="LineNr">26850 </span> 59/pop-to-ecx +<span id="L26851" class="LineNr">26851 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26852" class="LineNr">26852 </span> 89/<- %esp 5/r32/ebp +<span id="L26853" class="LineNr">26853 </span> 5d/pop-to-ebp +<span id="L26854" class="LineNr">26854 </span> c3/return +<span id="L26855" class="LineNr">26855 </span> +<span id="L26856" class="LineNr">26856 </span><span class="subxComment"># clean up global state for 'vars' until some block depth (inclusive)</span> +<span id="L26857" class="LineNr">26857 </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="L26858" class="LineNr">26858 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26859" class="LineNr">26859 </span> 55/push-ebp +<span id="L26860" class="LineNr">26860 </span> 89/<- %ebp 4/r32/esp +<span id="L26861" class="LineNr">26861 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26862" class="LineNr">26862 </span> 50/push-eax +<span id="L26863" class="LineNr">26863 </span> 51/push-ecx +<span id="L26864" class="LineNr">26864 </span> 56/push-esi +<span id="L26865" class="LineNr">26865 </span> <span class="subxComment"># esi = vars</span> +<span id="L26866" class="LineNr">26866 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L26867" class="LineNr">26867 </span> <span class="subxComment"># ecx = until-block-depth</span> +<span id="L26868" class="LineNr">26868 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L26869" class="LineNr">26869 </span> { +<span id="L26870" class="LineNr">26870 </span><span class="Constant">$clean-up-blocks:reclaim-loop</span>: +<span id="L26871" class="LineNr">26871 </span> <span class="subxComment"># if (vars->top <= 0) break</span> +<span id="L26872" class="LineNr">26872 </span> 8b/-> *esi 0/r32/eax <span class="subxComment"># Stack-top</span> +<span id="L26873" class="LineNr">26873 </span> 3d/compare-eax-and 0/imm32 +<span id="L26874" class="LineNr">26874 </span> 0f 8e/jump-if-<= <span class="Constant">break</span>/disp32 +<span id="L26875" class="LineNr">26875 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(vars[vars->top-12])</span> +<span id="L26876" class="LineNr">26876 </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="L26877" class="LineNr">26877 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L26878" class="LineNr">26878 </span> 39/compare *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> +<span id="L26879" class="LineNr">26879 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L26880" class="LineNr">26880 </span> (<a href='../203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> +<span id="L26881" class="LineNr">26881 </span> (<a href='../203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> +<span id="L26882" class="LineNr">26882 </span> (<a href='../203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> +<span id="L26883" class="LineNr">26883 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26884" class="LineNr">26884 </span> } +<span id="L26885" class="LineNr">26885 </span><span class="Constant">$clean-up-blocks:end</span>: +<span id="L26886" class="LineNr">26886 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26887" class="LineNr">26887 </span> 5e/pop-to-esi +<span id="L26888" class="LineNr">26888 </span> 59/pop-to-ecx +<span id="L26889" class="LineNr">26889 </span> 58/pop-to-eax +<span id="L26890" class="LineNr">26890 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26891" class="LineNr">26891 </span> 89/<- %esp 5/r32/ebp +<span id="L26892" class="LineNr">26892 </span> 5d/pop-to-ebp +<span id="L26893" class="LineNr">26893 </span> c3/return +<span id="L26894" class="LineNr">26894 </span> +<span id="L26895" class="LineNr">26895 </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="L26896" class="LineNr">26896 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26897" class="LineNr">26897 </span> 55/push-ebp +<span id="L26898" class="LineNr">26898 </span> 89/<- %ebp 4/r32/esp +<span id="L26899" class="LineNr">26899 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26900" class="LineNr">26900 </span> 51/push-ecx +<span id="L26901" class="LineNr">26901 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> +<span id="L26902" class="LineNr">26902 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L26903" class="LineNr">26903 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L26904" class="LineNr">26904 </span> 89/<- %ecx 0/r32/eax +<span id="L26905" class="LineNr">26905 </span> <span class="subxComment"># while curr != null</span> +<span id="L26906" class="LineNr">26906 </span> { +<span id="L26907" class="LineNr">26907 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26908" class="LineNr">26908 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26909" class="LineNr">26909 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(curr->value)</span> +<span id="L26910" class="LineNr">26910 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L26911" class="LineNr">26911 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> +<span id="L26912" class="LineNr">26912 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26913" class="LineNr">26913 </span> <span class="subxComment"># if (reg == target) return true</span> +<span id="L26914" class="LineNr">26914 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L26915" class="LineNr">26915 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26916" class="LineNr">26916 </span> 75/jump-if-!= $reg-in-function-outputs?:end/disp8 +<span id="L26917" class="LineNr">26917 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L26918" class="LineNr">26918 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L26919" class="LineNr">26919 </span> 89/<- %ecx 0/r32/eax +<span id="L26920" class="LineNr">26920 </span> <span class="subxComment">#</span> +<span id="L26921" class="LineNr">26921 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L26922" class="LineNr">26922 </span> } +<span id="L26923" class="LineNr">26923 </span> <span class="subxComment"># return false</span> +<span id="L26924" class="LineNr">26924 </span> b8/copy-to-eax 0/imm32 +<span id="L26925" class="LineNr">26925 </span><span class="Constant">$reg-in-function-outputs?:end</span>: +<span id="L26926" class="LineNr">26926 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26927" class="LineNr">26927 </span> 59/pop-to-ecx +<span id="L26928" class="LineNr">26928 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26929" class="LineNr">26929 </span> 89/<- %esp 5/r32/ebp +<span id="L26930" class="LineNr">26930 </span> 5d/pop-to-ebp +<span id="L26931" class="LineNr">26931 </span> c3/return +<span id="L26932" class="LineNr">26932 </span> +<span id="L26933" class="LineNr">26933 </span><span class="subxFunction">emit-subx-var-def</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> +<span id="L26934" class="LineNr">26934 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26935" class="LineNr">26935 </span> 55/push-ebp +<span id="L26936" class="LineNr">26936 </span> 89/<- %ebp 4/r32/esp +<span id="L26937" class="LineNr">26937 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26938" class="LineNr">26938 </span> 50/push-eax +<span id="L26939" class="LineNr">26939 </span> 51/push-ecx +<span id="L26940" class="LineNr">26940 </span> 52/push-edx +<span id="L26941" class="LineNr">26941 </span> <span class="subxComment"># eax = stmt</span> +<span id="L26942" class="LineNr">26942 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26943" class="LineNr">26943 </span> <span class="subxComment"># var v/ecx: (addr var)</span> +<span id="L26944" class="LineNr">26944 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> +<span id="L26945" class="LineNr">26945 </span> 89/<- %ecx 0/r32/eax +<span id="L26946" class="LineNr">26946 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L26947" class="LineNr">26947 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/r32/eax +<span id="L26948" class="LineNr">26948 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L26949" class="LineNr">26949 </span> <span class="subxComment"># var n/edx: int = size-of(stmt->var)</span> +<span id="L26950" class="LineNr">26950 </span> (<a href='mu.subx.html#L25018'>size-of</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26951" class="LineNr">26951 </span> 89/<- %edx 0/r32/eax +<span id="L26952" class="LineNr">26952 </span> <span class="subxComment"># *Curr-local-stack-offset -= n</span> +<span id="L26953" class="LineNr">26953 </span> 29/subtract-from *<span class="SpecialChar"><a href='mu.subx.html#L25421'>Curr-local-stack-offset</a></span> 2/r32/edx +<span id="L26954" class="LineNr">26954 </span> <span class="subxComment"># v->offset = *Curr-local-stack-offset</span> +<span id="L26955" class="LineNr">26955 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L25421'>Curr-local-stack-offset</a></span> 0/r32/eax +<span id="L26956" class="LineNr">26956 </span> 89/<- *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L26957" class="LineNr">26957 </span> <span class="subxComment"># if v is an array, do something special to initialize it</span> +<span id="L26958" class="LineNr">26958 </span> { +<span id="L26959" class="LineNr">26959 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26960" class="LineNr">26960 </span> (<a href='mu.subx.html#L25115'>is-mu-array?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L26961" class="LineNr">26961 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26962" class="LineNr">26962 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26963" class="LineNr">26963 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-4</span> +<span id="L26964" class="LineNr">26964 </span> 81 5/subop/subtract %edx 4/imm32 +<span id="L26965" class="LineNr">26965 </span> <span class="subxComment">#</span> +<span id="L26966" class="LineNr">26966 </span> (<a href='mu.subx.html#L27008'>emit-array-data-initialization</a> *(ebp+8) %edx) +<span id="L26967" class="LineNr">26967 </span> e9/jump $emit-subx-var-def:end/disp32 +<span id="L26968" class="LineNr">26968 </span> } +<span id="L26969" class="LineNr">26969 </span> <span class="subxComment"># another special-case for initializing streams</span> +<span id="L26970" class="LineNr">26970 </span> <span class="subxComment"># a stream is an array with 2 extra pointers</span> +<span id="L26971" class="LineNr">26971 </span> { +<span id="L26972" class="LineNr">26972 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26973" class="LineNr">26973 </span> (<a href='mu.subx.html#L25180'>is-mu-stream?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L26974" class="LineNr">26974 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26975" class="LineNr">26975 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26976" class="LineNr">26976 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-12</span> +<span id="L26977" class="LineNr">26977 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L26978" class="LineNr">26978 </span> (<a href='mu.subx.html#L27008'>emit-array-data-initialization</a> *(ebp+8) %edx) +<span id="L26979" class="LineNr">26979 </span> <span class="subxComment"># emit read and write pointers</span> +<span id="L26980" class="LineNr">26980 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26981" class="LineNr">26981 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L26982" class="LineNr">26982 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26983" class="LineNr">26983 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L26984" class="LineNr">26984 </span> <span class="subxComment">#</span> +<span id="L26985" class="LineNr">26985 </span> eb/jump $emit-subx-var-def:end/disp8 +<span id="L26986" class="LineNr">26986 </span> } +<span id="L26987" class="LineNr">26987 </span> <span class="subxComment"># while n > 0</span> +<span id="L26988" class="LineNr">26988 </span> { +<span id="L26989" class="LineNr">26989 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26990" class="LineNr">26990 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L26991" class="LineNr">26991 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L26992" class="LineNr">26992 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L26993" class="LineNr">26993 </span> <span class="subxComment"># n -= 4</span> +<span id="L26994" class="LineNr">26994 </span> 81 5/subop/subtract %edx 4/imm32 +<span id="L26995" class="LineNr">26995 </span> <span class="subxComment">#</span> +<span id="L26996" class="LineNr">26996 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L26997" class="LineNr">26997 </span> } +<span id="L26998" class="LineNr">26998 </span><span class="Constant">$emit-subx-var-def:end</span>: +<span id="L26999" class="LineNr">26999 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27000" class="LineNr">27000 </span> 5a/pop-to-edx +<span id="L27001" class="LineNr">27001 </span> 59/pop-to-ecx +<span id="L27002" class="LineNr">27002 </span> 58/pop-to-eax +<span id="L27003" class="LineNr">27003 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27004" class="LineNr">27004 </span> 89/<- %esp 5/r32/ebp +<span id="L27005" class="LineNr">27005 </span> 5d/pop-to-ebp +<span id="L27006" class="LineNr">27006 </span> c3/return +<span id="L27007" class="LineNr">27007 </span> +<span id="L27008" class="LineNr">27008 </span><span class="subxFunction">emit-array-data-initialization</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> +<span id="L27009" class="LineNr">27009 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27010" class="LineNr">27010 </span> 55/push-ebp +<span id="L27011" class="LineNr">27011 </span> 89/<- %ebp 4/r32/esp +<span id="L27012" class="LineNr">27012 </span> <span class="subxComment">#</span> +<span id="L27013" class="LineNr">27013 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27014" class="LineNr">27014 </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="L27015" class="LineNr">27015 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L27016" class="LineNr">27016 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L27017" class="LineNr">27017 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27018" class="LineNr">27018 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) +<span id="L27019" class="LineNr">27019 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L27020" class="LineNr">27020 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L27021" class="LineNr">27021 </span><span class="Constant">$emit-array-data-initialization:end</span>: +<span id="L27022" class="LineNr">27022 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27023" class="LineNr">27023 </span> 89/<- %esp 5/r32/ebp +<span id="L27024" class="LineNr">27024 </span> 5d/pop-to-ebp +<span id="L27025" class="LineNr">27025 </span> c3/return +<span id="L27026" class="LineNr">27026 </span> +<span id="L27027" class="LineNr">27027 </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="L27028" class="LineNr">27028 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27029" class="LineNr">27029 </span> 55/push-ebp +<span id="L27030" class="LineNr">27030 </span> 89/<- %ebp 4/r32/esp +<span id="L27031" class="LineNr">27031 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27032" class="LineNr">27032 </span> 50/push-eax +<span id="L27033" class="LineNr">27033 </span> 51/push-ecx +<span id="L27034" class="LineNr">27034 </span> <span class="subxH1Comment"># - some special-case primitives that don't actually use the 'primitives' data structure</span> +<span id="L27035" class="LineNr">27035 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> <span id="L27036" class="LineNr">27036 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27037" class="LineNr">27037 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> -<span id="L27038" class="LineNr">27038 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27039" class="LineNr">27039 </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="L27040" class="LineNr">27040 </span> 89/<- %ebx 0/r32/eax -<span id="L27041" class="LineNr">27041 </span> <span class="subxComment"># print base->register " + "</span> -<span id="L27042" class="LineNr">27042 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27043" class="LineNr">27043 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27044" class="LineNr">27044 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L27045" class="LineNr">27045 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> -<span id="L27046" class="LineNr">27046 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27047" class="LineNr">27047 </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="L27048" class="LineNr">27048 </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="L27049" class="LineNr">27049 </span> 89/<- %edx 0/r32/eax -<span id="L27050" class="LineNr">27050 </span> <span class="subxComment"># if index->register</span> -<span id="L27051" class="LineNr">27051 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27052" class="LineNr">27052 </span> { +<span id="L27037" class="LineNr">27037 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L27038" class="LineNr">27038 </span> 89/<- %ecx 0/r32/eax +<span id="L27039" class="LineNr">27039 </span> <span class="subxComment"># array size</span> +<span id="L27040" class="LineNr">27040 </span> { +<span id="L27041" class="LineNr">27041 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "length")) break</span> +<span id="L27042" class="LineNr">27042 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L27043" class="LineNr">27043 </span> 3d/compare-eax-and 0/imm32 +<span id="L27044" class="LineNr">27044 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27045" class="LineNr">27045 </span> (<a href='mu.subx.html#L27162'>translate-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27046" class="LineNr">27046 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L27047" class="LineNr">27047 </span> } +<span id="L27048" class="LineNr">27048 </span> <span class="subxComment"># index into array</span> +<span id="L27049" class="LineNr">27049 </span> { +<span id="L27050" class="LineNr">27050 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "index")) break</span> +<span id="L27051" class="LineNr">27051 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L27052" class="LineNr">27052 </span> 3d/compare-eax-and 0/imm32 <span id="L27053" class="LineNr">27053 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27054" class="LineNr">27054 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index</span>: -<span id="L27055" class="LineNr">27055 </span> <span class="subxComment"># if index is an int</span> -<span id="L27056" class="LineNr">27056 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L27057" class="LineNr">27057 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L27058" class="LineNr">27058 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27059" class="LineNr">27059 </span> { -<span id="L27060" class="LineNr">27060 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27061" class="LineNr">27061 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-int-register-index</span>: -<span id="L27062" class="LineNr">27062 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + 4) "</span> -<span id="L27063" class="LineNr">27063 </span> <span class="subxS1Comment"># . index->register "<<"</span> -<span id="L27064" class="LineNr">27064 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27065" class="LineNr">27065 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27066" class="LineNr">27066 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) -<span id="L27067" class="LineNr">27067 </span> <span class="subxS1Comment"># . log2(array-element-size(base->type))</span> -<span id="L27068" class="LineNr">27068 </span> <span class="subxComment"># we know size is a power of 2</span> -<span id="L27069" class="LineNr">27069 </span> (<a href='mu.subx.html#L26646'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L27070" class="LineNr">27070 </span> (<a href='mu.subx.html#L27784'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> -<span id="L27071" class="LineNr">27071 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27072" class="LineNr">27072 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-register-index-done/disp32 -<span id="L27073" class="LineNr">27073 </span> } -<span id="L27074" class="LineNr">27074 </span> <span class="subxComment"># if index->type is any other atom, abort</span> -<span id="L27075" class="LineNr">27075 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L27076" class="LineNr">27076 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L27077" class="LineNr">27077 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 -<span id="L27078" class="LineNr">27078 </span> <span class="subxComment"># if index has type (offset ...)</span> -<span id="L27079" class="LineNr">27079 </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="L27080" class="LineNr">27080 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> -<span id="L27081" class="LineNr">27081 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27082" class="LineNr">27082 </span> { -<span id="L27083" class="LineNr">27083 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27084" class="LineNr">27084 </span> <span class="subxComment"># print index->register</span> -<span id="L27085" class="LineNr">27085 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-offset-register-index</span>: -<span id="L27086" class="LineNr">27086 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27087" class="LineNr">27087 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27088" class="LineNr">27088 </span> } -<span id="L27089" class="LineNr">27089 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index-done</span>: -<span id="L27090" class="LineNr">27090 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + 4) "</span>) -<span id="L27091" class="LineNr">27091 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 +<span id="L27054" class="LineNr">27054 </span> (<a href='mu.subx.html#L27489'>translate-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27055" class="LineNr">27055 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L27056" class="LineNr">27056 </span> } +<span id="L27057" class="LineNr">27057 </span> <span class="subxComment"># compute-offset for index into array</span> +<span id="L27058" class="LineNr">27058 </span> { +<span id="L27059" class="LineNr">27059 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "compute-offset")) break</span> +<span id="L27060" class="LineNr">27060 </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="L27061" class="LineNr">27061 </span> 3d/compare-eax-and 0/imm32 +<span id="L27062" class="LineNr">27062 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27063" class="LineNr">27063 </span> (<a href='mu.subx.html#L27893'>translate-mu-compute-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27064" class="LineNr">27064 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L27065" class="LineNr">27065 </span> } +<span id="L27066" class="LineNr">27066 </span> <span class="subxComment"># get field from record</span> +<span id="L27067" class="LineNr">27067 </span> { +<span id="L27068" class="LineNr">27068 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "get")) break</span> +<span id="L27069" class="LineNr">27069 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L27070" class="LineNr">27070 </span> 3d/compare-eax-and 0/imm32 +<span id="L27071" class="LineNr">27071 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27072" class="LineNr">27072 </span> (<a href='mu.subx.html#L27941'>translate-mu-get-stmt</a> *(ebp+8) *(ebp+0xc)) +<span id="L27073" class="LineNr">27073 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L27074" class="LineNr">27074 </span> } +<span id="L27075" class="LineNr">27075 </span> <span class="subxComment"># allocate scalar</span> +<span id="L27076" class="LineNr">27076 </span> { +<span id="L27077" class="LineNr">27077 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "allocate")) break</span> +<span id="L27078" class="LineNr">27078 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L27079" class="LineNr">27079 </span> 3d/compare-eax-and 0/imm32 +<span id="L27080" class="LineNr">27080 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27081" class="LineNr">27081 </span> (<a href='mu.subx.html#L28060'>translate-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27082" class="LineNr">27082 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L27083" class="LineNr">27083 </span> } +<span id="L27084" class="LineNr">27084 </span> <span class="subxComment"># copy-object</span> +<span id="L27085" class="LineNr">27085 </span> { +<span id="L27086" class="LineNr">27086 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-object")) break</span> +<span id="L27087" class="LineNr">27087 </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="L27088" class="LineNr">27088 </span> 3d/compare-eax-and 0/imm32 +<span id="L27089" class="LineNr">27089 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27090" class="LineNr">27090 </span> (<a href='mu.subx.html#L28003'>translate-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27091" class="LineNr">27091 </span> e9/jump $emit-subx-stmt:end/disp32 <span id="L27092" class="LineNr">27092 </span> } -<span id="L27093" class="LineNr">27093 </span> <span class="subxComment"># otherwise if index is a literal</span> -<span id="L27094" class="LineNr">27094 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L27095" class="LineNr">27095 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L27096" class="LineNr">27096 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27097" class="LineNr">27097 </span> { +<span id="L27093" class="LineNr">27093 </span> <span class="subxComment"># clear-object</span> +<span id="L27094" class="LineNr">27094 </span> { +<span id="L27095" class="LineNr">27095 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "clear-object")) break</span> +<span id="L27096" class="LineNr">27096 </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="L27097" class="LineNr">27097 </span> 3d/compare-eax-and 0/imm32 <span id="L27098" class="LineNr">27098 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27099" class="LineNr">27099 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-literal-index</span>: -<span id="L27100" class="LineNr">27100 </span> <span class="subxComment"># var index-value/edx: int = parse-hex-int(index->name)</span> -<span id="L27101" class="LineNr">27101 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27102" class="LineNr">27102 </span> (<a href='../118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># => eax</span> -<span id="L27103" class="LineNr">27103 </span> 89/<- %edx 0/r32/eax -<span id="L27104" class="LineNr">27104 </span> <span class="subxComment"># offset = idx-value * array-element-size(base->type)</span> -<span id="L27105" class="LineNr">27105 </span> (<a href='mu.subx.html#L26646'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L27106" class="LineNr">27106 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> -<span id="L27107" class="LineNr">27107 </span> <span class="subxComment"># offset += 4 for array size</span> -<span id="L27108" class="LineNr">27108 </span> 05/add-to-eax 4/imm32 -<span id="L27109" class="LineNr">27109 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L27110" class="LineNr">27110 </span> <span class="subxComment"># print offset</span> -<span id="L27111" class="LineNr">27111 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27112" class="LineNr">27112 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L27113" class="LineNr">27113 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 -<span id="L27114" class="LineNr">27114 </span> } -<span id="L27115" class="LineNr">27115 </span> <span class="subxComment"># otherwise abort</span> -<span id="L27116" class="LineNr">27116 </span> e9/jump $translate-mu-index-stmt:error1/disp32 -<span id="L27117" class="LineNr">27117 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-output</span>: -<span id="L27118" class="LineNr">27118 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L27119" class="LineNr">27119 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27120" class="LineNr">27120 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L27121" class="LineNr">27121 </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="L27122" class="LineNr">27122 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27123" class="LineNr">27123 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L17859'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L27124" class="LineNr">27124 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L27125" class="LineNr">27125 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L27126" class="LineNr">27126 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:end</span>: -<span id="L27127" class="LineNr">27127 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27128" class="LineNr">27128 </span> 5b/pop-to-ebx -<span id="L27129" class="LineNr">27129 </span> 5a/pop-to-edx -<span id="L27130" class="LineNr">27130 </span> 59/pop-to-ecx -<span id="L27131" class="LineNr">27131 </span> 58/pop-to-eax -<span id="L27132" class="LineNr">27132 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27133" class="LineNr">27133 </span> 89/<- %esp 5/r32/ebp -<span id="L27134" class="LineNr">27134 </span> 5d/pop-to-ebp -<span id="L27135" class="LineNr">27135 </span> c3/return -<span id="L27136" class="LineNr">27136 </span> -<span id="L27137" class="LineNr">27137 </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="L27138" class="LineNr">27138 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27139" class="LineNr">27139 </span> 55/push-ebp -<span id="L27140" class="LineNr">27140 </span> 89/<- %ebp 4/r32/esp -<span id="L27141" class="LineNr">27141 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27142" class="LineNr">27142 </span> 50/push-eax -<span id="L27143" class="LineNr">27143 </span> 51/push-ecx -<span id="L27144" class="LineNr">27144 </span> 52/push-edx -<span id="L27145" class="LineNr">27145 </span> 53/push-ebx -<span id="L27146" class="LineNr">27146 </span> <span class="subxComment">#</span> -<span id="L27147" class="LineNr">27147 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L27148" class="LineNr">27148 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *(ebp + "</span>) -<span id="L27149" class="LineNr">27149 </span> <span class="subxComment"># var curr/edx: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L27150" class="LineNr">27150 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27151" class="LineNr">27151 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27152" class="LineNr">27152 </span> 89/<- %edx 0/r32/eax -<span id="L27153" class="LineNr">27153 </span> <span class="subxComment"># var base/ecx: (addr var) = lookup(curr->value)</span> -<span id="L27154" class="LineNr">27154 </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="L27155" class="LineNr">27155 </span> 89/<- %ecx 0/r32/eax -<span id="L27156" class="LineNr">27156 </span> <span class="subxComment"># var curr2/eax: (addr stmt-var) = lookup(curr->next)</span> -<span id="L27157" class="LineNr">27157 </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="L27158" class="LineNr">27158 </span> <span class="subxComment"># var index/edx: (handle var) = curr2->value</span> -<span id="L27159" class="LineNr">27159 </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="L27160" class="LineNr">27160 </span> 89/<- %edx 0/r32/eax -<span id="L27161" class="LineNr">27161 </span> <span class="subxComment"># if index->register</span> -<span id="L27162" class="LineNr">27162 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27163" class="LineNr">27163 </span> { -<span id="L27164" class="LineNr">27164 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27165" class="LineNr">27165 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index</span>: -<span id="L27166" class="LineNr">27166 </span> <span class="subxComment"># if index is an int</span> -<span id="L27167" class="LineNr">27167 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L27168" class="LineNr">27168 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L27169" class="LineNr">27169 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27170" class="LineNr">27170 </span> { -<span id="L27171" class="LineNr">27171 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27172" class="LineNr">27172 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-int-register-index</span>: -<span id="L27173" class="LineNr">27173 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + " base->offset+4</span> -<span id="L27174" class="LineNr">27174 </span> <span class="subxS1Comment"># . inouts[1]->register "<<"</span> -<span id="L27175" class="LineNr">27175 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27176" class="LineNr">27176 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27177" class="LineNr">27177 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) -<span id="L27178" class="LineNr">27178 </span> <span class="subxS1Comment"># . log2(array-element-size(base))</span> -<span id="L27179" class="LineNr">27179 </span> <span class="subxComment"># TODO: ensure size is a power of 2</span> -<span id="L27180" class="LineNr">27180 </span> (<a href='mu.subx.html#L26646'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L27181" class="LineNr">27181 </span> (<a href='mu.subx.html#L27784'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> -<span id="L27182" class="LineNr">27182 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27183" class="LineNr">27183 </span> <span class="subxComment">#</span> -<span id="L27184" class="LineNr">27184 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L27185" class="LineNr">27185 </span> <span class="subxComment">#</span> -<span id="L27186" class="LineNr">27186 </span> 8b/-> *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L27187" class="LineNr">27187 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array length</span> -<span id="L27188" class="LineNr">27188 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27189" class="LineNr">27189 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-register-index-done/disp32 -<span id="L27190" class="LineNr">27190 </span> } -<span id="L27191" class="LineNr">27191 </span> <span class="subxComment"># if index->type is any other atom, abort</span> -<span id="L27192" class="LineNr">27192 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L27193" class="LineNr">27193 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L27194" class="LineNr">27194 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 -<span id="L27195" class="LineNr">27195 </span> <span class="subxComment"># if index has type (offset ...)</span> -<span id="L27196" class="LineNr">27196 </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="L27197" class="LineNr">27197 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> -<span id="L27198" class="LineNr">27198 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27199" class="LineNr">27199 </span> { -<span id="L27200" class="LineNr">27200 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27201" class="LineNr">27201 </span> <span class="subxComment"># print index->register</span> -<span id="L27202" class="LineNr">27202 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-offset-register-index</span>: -<span id="L27203" class="LineNr">27203 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27204" class="LineNr">27204 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27205" class="LineNr">27205 </span> } -<span id="L27206" class="LineNr">27206 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index-done</span>: -<span id="L27207" class="LineNr">27207 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L27208" class="LineNr">27208 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 -<span id="L27209" class="LineNr">27209 </span> } -<span id="L27210" class="LineNr">27210 </span> <span class="subxComment"># otherwise if index is a literal</span> -<span id="L27211" class="LineNr">27211 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L27212" class="LineNr">27212 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L27213" class="LineNr">27213 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27214" class="LineNr">27214 </span> { -<span id="L27215" class="LineNr">27215 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27216" class="LineNr">27216 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-literal-index</span>: -<span id="L27217" class="LineNr">27217 </span> <span class="subxComment"># var idx-value/edx: int = parse-hex-int(index->name)</span> -<span id="L27218" class="LineNr">27218 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27219" class="LineNr">27219 </span> (<a href='../118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># Var-name => eax</span> -<span id="L27220" class="LineNr">27220 </span> 89/<- %edx 0/r32/eax -<span id="L27221" class="LineNr">27221 </span> <span class="subxComment"># offset = idx-value * array-element-size(base)</span> -<span id="L27222" class="LineNr">27222 </span> (<a href='mu.subx.html#L26646'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L27223" class="LineNr">27223 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> -<span id="L27224" class="LineNr">27224 </span> <span class="subxComment"># offset += base->offset</span> -<span id="L27225" class="LineNr">27225 </span> 03/add *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L27226" class="LineNr">27226 </span> <span class="subxComment"># offset += 4 for array size</span> -<span id="L27227" class="LineNr">27227 </span> 05/add-to-eax 4/imm32 -<span id="L27228" class="LineNr">27228 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L27229" class="LineNr">27229 </span> <span class="subxComment"># print offset</span> -<span id="L27230" class="LineNr">27230 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27231" class="LineNr">27231 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L27232" class="LineNr">27232 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 -<span id="L27233" class="LineNr">27233 </span> } -<span id="L27234" class="LineNr">27234 </span> <span class="subxComment"># otherwise abort</span> -<span id="L27235" class="LineNr">27235 </span> e9/jump $translate-mu-index-stmt:error1/disp32 -<span id="L27236" class="LineNr">27236 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-output</span>: -<span id="L27237" class="LineNr">27237 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L27238" class="LineNr">27238 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27239" class="LineNr">27239 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x14) *(eax+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L27240" class="LineNr">27240 </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="L27241" class="LineNr">27241 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27242" class="LineNr">27242 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L17859'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L27243" class="LineNr">27243 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L27244" class="LineNr">27244 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L27245" class="LineNr">27245 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:end</span>: -<span id="L27246" class="LineNr">27246 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27247" class="LineNr">27247 </span> 5b/pop-to-ebx -<span id="L27248" class="LineNr">27248 </span> 5a/pop-to-edx -<span id="L27249" class="LineNr">27249 </span> 59/pop-to-ecx -<span id="L27250" class="LineNr">27250 </span> 58/pop-to-eax -<span id="L27251" class="LineNr">27251 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27252" class="LineNr">27252 </span> 89/<- %esp 5/r32/ebp -<span id="L27253" class="LineNr">27253 </span> 5d/pop-to-ebp -<span id="L27254" class="LineNr">27254 </span> c3/return -<span id="L27255" class="LineNr">27255 </span> -<span id="L27256" class="LineNr">27256 </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="L27257" class="LineNr">27257 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27258" class="LineNr">27258 </span> 55/push-ebp -<span id="L27259" class="LineNr">27259 </span> 89/<- %ebp 4/r32/esp -<span id="L27260" class="LineNr">27260 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27261" class="LineNr">27261 </span> 50/push-eax -<span id="L27262" class="LineNr">27262 </span> 51/push-ecx -<span id="L27263" class="LineNr">27263 </span> 52/push-edx -<span id="L27264" class="LineNr">27264 </span> 53/push-ebx -<span id="L27265" class="LineNr">27265 </span> <span class="subxComment">#</span> -<span id="L27266" class="LineNr">27266 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L27267" class="LineNr">27267 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"69/multiply"</span>) -<span id="L27268" class="LineNr">27268 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L27269" class="LineNr">27269 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27270" class="LineNr">27270 </span> <span class="subxComment"># var first-inout/ebx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L27271" class="LineNr">27271 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27272" class="LineNr">27272 </span> 89/<- %ebx 0/r32/eax -<span id="L27273" class="LineNr">27273 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-index</span>: -<span id="L27274" class="LineNr">27274 </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="L27275" class="LineNr">27275 </span> (<a href='mu.subx.html#L32971'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) -<span id="L27276" class="LineNr">27276 </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="L27277" class="LineNr">27277 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-elem-size</span>: -<span id="L27278" class="LineNr">27278 </span> <span class="subxComment"># var base/ebx: (addr var)</span> -<span id="L27279" class="LineNr">27279 </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="L27280" class="LineNr">27280 </span> 89/<- %ebx 0/r32/eax -<span id="L27281" class="LineNr">27281 </span> <span class="subxComment"># print array-element-size(base)</span> -<span id="L27282" class="LineNr">27282 </span> (<a href='mu.subx.html#L26646'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L27283" class="LineNr">27283 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27284" class="LineNr">27284 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32 "</span>) -<span id="L27285" class="LineNr">27285 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-output</span>: -<span id="L27286" class="LineNr">27286 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L27287" class="LineNr">27287 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L27288" class="LineNr">27288 </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="L27289" class="LineNr">27289 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27290" class="LineNr">27290 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L17859'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L27291" class="LineNr">27291 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L27292" class="LineNr">27292 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L27293" class="LineNr">27293 </span><span class="Constant">$translate-mu-compute-index-stmt:end</span>: -<span id="L27294" class="LineNr">27294 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27295" class="LineNr">27295 </span> 5b/pop-to-ebx -<span id="L27296" class="LineNr">27296 </span> 5a/pop-to-edx -<span id="L27297" class="LineNr">27297 </span> 59/pop-to-ecx -<span id="L27298" class="LineNr">27298 </span> 58/pop-to-eax -<span id="L27299" class="LineNr">27299 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27300" class="LineNr">27300 </span> 89/<- %esp 5/r32/ebp -<span id="L27301" class="LineNr">27301 </span> 5d/pop-to-ebp -<span id="L27302" class="LineNr">27302 </span> c3/return -<span id="L27303" class="LineNr">27303 </span> -<span id="L27304" class="LineNr">27304 </span><span class="subxFunction">translate-mu-get-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> -<span id="L27305" class="LineNr">27305 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27306" class="LineNr">27306 </span> 55/push-ebp -<span id="L27307" class="LineNr">27307 </span> 89/<- %ebp 4/r32/esp -<span id="L27308" class="LineNr">27308 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27309" class="LineNr">27309 </span> 50/push-eax -<span id="L27310" class="LineNr">27310 </span> 51/push-ecx -<span id="L27311" class="LineNr">27311 </span> 52/push-edx -<span id="L27312" class="LineNr">27312 </span> <span class="subxComment">#</span> -<span id="L27313" class="LineNr">27313 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L27314" class="LineNr">27314 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address "</span>) -<span id="L27315" class="LineNr">27315 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L27316" class="LineNr">27316 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27317" class="LineNr">27317 </span> <span class="subxComment"># var offset/edx: int = get offset of stmt</span> -<span id="L27318" class="LineNr">27318 </span> (<a href='mu.subx.html#L27811'>mu-get-offset</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L27319" class="LineNr">27319 </span> 89/<- %edx 0/r32/eax -<span id="L27320" class="LineNr">27320 </span> <span class="subxComment"># var base/eax: (addr var) = stmt->inouts->value</span> -<span id="L27321" class="LineNr">27321 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27322" class="LineNr">27322 </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="L27323" class="LineNr">27323 </span> <span class="subxComment"># if base is in a register</span> -<span id="L27324" class="LineNr">27324 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27325" class="LineNr">27325 </span> { -<span id="L27326" class="LineNr">27326 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27327" class="LineNr">27327 </span><span class="Constant">$translate-mu-get-stmt:emit-register-input</span>: -<span id="L27328" class="LineNr">27328 </span> <span class="subxComment"># emit "*(" base->register " + " offset ") "</span> -<span id="L27329" class="LineNr">27329 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*("</span>) -<span id="L27330" class="LineNr">27330 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27331" class="LineNr">27331 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27332" class="LineNr">27332 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L27333" class="LineNr">27333 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) -<span id="L27334" class="LineNr">27334 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L27335" class="LineNr">27335 </span> e9/jump $translate-mu-get-stmt:emit-output/disp32 -<span id="L27336" class="LineNr">27336 </span> } -<span id="L27337" class="LineNr">27337 </span> <span class="subxComment"># otherwise base is on the stack</span> -<span id="L27338" class="LineNr">27338 </span> { -<span id="L27339" class="LineNr">27339 </span><span class="Constant">$translate-mu-get-stmt:emit-stack-input</span>: -<span id="L27340" class="LineNr">27340 </span> <span class="subxComment"># emit "*(ebp + " inouts[0]->stack-offset + offset ") "</span> -<span id="L27341" class="LineNr">27341 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) -<span id="L27342" class="LineNr">27342 </span> 03/add *(eax+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> -<span id="L27343" class="LineNr">27343 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) -<span id="L27344" class="LineNr">27344 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L27345" class="LineNr">27345 </span> eb/jump $translate-mu-get-stmt:emit-output/disp8 -<span id="L27346" class="LineNr">27346 </span> } -<span id="L27347" class="LineNr">27347 </span><span class="Constant">$translate-mu-get-stmt:emit-output</span>: -<span id="L27348" class="LineNr">27348 </span> <span class="subxComment"># var output/eax: (addr var) = stmt->outputs->value</span> -<span id="L27349" class="LineNr">27349 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L27350" class="LineNr">27350 </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="L27351" class="LineNr">27351 </span> <span class="subxComment"># emit offset->register "/r32"</span> -<span id="L27352" class="LineNr">27352 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27353" class="LineNr">27353 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L17859'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L27354" class="LineNr">27354 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L27355" class="LineNr">27355 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L27356" class="LineNr">27356 </span><span class="Constant">$translate-mu-get-stmt:end</span>: -<span id="L27357" class="LineNr">27357 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27358" class="LineNr">27358 </span> 5a/pop-to-edx -<span id="L27359" class="LineNr">27359 </span> 59/pop-to-ecx -<span id="L27360" class="LineNr">27360 </span> 58/pop-to-eax -<span id="L27361" class="LineNr">27361 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27362" class="LineNr">27362 </span> 89/<- %esp 5/r32/ebp -<span id="L27363" class="LineNr">27363 </span> 5d/pop-to-ebp -<span id="L27364" class="LineNr">27364 </span> c3/return -<span id="L27365" class="LineNr">27365 </span> -<span id="L27366" class="LineNr">27366 </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="L27367" class="LineNr">27367 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27368" class="LineNr">27368 </span> 55/push-ebp -<span id="L27369" class="LineNr">27369 </span> 89/<- %ebp 4/r32/esp -<span id="L27370" class="LineNr">27370 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27371" class="LineNr">27371 </span> 50/push-eax -<span id="L27372" class="LineNr">27372 </span> <span class="subxComment">#</span> -<span id="L27373" class="LineNr">27373 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L27374" class="LineNr">27374 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(copy-bytes"</span>) -<span id="L27375" class="LineNr">27375 </span> <span class="subxComment"># eax = stmt</span> -<span id="L27376" class="LineNr">27376 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27377" class="LineNr">27377 </span> <span class="subxComment"># var first-inout/eax: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L27378" class="LineNr">27378 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27379" class="LineNr">27379 </span> (<a href='mu.subx.html#L32809'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L27380" class="LineNr">27380 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L27381" class="LineNr">27381 </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="L27382" class="LineNr">27382 </span> (<a href='mu.subx.html#L32809'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L27383" class="LineNr">27383 </span> <span class="subxComment"># emit size of inouts</span> -<span id="L27384" class="LineNr">27384 </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="L27385" class="LineNr">27385 </span> (<a href='mu.subx.html#L27489'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L27386" class="LineNr">27386 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27387" class="LineNr">27387 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L27388" class="LineNr">27388 </span><span class="Constant">$translate-mu-copy-object-stmt:end</span>: -<span id="L27389" class="LineNr">27389 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27390" class="LineNr">27390 </span> 58/pop-to-eax -<span id="L27391" class="LineNr">27391 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27392" class="LineNr">27392 </span> 89/<- %esp 5/r32/ebp -<span id="L27393" class="LineNr">27393 </span> 5d/pop-to-ebp -<span id="L27394" class="LineNr">27394 </span> c3/return -<span id="L27395" class="LineNr">27395 </span> -<span id="L27396" class="LineNr">27396 </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="L27397" class="LineNr">27397 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27398" class="LineNr">27398 </span> 55/push-ebp -<span id="L27399" class="LineNr">27399 </span> 89/<- %ebp 4/r32/esp -<span id="L27400" class="LineNr">27400 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27401" class="LineNr">27401 </span> 50/push-eax -<span id="L27402" class="LineNr">27402 </span> <span class="subxComment">#</span> -<span id="L27403" class="LineNr">27403 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L27404" class="LineNr">27404 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(zero-out"</span>) -<span id="L27405" class="LineNr">27405 </span> <span class="subxComment"># eax = stmt</span> -<span id="L27406" class="LineNr">27406 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27407" class="LineNr">27407 </span> <span class="subxComment"># var dest/eax: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L27408" class="LineNr">27408 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27409" class="LineNr">27409 </span> <span class="subxComment">#</span> -<span id="L27410" class="LineNr">27410 </span> (<a href='mu.subx.html#L32809'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L27411" class="LineNr">27411 </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="L27412" class="LineNr">27412 </span> (<a href='mu.subx.html#L27489'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L27413" class="LineNr">27413 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27414" class="LineNr">27414 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L27415" class="LineNr">27415 </span><span class="Constant">$translate-mu-clear-object-stmt:end</span>: -<span id="L27416" class="LineNr">27416 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27417" class="LineNr">27417 </span> 58/pop-to-eax +<span id="L27099" class="LineNr">27099 </span> (<a href='mu.subx.html#L28033'>translate-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27100" class="LineNr">27100 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L27101" class="LineNr">27101 </span> } +<span id="L27102" class="LineNr">27102 </span> <span class="subxComment"># allocate array</span> +<span id="L27103" class="LineNr">27103 </span> { +<span id="L27104" class="LineNr">27104 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate")) break</span> +<span id="L27105" class="LineNr">27105 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L27106" class="LineNr">27106 </span> 3d/compare-eax-and 0/imm32 +<span id="L27107" class="LineNr">27107 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27108" class="LineNr">27108 </span> (<a href='mu.subx.html#L28156'>translate-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27109" class="LineNr">27109 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L27110" class="LineNr">27110 </span> } +<span id="L27111" class="LineNr">27111 </span> <span class="subxComment"># allocate stream</span> +<span id="L27112" class="LineNr">27112 </span> { +<span id="L27113" class="LineNr">27113 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate-stream")) break</span> +<span id="L27114" class="LineNr">27114 </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="L27115" class="LineNr">27115 </span> 3d/compare-eax-and 0/imm32 +<span id="L27116" class="LineNr">27116 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27117" class="LineNr">27117 </span> (<a href='mu.subx.html#L28192'>translate-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27118" class="LineNr">27118 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L27119" class="LineNr">27119 </span> } +<span id="L27120" class="LineNr">27120 </span> <span class="subxComment"># read from stream</span> +<span id="L27121" class="LineNr">27121 </span> { +<span id="L27122" class="LineNr">27122 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "read-from-stream")) break</span> +<span id="L27123" class="LineNr">27123 </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="L27124" class="LineNr">27124 </span> 3d/compare-eax-and 0/imm32 +<span id="L27125" class="LineNr">27125 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27126" class="LineNr">27126 </span> (<a href='mu.subx.html#L28228'>translate-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27127" class="LineNr">27127 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L27128" class="LineNr">27128 </span> } +<span id="L27129" class="LineNr">27129 </span> <span class="subxComment"># write to stream</span> +<span id="L27130" class="LineNr">27130 </span> { +<span id="L27131" class="LineNr">27131 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "write-to-stream")) break</span> +<span id="L27132" class="LineNr">27132 </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="L27133" class="LineNr">27133 </span> 3d/compare-eax-and 0/imm32 +<span id="L27134" class="LineNr">27134 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27135" class="LineNr">27135 </span> (<a href='mu.subx.html#L28265'>translate-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27136" class="LineNr">27136 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L27137" class="LineNr">27137 </span> } +<span id="L27138" class="LineNr">27138 </span> <span class="subxH1Comment"># - if stmt matches a primitive, emit it</span> +<span id="L27139" class="LineNr">27139 </span> { +<span id="L27140" class="LineNr">27140 </span><span class="Constant">$emit-subx-stmt:check-for-primitive</span>: +<span id="L27141" class="LineNr">27141 </span> <span class="subxComment"># var curr/eax: (addr primitive)</span> +<span id="L27142" class="LineNr">27142 </span> (<a href='mu.subx.html#L33667'>find-matching-primitive</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># primitives, stmt => eax</span> +<span id="L27143" class="LineNr">27143 </span> 3d/compare-eax-and 0/imm32 +<span id="L27144" class="LineNr">27144 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27145" class="LineNr">27145 </span><span class="Constant">$emit-subx-stmt:primitive</span>: +<span id="L27146" class="LineNr">27146 </span> (<a href='mu.subx.html#L33138'>emit-subx-primitive</a> *(ebp+8) *(ebp+0xc) %eax) <span class="subxComment"># out, stmt, curr</span> +<span id="L27147" class="LineNr">27147 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L27148" class="LineNr">27148 </span> } +<span id="L27149" class="LineNr">27149 </span> <span class="subxH1Comment"># - otherwise emit a call</span> +<span id="L27150" class="LineNr">27150 </span> <span class="subxComment"># TODO: type-checking</span> +<span id="L27151" class="LineNr">27151 </span><span class="Constant">$emit-subx-stmt:call</span>: +<span id="L27152" class="LineNr">27152 </span> (<a href='mu.subx.html#L33407'>emit-call</a> *(ebp+8) *(ebp+0xc)) +<span id="L27153" class="LineNr">27153 </span><span class="Constant">$emit-subx-stmt:end</span>: +<span id="L27154" class="LineNr">27154 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27155" class="LineNr">27155 </span> 59/pop-to-ecx +<span id="L27156" class="LineNr">27156 </span> 58/pop-to-eax +<span id="L27157" class="LineNr">27157 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27158" class="LineNr">27158 </span> 89/<- %esp 5/r32/ebp +<span id="L27159" class="LineNr">27159 </span> 5d/pop-to-ebp +<span id="L27160" class="LineNr">27160 </span> c3/return +<span id="L27161" class="LineNr">27161 </span> +<span id="L27162" class="LineNr">27162 </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="L27163" class="LineNr">27163 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27164" class="LineNr">27164 </span> 55/push-ebp +<span id="L27165" class="LineNr">27165 </span> 89/<- %ebp 4/r32/esp +<span id="L27166" class="LineNr">27166 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27167" class="LineNr">27167 </span> 50/push-eax +<span id="L27168" class="LineNr">27168 </span> 51/push-ecx +<span id="L27169" class="LineNr">27169 </span> 52/push-edx +<span id="L27170" class="LineNr">27170 </span> 53/push-ebx +<span id="L27171" class="LineNr">27171 </span> 56/push-esi +<span id="L27172" class="LineNr">27172 </span> <span class="subxComment"># esi = stmt</span> +<span id="L27173" class="LineNr">27173 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L27174" class="LineNr">27174 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]->value</span> +<span id="L27175" class="LineNr">27175 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27176" class="LineNr">27176 </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="L27177" class="LineNr">27177 </span> 89/<- %ebx 0/r32/eax +<span id="L27178" class="LineNr">27178 </span> <span class="subxComment"># var elemsize/ecx: int = array-element-size(base)</span> +<span id="L27179" class="LineNr">27179 </span> (<a href='mu.subx.html#L27283'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L27180" class="LineNr">27180 </span> 89/<- %ecx 0/r32/eax +<span id="L27181" class="LineNr">27181 </span> <span class="subxComment"># var outreg/edx: (addr array byte) = stmt->outputs[0]->value->register</span> +<span id="L27182" class="LineNr">27182 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L27183" class="LineNr">27183 </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="L27184" class="LineNr">27184 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27185" class="LineNr">27185 </span> 89/<- %edx 0/r32/eax +<span id="L27186" class="LineNr">27186 </span> <span class="subxComment"># if elemsize == 1</span> +<span id="L27187" class="LineNr">27187 </span> { +<span id="L27188" class="LineNr">27188 </span> 81 7/subop/compare %ecx 1/imm32 +<span id="L27189" class="LineNr">27189 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27190" class="LineNr">27190 </span><span class="Constant">$translate-mu-length-stmt:size-1</span>: +<span id="L27191" class="LineNr">27191 </span> (<a href='mu.subx.html#L27423'>emit-save-size-to</a> *(ebp+8) %ebx %edx) +<span id="L27192" class="LineNr">27192 </span> e9/jump $translate-mu-length-stmt:end/disp32 +<span id="L27193" class="LineNr">27193 </span> } +<span id="L27194" class="LineNr">27194 </span> <span class="subxComment"># if elemsize is a power of 2 less than 256</span> +<span id="L27195" class="LineNr">27195 </span> { +<span id="L27196" class="LineNr">27196 </span> (<a href='mu.subx.html#L28391'>power-of-2?</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L27197" class="LineNr">27197 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27198" class="LineNr">27198 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27199" class="LineNr">27199 </span> 81 7/subop/compare %ecx 0xff/imm32 +<span id="L27200" class="LineNr">27200 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 +<span id="L27201" class="LineNr">27201 </span><span class="Constant">$translate-mu-length-stmt:size-power-of-2</span>: +<span id="L27202" class="LineNr">27202 </span> (<a href='mu.subx.html#L27423'>emit-save-size-to</a> *(ebp+8) %ebx %edx) +<span id="L27203" class="LineNr">27203 </span> (<a href='mu.subx.html#L27466'>emit-divide-by-shift-right</a> *(ebp+8) %edx %ecx) +<span id="L27204" class="LineNr">27204 </span> e9/jump $translate-mu-length-stmt:end/disp32 +<span id="L27205" class="LineNr">27205 </span> } +<span id="L27206" class="LineNr">27206 </span> <span class="subxComment"># otherwise, the complex case</span> +<span id="L27207" class="LineNr">27207 </span> <span class="subxS1Comment"># . emit register spills</span> +<span id="L27208" class="LineNr">27208 </span> { +<span id="L27209" class="LineNr">27209 </span><span class="Constant">$translate-mu-length-stmt:complex</span>: +<span id="L27210" class="LineNr">27210 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L27211" class="LineNr">27211 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27212" class="LineNr">27212 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L27213" class="LineNr">27213 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27214" class="LineNr">27214 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"50/push-eax\n"</span>) +<span id="L27215" class="LineNr">27215 </span> } +<span id="L27216" class="LineNr">27216 </span> { +<span id="L27217" class="LineNr">27217 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> +<span id="L27218" class="LineNr">27218 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27219" class="LineNr">27219 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L27220" class="LineNr">27220 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27221" class="LineNr">27221 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"51/push-ecx\n"</span>) +<span id="L27222" class="LineNr">27222 </span> } +<span id="L27223" class="LineNr">27223 </span> { +<span id="L27224" class="LineNr">27224 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> +<span id="L27225" class="LineNr">27225 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27226" class="LineNr">27226 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L27227" class="LineNr">27227 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27228" class="LineNr">27228 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"52/push-edx\n"</span>) +<span id="L27229" class="LineNr">27229 </span> } +<span id="L27230" class="LineNr">27230 </span> <span class="subxS1Comment"># .</span> +<span id="L27231" class="LineNr">27231 </span> (<a href='mu.subx.html#L27423'>emit-save-size-to</a> *(ebp+8) %ebx <span class="Constant">"eax"</span>) +<span id="L27232" class="LineNr">27232 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27233" class="LineNr">27233 </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="L27234" class="LineNr">27234 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27235" class="LineNr">27235 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"b9/copy-to-ecx "</span>) +<span id="L27236" class="LineNr">27236 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) +<span id="L27237" class="LineNr">27237 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L27238" class="LineNr">27238 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27239" class="LineNr">27239 </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="L27240" class="LineNr">27240 </span> { +<span id="L27241" class="LineNr">27241 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L27242" class="LineNr">27242 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27243" class="LineNr">27243 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L27244" class="LineNr">27244 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27245" class="LineNr">27245 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"89/<- %"</span>) +<span id="L27246" class="LineNr">27246 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %edx) +<span id="L27247" class="LineNr">27247 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/r32/eax\n"</span>) +<span id="L27248" class="LineNr">27248 </span> } +<span id="L27249" class="LineNr">27249 </span> <span class="subxS1Comment"># . emit register restores</span> +<span id="L27250" class="LineNr">27250 </span> { +<span id="L27251" class="LineNr">27251 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> +<span id="L27252" class="LineNr">27252 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27253" class="LineNr">27253 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L27254" class="LineNr">27254 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27255" class="LineNr">27255 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"5a/pop-to-edx\n"</span>) +<span id="L27256" class="LineNr">27256 </span> } +<span id="L27257" class="LineNr">27257 </span> { +<span id="L27258" class="LineNr">27258 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> +<span id="L27259" class="LineNr">27259 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27260" class="LineNr">27260 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L27261" class="LineNr">27261 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27262" class="LineNr">27262 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"59/pop-to-ecx\n"</span>) +<span id="L27263" class="LineNr">27263 </span> } +<span id="L27264" class="LineNr">27264 </span> { +<span id="L27265" class="LineNr">27265 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L27266" class="LineNr">27266 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27267" class="LineNr">27267 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L27268" class="LineNr">27268 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27269" class="LineNr">27269 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"58/pop-to-eax\n"</span>) +<span id="L27270" class="LineNr">27270 </span> } +<span id="L27271" class="LineNr">27271 </span><span class="Constant">$translate-mu-length-stmt:end</span>: +<span id="L27272" class="LineNr">27272 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27273" class="LineNr">27273 </span> 5e/pop-to-esi +<span id="L27274" class="LineNr">27274 </span> 5b/pop-to-ebx +<span id="L27275" class="LineNr">27275 </span> 5a/pop-to-edx +<span id="L27276" class="LineNr">27276 </span> 59/pop-to-ecx +<span id="L27277" class="LineNr">27277 </span> 58/pop-to-eax +<span id="L27278" class="LineNr">27278 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27279" class="LineNr">27279 </span> 89/<- %esp 5/r32/ebp +<span id="L27280" class="LineNr">27280 </span> 5d/pop-to-ebp +<span id="L27281" class="LineNr">27281 </span> c3/return +<span id="L27282" class="LineNr">27282 </span> +<span id="L27283" class="LineNr">27283 </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="L27284" class="LineNr">27284 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27285" class="LineNr">27285 </span> 55/push-ebp +<span id="L27286" class="LineNr">27286 </span> 89/<- %ebp 4/r32/esp +<span id="L27287" class="LineNr">27287 </span> <span class="subxComment">#</span> +<span id="L27288" class="LineNr">27288 </span> (<a href='mu.subx.html#L27296'>array-element-type-id</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L27289" class="LineNr">27289 </span> (<a href='mu.subx.html#L27402'>size-of-type-id-as-array-element</a> %eax) <span class="subxComment"># => eax</span> +<span id="L27290" class="LineNr">27290 </span><span class="Constant">$array-element-size:end</span>: +<span id="L27291" class="LineNr">27291 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27292" class="LineNr">27292 </span> 89/<- %esp 5/r32/ebp +<span id="L27293" class="LineNr">27293 </span> 5d/pop-to-ebp +<span id="L27294" class="LineNr">27294 </span> c3/return +<span id="L27295" class="LineNr">27295 </span> +<span id="L27296" class="LineNr">27296 </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="L27297" class="LineNr">27297 </span> <span class="subxComment"># precondition: n is positive</span> +<span id="L27298" class="LineNr">27298 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27299" class="LineNr">27299 </span> 55/push-ebp +<span id="L27300" class="LineNr">27300 </span> 89/<- %ebp 4/r32/esp +<span id="L27301" class="LineNr">27301 </span> <span class="subxComment">#</span> +<span id="L27302" class="LineNr">27302 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L27303" class="LineNr">27303 </span> <span class="subxComment"># var t/eax: (addr type-tree)</span> +<span id="L27304" class="LineNr">27304 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27305" class="LineNr">27305 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L27306" class="LineNr">27306 </span> 3d/compare-eax-with 0/imm32 +<span id="L27307" class="LineNr">27307 </span> 0f 84/jump-if-== $array-element-type-id:error0/disp32 +<span id="L27308" class="LineNr">27308 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L27309" class="LineNr">27309 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L27310" class="LineNr">27310 </span> 0f 85/jump-if-!= $array-element-type-id:error1/disp32 +<span id="L27311" class="LineNr">27311 </span> <span class="subxComment"># if (t->left == addr) t = t->right</span> +<span id="L27312" class="LineNr">27312 </span> { +<span id="L27313" class="LineNr">27313 </span> 50/push-eax +<span id="L27314" class="LineNr">27314 </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="L27315" class="LineNr">27315 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L27316" class="LineNr">27316 </span> 3d/compare-eax-with 0/imm32/false +<span id="L27317" class="LineNr">27317 </span> 58/pop-to-eax +<span id="L27318" class="LineNr">27318 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27319" class="LineNr">27319 </span><span class="Constant">$array-element-type-id:skip-addr</span>: +<span id="L27320" class="LineNr">27320 </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="L27321" class="LineNr">27321 </span> } +<span id="L27322" class="LineNr">27322 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L27323" class="LineNr">27323 </span> 3d/compare-eax-with 0/imm32 +<span id="L27324" class="LineNr">27324 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L27325" class="LineNr">27325 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L27326" class="LineNr">27326 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L27327" class="LineNr">27327 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 +<span id="L27328" class="LineNr">27328 </span> <span class="subxComment"># if t->left != array abort</span> +<span id="L27329" class="LineNr">27329 </span> { +<span id="L27330" class="LineNr">27330 </span> 50/push-eax +<span id="L27331" class="LineNr">27331 </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="L27332" class="LineNr">27332 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L27333" class="LineNr">27333 </span> 3d/compare-eax-with 0/imm32/false +<span id="L27334" class="LineNr">27334 </span> 58/pop-to-eax +<span id="L27335" class="LineNr">27335 </span><span class="Constant">$array-element-type-id:no-array</span>: +<span id="L27336" class="LineNr">27336 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L27337" class="LineNr">27337 </span> } +<span id="L27338" class="LineNr">27338 </span><span class="Constant">$array-element-type-id:skip-array</span>: +<span id="L27339" class="LineNr">27339 </span> <span class="subxComment"># t = t->right</span> +<span id="L27340" class="LineNr">27340 </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="L27341" class="LineNr">27341 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L27342" class="LineNr">27342 </span> 3d/compare-eax-with 0/imm32 +<span id="L27343" class="LineNr">27343 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L27344" class="LineNr">27344 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L27345" class="LineNr">27345 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L27346" class="LineNr">27346 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 +<span id="L27347" class="LineNr">27347 </span> <span class="subxComment"># t = t->left</span> +<span id="L27348" class="LineNr">27348 </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="L27349" class="LineNr">27349 </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="L27350" class="LineNr">27350 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> +<span id="L27351" class="LineNr">27351 </span> { +<span id="L27352" class="LineNr">27352 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L27353" class="LineNr">27353 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27354" class="LineNr">27354 </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="L27355" class="LineNr">27355 </span> } +<span id="L27356" class="LineNr">27356 </span> <span class="subxComment"># return t->value</span> +<span id="L27357" class="LineNr">27357 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L27358" class="LineNr">27358 </span><span class="Constant">$array-element-type-id:end</span>: +<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">$array-element-type-id:error0</span>: +<span id="L27365" class="LineNr">27365 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L27366" class="LineNr">27366 </span> 50/push-eax +<span id="L27367" class="LineNr">27367 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L27368" class="LineNr">27368 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27369" class="LineNr">27369 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L27370" class="LineNr">27370 </span> 58/pop-to-eax +<span id="L27371" class="LineNr">27371 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) +<span id="L27372" class="LineNr">27372 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L27373" class="LineNr">27373 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L27374" class="LineNr">27374 </span> <span class="subxComment"># never gets here</span> +<span id="L27375" class="LineNr">27375 </span> +<span id="L27376" class="LineNr">27376 </span><span class="Constant">$array-element-type-id:error1</span>: +<span id="L27377" class="LineNr">27377 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L27378" class="LineNr">27378 </span> 50/push-eax +<span id="L27379" class="LineNr">27379 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L27380" class="LineNr">27380 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27381" class="LineNr">27381 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L27382" class="LineNr">27382 </span> 58/pop-to-eax +<span id="L27383" class="LineNr">27383 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) +<span id="L27384" class="LineNr">27384 </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="L27385" class="LineNr">27385 </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="L27386" class="LineNr">27386 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L27387" class="LineNr">27387 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L27388" class="LineNr">27388 </span> <span class="subxComment"># never gets here</span> +<span id="L27389" class="LineNr">27389 </span> +<span id="L27390" class="LineNr">27390 </span><span class="Constant">$array-element-type-id:error2</span>: +<span id="L27391" class="LineNr">27391 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L27392" class="LineNr">27392 </span> 50/push-eax +<span id="L27393" class="LineNr">27393 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L27394" class="LineNr">27394 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27395" class="LineNr">27395 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L27396" class="LineNr">27396 </span> 58/pop-to-eax +<span id="L27397" class="LineNr">27397 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-array type\n"</span>) +<span id="L27398" class="LineNr">27398 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L27399" class="LineNr">27399 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L27400" class="LineNr">27400 </span> <span class="subxComment"># never gets here</span> +<span id="L27401" class="LineNr">27401 </span> +<span id="L27402" class="LineNr">27402 </span><span class="subxFunction">size-of-type-id-as-array-element</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> +<span id="L27403" class="LineNr">27403 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27404" class="LineNr">27404 </span> 55/push-ebp +<span id="L27405" class="LineNr">27405 </span> 89/<- %ebp 4/r32/esp +<span id="L27406" class="LineNr">27406 </span> <span class="subxComment"># eax = t</span> +<span id="L27407" class="LineNr">27407 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L27408" class="LineNr">27408 </span> <span class="subxComment"># if t is 'byte', size is 1</span> +<span id="L27409" class="LineNr">27409 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L27410" class="LineNr">27410 </span> { +<span id="L27411" class="LineNr">27411 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27412" class="LineNr">27412 </span> b8/copy-to-eax 1/imm32 +<span id="L27413" class="LineNr">27413 </span> eb/jump $size-of-type-id-as-array-element:end/disp8 +<span id="L27414" class="LineNr">27414 </span> } +<span id="L27415" class="LineNr">27415 </span> <span class="subxComment"># otherwise proceed as usual</span> +<span id="L27416" class="LineNr">27416 </span> (<a href='mu.subx.html#L25224'>size-of-type-id</a> %eax) <span class="subxComment"># => eax</span> +<span id="L27417" class="LineNr">27417 </span><span class="Constant">$size-of-type-id-as-array-element:end</span>: <span id="L27418" class="LineNr">27418 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L27419" class="LineNr">27419 </span> 89/<- %esp 5/r32/ebp <span id="L27420" class="LineNr">27420 </span> 5d/pop-to-ebp <span id="L27421" class="LineNr">27421 </span> c3/return <span id="L27422" class="LineNr">27422 </span> -<span id="L27423" class="LineNr">27423 </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="L27423" class="LineNr">27423 </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="L27424" class="LineNr">27424 </span> <span class="subxS1Comment"># . prologue</span> <span id="L27425" class="LineNr">27425 </span> 55/push-ebp <span id="L27426" class="LineNr">27426 </span> 89/<- %ebp 4/r32/esp <span id="L27427" class="LineNr">27427 </span> <span class="subxS1Comment"># . save registers</span> <span id="L27428" class="LineNr">27428 </span> 50/push-eax -<span id="L27429" class="LineNr">27429 </span> 56/push-esi -<span id="L27430" class="LineNr">27430 </span> 57/push-edi -<span id="L27431" class="LineNr">27431 </span> <span class="subxComment"># esi = stmt</span> -<span id="L27432" class="LineNr">27432 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L27433" class="LineNr">27433 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L27434" class="LineNr">27434 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27435" class="LineNr">27435 </span> 89/<- %edi 0/r32/eax -<span id="L27436" class="LineNr">27436 </span> <span class="subxComment">#</span> -<span id="L27437" class="LineNr">27437 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L27438" class="LineNr">27438 </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="L27439" class="LineNr">27439 </span> (<a href='mu.subx.html#L27453'>addr-handle-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L27440" class="LineNr">27440 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27441" class="LineNr">27441 </span> (<a href='mu.subx.html#L32809'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L27442" class="LineNr">27442 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L27443" class="LineNr">27443 </span><span class="Constant">$translate-mu-allocate-stmt:end</span>: -<span id="L27444" class="LineNr">27444 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27445" class="LineNr">27445 </span> 5f/pop-to-edi -<span id="L27446" class="LineNr">27446 </span> 5e/pop-to-esi -<span id="L27447" class="LineNr">27447 </span> 58/pop-to-eax -<span id="L27448" class="LineNr">27448 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27449" class="LineNr">27449 </span> 89/<- %esp 5/r32/ebp -<span id="L27450" class="LineNr">27450 </span> 5d/pop-to-ebp -<span id="L27451" class="LineNr">27451 </span> c3/return -<span id="L27452" class="LineNr">27452 </span> -<span id="L27453" class="LineNr">27453 </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="L27454" class="LineNr">27454 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27455" class="LineNr">27455 </span> 55/push-ebp -<span id="L27456" class="LineNr">27456 </span> 89/<- %ebp 4/r32/esp -<span id="L27457" class="LineNr">27457 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L27458" class="LineNr">27458 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L27459" class="LineNr">27459 </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="L27460" class="LineNr">27460 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L27461" class="LineNr">27461 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L27462" class="LineNr">27462 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L27463" class="LineNr">27463 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L27464" class="LineNr">27464 </span> <span class="subxComment"># t = t->right</span> -<span id="L27465" class="LineNr">27465 </span><span class="Constant">$addr-handle-payload-size:skip-addr</span>: -<span id="L27466" class="LineNr">27466 </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="L27467" class="LineNr">27467 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L27468" class="LineNr">27468 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L27469" class="LineNr">27469 </span> <span class="subxComment"># TODO: check t->left == handle</span> -<span id="L27470" class="LineNr">27470 </span> <span class="subxComment"># t = t->right</span> -<span id="L27471" class="LineNr">27471 </span><span class="Constant">$addr-handle-payload-size:skip-handle</span>: -<span id="L27472" class="LineNr">27472 </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="L27473" class="LineNr">27473 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L27474" class="LineNr">27474 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L27475" class="LineNr">27475 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L27476" class="LineNr">27476 </span> { -<span id="L27477" class="LineNr">27477 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27478" class="LineNr">27478 </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="L27479" class="LineNr">27479 </span> } -<span id="L27480" class="LineNr">27480 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L27481" class="LineNr">27481 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L27482" class="LineNr">27482 </span> (<a href='mu.subx.html#L24587'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L27483" class="LineNr">27483 </span><span class="Constant">$addr-handle-payload-size:end</span>: -<span id="L27484" class="LineNr">27484 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27485" class="LineNr">27485 </span> 89/<- %esp 5/r32/ebp -<span id="L27486" class="LineNr">27486 </span> 5d/pop-to-ebp -<span id="L27487" class="LineNr">27487 </span> c3/return -<span id="L27488" class="LineNr">27488 </span> -<span id="L27489" class="LineNr">27489 </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="L27429" class="LineNr">27429 </span> 53/push-ebx +<span id="L27430" class="LineNr">27430 </span> <span class="subxComment"># ebx = base</span> +<span id="L27431" class="LineNr">27431 </span> 8b/-> *(ebp+0xc) 3/r32/ebx +<span id="L27432" class="LineNr">27432 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27433" class="LineNr">27433 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/-> *"</span>) +<span id="L27434" class="LineNr">27434 </span> <span class="subxComment"># if base is an (addr array ...) in a register</span> +<span id="L27435" class="LineNr">27435 </span> { +<span id="L27436" class="LineNr">27436 </span> 81 7/subop/compare *(ebx+0x18)) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27437" class="LineNr">27437 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27438" class="LineNr">27438 </span><span class="Constant">$emit-save-size-to:emit-base-from-register</span>: +<span id="L27439" class="LineNr">27439 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27440" class="LineNr">27440 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27441" class="LineNr">27441 </span> eb/jump $emit-save-size-to:emit-output/disp8 +<span id="L27442" class="LineNr">27442 </span> } +<span id="L27443" class="LineNr">27443 </span> <span class="subxComment"># otherwise if base is an (array ...) on the stack</span> +<span id="L27444" class="LineNr">27444 </span> { +<span id="L27445" class="LineNr">27445 </span> 81 7/subop/compare *(ebx+0x14)) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L27446" class="LineNr">27446 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27447" class="LineNr">27447 </span><span class="Constant">$emit-save-size-to:emit-base-from-stack</span>: +<span id="L27448" class="LineNr">27448 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(ebp+"</span>) +<span id="L27449" class="LineNr">27449 </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="L27450" class="LineNr">27450 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L27451" class="LineNr">27451 </span> } +<span id="L27452" class="LineNr">27452 </span><span class="Constant">$emit-save-size-to:emit-output</span>: +<span id="L27453" class="LineNr">27453 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L27454" class="LineNr">27454 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L18292'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> +<span id="L27455" class="LineNr">27455 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L27456" class="LineNr">27456 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L27457" class="LineNr">27457 </span><span class="Constant">$emit-save-size-to:end</span>: +<span id="L27458" class="LineNr">27458 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27459" class="LineNr">27459 </span> 5b/pop-to-ebx +<span id="L27460" class="LineNr">27460 </span> 58/pop-to-eax +<span id="L27461" class="LineNr">27461 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27462" class="LineNr">27462 </span> 89/<- %esp 5/r32/ebp +<span id="L27463" class="LineNr">27463 </span> 5d/pop-to-ebp +<span id="L27464" class="LineNr">27464 </span> c3/return +<span id="L27465" class="LineNr">27465 </span> +<span id="L27466" class="LineNr">27466 </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="L27467" class="LineNr">27467 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27468" class="LineNr">27468 </span> 55/push-ebp +<span id="L27469" class="LineNr">27469 </span> 89/<- %ebp 4/r32/esp +<span id="L27470" class="LineNr">27470 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27471" class="LineNr">27471 </span> 50/push-eax +<span id="L27472" class="LineNr">27472 </span> <span class="subxComment">#</span> +<span id="L27473" class="LineNr">27473 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27474" class="LineNr">27474 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c1/shift 5/subop/>> %"</span>) +<span id="L27475" class="LineNr">27475 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L27476" class="LineNr">27476 </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="L27477" class="LineNr">27477 </span> (<a href='mu.subx.html#L28421'>num-shift-rights</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L27478" class="LineNr">27478 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L27479" class="LineNr">27479 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8\n"</span>) +<span id="L27480" class="LineNr">27480 </span><span class="Constant">$emit-divide-by-shift-right:end</span>: +<span id="L27481" class="LineNr">27481 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27482" class="LineNr">27482 </span> 58/pop-to-eax +<span id="L27483" class="LineNr">27483 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27484" class="LineNr">27484 </span> 89/<- %esp 5/r32/ebp +<span id="L27485" class="LineNr">27485 </span> 5d/pop-to-ebp +<span id="L27486" class="LineNr">27486 </span> c3/return +<span id="L27487" class="LineNr">27487 </span> +<span id="L27488" class="LineNr">27488 </span><span class="subxComment"># a little different from other translate- functions; notice the extra 'fn' argument</span> +<span id="L27489" class="LineNr">27489 </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="L27490" class="LineNr">27490 </span> <span class="subxS1Comment"># . prologue</span> <span id="L27491" class="LineNr">27491 </span> 55/push-ebp <span id="L27492" class="LineNr">27492 </span> 89/<- %ebp 4/r32/esp -<span id="L27493" class="LineNr">27493 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L27494" class="LineNr">27494 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L27495" class="LineNr">27495 </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="L27496" class="LineNr">27496 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L27497" class="LineNr">27497 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L27498" class="LineNr">27498 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L27499" class="LineNr">27499 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L27500" class="LineNr">27500 </span> <span class="subxComment"># t = t->right</span> -<span id="L27501" class="LineNr">27501 </span><span class="Constant">$addr-payload-size:skip-addr</span>: -<span id="L27502" class="LineNr">27502 </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="L27503" class="LineNr">27503 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L27504" class="LineNr">27504 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L27505" class="LineNr">27505 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L27506" class="LineNr">27506 </span> { -<span id="L27507" class="LineNr">27507 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27508" class="LineNr">27508 </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="L27509" class="LineNr">27509 </span> } -<span id="L27510" class="LineNr">27510 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L27511" class="LineNr">27511 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L27512" class="LineNr">27512 </span> (<a href='mu.subx.html#L24587'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L27513" class="LineNr">27513 </span><span class="Constant">$addr-payload-size:end</span>: -<span id="L27514" class="LineNr">27514 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27515" class="LineNr">27515 </span> 89/<- %esp 5/r32/ebp -<span id="L27516" class="LineNr">27516 </span> 5d/pop-to-ebp -<span id="L27517" class="LineNr">27517 </span> c3/return -<span id="L27518" class="LineNr">27518 </span> -<span id="L27519" class="LineNr">27519 </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="L27520" class="LineNr">27520 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27521" class="LineNr">27521 </span> 55/push-ebp -<span id="L27522" class="LineNr">27522 </span> 89/<- %ebp 4/r32/esp -<span id="L27523" class="LineNr">27523 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27524" class="LineNr">27524 </span> 50/push-eax -<span id="L27525" class="LineNr">27525 </span> 51/push-ecx -<span id="L27526" class="LineNr">27526 </span> 56/push-esi -<span id="L27527" class="LineNr">27527 </span> 57/push-edi -<span id="L27528" class="LineNr">27528 </span> <span class="subxComment"># esi = stmt</span> -<span id="L27529" class="LineNr">27529 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L27530" class="LineNr">27530 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L27531" class="LineNr">27531 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27532" class="LineNr">27532 </span> 89/<- %edi 0/r32/eax -<span id="L27533" class="LineNr">27533 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L27534" class="LineNr">27534 </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="L27535" class="LineNr">27535 </span> 89/<- %ecx 0/r32/eax -<span id="L27536" class="LineNr">27536 </span> <span class="subxComment">#</span> -<span id="L27537" class="LineNr">27537 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L27538" class="LineNr">27538 </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="L27539" class="LineNr">27539 </span> (<a href='mu.subx.html#L27668'>addr-handle-array-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L27540" class="LineNr">27540 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27541" class="LineNr">27541 </span> (<a href='mu.subx.html#L32809'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L27542" class="LineNr">27542 </span> (<a href='mu.subx.html#L32809'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L27543" class="LineNr">27543 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L27544" class="LineNr">27544 </span><span class="Constant">$translate-mu-populate-stmt:end</span>: -<span id="L27545" class="LineNr">27545 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27546" class="LineNr">27546 </span> 5f/pop-to-edi -<span id="L27547" class="LineNr">27547 </span> 5e/pop-to-esi -<span id="L27548" class="LineNr">27548 </span> 59/pop-to-ecx -<span id="L27549" class="LineNr">27549 </span> 58/pop-to-eax -<span id="L27550" class="LineNr">27550 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27551" class="LineNr">27551 </span> 89/<- %esp 5/r32/ebp -<span id="L27552" class="LineNr">27552 </span> 5d/pop-to-ebp -<span id="L27553" class="LineNr">27553 </span> c3/return -<span id="L27554" class="LineNr">27554 </span> -<span id="L27555" class="LineNr">27555 </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="L27556" class="LineNr">27556 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27557" class="LineNr">27557 </span> 55/push-ebp -<span id="L27558" class="LineNr">27558 </span> 89/<- %ebp 4/r32/esp -<span id="L27559" class="LineNr">27559 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27560" class="LineNr">27560 </span> 50/push-eax -<span id="L27561" class="LineNr">27561 </span> 51/push-ecx -<span id="L27562" class="LineNr">27562 </span> 56/push-esi -<span id="L27563" class="LineNr">27563 </span> 57/push-edi -<span id="L27564" class="LineNr">27564 </span> <span class="subxComment"># esi = stmt</span> -<span id="L27565" class="LineNr">27565 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L27566" class="LineNr">27566 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L27567" class="LineNr">27567 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27568" class="LineNr">27568 </span> 89/<- %edi 0/r32/eax -<span id="L27569" class="LineNr">27569 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L27570" class="LineNr">27570 </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="L27571" class="LineNr">27571 </span> 89/<- %ecx 0/r32/eax -<span id="L27572" class="LineNr">27572 </span> <span class="subxComment">#</span> -<span id="L27573" class="LineNr">27573 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L27574" class="LineNr">27574 </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="L27575" class="LineNr">27575 </span> (<a href='mu.subx.html#L27711'>addr-handle-stream-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L27576" class="LineNr">27576 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27577" class="LineNr">27577 </span> (<a href='mu.subx.html#L32809'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L27578" class="LineNr">27578 </span> (<a href='mu.subx.html#L32809'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L27579" class="LineNr">27579 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L27580" class="LineNr">27580 </span><span class="Constant">$translate-mu-populate-stream-stmt:end</span>: -<span id="L27581" class="LineNr">27581 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27582" class="LineNr">27582 </span> 5f/pop-to-edi -<span id="L27583" class="LineNr">27583 </span> 5e/pop-to-esi -<span id="L27584" class="LineNr">27584 </span> 59/pop-to-ecx -<span id="L27585" class="LineNr">27585 </span> 58/pop-to-eax -<span id="L27586" class="LineNr">27586 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27587" class="LineNr">27587 </span> 89/<- %esp 5/r32/ebp -<span id="L27588" class="LineNr">27588 </span> 5d/pop-to-ebp -<span id="L27589" class="LineNr">27589 </span> c3/return -<span id="L27590" class="LineNr">27590 </span> -<span id="L27591" class="LineNr">27591 </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="L27592" class="LineNr">27592 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27593" class="LineNr">27593 </span> 55/push-ebp -<span id="L27594" class="LineNr">27594 </span> 89/<- %ebp 4/r32/esp -<span id="L27595" class="LineNr">27595 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27596" class="LineNr">27596 </span> 50/push-eax -<span id="L27597" class="LineNr">27597 </span> 51/push-ecx -<span id="L27598" class="LineNr">27598 </span> 56/push-esi -<span id="L27599" class="LineNr">27599 </span> 57/push-edi -<span id="L27600" class="LineNr">27600 </span> <span class="subxComment"># esi = stmt</span> -<span id="L27601" class="LineNr">27601 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L27602" class="LineNr">27602 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L27603" class="LineNr">27603 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27604" class="LineNr">27604 </span> 89/<- %ecx 0/r32/eax -<span id="L27605" class="LineNr">27605 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L27606" class="LineNr">27606 </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="L27607" class="LineNr">27607 </span> 89/<- %edi 0/r32/eax -<span id="L27608" class="LineNr">27608 </span> <span class="subxComment">#</span> -<span id="L27609" class="LineNr">27609 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L27610" class="LineNr">27610 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(read-from-stream"</span>) -<span id="L27611" class="LineNr">27611 </span> (<a href='mu.subx.html#L32809'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L27612" class="LineNr">27612 </span> (<a href='mu.subx.html#L32809'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L27613" class="LineNr">27613 </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="L27614" class="LineNr">27614 </span> (<a href='mu.subx.html#L27489'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L27615" class="LineNr">27615 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27616" class="LineNr">27616 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L27617" class="LineNr">27617 </span><span class="Constant">$translate-mu-read-from-stream-stmt:end</span>: -<span id="L27618" class="LineNr">27618 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27619" class="LineNr">27619 </span> 5f/pop-to-edi -<span id="L27620" class="LineNr">27620 </span> 5e/pop-to-esi -<span id="L27621" class="LineNr">27621 </span> 59/pop-to-ecx -<span id="L27622" class="LineNr">27622 </span> 58/pop-to-eax -<span id="L27623" class="LineNr">27623 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27624" class="LineNr">27624 </span> 89/<- %esp 5/r32/ebp -<span id="L27625" class="LineNr">27625 </span> 5d/pop-to-ebp -<span id="L27626" class="LineNr">27626 </span> c3/return -<span id="L27627" class="LineNr">27627 </span> -<span id="L27628" class="LineNr">27628 </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="L27629" class="LineNr">27629 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27630" class="LineNr">27630 </span> 55/push-ebp -<span id="L27631" class="LineNr">27631 </span> 89/<- %ebp 4/r32/esp -<span id="L27632" class="LineNr">27632 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27633" class="LineNr">27633 </span> 50/push-eax -<span id="L27634" class="LineNr">27634 </span> 51/push-ecx -<span id="L27635" class="LineNr">27635 </span> 56/push-esi -<span id="L27636" class="LineNr">27636 </span> 57/push-edi -<span id="L27637" class="LineNr">27637 </span> <span class="subxComment"># esi = stmt</span> -<span id="L27638" class="LineNr">27638 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L27639" class="LineNr">27639 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L27640" class="LineNr">27640 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27641" class="LineNr">27641 </span> 89/<- %ecx 0/r32/eax -<span id="L27642" class="LineNr">27642 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L27643" class="LineNr">27643 </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="L27644" class="LineNr">27644 </span> 89/<- %edi 0/r32/eax -<span id="L27645" class="LineNr">27645 </span> <span class="subxComment">#</span> -<span id="L27646" class="LineNr">27646 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L27647" class="LineNr">27647 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(write-to-stream"</span>) -<span id="L27648" class="LineNr">27648 </span> (<a href='mu.subx.html#L32809'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L27649" class="LineNr">27649 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L27650" class="LineNr">27650 </span> (<a href='mu.subx.html#L32809'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L27651" class="LineNr">27651 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L27652" class="LineNr">27652 </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="L27653" class="LineNr">27653 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L27654" class="LineNr">27654 </span> (<a href='mu.subx.html#L27489'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L27655" class="LineNr">27655 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27656" class="LineNr">27656 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L27657" class="LineNr">27657 </span><span class="Constant">$translate-mu-write-to-stream-stmt:end</span>: -<span id="L27658" class="LineNr">27658 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27659" class="LineNr">27659 </span> 5f/pop-to-edi -<span id="L27660" class="LineNr">27660 </span> 5e/pop-to-esi -<span id="L27661" class="LineNr">27661 </span> 59/pop-to-ecx -<span id="L27662" class="LineNr">27662 </span> 58/pop-to-eax -<span id="L27663" class="LineNr">27663 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27664" class="LineNr">27664 </span> 89/<- %esp 5/r32/ebp -<span id="L27665" class="LineNr">27665 </span> 5d/pop-to-ebp -<span id="L27666" class="LineNr">27666 </span> c3/return -<span id="L27667" class="LineNr">27667 </span> -<span id="L27668" class="LineNr">27668 </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="L27669" class="LineNr">27669 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27670" class="LineNr">27670 </span> 55/push-ebp -<span id="L27671" class="LineNr">27671 </span> 89/<- %ebp 4/r32/esp -<span id="L27672" class="LineNr">27672 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L27673" class="LineNr">27673 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L27674" class="LineNr">27674 </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="L27675" class="LineNr">27675 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L27676" class="LineNr">27676 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L27677" class="LineNr">27677 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L27678" class="LineNr">27678 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L27679" class="LineNr">27679 </span> <span class="subxComment"># t = t->right</span> -<span id="L27680" class="LineNr">27680 </span><span class="Constant">$addr-handle-array-payload-size:skip-addr</span>: -<span id="L27681" class="LineNr">27681 </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="L27682" class="LineNr">27682 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L27683" class="LineNr">27683 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L27684" class="LineNr">27684 </span> <span class="subxComment"># TODO: check t->left == handle</span> -<span id="L27685" class="LineNr">27685 </span> <span class="subxComment"># t = t->right</span> -<span id="L27686" class="LineNr">27686 </span><span class="Constant">$addr-handle-array-payload-size:skip-handle</span>: -<span id="L27687" class="LineNr">27687 </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="L27688" class="LineNr">27688 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L27689" class="LineNr">27689 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L27690" class="LineNr">27690 </span> <span class="subxComment"># TODO: check t->left == array</span> -<span id="L27691" class="LineNr">27691 </span> <span class="subxComment"># t = t->right</span> -<span id="L27692" class="LineNr">27692 </span><span class="Constant">$addr-handle-array-payload-size:skip-array</span>: -<span id="L27693" class="LineNr">27693 </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="L27694" class="LineNr">27694 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L27695" class="LineNr">27695 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L27696" class="LineNr">27696 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L27697" class="LineNr">27697 </span> { -<span id="L27698" class="LineNr">27698 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27699" class="LineNr">27699 </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="L27700" class="LineNr">27700 </span> } -<span id="L27701" class="LineNr">27701 </span><span class="Constant">$addr-handle-array-payload-size:compute-size</span>: -<span id="L27702" class="LineNr">27702 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L27703" class="LineNr">27703 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L27704" class="LineNr">27704 </span> (<a href='mu.subx.html#L26765'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L27705" class="LineNr">27705 </span><span class="Constant">$addr-handle-array-payload-size:end</span>: -<span id="L27706" class="LineNr">27706 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27707" class="LineNr">27707 </span> 89/<- %esp 5/r32/ebp -<span id="L27708" class="LineNr">27708 </span> 5d/pop-to-ebp -<span id="L27709" class="LineNr">27709 </span> c3/return -<span id="L27710" class="LineNr">27710 </span> -<span id="L27711" class="LineNr">27711 </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="L27712" class="LineNr">27712 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27713" class="LineNr">27713 </span> 55/push-ebp -<span id="L27714" class="LineNr">27714 </span> 89/<- %ebp 4/r32/esp -<span id="L27715" class="LineNr">27715 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L27716" class="LineNr">27716 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L27717" class="LineNr">27717 </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="L27718" class="LineNr">27718 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L27719" class="LineNr">27719 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L27720" class="LineNr">27720 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L27721" class="LineNr">27721 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L27722" class="LineNr">27722 </span> <span class="subxComment"># t = t->right</span> -<span id="L27723" class="LineNr">27723 </span><span class="Constant">$addr-handle-stream-payload-size:skip-addr</span>: -<span id="L27724" class="LineNr">27724 </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="L27725" class="LineNr">27725 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L27726" class="LineNr">27726 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L27727" class="LineNr">27727 </span> <span class="subxComment"># TODO: check t->left == handle</span> -<span id="L27728" class="LineNr">27728 </span> <span class="subxComment"># t = t->right</span> -<span id="L27729" class="LineNr">27729 </span><span class="Constant">$addr-handle-stream-payload-size:skip-handle</span>: -<span id="L27730" class="LineNr">27730 </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="L27731" class="LineNr">27731 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L27732" class="LineNr">27732 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L27733" class="LineNr">27733 </span> <span class="subxComment"># TODO: check t->left == stream</span> -<span id="L27734" class="LineNr">27734 </span> <span class="subxComment"># t = t->right</span> -<span id="L27735" class="LineNr">27735 </span><span class="Constant">$addr-handle-stream-payload-size:skip-stream</span>: -<span id="L27736" class="LineNr">27736 </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="L27737" class="LineNr">27737 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L27738" class="LineNr">27738 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L27739" class="LineNr">27739 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L27740" class="LineNr">27740 </span> { -<span id="L27741" class="LineNr">27741 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27742" class="LineNr">27742 </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="L27743" class="LineNr">27743 </span> } -<span id="L27744" class="LineNr">27744 </span><span class="Constant">$addr-handle-stream-payload-size:compute-size</span>: -<span id="L27745" class="LineNr">27745 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L27746" class="LineNr">27746 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L27747" class="LineNr">27747 </span> (<a href='mu.subx.html#L26765'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L27748" class="LineNr">27748 </span><span class="Constant">$addr-handle-stream-payload-size:end</span>: -<span id="L27749" class="LineNr">27749 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27750" class="LineNr">27750 </span> 89/<- %esp 5/r32/ebp -<span id="L27751" class="LineNr">27751 </span> 5d/pop-to-ebp -<span id="L27752" class="LineNr">27752 </span> c3/return -<span id="L27753" class="LineNr">27753 </span> -<span id="L27754" class="LineNr">27754 </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="L27755" class="LineNr">27755 </span> <span class="subxComment"># precondition: n is positive</span> -<span id="L27756" class="LineNr">27756 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27757" class="LineNr">27757 </span> 55/push-ebp -<span id="L27758" class="LineNr">27758 </span> 89/<- %ebp 4/r32/esp -<span id="L27759" class="LineNr">27759 </span> <span class="subxComment"># eax = n</span> -<span id="L27760" class="LineNr">27760 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L27761" class="LineNr">27761 </span> <span class="subxComment"># if (n < 0) abort</span> -<span id="L27762" class="LineNr">27762 </span> 3d/compare-eax-with 0/imm32 -<span id="L27763" class="LineNr">27763 </span> 0f 8c/jump-if-< $power-of-2?:abort/disp32 -<span id="L27764" class="LineNr">27764 </span> <span class="subxComment"># var tmp/eax: int = n-1</span> -<span id="L27765" class="LineNr">27765 </span> 48/decrement-eax -<span id="L27766" class="LineNr">27766 </span> <span class="subxComment"># var tmp2/eax: int = n & tmp</span> -<span id="L27767" class="LineNr">27767 </span> 23/and-> *(ebp+8) 0/r32/eax -<span id="L27768" class="LineNr">27768 </span> <span class="subxComment"># return (tmp2 == 0)</span> -<span id="L27769" class="LineNr">27769 </span> 3d/compare-eax-and 0/imm32 -<span id="L27770" class="LineNr">27770 </span> 0f 94/set-byte-if-= %al -<span id="L27771" class="LineNr">27771 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L27772" class="LineNr">27772 </span><span class="Constant">$power-of-2?:end</span>: -<span id="L27773" class="LineNr">27773 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27774" class="LineNr">27774 </span> 89/<- %esp 5/r32/ebp -<span id="L27775" class="LineNr">27775 </span> 5d/pop-to-ebp -<span id="L27776" class="LineNr">27776 </span> c3/return -<span id="L27777" class="LineNr">27777 </span> -<span id="L27778" class="LineNr">27778 </span><span class="Constant">$power-of-2?:abort</span>: -<span id="L27779" class="LineNr">27779 </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="L27780" class="LineNr">27780 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L27781" class="LineNr">27781 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L27782" class="LineNr">27782 </span> <span class="subxComment"># never gets here</span> -<span id="L27783" class="LineNr">27783 </span> -<span id="L27784" class="LineNr">27784 </span><span class="subxFunction">num-shift-rights</span>: <span class="subxComment"># n: int -> result/eax: int</span> -<span id="L27785" class="LineNr">27785 </span> <span class="subxComment"># precondition: n is a positive power of 2</span> -<span id="L27786" class="LineNr">27786 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27787" class="LineNr">27787 </span> 55/push-ebp -<span id="L27788" class="LineNr">27788 </span> 89/<- %ebp 4/r32/esp -<span id="L27789" class="LineNr">27789 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27790" class="LineNr">27790 </span> 51/push-ecx -<span id="L27791" class="LineNr">27791 </span> <span class="subxComment"># var curr/ecx: int = n</span> -<span id="L27792" class="LineNr">27792 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L27793" class="LineNr">27793 </span> <span class="subxComment"># result = 0</span> -<span id="L27794" class="LineNr">27794 </span> b8/copy-to-eax 0/imm32 -<span id="L27795" class="LineNr">27795 </span> { -<span id="L27796" class="LineNr">27796 </span> <span class="subxComment"># if (curr <= 1) break</span> -<span id="L27797" class="LineNr">27797 </span> 81 7/subop/compare %ecx 1/imm32 -<span id="L27798" class="LineNr">27798 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L27799" class="LineNr">27799 </span> 40/increment-eax -<span id="L27800" class="LineNr">27800 </span> c1/shift 5/subop/arithmetic-right %ecx 1/imm8 -<span id="L27801" class="LineNr">27801 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L27802" class="LineNr">27802 </span> } -<span id="L27803" class="LineNr">27803 </span><span class="Constant">$num-shift-rights:end</span>: -<span id="L27804" class="LineNr">27804 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27805" class="LineNr">27805 </span> 59/pop-to-ecx -<span id="L27806" class="LineNr">27806 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27807" class="LineNr">27807 </span> 89/<- %esp 5/r32/ebp -<span id="L27808" class="LineNr">27808 </span> 5d/pop-to-ebp -<span id="L27809" class="LineNr">27809 </span> c3/return -<span id="L27810" class="LineNr">27810 </span> -<span id="L27811" class="LineNr">27811 </span><span class="subxFunction">mu-get-offset</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: int</span> -<span id="L27812" class="LineNr">27812 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27813" class="LineNr">27813 </span> 55/push-ebp -<span id="L27814" class="LineNr">27814 </span> 89/<- %ebp 4/r32/esp -<span id="L27815" class="LineNr">27815 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts->next</span> -<span id="L27816" class="LineNr">27816 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L27817" class="LineNr">27817 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27818" class="LineNr">27818 </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="L27819" class="LineNr">27819 </span> <span class="subxComment"># var output-var/eax: (addr var) = second-inout->value</span> -<span id="L27820" class="LineNr">27820 </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="L27821" class="LineNr">27821 </span><span class="CommentedCode">#? (write-buffered Stderr "mu-get-offset: ")</span> -<span id="L27822" class="LineNr">27822 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L27823" class="LineNr">27823 </span><span class="CommentedCode">#? (write-buffered Stderr " name: ")</span> -<span id="L27824" class="LineNr">27824 </span><span class="CommentedCode">#? 50/push-eax</span> -<span id="L27825" class="LineNr">27825 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> -<span id="L27826" class="LineNr">27826 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L27827" class="LineNr">27827 </span><span class="CommentedCode">#? 58/pop-to-eax</span> -<span id="L27828" class="LineNr">27828 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L27829" class="LineNr">27829 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L27830" class="LineNr">27830 </span> <span class="subxComment"># return output-var->stack-offset</span> -<span id="L27831" class="LineNr">27831 </span> 8b/-> *(eax+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L27832" class="LineNr">27832 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> -<span id="L27833" class="LineNr">27833 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L27834" class="LineNr">27834 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L27835" class="LineNr">27835 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L27836" class="LineNr">27836 </span><span class="Constant">$emit-get-offset:end</span>: -<span id="L27837" class="LineNr">27837 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27838" class="LineNr">27838 </span> 89/<- %esp 5/r32/ebp -<span id="L27839" class="LineNr">27839 </span> 5d/pop-to-ebp -<span id="L27840" class="LineNr">27840 </span> c3/return -<span id="L27841" class="LineNr">27841 </span> -<span id="L27842" class="LineNr">27842 </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="L27843" class="LineNr">27843 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27844" class="LineNr">27844 </span> 55/push-ebp -<span id="L27845" class="LineNr">27845 </span> 89/<- %ebp 4/r32/esp -<span id="L27846" class="LineNr">27846 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27847" class="LineNr">27847 </span> 50/push-eax -<span id="L27848" class="LineNr">27848 </span> 51/push-ecx -<span id="L27849" class="LineNr">27849 </span> 56/push-esi -<span id="L27850" class="LineNr">27850 </span> <span class="subxComment"># esi = block</span> -<span id="L27851" class="LineNr">27851 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L27852" class="LineNr">27852 </span> <span class="subxComment"># block->var->block-depth = *Curr-block-depth</span> -<span id="L27853" class="LineNr">27853 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> -<span id="L27854" class="LineNr">27854 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 1/r32/ecx -<span id="L27855" class="LineNr">27855 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> -<span id="L27856" class="LineNr">27856 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> -<span id="L27857" class="LineNr">27857 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L27858" class="LineNr">27858 </span> <span class="subxComment">#</span> -<span id="L27859" class="LineNr">27859 </span> { -<span id="L27860" class="LineNr">27860 </span><span class="Constant">$emit-subx-block:check-empty</span>: -<span id="L27861" class="LineNr">27861 </span> 3d/compare-eax-and 0/imm32 -<span id="L27862" class="LineNr">27862 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27863" class="LineNr">27863 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L27864" class="LineNr">27864 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"{\n"</span>) -<span id="L27865" class="LineNr">27865 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(block->var)</span> -<span id="L27866" class="LineNr">27866 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> -<span id="L27867" class="LineNr">27867 </span> 89/<- %ecx 0/r32/eax -<span id="L27868" class="LineNr">27868 </span> <span class="subxComment">#</span> -<span id="L27869" class="LineNr">27869 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27870" class="LineNr">27870 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27871" class="LineNr">27871 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop:\n"</span>) -<span id="L27872" class="LineNr">27872 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> -<span id="L27873" class="LineNr">27873 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0xc)) <span class="subxComment"># Block-var</span> -<span id="L27874" class="LineNr">27874 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0x10)) <span class="subxComment"># Block-var</span> -<span id="L27875" class="LineNr">27875 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L27876" class="LineNr">27876 </span> <span class="subxComment"># emit block->statements</span> -<span id="L27877" class="LineNr">27877 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L27878" class="LineNr">27878 </span> (<a href='mu.subx.html#L24919'>emit-subx-stmt-list</a> *(ebp+8) %eax *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L27879" class="LineNr">27879 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L27880" class="LineNr">27880 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L27881" class="LineNr">27881 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L27882" class="LineNr">27882 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> -<span id="L27883" class="LineNr">27883 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L27884" class="LineNr">27884 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"}\n"</span>) -<span id="L27885" class="LineNr">27885 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27886" class="LineNr">27886 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27887" class="LineNr">27887 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break:\n"</span>) -<span id="L27888" class="LineNr">27888 </span> } -<span id="L27889" class="LineNr">27889 </span><span class="Constant">$emit-subx-block:end</span>: -<span id="L27890" class="LineNr">27890 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27891" class="LineNr">27891 </span> 5e/pop-to-esi -<span id="L27892" class="LineNr">27892 </span> 59/pop-to-ecx -<span id="L27893" class="LineNr">27893 </span> 58/pop-to-eax -<span id="L27894" class="LineNr">27894 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27895" class="LineNr">27895 </span> 89/<- %esp 5/r32/ebp -<span id="L27896" class="LineNr">27896 </span> 5d/pop-to-ebp -<span id="L27897" class="LineNr">27897 </span> c3/return -<span id="L27898" class="LineNr">27898 </span> -<span id="L27899" class="LineNr">27899 </span><span class="subxComment"># Primitives supported</span> -<span id="L27900" class="LineNr">27900 </span><span class="subxComment"># See mu_instructions for a summary of this linked-list data structure.</span> -<span id="L27901" class="LineNr">27901 </span><span class="subxComment">#</span> -<span id="L27902" class="LineNr">27902 </span><span class="subxComment"># For each operation, put variants with hard-coded registers before flexible ones.</span> -<span id="L27903" class="LineNr">27903 </span><span class="subxComment">#</span> -<span id="L27904" class="LineNr">27904 </span><span class="subxComment"># Unfortunately, our restrictions on addresses require that various fields in</span> -<span id="L27905" class="LineNr">27905 </span><span class="subxComment"># primitives be handles, which complicates these definitions.</span> -<span id="L27906" class="LineNr">27906 </span><span class="subxComment"># - we need to insert dummy fields all over the place for fake alloc-ids</span> -<span id="L27907" class="LineNr">27907 </span><span class="subxComment"># - we can't use our syntax sugar of quoted literals for string fields</span> -<span id="L27908" class="LineNr">27908 </span><span class="subxComment">#</span> -<span id="L27909" class="LineNr">27909 </span><span class="subxComment"># Fake alloc-ids are needed because our type definitions up top require</span> -<span id="L27910" class="LineNr">27910 </span><span class="subxComment"># handles but it's clearer to statically allocate these long-lived objects.</span> -<span id="L27911" class="LineNr">27911 </span><span class="subxComment"># Fake alloc-ids are perfectly safe, but they can't be reclaimed.</span> -<span id="L27912" class="LineNr">27912 </span><span class="subxComment">#</span> -<span id="L27913" class="LineNr">27913 </span><span class="subxComment"># Every 'object' below starts with a fake alloc-id. It may also contain other</span> -<span id="L27914" class="LineNr">27914 </span><span class="subxComment"># fake alloc-ids for various handle fields.</span> -<span id="L27915" class="LineNr">27915 </span><span class="subxComment">#</span> -<span id="L27916" class="LineNr">27916 </span><span class="subxComment"># I think of objects starting with a fake alloc-id as having type 'payload'.</span> -<span id="L27917" class="LineNr">27917 </span><span class="subxComment"># It's not really intended to be created dynamically; for that use `allocate`</span> -<span id="L27918" class="LineNr">27918 </span><span class="subxComment"># as usual.</span> -<span id="L27919" class="LineNr">27919 </span><span class="subxComment">#</span> -<span id="L27920" class="LineNr">27920 </span><span class="subxComment"># Idea for a notation to simplify such definitions:</span> -<span id="L27921" class="LineNr">27921 </span><span class="subxComment"># _Primitive-increment-eax: # (payload primitive)</span> -<span id="L27922" class="LineNr">27922 </span><span class="subxComment"># 0x11/alloc-id:fake:payload</span> -<span id="L27923" class="LineNr">27923 </span><span class="subxComment"># 0x11 @(0x11 "increment") # name</span> -<span id="L27924" class="LineNr">27924 </span><span class="subxComment"># 0 0 # inouts</span> -<span id="L27925" class="LineNr">27925 </span><span class="subxComment"># 0x11 @(0x11/payload</span> -<span id="L27926" class="LineNr">27926 </span><span class="subxComment"># 0x11 @(0x11/payload # List-value</span> -<span id="L27927" class="LineNr">27927 </span><span class="subxComment"># 0 0 # Var-name</span> -<span id="L27928" class="LineNr">27928 </span><span class="subxComment"># 0x11 @(0x11 # Var-type</span> -<span id="L27929" class="LineNr">27929 </span><span class="subxComment"># 1/is-atom</span> -<span id="L27930" class="LineNr">27930 </span><span class="subxComment"># 1/value 0/unused # Type-tree-left</span> -<span id="L27931" class="LineNr">27931 </span><span class="subxComment"># 0 0 # Type-tree-right</span> -<span id="L27932" class="LineNr">27932 </span><span class="subxComment"># )</span> -<span id="L27933" class="LineNr">27933 </span><span class="subxComment"># 1 # block-depth</span> -<span id="L27934" class="LineNr">27934 </span><span class="subxComment"># 0 # stack-offset</span> -<span id="L27935" class="LineNr">27935 </span><span class="subxComment"># 0x11 @(0x11 "eax") # Var-register</span> -<span id="L27936" class="LineNr">27936 </span><span class="subxComment"># )</span> -<span id="L27937" class="LineNr">27937 </span><span class="subxComment"># 0 0) # List-next</span> -<span id="L27938" class="LineNr">27938 </span><span class="subxComment"># ...</span> -<span id="L27939" class="LineNr">27939 </span><span class="subxComment"># _Primitive-increment-ecx/imm32/next</span> -<span id="L27940" class="LineNr">27940 </span><span class="subxComment"># ...</span> -<span id="L27941" class="LineNr">27941 </span><span class="subxComment"># Awfully complex and non-obvious. But also clearly signals there's something</span> -<span id="L27942" class="LineNr">27942 </span><span class="subxComment"># to learn here, so may be worth trying.</span> -<span id="L27943" class="LineNr">27943 </span><span class="subxComment">#</span> -<span id="L27944" class="LineNr">27944 </span><span class="subxComment"># '@' is just an initial thought. Punctuation used so far in Mu: () * % # / "</span> -<span id="L27945" class="LineNr">27945 </span><span class="subxComment">#</span> -<span id="L27946" class="LineNr">27946 </span><span class="subxComment"># For now we'll continue to just use comments and manually ensure they stay up</span> -<span id="L27947" class="LineNr">27947 </span><span class="subxComment"># to date.</span> -<span id="L27948" class="LineNr">27948 </span>== data -<span id="L27949" class="LineNr">27949 </span><span class="SpecialChar">Primitives</span>: <span class="subxComment"># (addr primitive)</span> -<span id="L27950" class="LineNr">27950 </span><span class="subxH1Comment"># - increment/decrement</span> -<span id="L27951" class="LineNr">27951 </span><span class="subxMinorFunction">_Primitive-increment-eax</span>: <span class="subxComment"># (addr primitive)</span> -<span id="L27952" class="LineNr">27952 </span> <span class="subxComment"># var/eax <- increment => 40/increment-eax</span> -<span id="L27953" class="LineNr">27953 </span> 0x11/imm32/alloc-id:fake -<span id="L27954" class="LineNr">27954 </span> <a href='mu.subx.html#L31431'>_string-increment</a>/imm32/name -<span id="L27955" class="LineNr">27955 </span> 0/imm32/no-inouts -<span id="L27956" class="LineNr">27956 </span> 0/imm32/no-inouts -<span id="L27957" class="LineNr">27957 </span> 0x11/imm32/alloc-id:fake -<span id="L27958" class="LineNr">27958 </span> <span class="SpecialChar"><a href='mu.subx.html#L32298'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L27959" class="LineNr">27959 </span> 0x11/imm32/alloc-id:fake -<span id="L27960" class="LineNr">27960 </span> <a href='mu.subx.html#L31933'>_string_40_increment_eax</a>/imm32/subx-name -<span id="L27961" class="LineNr">27961 </span> 0/imm32/no-rm32 -<span id="L27962" class="LineNr">27962 </span> 0/imm32/no-r32 -<span id="L27963" class="LineNr">27963 </span> 0/imm32/no-imm32 -<span id="L27964" class="LineNr">27964 </span> 0/imm32/no-imm8 -<span id="L27965" class="LineNr">27965 </span> 0/imm32/no-disp32 -<span id="L27966" class="LineNr">27966 </span> 0/imm32/no-xm32 -<span id="L27967" class="LineNr">27967 </span> 0/imm32/no-x32 -<span id="L27968" class="LineNr">27968 </span> 0x11/imm32/alloc-id:fake -<span id="L27969" class="LineNr">27969 </span> <a href='mu.subx.html#L27970'>_Primitive-increment-ecx</a>/imm32/next -<span id="L27970" class="LineNr">27970 </span><span class="subxMinorFunction">_Primitive-increment-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L27971" class="LineNr">27971 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L27972" class="LineNr">27972 </span> <span class="subxComment"># var/ecx <- increment => 41/increment-ecx</span> -<span id="L27973" class="LineNr">27973 </span> 0x11/imm32/alloc-id:fake -<span id="L27974" class="LineNr">27974 </span> <a href='mu.subx.html#L31431'>_string-increment</a>/imm32/name -<span id="L27975" class="LineNr">27975 </span> 0/imm32/no-inouts -<span id="L27976" class="LineNr">27976 </span> 0/imm32/no-inouts -<span id="L27977" class="LineNr">27977 </span> 0x11/imm32/alloc-id:fake -<span id="L27978" class="LineNr">27978 </span> <span class="SpecialChar"><a href='mu.subx.html#L32316'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L27979" class="LineNr">27979 </span> 0x11/imm32/alloc-id:fake -<span id="L27980" class="LineNr">27980 </span> <a href='mu.subx.html#L31938'>_string_41_increment_ecx</a>/imm32/subx-name -<span id="L27981" class="LineNr">27981 </span> 0/imm32/no-rm32 -<span id="L27982" class="LineNr">27982 </span> 0/imm32/no-r32 -<span id="L27983" class="LineNr">27983 </span> 0/imm32/no-imm32 -<span id="L27984" class="LineNr">27984 </span> 0/imm32/no-imm8 -<span id="L27985" class="LineNr">27985 </span> 0/imm32/no-disp32 -<span id="L27986" class="LineNr">27986 </span> 0/imm32/no-xm32 -<span id="L27987" class="LineNr">27987 </span> 0/imm32/no-x32 -<span id="L27988" class="LineNr">27988 </span> 0x11/imm32/alloc-id:fake -<span id="L27989" class="LineNr">27989 </span> <a href='mu.subx.html#L27990'>_Primitive-increment-edx</a>/imm32/next -<span id="L27990" class="LineNr">27990 </span><span class="subxMinorFunction">_Primitive-increment-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L27991" class="LineNr">27991 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L27992" class="LineNr">27992 </span> <span class="subxComment"># var/edx <- increment => 42/increment-edx</span> -<span id="L27993" class="LineNr">27993 </span> 0x11/imm32/alloc-id:fake -<span id="L27994" class="LineNr">27994 </span> <a href='mu.subx.html#L31431'>_string-increment</a>/imm32/name -<span id="L27995" class="LineNr">27995 </span> 0/imm32/no-inouts -<span id="L27996" class="LineNr">27996 </span> 0/imm32/no-inouts -<span id="L27997" class="LineNr">27997 </span> 0x11/imm32/alloc-id:fake -<span id="L27998" class="LineNr">27998 </span> <span class="SpecialChar"><a href='mu.subx.html#L32334'>Single-int-var-in-edx</a></span>/imm32/outputs -<span id="L27999" class="LineNr">27999 </span> 0x11/imm32/alloc-id:fake -<span id="L28000" class="LineNr">28000 </span> <a href='mu.subx.html#L31943'>_string_42_increment_edx</a>/imm32/subx-name -<span id="L28001" class="LineNr">28001 </span> 0/imm32/no-rm32 -<span id="L28002" class="LineNr">28002 </span> 0/imm32/no-r32 -<span id="L28003" class="LineNr">28003 </span> 0/imm32/no-imm32 -<span id="L28004" class="LineNr">28004 </span> 0/imm32/no-imm8 -<span id="L28005" class="LineNr">28005 </span> 0/imm32/no-disp32 -<span id="L28006" class="LineNr">28006 </span> 0/imm32/no-xm32 -<span id="L28007" class="LineNr">28007 </span> 0/imm32/no-x32 -<span id="L28008" class="LineNr">28008 </span> 0x11/imm32/alloc-id:fake -<span id="L28009" class="LineNr">28009 </span> <a href='mu.subx.html#L28010'>_Primitive-increment-ebx</a>/imm32/next -<span id="L28010" class="LineNr">28010 </span><span class="subxMinorFunction">_Primitive-increment-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28011" class="LineNr">28011 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28012" class="LineNr">28012 </span> <span class="subxComment"># var/ebx <- increment => 43/increment-ebx</span> -<span id="L28013" class="LineNr">28013 </span> 0x11/imm32/alloc-id:fake -<span id="L28014" class="LineNr">28014 </span> <a href='mu.subx.html#L31431'>_string-increment</a>/imm32/name -<span id="L28015" class="LineNr">28015 </span> 0/imm32/no-inouts -<span id="L28016" class="LineNr">28016 </span> 0/imm32/no-inouts -<span id="L28017" class="LineNr">28017 </span> 0x11/imm32/alloc-id:fake -<span id="L28018" class="LineNr">28018 </span> <span class="SpecialChar"><a href='mu.subx.html#L32352'>Single-int-var-in-ebx</a></span>/imm32/outputs -<span id="L28019" class="LineNr">28019 </span> 0x11/imm32/alloc-id:fake -<span id="L28020" class="LineNr">28020 </span> <a href='mu.subx.html#L31948'>_string_43_increment_ebx</a>/imm32/subx-name -<span id="L28021" class="LineNr">28021 </span> 0/imm32/no-rm32 -<span id="L28022" class="LineNr">28022 </span> 0/imm32/no-r32 -<span id="L28023" class="LineNr">28023 </span> 0/imm32/no-imm32 -<span id="L28024" class="LineNr">28024 </span> 0/imm32/no-imm8 -<span id="L28025" class="LineNr">28025 </span> 0/imm32/no-disp32 -<span id="L28026" class="LineNr">28026 </span> 0/imm32/no-xm32 -<span id="L28027" class="LineNr">28027 </span> 0/imm32/no-x32 -<span id="L28028" class="LineNr">28028 </span> 0x11/imm32/alloc-id:fake -<span id="L28029" class="LineNr">28029 </span> <a href='mu.subx.html#L28030'>_Primitive-increment-esi</a>/imm32/next -<span id="L28030" class="LineNr">28030 </span><span class="subxMinorFunction">_Primitive-increment-esi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28031" class="LineNr">28031 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28032" class="LineNr">28032 </span> <span class="subxComment"># var/esi <- increment => 46/increment-esi</span> -<span id="L28033" class="LineNr">28033 </span> 0x11/imm32/alloc-id:fake -<span id="L28034" class="LineNr">28034 </span> <a href='mu.subx.html#L31431'>_string-increment</a>/imm32/name -<span id="L28035" class="LineNr">28035 </span> 0/imm32/no-inouts -<span id="L28036" class="LineNr">28036 </span> 0/imm32/no-inouts -<span id="L28037" class="LineNr">28037 </span> 0x11/imm32/alloc-id:fake -<span id="L28038" class="LineNr">28038 </span> <span class="SpecialChar"><a href='mu.subx.html#L32370'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L28039" class="LineNr">28039 </span> 0x11/imm32/alloc-id:fake -<span id="L28040" class="LineNr">28040 </span> <a href='mu.subx.html#L31953'>_string_46_increment_esi</a>/imm32/subx-name -<span id="L28041" class="LineNr">28041 </span> 0/imm32/no-rm32 -<span id="L28042" class="LineNr">28042 </span> 0/imm32/no-r32 -<span id="L28043" class="LineNr">28043 </span> 0/imm32/no-imm32 -<span id="L28044" class="LineNr">28044 </span> 0/imm32/no-imm8 -<span id="L28045" class="LineNr">28045 </span> 0/imm32/no-disp32 -<span id="L28046" class="LineNr">28046 </span> 0/imm32/no-xm32 -<span id="L28047" class="LineNr">28047 </span> 0/imm32/no-x32 -<span id="L28048" class="LineNr">28048 </span> 0x11/imm32/alloc-id:fake -<span id="L28049" class="LineNr">28049 </span> <a href='mu.subx.html#L28050'>_Primitive-increment-edi</a>/imm32/next -<span id="L28050" class="LineNr">28050 </span><span class="subxMinorFunction">_Primitive-increment-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28051" class="LineNr">28051 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28052" class="LineNr">28052 </span> <span class="subxComment"># var/edi <- increment => 47/increment-edi</span> -<span id="L28053" class="LineNr">28053 </span> 0x11/imm32/alloc-id:fake -<span id="L28054" class="LineNr">28054 </span> <a href='mu.subx.html#L31431'>_string-increment</a>/imm32/name -<span id="L28055" class="LineNr">28055 </span> 0/imm32/no-inouts -<span id="L28056" class="LineNr">28056 </span> 0/imm32/no-inouts -<span id="L28057" class="LineNr">28057 </span> 0x11/imm32/alloc-id:fake -<span id="L28058" class="LineNr">28058 </span> <span class="SpecialChar"><a href='mu.subx.html#L32388'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L28059" class="LineNr">28059 </span> 0x11/imm32/alloc-id:fake -<span id="L28060" class="LineNr">28060 </span> <a href='mu.subx.html#L31958'>_string_47_increment_edi</a>/imm32/subx-name -<span id="L28061" class="LineNr">28061 </span> 0/imm32/no-rm32 -<span id="L28062" class="LineNr">28062 </span> 0/imm32/no-r32 -<span id="L28063" class="LineNr">28063 </span> 0/imm32/no-imm32 -<span id="L28064" class="LineNr">28064 </span> 0/imm32/no-imm8 -<span id="L28065" class="LineNr">28065 </span> 0/imm32/no-disp32 -<span id="L28066" class="LineNr">28066 </span> 0/imm32/no-xm32 -<span id="L28067" class="LineNr">28067 </span> 0/imm32/no-x32 -<span id="L28068" class="LineNr">28068 </span> 0x11/imm32/alloc-id:fake -<span id="L28069" class="LineNr">28069 </span> <a href='mu.subx.html#L28070'>_Primitive-decrement-eax</a>/imm32/next -<span id="L28070" class="LineNr">28070 </span><span class="subxMinorFunction">_Primitive-decrement-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28071" class="LineNr">28071 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28072" class="LineNr">28072 </span> <span class="subxComment"># var/eax <- decrement => 48/decrement-eax</span> -<span id="L28073" class="LineNr">28073 </span> 0x11/imm32/alloc-id:fake -<span id="L28074" class="LineNr">28074 </span> <a href='mu.subx.html#L31426'>_string-decrement</a>/imm32/name -<span id="L28075" class="LineNr">28075 </span> 0/imm32/no-inouts -<span id="L28076" class="LineNr">28076 </span> 0/imm32/no-inouts -<span id="L28077" class="LineNr">28077 </span> 0x11/imm32/alloc-id:fake -<span id="L28078" class="LineNr">28078 </span> <span class="SpecialChar"><a href='mu.subx.html#L32298'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L28079" class="LineNr">28079 </span> 0x11/imm32/alloc-id:fake -<span id="L28080" class="LineNr">28080 </span> <a href='mu.subx.html#L31963'>_string_48_decrement_eax</a>/imm32/subx-name -<span id="L28081" class="LineNr">28081 </span> 0/imm32/no-rm32 -<span id="L28082" class="LineNr">28082 </span> 0/imm32/no-r32 -<span id="L28083" class="LineNr">28083 </span> 0/imm32/no-imm32 -<span id="L28084" class="LineNr">28084 </span> 0/imm32/no-imm8 -<span id="L28085" class="LineNr">28085 </span> 0/imm32/no-disp32 -<span id="L28086" class="LineNr">28086 </span> 0/imm32/no-xm32 -<span id="L28087" class="LineNr">28087 </span> 0/imm32/no-x32 -<span id="L28088" class="LineNr">28088 </span> 0x11/imm32/alloc-id:fake -<span id="L28089" class="LineNr">28089 </span> <a href='mu.subx.html#L28090'>_Primitive-decrement-ecx</a>/imm32/next -<span id="L28090" class="LineNr">28090 </span><span class="subxMinorFunction">_Primitive-decrement-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28091" class="LineNr">28091 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28092" class="LineNr">28092 </span> <span class="subxComment"># var/ecx <- decrement => 49/decrement-ecx</span> -<span id="L28093" class="LineNr">28093 </span> 0x11/imm32/alloc-id:fake -<span id="L28094" class="LineNr">28094 </span> <a href='mu.subx.html#L31426'>_string-decrement</a>/imm32/name -<span id="L28095" class="LineNr">28095 </span> 0/imm32/no-inouts -<span id="L28096" class="LineNr">28096 </span> 0/imm32/no-inouts -<span id="L28097" class="LineNr">28097 </span> 0x11/imm32/alloc-id:fake -<span id="L28098" class="LineNr">28098 </span> <span class="SpecialChar"><a href='mu.subx.html#L32316'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L28099" class="LineNr">28099 </span> 0x11/imm32/alloc-id:fake -<span id="L28100" class="LineNr">28100 </span> <a href='mu.subx.html#L31968'>_string_49_decrement_ecx</a>/imm32/subx-name -<span id="L28101" class="LineNr">28101 </span> 0/imm32/no-rm32 -<span id="L28102" class="LineNr">28102 </span> 0/imm32/no-r32 -<span id="L28103" class="LineNr">28103 </span> 0/imm32/no-imm32 -<span id="L28104" class="LineNr">28104 </span> 0/imm32/no-imm8 -<span id="L28105" class="LineNr">28105 </span> 0/imm32/no-disp32 -<span id="L28106" class="LineNr">28106 </span> 0/imm32/no-xm32 -<span id="L28107" class="LineNr">28107 </span> 0/imm32/no-x32 -<span id="L28108" class="LineNr">28108 </span> 0x11/imm32/alloc-id:fake -<span id="L28109" class="LineNr">28109 </span> <a href='mu.subx.html#L28110'>_Primitive-decrement-edx</a>/imm32/next -<span id="L28110" class="LineNr">28110 </span><span class="subxMinorFunction">_Primitive-decrement-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28111" class="LineNr">28111 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28112" class="LineNr">28112 </span> <span class="subxComment"># var/edx <- decrement => 4a/decrement-edx</span> -<span id="L28113" class="LineNr">28113 </span> 0x11/imm32/alloc-id:fake -<span id="L28114" class="LineNr">28114 </span> <a href='mu.subx.html#L31426'>_string-decrement</a>/imm32/name -<span id="L28115" class="LineNr">28115 </span> 0/imm32/no-inouts -<span id="L28116" class="LineNr">28116 </span> 0/imm32/no-inouts -<span id="L28117" class="LineNr">28117 </span> 0x11/imm32/alloc-id:fake -<span id="L28118" class="LineNr">28118 </span> <span class="SpecialChar"><a href='mu.subx.html#L32334'>Single-int-var-in-edx</a></span>/imm32/outputs -<span id="L28119" class="LineNr">28119 </span> 0x11/imm32/alloc-id:fake -<span id="L28120" class="LineNr">28120 </span> <a href='mu.subx.html#L31973'>_string_4a_decrement_edx</a>/imm32/subx-name -<span id="L28121" class="LineNr">28121 </span> 0/imm32/no-rm32 -<span id="L28122" class="LineNr">28122 </span> 0/imm32/no-r32 -<span id="L28123" class="LineNr">28123 </span> 0/imm32/no-imm32 -<span id="L28124" class="LineNr">28124 </span> 0/imm32/no-imm8 -<span id="L28125" class="LineNr">28125 </span> 0/imm32/no-disp32 -<span id="L28126" class="LineNr">28126 </span> 0/imm32/no-xm32 -<span id="L28127" class="LineNr">28127 </span> 0/imm32/no-x32 -<span id="L28128" class="LineNr">28128 </span> 0x11/imm32/alloc-id:fake -<span id="L28129" class="LineNr">28129 </span> <a href='mu.subx.html#L28130'>_Primitive-decrement-ebx</a>/imm32/next -<span id="L28130" class="LineNr">28130 </span><span class="subxMinorFunction">_Primitive-decrement-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28131" class="LineNr">28131 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28132" class="LineNr">28132 </span> <span class="subxComment"># var/ebx <- decrement => 4b/decrement-ebx</span> -<span id="L28133" class="LineNr">28133 </span> 0x11/imm32/alloc-id:fake -<span id="L28134" class="LineNr">28134 </span> <a href='mu.subx.html#L31426'>_string-decrement</a>/imm32/name -<span id="L28135" class="LineNr">28135 </span> 0/imm32/no-inouts -<span id="L28136" class="LineNr">28136 </span> 0/imm32/no-inouts -<span id="L28137" class="LineNr">28137 </span> 0x11/imm32/alloc-id:fake -<span id="L28138" class="LineNr">28138 </span> <span class="SpecialChar"><a href='mu.subx.html#L32352'>Single-int-var-in-ebx</a></span>/imm32/outputs -<span id="L28139" class="LineNr">28139 </span> 0x11/imm32/alloc-id:fake -<span id="L28140" class="LineNr">28140 </span> <a href='mu.subx.html#L31978'>_string_4b_decrement_ebx</a>/imm32/subx-name -<span id="L28141" class="LineNr">28141 </span> 0/imm32/no-rm32 -<span id="L28142" class="LineNr">28142 </span> 0/imm32/no-r32 -<span id="L28143" class="LineNr">28143 </span> 0/imm32/no-imm32 -<span id="L28144" class="LineNr">28144 </span> 0/imm32/no-imm8 -<span id="L28145" class="LineNr">28145 </span> 0/imm32/no-disp32 -<span id="L28146" class="LineNr">28146 </span> 0/imm32/no-xm32 -<span id="L28147" class="LineNr">28147 </span> 0/imm32/no-x32 -<span id="L28148" class="LineNr">28148 </span> 0x11/imm32/alloc-id:fake -<span id="L28149" class="LineNr">28149 </span> <a href='mu.subx.html#L28150'>_Primitive-decrement-esi</a>/imm32/next -<span id="L28150" class="LineNr">28150 </span><span class="subxMinorFunction">_Primitive-decrement-esi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28151" class="LineNr">28151 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28152" class="LineNr">28152 </span> <span class="subxComment"># var/esi <- decrement => 4e/decrement-esi</span> -<span id="L28153" class="LineNr">28153 </span> 0x11/imm32/alloc-id:fake -<span id="L28154" class="LineNr">28154 </span> <a href='mu.subx.html#L31426'>_string-decrement</a>/imm32/name -<span id="L28155" class="LineNr">28155 </span> 0/imm32/no-inouts -<span id="L28156" class="LineNr">28156 </span> 0/imm32/no-inouts -<span id="L28157" class="LineNr">28157 </span> 0x11/imm32/alloc-id:fake -<span id="L28158" class="LineNr">28158 </span> <span class="SpecialChar"><a href='mu.subx.html#L32370'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L28159" class="LineNr">28159 </span> 0x11/imm32/alloc-id:fake -<span id="L28160" class="LineNr">28160 </span> <a href='mu.subx.html#L31983'>_string_4e_decrement_esi</a>/imm32/subx-name -<span id="L28161" class="LineNr">28161 </span> 0/imm32/no-rm32 -<span id="L28162" class="LineNr">28162 </span> 0/imm32/no-r32 -<span id="L28163" class="LineNr">28163 </span> 0/imm32/no-imm32 -<span id="L28164" class="LineNr">28164 </span> 0/imm32/no-imm8 -<span id="L28165" class="LineNr">28165 </span> 0/imm32/no-disp32 -<span id="L28166" class="LineNr">28166 </span> 0/imm32/no-xm32 -<span id="L28167" class="LineNr">28167 </span> 0/imm32/no-x32 -<span id="L28168" class="LineNr">28168 </span> 0x11/imm32/alloc-id:fake -<span id="L28169" class="LineNr">28169 </span> <a href='mu.subx.html#L28170'>_Primitive-decrement-edi</a>/imm32/next -<span id="L28170" class="LineNr">28170 </span><span class="subxMinorFunction">_Primitive-decrement-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28171" class="LineNr">28171 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28172" class="LineNr">28172 </span> <span class="subxComment"># var/edi <- decrement => 4f/decrement-edi</span> -<span id="L28173" class="LineNr">28173 </span> 0x11/imm32/alloc-id:fake -<span id="L28174" class="LineNr">28174 </span> <a href='mu.subx.html#L31426'>_string-decrement</a>/imm32/name -<span id="L28175" class="LineNr">28175 </span> 0/imm32/no-inouts -<span id="L28176" class="LineNr">28176 </span> 0/imm32/no-inouts -<span id="L28177" class="LineNr">28177 </span> 0x11/imm32/alloc-id:fake -<span id="L28178" class="LineNr">28178 </span> <span class="SpecialChar"><a href='mu.subx.html#L32388'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L28179" class="LineNr">28179 </span> 0x11/imm32/alloc-id:fake -<span id="L28180" class="LineNr">28180 </span> <a href='mu.subx.html#L31988'>_string_4f_decrement_edi</a>/imm32/subx-name -<span id="L28181" class="LineNr">28181 </span> 0/imm32/no-rm32 -<span id="L28182" class="LineNr">28182 </span> 0/imm32/no-r32 -<span id="L28183" class="LineNr">28183 </span> 0/imm32/no-imm32 -<span id="L28184" class="LineNr">28184 </span> 0/imm32/no-imm8 -<span id="L28185" class="LineNr">28185 </span> 0/imm32/no-disp32 -<span id="L28186" class="LineNr">28186 </span> 0/imm32/no-xm32 -<span id="L28187" class="LineNr">28187 </span> 0/imm32/no-x32 -<span id="L28188" class="LineNr">28188 </span> 0x11/imm32/alloc-id:fake -<span id="L28189" class="LineNr">28189 </span> <a href='mu.subx.html#L28190'>_Primitive-increment-mem</a>/imm32/next -<span id="L28190" class="LineNr">28190 </span><span class="subxMinorFunction">_Primitive-increment-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28191" class="LineNr">28191 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28192" class="LineNr">28192 </span> <span class="subxComment"># increment var => ff 0/subop/increment *(ebp+__)</span> -<span id="L28193" class="LineNr">28193 </span> 0x11/imm32/alloc-id:fake -<span id="L28194" class="LineNr">28194 </span> <a href='mu.subx.html#L31431'>_string-increment</a>/imm32/name -<span id="L28195" class="LineNr">28195 </span> 0x11/imm32/alloc-id:fake -<span id="L28196" class="LineNr">28196 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L28197" class="LineNr">28197 </span> 0/imm32/no-outputs -<span id="L28198" class="LineNr">28198 </span> 0/imm32/no-outputs -<span id="L28199" class="LineNr">28199 </span> 0x11/imm32/alloc-id:fake -<span id="L28200" class="LineNr">28200 </span> <a href='mu.subx.html#L32103'>_string_ff_subop_increment</a>/imm32/subx-name -<span id="L28201" class="LineNr">28201 </span> 1/imm32/rm32-is-first-inout -<span id="L28202" class="LineNr">28202 </span> 0/imm32/no-r32 -<span id="L28203" class="LineNr">28203 </span> 0/imm32/no-imm32 -<span id="L28204" class="LineNr">28204 </span> 0/imm32/no-imm8 -<span id="L28205" class="LineNr">28205 </span> 0/imm32/no-disp32 -<span id="L28206" class="LineNr">28206 </span> 0/imm32/no-xm32 -<span id="L28207" class="LineNr">28207 </span> 0/imm32/no-x32 -<span id="L28208" class="LineNr">28208 </span> 0x11/imm32/alloc-id:fake -<span id="L28209" class="LineNr">28209 </span> <a href='mu.subx.html#L28210'>_Primitive-increment-reg</a>/imm32/next -<span id="L28210" class="LineNr">28210 </span><span class="subxMinorFunction">_Primitive-increment-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28211" class="LineNr">28211 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28212" class="LineNr">28212 </span> <span class="subxComment"># var/reg <- increment => ff 0/subop/increment %__</span> -<span id="L28213" class="LineNr">28213 </span> 0x11/imm32/alloc-id:fake -<span id="L28214" class="LineNr">28214 </span> <a href='mu.subx.html#L31431'>_string-increment</a>/imm32/name -<span id="L28215" class="LineNr">28215 </span> 0/imm32/no-inouts -<span id="L28216" class="LineNr">28216 </span> 0/imm32/no-inouts -<span id="L28217" class="LineNr">28217 </span> 0x11/imm32/alloc-id:fake -<span id="L28218" class="LineNr">28218 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28219" class="LineNr">28219 </span> 0x11/imm32/alloc-id:fake -<span id="L28220" class="LineNr">28220 </span> <a href='mu.subx.html#L32103'>_string_ff_subop_increment</a>/imm32/subx-name -<span id="L28221" class="LineNr">28221 </span> 3/imm32/rm32-is-first-output -<span id="L28222" class="LineNr">28222 </span> 0/imm32/no-r32 -<span id="L28223" class="LineNr">28223 </span> 0/imm32/no-imm32 -<span id="L28224" class="LineNr">28224 </span> 0/imm32/no-imm8 -<span id="L28225" class="LineNr">28225 </span> 0/imm32/no-disp32 -<span id="L28226" class="LineNr">28226 </span> 0/imm32/no-xm32 -<span id="L28227" class="LineNr">28227 </span> 0/imm32/no-x32 -<span id="L28228" class="LineNr">28228 </span> 0x11/imm32/alloc-id:fake -<span id="L28229" class="LineNr">28229 </span> <a href='mu.subx.html#L28230'>_Primitive-decrement-mem</a>/imm32/next -<span id="L28230" class="LineNr">28230 </span><span class="subxMinorFunction">_Primitive-decrement-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28231" class="LineNr">28231 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28232" class="LineNr">28232 </span> <span class="subxComment"># decrement var => ff 1/subop/decrement *(ebp+__)</span> -<span id="L28233" class="LineNr">28233 </span> 0x11/imm32/alloc-id:fake -<span id="L28234" class="LineNr">28234 </span> <a href='mu.subx.html#L31426'>_string-decrement</a>/imm32/name -<span id="L28235" class="LineNr">28235 </span> 0x11/imm32/alloc-id:fake -<span id="L28236" class="LineNr">28236 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L28237" class="LineNr">28237 </span> 0/imm32/no-outputs -<span id="L28238" class="LineNr">28238 </span> 0/imm32/no-outputs -<span id="L28239" class="LineNr">28239 </span> 0x11/imm32/alloc-id:fake -<span id="L28240" class="LineNr">28240 </span> <a href='mu.subx.html#L32108'>_string_ff_subop_decrement</a>/imm32/subx-name -<span id="L28241" class="LineNr">28241 </span> 1/imm32/rm32-is-first-inout -<span id="L28242" class="LineNr">28242 </span> 0/imm32/no-r32 -<span id="L28243" class="LineNr">28243 </span> 0/imm32/no-imm32 -<span id="L28244" class="LineNr">28244 </span> 0/imm32/no-imm8 -<span id="L28245" class="LineNr">28245 </span> 0/imm32/no-disp32 -<span id="L28246" class="LineNr">28246 </span> 0/imm32/no-xm32 -<span id="L28247" class="LineNr">28247 </span> 0/imm32/no-x32 -<span id="L28248" class="LineNr">28248 </span> 0x11/imm32/alloc-id:fake -<span id="L28249" class="LineNr">28249 </span> <a href='mu.subx.html#L28250'>_Primitive-decrement-reg</a>/imm32/next -<span id="L28250" class="LineNr">28250 </span><span class="subxMinorFunction">_Primitive-decrement-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28251" class="LineNr">28251 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28252" class="LineNr">28252 </span> <span class="subxComment"># var/reg <- decrement => ff 1/subop/decrement %__</span> -<span id="L28253" class="LineNr">28253 </span> 0x11/imm32/alloc-id:fake -<span id="L28254" class="LineNr">28254 </span> <a href='mu.subx.html#L31426'>_string-decrement</a>/imm32/name -<span id="L28255" class="LineNr">28255 </span> 0/imm32/no-inouts -<span id="L28256" class="LineNr">28256 </span> 0/imm32/no-inouts -<span id="L28257" class="LineNr">28257 </span> 0x11/imm32/alloc-id:fake -<span id="L28258" class="LineNr">28258 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28259" class="LineNr">28259 </span> 0x11/imm32/alloc-id:fake -<span id="L28260" class="LineNr">28260 </span> <a href='mu.subx.html#L32108'>_string_ff_subop_decrement</a>/imm32/subx-name -<span id="L28261" class="LineNr">28261 </span> 3/imm32/rm32-is-first-output -<span id="L28262" class="LineNr">28262 </span> 0/imm32/no-r32 -<span id="L28263" class="LineNr">28263 </span> 0/imm32/no-imm32 -<span id="L28264" class="LineNr">28264 </span> 0/imm32/no-imm8 -<span id="L28265" class="LineNr">28265 </span> 0/imm32/no-disp32 -<span id="L28266" class="LineNr">28266 </span> 0/imm32/no-xm32 -<span id="L28267" class="LineNr">28267 </span> 0/imm32/no-x32 -<span id="L28268" class="LineNr">28268 </span> 0x11/imm32/alloc-id:fake -<span id="L28269" class="LineNr">28269 </span> <a href='mu.subx.html#L28271'>_Primitive-add-to-eax</a>/imm32/next -<span id="L28270" class="LineNr">28270 </span><span class="subxH1Comment"># - add</span> -<span id="L28271" class="LineNr">28271 </span><span class="subxMinorFunction">_Primitive-add-to-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28272" class="LineNr">28272 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28273" class="LineNr">28273 </span> <span class="subxComment"># var/eax <- add lit => 05/add-to-eax lit/imm32</span> -<span id="L28274" class="LineNr">28274 </span> 0x11/imm32/alloc-id:fake -<span id="L28275" class="LineNr">28275 </span> <a href='mu.subx.html#L31301'>_string-add</a>/imm32/name -<span id="L28276" class="LineNr">28276 </span> 0x11/imm32/alloc-id:fake -<span id="L28277" class="LineNr">28277 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L28278" class="LineNr">28278 </span> 0x11/imm32/alloc-id:fake -<span id="L28279" class="LineNr">28279 </span> <span class="SpecialChar"><a href='mu.subx.html#L32298'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L28280" class="LineNr">28280 </span> 0x11/imm32/alloc-id:fake -<span id="L28281" class="LineNr">28281 </span> <a href='mu.subx.html#L31623'>_string_05_add_to_eax</a>/imm32/subx-name -<span id="L28282" class="LineNr">28282 </span> 0/imm32/no-rm32 -<span id="L28283" class="LineNr">28283 </span> 0/imm32/no-r32 -<span id="L28284" class="LineNr">28284 </span> 1/imm32/imm32-is-first-inout -<span id="L28285" class="LineNr">28285 </span> 0/imm32/no-imm8 -<span id="L28286" class="LineNr">28286 </span> 0/imm32/no-disp32 -<span id="L28287" class="LineNr">28287 </span> 0/imm32/no-xm32 -<span id="L28288" class="LineNr">28288 </span> 0/imm32/no-x32 -<span id="L28289" class="LineNr">28289 </span> 0x11/imm32/alloc-id:fake -<span id="L28290" class="LineNr">28290 </span> <a href='mu.subx.html#L28291'>_Primitive-add-reg-to-reg</a>/imm32/next -<span id="L28291" class="LineNr">28291 </span><span class="subxMinorFunction">_Primitive-add-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28292" class="LineNr">28292 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28293" class="LineNr">28293 </span> <span class="subxComment"># var1/reg <- add var2/reg => 01/add-to var1/rm32 var2/r32</span> -<span id="L28294" class="LineNr">28294 </span> 0x11/imm32/alloc-id:fake -<span id="L28295" class="LineNr">28295 </span> <a href='mu.subx.html#L31301'>_string-add</a>/imm32/name -<span id="L28296" class="LineNr">28296 </span> 0x11/imm32/alloc-id:fake -<span id="L28297" class="LineNr">28297 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L28298" class="LineNr">28298 </span> 0x11/imm32/alloc-id:fake -<span id="L28299" class="LineNr">28299 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28300" class="LineNr">28300 </span> 0x11/imm32/alloc-id:fake -<span id="L28301" class="LineNr">28301 </span> <a href='mu.subx.html#L31613'>_string_01_add_to</a>/imm32/subx-name -<span id="L28302" class="LineNr">28302 </span> 3/imm32/rm32-is-first-output -<span id="L28303" class="LineNr">28303 </span> 1/imm32/r32-is-first-inout -<span id="L28304" class="LineNr">28304 </span> 0/imm32/no-imm32 -<span id="L28305" class="LineNr">28305 </span> 0/imm32/no-imm8 -<span id="L28306" class="LineNr">28306 </span> 0/imm32/no-disp32 -<span id="L28307" class="LineNr">28307 </span> 0/imm32/no-xm32 -<span id="L28308" class="LineNr">28308 </span> 0/imm32/no-x32 -<span id="L28309" class="LineNr">28309 </span> 0x11/imm32/alloc-id:fake -<span id="L28310" class="LineNr">28310 </span> <a href='mu.subx.html#L28311'>_Primitive-add-reg-to-mem</a>/imm32/next -<span id="L28311" class="LineNr">28311 </span><span class="subxMinorFunction">_Primitive-add-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28312" class="LineNr">28312 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28313" class="LineNr">28313 </span> <span class="subxComment"># add-to var1 var2/reg => 01/add-to var1 var2/r32</span> -<span id="L28314" class="LineNr">28314 </span> 0x11/imm32/alloc-id:fake -<span id="L28315" class="LineNr">28315 </span> <a href='mu.subx.html#L31311'>_string-add-to</a>/imm32/name -<span id="L28316" class="LineNr">28316 </span> 0x11/imm32/alloc-id:fake -<span id="L28317" class="LineNr">28317 </span> <span class="SpecialChar"><a href='mu.subx.html#L32167'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L28318" class="LineNr">28318 </span> 0/imm32/no-outputs -<span id="L28319" class="LineNr">28319 </span> 0/imm32/no-outputs -<span id="L28320" class="LineNr">28320 </span> 0x11/imm32/alloc-id:fake -<span id="L28321" class="LineNr">28321 </span> <a href='mu.subx.html#L31613'>_string_01_add_to</a>/imm32/subx-name -<span id="L28322" class="LineNr">28322 </span> 1/imm32/rm32-is-first-inout -<span id="L28323" class="LineNr">28323 </span> 2/imm32/r32-is-second-inout -<span id="L28324" class="LineNr">28324 </span> 0/imm32/no-imm32 -<span id="L28325" class="LineNr">28325 </span> 0/imm32/no-imm8 -<span id="L28326" class="LineNr">28326 </span> 0/imm32/no-disp32 -<span id="L28327" class="LineNr">28327 </span> 0/imm32/no-xm32 -<span id="L28328" class="LineNr">28328 </span> 0/imm32/no-x32 -<span id="L28329" class="LineNr">28329 </span> 0x11/imm32/alloc-id:fake -<span id="L28330" class="LineNr">28330 </span> <a href='mu.subx.html#L28331'>_Primitive-add-mem-to-reg</a>/imm32/next -<span id="L28331" class="LineNr">28331 </span><span class="subxMinorFunction">_Primitive-add-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28332" class="LineNr">28332 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28333" class="LineNr">28333 </span> <span class="subxComment"># var1/reg <- add var2 => 03/add var2/rm32 var1/r32</span> -<span id="L28334" class="LineNr">28334 </span> 0x11/imm32/alloc-id:fake -<span id="L28335" class="LineNr">28335 </span> <a href='mu.subx.html#L31301'>_string-add</a>/imm32/name -<span id="L28336" class="LineNr">28336 </span> 0x11/imm32/alloc-id:fake -<span id="L28337" class="LineNr">28337 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L28338" class="LineNr">28338 </span> 0x11/imm32/alloc-id:fake -<span id="L28339" class="LineNr">28339 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28340" class="LineNr">28340 </span> 0x11/imm32/alloc-id:fake -<span id="L28341" class="LineNr">28341 </span> <a href='mu.subx.html#L31618'>_string_03_add</a>/imm32/subx-name -<span id="L28342" class="LineNr">28342 </span> 1/imm32/rm32-is-first-inout -<span id="L28343" class="LineNr">28343 </span> 3/imm32/r32-is-first-output -<span id="L28344" class="LineNr">28344 </span> 0/imm32/no-imm32 -<span id="L28345" class="LineNr">28345 </span> 0/imm32/no-imm8 -<span id="L28346" class="LineNr">28346 </span> 0/imm32/no-disp32 -<span id="L28347" class="LineNr">28347 </span> 0/imm32/no-xm32 -<span id="L28348" class="LineNr">28348 </span> 0/imm32/no-x32 -<span id="L28349" class="LineNr">28349 </span> 0x11/imm32/alloc-id:fake -<span id="L28350" class="LineNr">28350 </span> <a href='mu.subx.html#L28351'>_Primitive-add-lit-to-reg</a>/imm32/next -<span id="L28351" class="LineNr">28351 </span><span class="subxMinorFunction">_Primitive-add-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28352" class="LineNr">28352 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28353" class="LineNr">28353 </span> <span class="subxComment"># var1/reg <- add lit => 81 0/subop/add var1/rm32 lit/imm32</span> -<span id="L28354" class="LineNr">28354 </span> 0x11/imm32/alloc-id:fake -<span id="L28355" class="LineNr">28355 </span> <a href='mu.subx.html#L31301'>_string-add</a>/imm32/name -<span id="L28356" class="LineNr">28356 </span> 0x11/imm32/alloc-id:fake -<span id="L28357" class="LineNr">28357 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L28358" class="LineNr">28358 </span> 0x11/imm32/alloc-id:fake -<span id="L28359" class="LineNr">28359 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28360" class="LineNr">28360 </span> 0x11/imm32/alloc-id:fake -<span id="L28361" class="LineNr">28361 </span> <a href='mu.subx.html#L31993'>_string_81_subop_add</a>/imm32/subx-name -<span id="L28362" class="LineNr">28362 </span> 3/imm32/rm32-is-first-output -<span id="L28363" class="LineNr">28363 </span> 0/imm32/no-r32 -<span id="L28364" class="LineNr">28364 </span> 1/imm32/imm32-is-first-inout -<span id="L28365" class="LineNr">28365 </span> 0/imm32/no-imm8 -<span id="L28366" class="LineNr">28366 </span> 0/imm32/no-disp32 -<span id="L28367" class="LineNr">28367 </span> 0/imm32/no-xm32 -<span id="L28368" class="LineNr">28368 </span> 0/imm32/no-x32 -<span id="L28369" class="LineNr">28369 </span> 0x11/imm32/alloc-id:fake -<span id="L28370" class="LineNr">28370 </span> <a href='mu.subx.html#L28371'>_Primitive-add-lit-to-mem</a>/imm32/next -<span id="L28371" class="LineNr">28371 </span><span class="subxMinorFunction">_Primitive-add-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28372" class="LineNr">28372 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28373" class="LineNr">28373 </span> <span class="subxComment"># add-to var1, lit => 81 0/subop/add var1/rm32 lit/imm32</span> -<span id="L28374" class="LineNr">28374 </span> 0x11/imm32/alloc-id:fake -<span id="L28375" class="LineNr">28375 </span> <a href='mu.subx.html#L31311'>_string-add-to</a>/imm32/name -<span id="L28376" class="LineNr">28376 </span> 0x11/imm32/alloc-id:fake -<span id="L28377" class="LineNr">28377 </span> <span class="SpecialChar"><a href='mu.subx.html#L32203'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L28378" class="LineNr">28378 </span> 0/imm32/no-outputs -<span id="L28379" class="LineNr">28379 </span> 0/imm32/no-outputs -<span id="L28380" class="LineNr">28380 </span> 0x11/imm32/alloc-id:fake -<span id="L28381" class="LineNr">28381 </span> <a href='mu.subx.html#L31993'>_string_81_subop_add</a>/imm32/subx-name -<span id="L28382" class="LineNr">28382 </span> 1/imm32/rm32-is-first-inout -<span id="L28383" class="LineNr">28383 </span> 0/imm32/no-r32 -<span id="L28384" class="LineNr">28384 </span> 2/imm32/imm32-is-second-inout -<span id="L28385" class="LineNr">28385 </span> 0/imm32/no-imm8 -<span id="L28386" class="LineNr">28386 </span> 0/imm32/no-disp32 -<span id="L28387" class="LineNr">28387 </span> 0/imm32/no-xm32 -<span id="L28388" class="LineNr">28388 </span> 0/imm32/no-x32 -<span id="L28389" class="LineNr">28389 </span> 0x11/imm32/alloc-id:fake -<span id="L28390" class="LineNr">28390 </span> <a href='mu.subx.html#L28392'>_Primitive-subtract-from-eax</a>/imm32/next -<span id="L28391" class="LineNr">28391 </span><span class="subxH1Comment"># - subtract</span> -<span id="L28392" class="LineNr">28392 </span><span class="subxMinorFunction">_Primitive-subtract-from-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28393" class="LineNr">28393 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28394" class="LineNr">28394 </span> <span class="subxComment"># var/eax <- subtract lit => 2d/subtract-from-eax lit/imm32</span> -<span id="L28395" class="LineNr">28395 </span> 0x11/imm32/alloc-id:fake -<span id="L28396" class="LineNr">28396 </span> <a href='mu.subx.html#L31576'>_string-subtract</a>/imm32/name -<span id="L28397" class="LineNr">28397 </span> 0x11/imm32/alloc-id:fake -<span id="L28398" class="LineNr">28398 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L28399" class="LineNr">28399 </span> 0x11/imm32/alloc-id:fake -<span id="L28400" class="LineNr">28400 </span> <span class="SpecialChar"><a href='mu.subx.html#L32298'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L28401" class="LineNr">28401 </span> 0x11/imm32/alloc-id:fake -<span id="L28402" class="LineNr">28402 </span> <a href='mu.subx.html#L31898'>_string_2d_subtract_from_eax</a>/imm32/subx-name -<span id="L28403" class="LineNr">28403 </span> 0/imm32/no-rm32 -<span id="L28404" class="LineNr">28404 </span> 0/imm32/no-r32 -<span id="L28405" class="LineNr">28405 </span> 1/imm32/imm32-is-first-inout -<span id="L28406" class="LineNr">28406 </span> 0/imm32/no-imm8 -<span id="L28407" class="LineNr">28407 </span> 0/imm32/no-disp32 -<span id="L28408" class="LineNr">28408 </span> 0/imm32/no-xm32 -<span id="L28409" class="LineNr">28409 </span> 0/imm32/no-x32 -<span id="L28410" class="LineNr">28410 </span> 0x11/imm32/alloc-id:fake -<span id="L28411" class="LineNr">28411 </span> <a href='mu.subx.html#L28412'>_Primitive-subtract-reg-from-reg</a>/imm32/next -<span id="L28412" class="LineNr">28412 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28413" class="LineNr">28413 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28414" class="LineNr">28414 </span> <span class="subxComment"># var1/reg <- subtract var2/reg => 29/subtract-from var1/rm32 var2/r32</span> -<span id="L28415" class="LineNr">28415 </span> 0x11/imm32/alloc-id:fake -<span id="L28416" class="LineNr">28416 </span> <a href='mu.subx.html#L31576'>_string-subtract</a>/imm32/name -<span id="L28417" class="LineNr">28417 </span> 0x11/imm32/alloc-id:fake -<span id="L28418" class="LineNr">28418 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L28419" class="LineNr">28419 </span> 0x11/imm32/alloc-id:fake -<span id="L28420" class="LineNr">28420 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28421" class="LineNr">28421 </span> 0x11/imm32/alloc-id:fake -<span id="L28422" class="LineNr">28422 </span> <a href='mu.subx.html#L31888'>_string_29_subtract_from</a>/imm32/subx-name -<span id="L28423" class="LineNr">28423 </span> 3/imm32/rm32-is-first-output -<span id="L28424" class="LineNr">28424 </span> 1/imm32/r32-is-first-inout -<span id="L28425" class="LineNr">28425 </span> 0/imm32/no-imm32 -<span id="L28426" class="LineNr">28426 </span> 0/imm32/no-imm8 -<span id="L28427" class="LineNr">28427 </span> 0/imm32/no-disp32 -<span id="L28428" class="LineNr">28428 </span> 0/imm32/no-xm32 -<span id="L28429" class="LineNr">28429 </span> 0/imm32/no-x32 -<span id="L28430" class="LineNr">28430 </span> 0x11/imm32/alloc-id:fake -<span id="L28431" class="LineNr">28431 </span> <a href='mu.subx.html#L28432'>_Primitive-subtract-reg-from-mem</a>/imm32/next -<span id="L28432" class="LineNr">28432 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28433" class="LineNr">28433 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28434" class="LineNr">28434 </span> <span class="subxComment"># subtract-from var1 var2/reg => 29/subtract-from var1 var2/r32</span> -<span id="L28435" class="LineNr">28435 </span> 0x11/imm32/alloc-id:fake -<span id="L28436" class="LineNr">28436 </span> <a href='mu.subx.html#L31581'>_string-subtract-from</a>/imm32/name -<span id="L28437" class="LineNr">28437 </span> 0x11/imm32/alloc-id:fake -<span id="L28438" class="LineNr">28438 </span> <span class="SpecialChar"><a href='mu.subx.html#L32167'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L28439" class="LineNr">28439 </span> 0/imm32/no-outputs -<span id="L28440" class="LineNr">28440 </span> 0/imm32/no-outputs -<span id="L28441" class="LineNr">28441 </span> 0x11/imm32/alloc-id:fake -<span id="L28442" class="LineNr">28442 </span> <a href='mu.subx.html#L31888'>_string_29_subtract_from</a>/imm32/subx-name -<span id="L28443" class="LineNr">28443 </span> 1/imm32/rm32-is-first-inout -<span id="L28444" class="LineNr">28444 </span> 2/imm32/r32-is-second-inout -<span id="L28445" class="LineNr">28445 </span> 0/imm32/no-imm32 -<span id="L28446" class="LineNr">28446 </span> 0/imm32/no-imm8 -<span id="L28447" class="LineNr">28447 </span> 0/imm32/no-disp32 -<span id="L28448" class="LineNr">28448 </span> 0/imm32/no-xm32 -<span id="L28449" class="LineNr">28449 </span> 0/imm32/no-x32 -<span id="L28450" class="LineNr">28450 </span> 0x11/imm32/alloc-id:fake -<span id="L28451" class="LineNr">28451 </span> <a href='mu.subx.html#L28452'>_Primitive-subtract-mem-from-reg</a>/imm32/next -<span id="L28452" class="LineNr">28452 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28453" class="LineNr">28453 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28454" class="LineNr">28454 </span> <span class="subxComment"># var1/reg <- subtract var2 => 2b/subtract var2/rm32 var1/r32</span> -<span id="L28455" class="LineNr">28455 </span> 0x11/imm32/alloc-id:fake -<span id="L28456" class="LineNr">28456 </span> <a href='mu.subx.html#L31576'>_string-subtract</a>/imm32/name -<span id="L28457" class="LineNr">28457 </span> 0x11/imm32/alloc-id:fake -<span id="L28458" class="LineNr">28458 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L28459" class="LineNr">28459 </span> 0x11/imm32/alloc-id:fake -<span id="L28460" class="LineNr">28460 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28461" class="LineNr">28461 </span> 0x11/imm32/alloc-id:fake -<span id="L28462" class="LineNr">28462 </span> <a href='mu.subx.html#L31893'>_string_2b_subtract</a>/imm32/subx-name -<span id="L28463" class="LineNr">28463 </span> 1/imm32/rm32-is-first-inout -<span id="L28464" class="LineNr">28464 </span> 3/imm32/r32-is-first-output -<span id="L28465" class="LineNr">28465 </span> 0/imm32/no-imm32 -<span id="L28466" class="LineNr">28466 </span> 0/imm32/no-imm8 -<span id="L28467" class="LineNr">28467 </span> 0/imm32/no-disp32 -<span id="L28468" class="LineNr">28468 </span> 0/imm32/no-xm32 -<span id="L28469" class="LineNr">28469 </span> 0/imm32/no-x32 -<span id="L28470" class="LineNr">28470 </span> 0x11/imm32/alloc-id:fake -<span id="L28471" class="LineNr">28471 </span> <a href='mu.subx.html#L28472'>_Primitive-subtract-lit-from-reg</a>/imm32/next -<span id="L28472" class="LineNr">28472 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28473" class="LineNr">28473 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28474" class="LineNr">28474 </span> <span class="subxComment"># var1/reg <- subtract lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> -<span id="L28475" class="LineNr">28475 </span> 0x11/imm32/alloc-id:fake -<span id="L28476" class="LineNr">28476 </span> <a href='mu.subx.html#L31576'>_string-subtract</a>/imm32/name -<span id="L28477" class="LineNr">28477 </span> 0x11/imm32/alloc-id:fake -<span id="L28478" class="LineNr">28478 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L28479" class="LineNr">28479 </span> 0x11/imm32/alloc-id:fake -<span id="L28480" class="LineNr">28480 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28481" class="LineNr">28481 </span> 0x11/imm32/alloc-id:fake -<span id="L28482" class="LineNr">28482 </span> <a href='mu.subx.html#L32008'>_string_81_subop_subtract</a>/imm32/subx-name -<span id="L28483" class="LineNr">28483 </span> 3/imm32/rm32-is-first-output -<span id="L28484" class="LineNr">28484 </span> 0/imm32/no-r32 -<span id="L28485" class="LineNr">28485 </span> 1/imm32/imm32-is-first-inout -<span id="L28486" class="LineNr">28486 </span> 0/imm32/no-imm8 -<span id="L28487" class="LineNr">28487 </span> 0/imm32/no-disp32 -<span id="L28488" class="LineNr">28488 </span> 0/imm32/no-xm32 -<span id="L28489" class="LineNr">28489 </span> 0/imm32/no-x32 -<span id="L28490" class="LineNr">28490 </span> 0x11/imm32/alloc-id:fake -<span id="L28491" class="LineNr">28491 </span> <a href='mu.subx.html#L28492'>_Primitive-subtract-lit-from-mem</a>/imm32/next -<span id="L28492" class="LineNr">28492 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28493" class="LineNr">28493 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28494" class="LineNr">28494 </span> <span class="subxComment"># subtract-from var1, lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> -<span id="L28495" class="LineNr">28495 </span> 0x11/imm32/alloc-id:fake -<span id="L28496" class="LineNr">28496 </span> <a href='mu.subx.html#L31581'>_string-subtract-from</a>/imm32/name -<span id="L28497" class="LineNr">28497 </span> 0x11/imm32/alloc-id:fake -<span id="L28498" class="LineNr">28498 </span> <span class="SpecialChar"><a href='mu.subx.html#L32203'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L28499" class="LineNr">28499 </span> 0/imm32/no-outputs -<span id="L28500" class="LineNr">28500 </span> 0/imm32/no-outputs -<span id="L28501" class="LineNr">28501 </span> 0x11/imm32/alloc-id:fake -<span id="L28502" class="LineNr">28502 </span> <a href='mu.subx.html#L32008'>_string_81_subop_subtract</a>/imm32/subx-name -<span id="L28503" class="LineNr">28503 </span> 1/imm32/rm32-is-first-inout -<span id="L28504" class="LineNr">28504 </span> 0/imm32/no-r32 -<span id="L28505" class="LineNr">28505 </span> 2/imm32/imm32-is-second-inout -<span id="L28506" class="LineNr">28506 </span> 0/imm32/no-imm8 -<span id="L28507" class="LineNr">28507 </span> 0/imm32/no-disp32 -<span id="L28508" class="LineNr">28508 </span> 0/imm32/no-xm32 -<span id="L28509" class="LineNr">28509 </span> 0/imm32/no-x32 -<span id="L28510" class="LineNr">28510 </span> 0x11/imm32/alloc-id:fake -<span id="L28511" class="LineNr">28511 </span> <a href='mu.subx.html#L28513'>_Primitive-and-with-eax</a>/imm32/next -<span id="L28512" class="LineNr">28512 </span><span class="subxH1Comment"># - and</span> -<span id="L28513" class="LineNr">28513 </span><span class="subxMinorFunction">_Primitive-and-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28514" class="LineNr">28514 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28515" class="LineNr">28515 </span> <span class="subxComment"># var/eax <- and lit => 25/and-with-eax lit/imm32</span> -<span id="L28516" class="LineNr">28516 </span> 0x11/imm32/alloc-id:fake -<span id="L28517" class="LineNr">28517 </span> <a href='mu.subx.html#L31316'>_string-and</a>/imm32/name -<span id="L28518" class="LineNr">28518 </span> 0x11/imm32/alloc-id:fake -<span id="L28519" class="LineNr">28519 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L28520" class="LineNr">28520 </span> 0x11/imm32/alloc-id:fake -<span id="L28521" class="LineNr">28521 </span> <span class="SpecialChar"><a href='mu.subx.html#L32298'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L28522" class="LineNr">28522 </span> 0x11/imm32/alloc-id:fake -<span id="L28523" class="LineNr">28523 </span> <a href='mu.subx.html#L31883'>_string_25_and_with_eax</a>/imm32/subx-name -<span id="L28524" class="LineNr">28524 </span> 0/imm32/no-rm32 -<span id="L28525" class="LineNr">28525 </span> 0/imm32/no-r32 -<span id="L28526" class="LineNr">28526 </span> 1/imm32/imm32-is-first-inout -<span id="L28527" class="LineNr">28527 </span> 0/imm32/no-imm8 -<span id="L28528" class="LineNr">28528 </span> 0/imm32/no-disp32 -<span id="L28529" class="LineNr">28529 </span> 0/imm32/no-xm32 -<span id="L28530" class="LineNr">28530 </span> 0/imm32/no-x32 -<span id="L28531" class="LineNr">28531 </span> 0x11/imm32/alloc-id:fake -<span id="L28532" class="LineNr">28532 </span> <a href='mu.subx.html#L28533'>_Primitive-and-reg-with-reg</a>/imm32/next -<span id="L28533" class="LineNr">28533 </span><span class="subxMinorFunction">_Primitive-and-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28534" class="LineNr">28534 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28535" class="LineNr">28535 </span> <span class="subxComment"># var1/reg <- and var2/reg => 21/and-with var1/rm32 var2/r32</span> -<span id="L28536" class="LineNr">28536 </span> 0x11/imm32/alloc-id:fake -<span id="L28537" class="LineNr">28537 </span> <a href='mu.subx.html#L31316'>_string-and</a>/imm32/name -<span id="L28538" class="LineNr">28538 </span> 0x11/imm32/alloc-id:fake -<span id="L28539" class="LineNr">28539 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L28540" class="LineNr">28540 </span> 0x11/imm32/alloc-id:fake -<span id="L28541" class="LineNr">28541 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28542" class="LineNr">28542 </span> 0x11/imm32/alloc-id:fake -<span id="L28543" class="LineNr">28543 </span> <a href='mu.subx.html#L31873'>_string_21_and_with</a>/imm32/subx-name -<span id="L28544" class="LineNr">28544 </span> 3/imm32/rm32-is-first-output -<span id="L28545" class="LineNr">28545 </span> 1/imm32/r32-is-first-inout -<span id="L28546" class="LineNr">28546 </span> 0/imm32/no-imm32 -<span id="L28547" class="LineNr">28547 </span> 0/imm32/no-imm8 -<span id="L28548" class="LineNr">28548 </span> 0/imm32/no-disp32 -<span id="L28549" class="LineNr">28549 </span> 0/imm32/no-xm32 -<span id="L28550" class="LineNr">28550 </span> 0/imm32/no-x32 -<span id="L28551" class="LineNr">28551 </span> 0x11/imm32/alloc-id:fake -<span id="L28552" class="LineNr">28552 </span> <a href='mu.subx.html#L28553'>_Primitive-and-reg-with-mem</a>/imm32/next -<span id="L28553" class="LineNr">28553 </span><span class="subxMinorFunction">_Primitive-and-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28554" class="LineNr">28554 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28555" class="LineNr">28555 </span> <span class="subxComment"># and-with var1 var2/reg => 21/and-with var1 var2/r32</span> -<span id="L28556" class="LineNr">28556 </span> 0x11/imm32/alloc-id:fake -<span id="L28557" class="LineNr">28557 </span> <a href='mu.subx.html#L31321'>_string-and-with</a>/imm32/name -<span id="L28558" class="LineNr">28558 </span> 0x11/imm32/alloc-id:fake -<span id="L28559" class="LineNr">28559 </span> <span class="SpecialChar"><a href='mu.subx.html#L32167'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L28560" class="LineNr">28560 </span> 0/imm32/no-outputs -<span id="L28561" class="LineNr">28561 </span> 0/imm32/no-outputs -<span id="L28562" class="LineNr">28562 </span> 0x11/imm32/alloc-id:fake -<span id="L28563" class="LineNr">28563 </span> <a href='mu.subx.html#L31873'>_string_21_and_with</a>/imm32/subx-name -<span id="L28564" class="LineNr">28564 </span> 1/imm32/rm32-is-first-inout -<span id="L28565" class="LineNr">28565 </span> 2/imm32/r32-is-second-inout -<span id="L28566" class="LineNr">28566 </span> 0/imm32/no-imm32 -<span id="L28567" class="LineNr">28567 </span> 0/imm32/no-imm8 -<span id="L28568" class="LineNr">28568 </span> 0/imm32/no-disp32 -<span id="L28569" class="LineNr">28569 </span> 0/imm32/no-xm32 -<span id="L28570" class="LineNr">28570 </span> 0/imm32/no-x32 -<span id="L28571" class="LineNr">28571 </span> 0x11/imm32/alloc-id:fake -<span id="L28572" class="LineNr">28572 </span> <a href='mu.subx.html#L28573'>_Primitive-and-mem-with-reg</a>/imm32/next -<span id="L28573" class="LineNr">28573 </span><span class="subxMinorFunction">_Primitive-and-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28574" class="LineNr">28574 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28575" class="LineNr">28575 </span> <span class="subxComment"># var1/reg <- and var2 => 23/and var2/rm32 var1/r32</span> -<span id="L28576" class="LineNr">28576 </span> 0x11/imm32/alloc-id:fake -<span id="L28577" class="LineNr">28577 </span> <a href='mu.subx.html#L31316'>_string-and</a>/imm32/name -<span id="L28578" class="LineNr">28578 </span> 0x11/imm32/alloc-id:fake -<span id="L28579" class="LineNr">28579 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L28580" class="LineNr">28580 </span> 0x11/imm32/alloc-id:fake -<span id="L28581" class="LineNr">28581 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28582" class="LineNr">28582 </span> 0x11/imm32/alloc-id:fake -<span id="L28583" class="LineNr">28583 </span> <a href='mu.subx.html#L31878'>_string_23_and</a>/imm32/subx-name -<span id="L28584" class="LineNr">28584 </span> 1/imm32/rm32-is-first-inout -<span id="L28585" class="LineNr">28585 </span> 3/imm32/r32-is-first-output -<span id="L28586" class="LineNr">28586 </span> 0/imm32/no-imm32 -<span id="L28587" class="LineNr">28587 </span> 0/imm32/no-imm8 -<span id="L28588" class="LineNr">28588 </span> 0/imm32/no-disp32 -<span id="L28589" class="LineNr">28589 </span> 0/imm32/no-xm32 -<span id="L28590" class="LineNr">28590 </span> 0/imm32/no-x32 -<span id="L28591" class="LineNr">28591 </span> 0x11/imm32/alloc-id:fake -<span id="L28592" class="LineNr">28592 </span> <a href='mu.subx.html#L28593'>_Primitive-and-lit-with-reg</a>/imm32/next -<span id="L28593" class="LineNr">28593 </span><span class="subxMinorFunction">_Primitive-and-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28594" class="LineNr">28594 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28595" class="LineNr">28595 </span> <span class="subxComment"># var1/reg <- and lit => 81 4/subop/and var1/rm32 lit/imm32</span> +<span id="L27493" class="LineNr">27493 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27494" class="LineNr">27494 </span> 53/push-ebx +<span id="L27495" class="LineNr">27495 </span> <span class="subxComment"># ebx = stmt</span> +<span id="L27496" class="LineNr">27496 </span> 8b/-> *(ebp+0xc) 3/r32/ebx +<span id="L27497" class="LineNr">27497 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]</span> +<span id="L27498" class="LineNr">27498 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27499" class="LineNr">27499 </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="L27500" class="LineNr">27500 </span> 89/<- %ebx 0/r32/eax +<span id="L27501" class="LineNr">27501 </span> <span class="subxComment"># emit bounds-check</span> +<span id="L27502" class="LineNr">27502 </span> (<a href='mu.subx.html#L27539'>emit-mu-index-bounds-check</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) +<span id="L27503" class="LineNr">27503 </span> <span class="subxComment"># if (var->register) do one thing</span> +<span id="L27504" class="LineNr">27504 </span> { +<span id="L27505" class="LineNr">27505 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27506" class="LineNr">27506 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27507" class="LineNr">27507 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> +<span id="L27508" class="LineNr">27508 </span> (<a href='mu.subx.html#L27658'>translate-mu-index-stmt-with-array-in-register</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L27509" class="LineNr">27509 </span> eb/jump $translate-mu-index-stmt:end/disp8 +<span id="L27510" class="LineNr">27510 </span> } +<span id="L27511" class="LineNr">27511 </span> <span class="subxComment"># if (var->offset) do a different thing</span> +<span id="L27512" class="LineNr">27512 </span> { +<span id="L27513" class="LineNr">27513 </span> 81 7/subop/compare *(ebx+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L27514" class="LineNr">27514 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27515" class="LineNr">27515 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> +<span id="L27516" class="LineNr">27516 </span> (<a href='mu.subx.html#L27774'>translate-mu-index-stmt-with-array-on-stack</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L27517" class="LineNr">27517 </span> eb/jump $translate-mu-index-stmt:end/disp8 +<span id="L27518" class="LineNr">27518 </span> } +<span id="L27519" class="LineNr">27519 </span><span class="Constant">$translate-mu-index-stmt:end</span>: +<span id="L27520" class="LineNr">27520 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27521" class="LineNr">27521 </span> 5b/pop-to-ebx +<span id="L27522" class="LineNr">27522 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27523" class="LineNr">27523 </span> 89/<- %esp 5/r32/ebp +<span id="L27524" class="LineNr">27524 </span> 5d/pop-to-ebp +<span id="L27525" class="LineNr">27525 </span> c3/return +<span id="L27526" class="LineNr">27526 </span> +<span id="L27527" class="LineNr">27527 </span><span class="Constant">$translate-mu-index-stmt:error1</span>: +<span id="L27528" class="LineNr">27528 </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="L27529" class="LineNr">27529 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L27530" class="LineNr">27530 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L27531" class="LineNr">27531 </span> <span class="subxComment"># never gets here</span> +<span id="L27532" class="LineNr">27532 </span> +<span id="L27533" class="LineNr">27533 </span><span class="Constant">$translate-mu-index-stmt:error2</span>: +<span id="L27534" class="LineNr">27534 </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="L27535" class="LineNr">27535 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L27536" class="LineNr">27536 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L27537" class="LineNr">27537 </span> <span class="subxComment"># never gets here</span> +<span id="L27538" class="LineNr">27538 </span> +<span id="L27539" class="LineNr">27539 </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="L27540" class="LineNr">27540 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27541" class="LineNr">27541 </span> 55/push-ebp +<span id="L27542" class="LineNr">27542 </span> 89/<- %ebp 4/r32/esp +<span id="L27543" class="LineNr">27543 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27544" class="LineNr">27544 </span> 50/push-eax +<span id="L27545" class="LineNr">27545 </span> 51/push-ecx +<span id="L27546" class="LineNr">27546 </span> 52/push-edx +<span id="L27547" class="LineNr">27547 </span> 53/push-ebx +<span id="L27548" class="LineNr">27548 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L27549" class="LineNr">27549 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27550" class="LineNr">27550 </span> <span class="subxComment">#</span> +<span id="L27551" class="LineNr">27551 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27552" class="LineNr">27552 </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="L27553" class="LineNr">27553 </span><span class="Constant">$emit-mu-index-bounds-check:compute-base</span>: +<span id="L27554" class="LineNr">27554 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> +<span id="L27555" class="LineNr">27555 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27556" class="LineNr">27556 </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="L27557" class="LineNr">27557 </span> 89/<- %ebx 0/r32/eax +<span id="L27558" class="LineNr">27558 </span><span class="Constant">$emit-mu-index-bounds-check:emit-index</span>: +<span id="L27559" class="LineNr">27559 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> +<span id="L27560" class="LineNr">27560 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27561" class="LineNr">27561 </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="L27562" class="LineNr">27562 </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="L27563" class="LineNr">27563 </span> 89/<- %edx 0/r32/eax +<span id="L27564" class="LineNr">27564 </span> <span class="subxComment"># if index->register, print its code</span> +<span id="L27565" class="LineNr">27565 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27566" class="LineNr">27566 </span> { +<span id="L27567" class="LineNr">27567 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27568" class="LineNr">27568 </span><span class="Constant">$emit-mu-index-bounds-check:emit-register-index</span>: +<span id="L27569" class="LineNr">27569 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"%"</span>) +<span id="L27570" class="LineNr">27570 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27571" class="LineNr">27571 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27572" class="LineNr">27572 </span> eb/jump $emit-mu-index-bounds-check:index-done/disp8 +<span id="L27573" class="LineNr">27573 </span> } +<span id="L27574" class="LineNr">27574 </span> <span class="subxComment"># otherwise if index is a literal, print it</span> +<span id="L27575" class="LineNr">27575 </span><span class="Constant">$emit-mu-index-bounds-check:emit-literal-index</span>: +<span id="L27576" class="LineNr">27576 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27577" class="LineNr">27577 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L27578" class="LineNr">27578 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27579" class="LineNr">27579 </span> { +<span id="L27580" class="LineNr">27580 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27581" class="LineNr">27581 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27582" class="LineNr">27582 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27583" class="LineNr">27583 </span> } +<span id="L27584" class="LineNr">27584 </span><span class="Constant">$emit-mu-index-bounds-check:index-done</span>: +<span id="L27585" class="LineNr">27585 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L27586" class="LineNr">27586 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size</span>: +<span id="L27587" class="LineNr">27587 </span> <span class="subxComment"># if index is a literal or int, print size of array element</span> +<span id="L27588" class="LineNr">27588 </span> { +<span id="L27589" class="LineNr">27589 </span> { +<span id="L27590" class="LineNr">27590 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27591" class="LineNr">27591 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L27592" class="LineNr">27592 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27593" class="LineNr">27593 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27594" class="LineNr">27594 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27595" class="LineNr">27595 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L27596" class="LineNr">27596 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27597" class="LineNr">27597 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27598" class="LineNr">27598 </span> eb/jump $emit-mu-index-bounds-check:emit-element-size-offset/disp8 +<span id="L27599" class="LineNr">27599 </span> } +<span id="L27600" class="LineNr">27600 </span><span class="Constant">$emit-mu-index-bounds-check:emit-int-register-index</span>: +<span id="L27601" class="LineNr">27601 </span> (<a href='mu.subx.html#L27283'>array-element-size</a> %ebx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L27602" class="LineNr">27602 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L27603" class="LineNr">27603 </span> e9/jump $emit-mu-index-bounds-check:emit-base/disp32 +<span id="L27604" class="LineNr">27604 </span> } +<span id="L27605" class="LineNr">27605 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size-offset</span>: +<span id="L27606" class="LineNr">27606 </span> <span class="subxComment"># if index has type (offset ...), print "1"</span> +<span id="L27607" class="LineNr">27607 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27608" class="LineNr">27608 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L27609" class="LineNr">27609 </span> { +<span id="L27610" class="LineNr">27610 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27611" class="LineNr">27611 </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="L27612" class="LineNr">27612 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L27613" class="LineNr">27613 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27614" class="LineNr">27614 </span> { +<span id="L27615" class="LineNr">27615 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27616" class="LineNr">27616 </span><span class="Constant">$emit-mu-index-bounds-check:emit-offset-register-index</span>: +<span id="L27617" class="LineNr">27617 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"1"</span>) +<span id="L27618" class="LineNr">27618 </span> } +<span id="L27619" class="LineNr">27619 </span> } +<span id="L27620" class="LineNr">27620 </span><span class="Constant">$emit-mu-index-bounds-check:emit-base</span>: +<span id="L27621" class="LineNr">27621 </span> <span class="subxComment"># if base is in a register, print " *" base->register</span> +<span id="L27622" class="LineNr">27622 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27623" class="LineNr">27623 </span> { +<span id="L27624" class="LineNr">27624 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27625" class="LineNr">27625 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) +<span id="L27626" class="LineNr">27626 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27627" class="LineNr">27627 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27628" class="LineNr">27628 </span> e9/jump $emit-mu-index-bounds-check:emit-function-name/disp32 +<span id="L27629" class="LineNr">27629 </span> } +<span id="L27630" class="LineNr">27630 </span> <span class="subxComment"># otherwise print " *(ebp+" base->offset ")"</span> +<span id="L27631" class="LineNr">27631 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) +<span id="L27632" class="LineNr">27632 </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="L27633" class="LineNr">27633 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L27634" class="LineNr">27634 </span><span class="Constant">$emit-mu-index-bounds-check:emit-function-name</span>: +<span id="L27635" class="LineNr">27635 </span> <span class="subxComment"># " \"" function-name "\""</span> +<span id="L27636" class="LineNr">27636 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") +<span id="L27637" class="LineNr">27637 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L27638" class="LineNr">27638 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L27639" class="LineNr">27639 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27640" class="LineNr">27640 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>") +<span id="L27641" class="LineNr">27641 </span><span class="Constant">$emit-mu-index-bounds-check:emit-array-name</span>: +<span id="L27642" class="LineNr">27642 </span> <span class="subxComment"># " \"" base->name "\""</span> +<span id="L27643" class="LineNr">27643 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") +<span id="L27644" class="LineNr">27644 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27645" class="LineNr">27645 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27646" class="LineNr">27646 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>)\n") +<span id="L27647" class="LineNr">27647 </span><span class="Constant">$emit-mu-index-bounds-check:end</span>: +<span id="L27648" class="LineNr">27648 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27649" class="LineNr">27649 </span> 5b/pop-to-ebx +<span id="L27650" class="LineNr">27650 </span> 5a/pop-to-edx +<span id="L27651" class="LineNr">27651 </span> 59/pop-to-ecx +<span id="L27652" class="LineNr">27652 </span> 58/pop-to-eax +<span id="L27653" class="LineNr">27653 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27654" class="LineNr">27654 </span> 89/<- %esp 5/r32/ebp +<span id="L27655" class="LineNr">27655 </span> 5d/pop-to-ebp +<span id="L27656" class="LineNr">27656 </span> c3/return +<span id="L27657" class="LineNr">27657 </span> +<span id="L27658" class="LineNr">27658 </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="L27659" class="LineNr">27659 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27660" class="LineNr">27660 </span> 55/push-ebp +<span id="L27661" class="LineNr">27661 </span> 89/<- %ebp 4/r32/esp +<span id="L27662" class="LineNr">27662 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27663" class="LineNr">27663 </span> 50/push-eax +<span id="L27664" class="LineNr">27664 </span> 51/push-ecx +<span id="L27665" class="LineNr">27665 </span> 52/push-edx +<span id="L27666" class="LineNr">27666 </span> 53/push-ebx +<span id="L27667" class="LineNr">27667 </span> <span class="subxComment">#</span> +<span id="L27668" class="LineNr">27668 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27669" class="LineNr">27669 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *("</span>) +<span id="L27670" class="LineNr">27670 </span> <span class="subxComment"># TODO: ensure inouts[0] is in a register and not dereferenced</span> +<span id="L27671" class="LineNr">27671 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-base</span>: +<span id="L27672" class="LineNr">27672 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L27673" class="LineNr">27673 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27674" class="LineNr">27674 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> +<span id="L27675" class="LineNr">27675 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27676" class="LineNr">27676 </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="L27677" class="LineNr">27677 </span> 89/<- %ebx 0/r32/eax +<span id="L27678" class="LineNr">27678 </span> <span class="subxComment"># print base->register " + "</span> +<span id="L27679" class="LineNr">27679 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27680" class="LineNr">27680 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27681" class="LineNr">27681 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L27682" class="LineNr">27682 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> +<span id="L27683" class="LineNr">27683 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27684" class="LineNr">27684 </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="L27685" class="LineNr">27685 </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="L27686" class="LineNr">27686 </span> 89/<- %edx 0/r32/eax +<span id="L27687" class="LineNr">27687 </span> <span class="subxComment"># if index->register</span> +<span id="L27688" class="LineNr">27688 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27689" class="LineNr">27689 </span> { +<span id="L27690" class="LineNr">27690 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27691" class="LineNr">27691 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index</span>: +<span id="L27692" class="LineNr">27692 </span> <span class="subxComment"># if index is an int</span> +<span id="L27693" class="LineNr">27693 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27694" class="LineNr">27694 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L27695" class="LineNr">27695 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27696" class="LineNr">27696 </span> { +<span id="L27697" class="LineNr">27697 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27698" class="LineNr">27698 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-int-register-index</span>: +<span id="L27699" class="LineNr">27699 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + 4) "</span> +<span id="L27700" class="LineNr">27700 </span> <span class="subxS1Comment"># . index->register "<<"</span> +<span id="L27701" class="LineNr">27701 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27702" class="LineNr">27702 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27703" class="LineNr">27703 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) +<span id="L27704" class="LineNr">27704 </span> <span class="subxS1Comment"># . log2(array-element-size(base->type))</span> +<span id="L27705" class="LineNr">27705 </span> <span class="subxComment"># we know size is a power of 2</span> +<span id="L27706" class="LineNr">27706 </span> (<a href='mu.subx.html#L27283'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L27707" class="LineNr">27707 </span> (<a href='mu.subx.html#L28421'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> +<span id="L27708" class="LineNr">27708 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L27709" class="LineNr">27709 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-register-index-done/disp32 +<span id="L27710" class="LineNr">27710 </span> } +<span id="L27711" class="LineNr">27711 </span> <span class="subxComment"># if index->type is any other atom, abort</span> +<span id="L27712" class="LineNr">27712 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27713" class="LineNr">27713 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L27714" class="LineNr">27714 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 +<span id="L27715" class="LineNr">27715 </span> <span class="subxComment"># if index has type (offset ...)</span> +<span id="L27716" class="LineNr">27716 </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="L27717" class="LineNr">27717 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L27718" class="LineNr">27718 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27719" class="LineNr">27719 </span> { +<span id="L27720" class="LineNr">27720 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27721" class="LineNr">27721 </span> <span class="subxComment"># print index->register</span> +<span id="L27722" class="LineNr">27722 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-offset-register-index</span>: +<span id="L27723" class="LineNr">27723 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27724" class="LineNr">27724 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27725" class="LineNr">27725 </span> } +<span id="L27726" class="LineNr">27726 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index-done</span>: +<span id="L27727" class="LineNr">27727 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + 4) "</span>) +<span id="L27728" class="LineNr">27728 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 +<span id="L27729" class="LineNr">27729 </span> } +<span id="L27730" class="LineNr">27730 </span> <span class="subxComment"># otherwise if index is a literal</span> +<span id="L27731" class="LineNr">27731 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27732" class="LineNr">27732 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L27733" class="LineNr">27733 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27734" class="LineNr">27734 </span> { +<span id="L27735" class="LineNr">27735 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27736" class="LineNr">27736 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-literal-index</span>: +<span id="L27737" class="LineNr">27737 </span> <span class="subxComment"># var index-value/edx: int = parse-hex-int(index->name)</span> +<span id="L27738" class="LineNr">27738 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27739" class="LineNr">27739 </span> (<a href='../118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># => eax</span> +<span id="L27740" class="LineNr">27740 </span> 89/<- %edx 0/r32/eax +<span id="L27741" class="LineNr">27741 </span> <span class="subxComment"># offset = idx-value * array-element-size(base->type)</span> +<span id="L27742" class="LineNr">27742 </span> (<a href='mu.subx.html#L27283'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L27743" class="LineNr">27743 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> +<span id="L27744" class="LineNr">27744 </span> <span class="subxComment"># offset += 4 for array size</span> +<span id="L27745" class="LineNr">27745 </span> 05/add-to-eax 4/imm32 +<span id="L27746" class="LineNr">27746 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L27747" class="LineNr">27747 </span> <span class="subxComment"># print offset</span> +<span id="L27748" class="LineNr">27748 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L27749" class="LineNr">27749 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L27750" class="LineNr">27750 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 +<span id="L27751" class="LineNr">27751 </span> } +<span id="L27752" class="LineNr">27752 </span> <span class="subxComment"># otherwise abort</span> +<span id="L27753" class="LineNr">27753 </span> e9/jump $translate-mu-index-stmt:error1/disp32 +<span id="L27754" class="LineNr">27754 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-output</span>: +<span id="L27755" class="LineNr">27755 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L27756" class="LineNr">27756 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27757" class="LineNr">27757 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L27758" class="LineNr">27758 </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="L27759" class="LineNr">27759 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27760" class="LineNr">27760 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L18292'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L27761" class="LineNr">27761 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L27762" class="LineNr">27762 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L27763" class="LineNr">27763 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:end</span>: +<span id="L27764" class="LineNr">27764 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27765" class="LineNr">27765 </span> 5b/pop-to-ebx +<span id="L27766" class="LineNr">27766 </span> 5a/pop-to-edx +<span id="L27767" class="LineNr">27767 </span> 59/pop-to-ecx +<span id="L27768" class="LineNr">27768 </span> 58/pop-to-eax +<span id="L27769" class="LineNr">27769 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27770" class="LineNr">27770 </span> 89/<- %esp 5/r32/ebp +<span id="L27771" class="LineNr">27771 </span> 5d/pop-to-ebp +<span id="L27772" class="LineNr">27772 </span> c3/return +<span id="L27773" class="LineNr">27773 </span> +<span id="L27774" class="LineNr">27774 </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="L27775" class="LineNr">27775 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27776" class="LineNr">27776 </span> 55/push-ebp +<span id="L27777" class="LineNr">27777 </span> 89/<- %ebp 4/r32/esp +<span id="L27778" class="LineNr">27778 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27779" class="LineNr">27779 </span> 50/push-eax +<span id="L27780" class="LineNr">27780 </span> 51/push-ecx +<span id="L27781" class="LineNr">27781 </span> 52/push-edx +<span id="L27782" class="LineNr">27782 </span> 53/push-ebx +<span id="L27783" class="LineNr">27783 </span> <span class="subxComment">#</span> +<span id="L27784" class="LineNr">27784 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27785" class="LineNr">27785 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *(ebp + "</span>) +<span id="L27786" class="LineNr">27786 </span> <span class="subxComment"># var curr/edx: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L27787" class="LineNr">27787 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27788" class="LineNr">27788 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27789" class="LineNr">27789 </span> 89/<- %edx 0/r32/eax +<span id="L27790" class="LineNr">27790 </span> <span class="subxComment"># var base/ecx: (addr var) = lookup(curr->value)</span> +<span id="L27791" class="LineNr">27791 </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="L27792" class="LineNr">27792 </span> 89/<- %ecx 0/r32/eax +<span id="L27793" class="LineNr">27793 </span> <span class="subxComment"># var curr2/eax: (addr stmt-var) = lookup(curr->next)</span> +<span id="L27794" class="LineNr">27794 </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="L27795" class="LineNr">27795 </span> <span class="subxComment"># var index/edx: (handle var) = curr2->value</span> +<span id="L27796" class="LineNr">27796 </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="L27797" class="LineNr">27797 </span> 89/<- %edx 0/r32/eax +<span id="L27798" class="LineNr">27798 </span> <span class="subxComment"># if index->register</span> +<span id="L27799" class="LineNr">27799 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27800" class="LineNr">27800 </span> { +<span id="L27801" class="LineNr">27801 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27802" class="LineNr">27802 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index</span>: +<span id="L27803" class="LineNr">27803 </span> <span class="subxComment"># if index is an int</span> +<span id="L27804" class="LineNr">27804 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27805" class="LineNr">27805 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L27806" class="LineNr">27806 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27807" class="LineNr">27807 </span> { +<span id="L27808" class="LineNr">27808 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27809" class="LineNr">27809 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-int-register-index</span>: +<span id="L27810" class="LineNr">27810 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + " base->offset+4</span> +<span id="L27811" class="LineNr">27811 </span> <span class="subxS1Comment"># . inouts[1]->register "<<"</span> +<span id="L27812" class="LineNr">27812 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27813" class="LineNr">27813 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27814" class="LineNr">27814 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) +<span id="L27815" class="LineNr">27815 </span> <span class="subxS1Comment"># . log2(array-element-size(base))</span> +<span id="L27816" class="LineNr">27816 </span> <span class="subxComment"># TODO: ensure size is a power of 2</span> +<span id="L27817" class="LineNr">27817 </span> (<a href='mu.subx.html#L27283'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L27818" class="LineNr">27818 </span> (<a href='mu.subx.html#L28421'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> +<span id="L27819" class="LineNr">27819 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L27820" class="LineNr">27820 </span> <span class="subxComment">#</span> +<span id="L27821" class="LineNr">27821 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L27822" class="LineNr">27822 </span> <span class="subxComment">#</span> +<span id="L27823" class="LineNr">27823 </span> 8b/-> *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L27824" class="LineNr">27824 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array length</span> +<span id="L27825" class="LineNr">27825 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L27826" class="LineNr">27826 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-register-index-done/disp32 +<span id="L27827" class="LineNr">27827 </span> } +<span id="L27828" class="LineNr">27828 </span> <span class="subxComment"># if index->type is any other atom, abort</span> +<span id="L27829" class="LineNr">27829 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27830" class="LineNr">27830 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L27831" class="LineNr">27831 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 +<span id="L27832" class="LineNr">27832 </span> <span class="subxComment"># if index has type (offset ...)</span> +<span id="L27833" class="LineNr">27833 </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="L27834" class="LineNr">27834 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L27835" class="LineNr">27835 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27836" class="LineNr">27836 </span> { +<span id="L27837" class="LineNr">27837 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27838" class="LineNr">27838 </span> <span class="subxComment"># print index->register</span> +<span id="L27839" class="LineNr">27839 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-offset-register-index</span>: +<span id="L27840" class="LineNr">27840 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27841" class="LineNr">27841 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27842" class="LineNr">27842 </span> } +<span id="L27843" class="LineNr">27843 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index-done</span>: +<span id="L27844" class="LineNr">27844 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L27845" class="LineNr">27845 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 +<span id="L27846" class="LineNr">27846 </span> } +<span id="L27847" class="LineNr">27847 </span> <span class="subxComment"># otherwise if index is a literal</span> +<span id="L27848" class="LineNr">27848 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27849" class="LineNr">27849 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L27850" class="LineNr">27850 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27851" class="LineNr">27851 </span> { +<span id="L27852" class="LineNr">27852 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27853" class="LineNr">27853 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-literal-index</span>: +<span id="L27854" class="LineNr">27854 </span> <span class="subxComment"># var idx-value/edx: int = parse-hex-int(index->name)</span> +<span id="L27855" class="LineNr">27855 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27856" class="LineNr">27856 </span> (<a href='../118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># Var-name => eax</span> +<span id="L27857" class="LineNr">27857 </span> 89/<- %edx 0/r32/eax +<span id="L27858" class="LineNr">27858 </span> <span class="subxComment"># offset = idx-value * array-element-size(base)</span> +<span id="L27859" class="LineNr">27859 </span> (<a href='mu.subx.html#L27283'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L27860" class="LineNr">27860 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> +<span id="L27861" class="LineNr">27861 </span> <span class="subxComment"># offset += base->offset</span> +<span id="L27862" class="LineNr">27862 </span> 03/add *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L27863" class="LineNr">27863 </span> <span class="subxComment"># offset += 4 for array size</span> +<span id="L27864" class="LineNr">27864 </span> 05/add-to-eax 4/imm32 +<span id="L27865" class="LineNr">27865 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L27866" class="LineNr">27866 </span> <span class="subxComment"># print offset</span> +<span id="L27867" class="LineNr">27867 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L27868" class="LineNr">27868 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L27869" class="LineNr">27869 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 +<span id="L27870" class="LineNr">27870 </span> } +<span id="L27871" class="LineNr">27871 </span> <span class="subxComment"># otherwise abort</span> +<span id="L27872" class="LineNr">27872 </span> e9/jump $translate-mu-index-stmt:error1/disp32 +<span id="L27873" class="LineNr">27873 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-output</span>: +<span id="L27874" class="LineNr">27874 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L27875" class="LineNr">27875 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27876" class="LineNr">27876 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x14) *(eax+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L27877" class="LineNr">27877 </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="L27878" class="LineNr">27878 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27879" class="LineNr">27879 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L18292'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L27880" class="LineNr">27880 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L27881" class="LineNr">27881 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L27882" class="LineNr">27882 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:end</span>: +<span id="L27883" class="LineNr">27883 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27884" class="LineNr">27884 </span> 5b/pop-to-ebx +<span id="L27885" class="LineNr">27885 </span> 5a/pop-to-edx +<span id="L27886" class="LineNr">27886 </span> 59/pop-to-ecx +<span id="L27887" class="LineNr">27887 </span> 58/pop-to-eax +<span id="L27888" class="LineNr">27888 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27889" class="LineNr">27889 </span> 89/<- %esp 5/r32/ebp +<span id="L27890" class="LineNr">27890 </span> 5d/pop-to-ebp +<span id="L27891" class="LineNr">27891 </span> c3/return +<span id="L27892" class="LineNr">27892 </span> +<span id="L27893" class="LineNr">27893 </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="L27894" class="LineNr">27894 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27895" class="LineNr">27895 </span> 55/push-ebp +<span id="L27896" class="LineNr">27896 </span> 89/<- %ebp 4/r32/esp +<span id="L27897" class="LineNr">27897 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27898" class="LineNr">27898 </span> 50/push-eax +<span id="L27899" class="LineNr">27899 </span> 51/push-ecx +<span id="L27900" class="LineNr">27900 </span> 52/push-edx +<span id="L27901" class="LineNr">27901 </span> 53/push-ebx +<span id="L27902" class="LineNr">27902 </span> <span class="subxComment">#</span> +<span id="L27903" class="LineNr">27903 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27904" class="LineNr">27904 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"69/multiply"</span>) +<span id="L27905" class="LineNr">27905 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L27906" class="LineNr">27906 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27907" class="LineNr">27907 </span> <span class="subxComment"># var first-inout/ebx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L27908" class="LineNr">27908 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27909" class="LineNr">27909 </span> 89/<- %ebx 0/r32/eax +<span id="L27910" class="LineNr">27910 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-index</span>: +<span id="L27911" class="LineNr">27911 </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="L27912" class="LineNr">27912 </span> (<a href='mu.subx.html#L33608'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) +<span id="L27913" class="LineNr">27913 </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="L27914" class="LineNr">27914 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-elem-size</span>: +<span id="L27915" class="LineNr">27915 </span> <span class="subxComment"># var base/ebx: (addr var)</span> +<span id="L27916" class="LineNr">27916 </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="L27917" class="LineNr">27917 </span> 89/<- %ebx 0/r32/eax +<span id="L27918" class="LineNr">27918 </span> <span class="subxComment"># print array-element-size(base)</span> +<span id="L27919" class="LineNr">27919 </span> (<a href='mu.subx.html#L27283'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L27920" class="LineNr">27920 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L27921" class="LineNr">27921 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32 "</span>) +<span id="L27922" class="LineNr">27922 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-output</span>: +<span id="L27923" class="LineNr">27923 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L27924" class="LineNr">27924 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L27925" class="LineNr">27925 </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="L27926" class="LineNr">27926 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27927" class="LineNr">27927 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L18292'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L27928" class="LineNr">27928 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L27929" class="LineNr">27929 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L27930" class="LineNr">27930 </span><span class="Constant">$translate-mu-compute-index-stmt:end</span>: +<span id="L27931" class="LineNr">27931 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27932" class="LineNr">27932 </span> 5b/pop-to-ebx +<span id="L27933" class="LineNr">27933 </span> 5a/pop-to-edx +<span id="L27934" class="LineNr">27934 </span> 59/pop-to-ecx +<span id="L27935" class="LineNr">27935 </span> 58/pop-to-eax +<span id="L27936" class="LineNr">27936 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27937" class="LineNr">27937 </span> 89/<- %esp 5/r32/ebp +<span id="L27938" class="LineNr">27938 </span> 5d/pop-to-ebp +<span id="L27939" class="LineNr">27939 </span> c3/return +<span id="L27940" class="LineNr">27940 </span> +<span id="L27941" class="LineNr">27941 </span><span class="subxFunction">translate-mu-get-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> +<span id="L27942" class="LineNr">27942 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27943" class="LineNr">27943 </span> 55/push-ebp +<span id="L27944" class="LineNr">27944 </span> 89/<- %ebp 4/r32/esp +<span id="L27945" class="LineNr">27945 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27946" class="LineNr">27946 </span> 50/push-eax +<span id="L27947" class="LineNr">27947 </span> 51/push-ecx +<span id="L27948" class="LineNr">27948 </span> 52/push-edx +<span id="L27949" class="LineNr">27949 </span> <span class="subxComment">#</span> +<span id="L27950" class="LineNr">27950 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L27951" class="LineNr">27951 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address "</span>) +<span id="L27952" class="LineNr">27952 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L27953" class="LineNr">27953 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27954" class="LineNr">27954 </span> <span class="subxComment"># var offset/edx: int = get offset of stmt</span> +<span id="L27955" class="LineNr">27955 </span> (<a href='mu.subx.html#L28448'>mu-get-offset</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L27956" class="LineNr">27956 </span> 89/<- %edx 0/r32/eax +<span id="L27957" class="LineNr">27957 </span> <span class="subxComment"># var base/eax: (addr var) = stmt->inouts->value</span> +<span id="L27958" class="LineNr">27958 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27959" class="LineNr">27959 </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="L27960" class="LineNr">27960 </span> <span class="subxComment"># if base is in a register</span> +<span id="L27961" class="LineNr">27961 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27962" class="LineNr">27962 </span> { +<span id="L27963" class="LineNr">27963 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27964" class="LineNr">27964 </span><span class="Constant">$translate-mu-get-stmt:emit-register-input</span>: +<span id="L27965" class="LineNr">27965 </span> <span class="subxComment"># emit "*(" base->register " + " offset ") "</span> +<span id="L27966" class="LineNr">27966 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*("</span>) +<span id="L27967" class="LineNr">27967 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27968" class="LineNr">27968 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27969" class="LineNr">27969 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L27970" class="LineNr">27970 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) +<span id="L27971" class="LineNr">27971 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L27972" class="LineNr">27972 </span> e9/jump $translate-mu-get-stmt:emit-output/disp32 +<span id="L27973" class="LineNr">27973 </span> } +<span id="L27974" class="LineNr">27974 </span> <span class="subxComment"># otherwise base is on the stack</span> +<span id="L27975" class="LineNr">27975 </span> { +<span id="L27976" class="LineNr">27976 </span><span class="Constant">$translate-mu-get-stmt:emit-stack-input</span>: +<span id="L27977" class="LineNr">27977 </span> <span class="subxComment"># emit "*(ebp + " inouts[0]->stack-offset + offset ") "</span> +<span id="L27978" class="LineNr">27978 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) +<span id="L27979" class="LineNr">27979 </span> 03/add *(eax+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> +<span id="L27980" class="LineNr">27980 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) +<span id="L27981" class="LineNr">27981 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L27982" class="LineNr">27982 </span> eb/jump $translate-mu-get-stmt:emit-output/disp8 +<span id="L27983" class="LineNr">27983 </span> } +<span id="L27984" class="LineNr">27984 </span><span class="Constant">$translate-mu-get-stmt:emit-output</span>: +<span id="L27985" class="LineNr">27985 </span> <span class="subxComment"># var output/eax: (addr var) = stmt->outputs->value</span> +<span id="L27986" class="LineNr">27986 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L27987" class="LineNr">27987 </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="L27988" class="LineNr">27988 </span> <span class="subxComment"># emit offset->register "/r32"</span> +<span id="L27989" class="LineNr">27989 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27990" class="LineNr">27990 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L18292'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L27991" class="LineNr">27991 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L27992" class="LineNr">27992 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L27993" class="LineNr">27993 </span><span class="Constant">$translate-mu-get-stmt:end</span>: +<span id="L27994" class="LineNr">27994 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27995" class="LineNr">27995 </span> 5a/pop-to-edx +<span id="L27996" class="LineNr">27996 </span> 59/pop-to-ecx +<span id="L27997" class="LineNr">27997 </span> 58/pop-to-eax +<span id="L27998" class="LineNr">27998 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27999" class="LineNr">27999 </span> 89/<- %esp 5/r32/ebp +<span id="L28000" class="LineNr">28000 </span> 5d/pop-to-ebp +<span id="L28001" class="LineNr">28001 </span> c3/return +<span id="L28002" class="LineNr">28002 </span> +<span id="L28003" class="LineNr">28003 </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="L28004" class="LineNr">28004 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28005" class="LineNr">28005 </span> 55/push-ebp +<span id="L28006" class="LineNr">28006 </span> 89/<- %ebp 4/r32/esp +<span id="L28007" class="LineNr">28007 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28008" class="LineNr">28008 </span> 50/push-eax +<span id="L28009" class="LineNr">28009 </span> <span class="subxComment">#</span> +<span id="L28010" class="LineNr">28010 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L28011" class="LineNr">28011 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(copy-bytes"</span>) +<span id="L28012" class="LineNr">28012 </span> <span class="subxComment"># eax = stmt</span> +<span id="L28013" class="LineNr">28013 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L28014" class="LineNr">28014 </span> <span class="subxComment"># var first-inout/eax: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L28015" class="LineNr">28015 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L28016" class="LineNr">28016 </span> (<a href='mu.subx.html#L33446'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L28017" class="LineNr">28017 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L28018" class="LineNr">28018 </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="L28019" class="LineNr">28019 </span> (<a href='mu.subx.html#L33446'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L28020" class="LineNr">28020 </span> <span class="subxComment"># emit size of inouts</span> +<span id="L28021" class="LineNr">28021 </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="L28022" class="LineNr">28022 </span> (<a href='mu.subx.html#L28126'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L28023" class="LineNr">28023 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L28024" class="LineNr">28024 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L28025" class="LineNr">28025 </span><span class="Constant">$translate-mu-copy-object-stmt:end</span>: +<span id="L28026" class="LineNr">28026 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28027" class="LineNr">28027 </span> 58/pop-to-eax +<span id="L28028" class="LineNr">28028 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28029" class="LineNr">28029 </span> 89/<- %esp 5/r32/ebp +<span id="L28030" class="LineNr">28030 </span> 5d/pop-to-ebp +<span id="L28031" class="LineNr">28031 </span> c3/return +<span id="L28032" class="LineNr">28032 </span> +<span id="L28033" class="LineNr">28033 </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="L28034" class="LineNr">28034 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28035" class="LineNr">28035 </span> 55/push-ebp +<span id="L28036" class="LineNr">28036 </span> 89/<- %ebp 4/r32/esp +<span id="L28037" class="LineNr">28037 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28038" class="LineNr">28038 </span> 50/push-eax +<span id="L28039" class="LineNr">28039 </span> <span class="subxComment">#</span> +<span id="L28040" class="LineNr">28040 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L28041" class="LineNr">28041 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(zero-out"</span>) +<span id="L28042" class="LineNr">28042 </span> <span class="subxComment"># eax = stmt</span> +<span id="L28043" class="LineNr">28043 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L28044" class="LineNr">28044 </span> <span class="subxComment"># var dest/eax: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L28045" class="LineNr">28045 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L28046" class="LineNr">28046 </span> <span class="subxComment">#</span> +<span id="L28047" class="LineNr">28047 </span> (<a href='mu.subx.html#L33446'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L28048" class="LineNr">28048 </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="L28049" class="LineNr">28049 </span> (<a href='mu.subx.html#L28126'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L28050" class="LineNr">28050 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L28051" class="LineNr">28051 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L28052" class="LineNr">28052 </span><span class="Constant">$translate-mu-clear-object-stmt:end</span>: +<span id="L28053" class="LineNr">28053 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28054" class="LineNr">28054 </span> 58/pop-to-eax +<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">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="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> 50/push-eax +<span id="L28066" class="LineNr">28066 </span> 56/push-esi +<span id="L28067" class="LineNr">28067 </span> 57/push-edi +<span id="L28068" class="LineNr">28068 </span> <span class="subxComment"># esi = stmt</span> +<span id="L28069" class="LineNr">28069 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L28070" class="LineNr">28070 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L28071" class="LineNr">28071 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L28072" class="LineNr">28072 </span> 89/<- %edi 0/r32/eax +<span id="L28073" class="LineNr">28073 </span> <span class="subxComment">#</span> +<span id="L28074" class="LineNr">28074 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L28075" class="LineNr">28075 </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="L28076" class="LineNr">28076 </span> (<a href='mu.subx.html#L28090'>addr-handle-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L28077" class="LineNr">28077 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L28078" class="LineNr">28078 </span> (<a href='mu.subx.html#L33446'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L28079" class="LineNr">28079 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L28080" class="LineNr">28080 </span><span class="Constant">$translate-mu-allocate-stmt:end</span>: +<span id="L28081" class="LineNr">28081 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28082" class="LineNr">28082 </span> 5f/pop-to-edi +<span id="L28083" class="LineNr">28083 </span> 5e/pop-to-esi +<span id="L28084" class="LineNr">28084 </span> 58/pop-to-eax +<span id="L28085" class="LineNr">28085 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28086" class="LineNr">28086 </span> 89/<- %esp 5/r32/ebp +<span id="L28087" class="LineNr">28087 </span> 5d/pop-to-ebp +<span id="L28088" class="LineNr">28088 </span> c3/return +<span id="L28089" class="LineNr">28089 </span> +<span id="L28090" class="LineNr">28090 </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="L28091" class="LineNr">28091 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28092" class="LineNr">28092 </span> 55/push-ebp +<span id="L28093" class="LineNr">28093 </span> 89/<- %ebp 4/r32/esp +<span id="L28094" class="LineNr">28094 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L28095" class="LineNr">28095 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28096" class="LineNr">28096 </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="L28097" class="LineNr">28097 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28098" class="LineNr">28098 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L28099" class="LineNr">28099 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L28100" class="LineNr">28100 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L28101" class="LineNr">28101 </span> <span class="subxComment"># t = t->right</span> +<span id="L28102" class="LineNr">28102 </span><span class="Constant">$addr-handle-payload-size:skip-addr</span>: +<span id="L28103" class="LineNr">28103 </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="L28104" class="LineNr">28104 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L28105" class="LineNr">28105 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L28106" class="LineNr">28106 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L28107" class="LineNr">28107 </span> <span class="subxComment"># t = t->right</span> +<span id="L28108" class="LineNr">28108 </span><span class="Constant">$addr-handle-payload-size:skip-handle</span>: +<span id="L28109" class="LineNr">28109 </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="L28110" class="LineNr">28110 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L28111" class="LineNr">28111 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L28112" class="LineNr">28112 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L28113" class="LineNr">28113 </span> { +<span id="L28114" class="LineNr">28114 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28115" class="LineNr">28115 </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="L28116" class="LineNr">28116 </span> } +<span id="L28117" class="LineNr">28117 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L28118" class="LineNr">28118 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L28119" class="LineNr">28119 </span> (<a href='mu.subx.html#L25224'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L28120" class="LineNr">28120 </span><span class="Constant">$addr-handle-payload-size:end</span>: +<span id="L28121" class="LineNr">28121 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28122" class="LineNr">28122 </span> 89/<- %esp 5/r32/ebp +<span id="L28123" class="LineNr">28123 </span> 5d/pop-to-ebp +<span id="L28124" class="LineNr">28124 </span> c3/return +<span id="L28125" class="LineNr">28125 </span> +<span id="L28126" class="LineNr">28126 </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="L28127" class="LineNr">28127 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28128" class="LineNr">28128 </span> 55/push-ebp +<span id="L28129" class="LineNr">28129 </span> 89/<- %ebp 4/r32/esp +<span id="L28130" class="LineNr">28130 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L28131" class="LineNr">28131 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28132" class="LineNr">28132 </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="L28133" class="LineNr">28133 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28134" class="LineNr">28134 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L28135" class="LineNr">28135 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L28136" class="LineNr">28136 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L28137" class="LineNr">28137 </span> <span class="subxComment"># t = t->right</span> +<span id="L28138" class="LineNr">28138 </span><span class="Constant">$addr-payload-size:skip-addr</span>: +<span id="L28139" class="LineNr">28139 </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="L28140" class="LineNr">28140 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L28141" class="LineNr">28141 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L28142" class="LineNr">28142 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L28143" class="LineNr">28143 </span> { +<span id="L28144" class="LineNr">28144 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28145" class="LineNr">28145 </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="L28146" class="LineNr">28146 </span> } +<span id="L28147" class="LineNr">28147 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L28148" class="LineNr">28148 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L28149" class="LineNr">28149 </span> (<a href='mu.subx.html#L25224'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L28150" class="LineNr">28150 </span><span class="Constant">$addr-payload-size:end</span>: +<span id="L28151" class="LineNr">28151 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28152" class="LineNr">28152 </span> 89/<- %esp 5/r32/ebp +<span id="L28153" class="LineNr">28153 </span> 5d/pop-to-ebp +<span id="L28154" class="LineNr">28154 </span> c3/return +<span id="L28155" class="LineNr">28155 </span> +<span id="L28156" class="LineNr">28156 </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="L28157" class="LineNr">28157 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28158" class="LineNr">28158 </span> 55/push-ebp +<span id="L28159" class="LineNr">28159 </span> 89/<- %ebp 4/r32/esp +<span id="L28160" class="LineNr">28160 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28161" class="LineNr">28161 </span> 50/push-eax +<span id="L28162" class="LineNr">28162 </span> 51/push-ecx +<span id="L28163" class="LineNr">28163 </span> 56/push-esi +<span id="L28164" class="LineNr">28164 </span> 57/push-edi +<span id="L28165" class="LineNr">28165 </span> <span class="subxComment"># esi = stmt</span> +<span id="L28166" class="LineNr">28166 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L28167" class="LineNr">28167 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L28168" class="LineNr">28168 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L28169" class="LineNr">28169 </span> 89/<- %edi 0/r32/eax +<span id="L28170" class="LineNr">28170 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L28171" class="LineNr">28171 </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="L28172" class="LineNr">28172 </span> 89/<- %ecx 0/r32/eax +<span id="L28173" class="LineNr">28173 </span> <span class="subxComment">#</span> +<span id="L28174" class="LineNr">28174 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L28175" class="LineNr">28175 </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="L28176" class="LineNr">28176 </span> (<a href='mu.subx.html#L28305'>addr-handle-array-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L28177" class="LineNr">28177 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L28178" class="LineNr">28178 </span> (<a href='mu.subx.html#L33446'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L28179" class="LineNr">28179 </span> (<a href='mu.subx.html#L33446'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L28180" class="LineNr">28180 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L28181" class="LineNr">28181 </span><span class="Constant">$translate-mu-populate-stmt:end</span>: +<span id="L28182" class="LineNr">28182 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28183" class="LineNr">28183 </span> 5f/pop-to-edi +<span id="L28184" class="LineNr">28184 </span> 5e/pop-to-esi +<span id="L28185" class="LineNr">28185 </span> 59/pop-to-ecx +<span id="L28186" class="LineNr">28186 </span> 58/pop-to-eax +<span id="L28187" class="LineNr">28187 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28188" class="LineNr">28188 </span> 89/<- %esp 5/r32/ebp +<span id="L28189" class="LineNr">28189 </span> 5d/pop-to-ebp +<span id="L28190" class="LineNr">28190 </span> c3/return +<span id="L28191" class="LineNr">28191 </span> +<span id="L28192" class="LineNr">28192 </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="L28193" class="LineNr">28193 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28194" class="LineNr">28194 </span> 55/push-ebp +<span id="L28195" class="LineNr">28195 </span> 89/<- %ebp 4/r32/esp +<span id="L28196" class="LineNr">28196 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28197" class="LineNr">28197 </span> 50/push-eax +<span id="L28198" class="LineNr">28198 </span> 51/push-ecx +<span id="L28199" class="LineNr">28199 </span> 56/push-esi +<span id="L28200" class="LineNr">28200 </span> 57/push-edi +<span id="L28201" class="LineNr">28201 </span> <span class="subxComment"># esi = stmt</span> +<span id="L28202" class="LineNr">28202 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L28203" class="LineNr">28203 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L28204" class="LineNr">28204 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L28205" class="LineNr">28205 </span> 89/<- %edi 0/r32/eax +<span id="L28206" class="LineNr">28206 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L28207" class="LineNr">28207 </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="L28208" class="LineNr">28208 </span> 89/<- %ecx 0/r32/eax +<span id="L28209" class="LineNr">28209 </span> <span class="subxComment">#</span> +<span id="L28210" class="LineNr">28210 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L28211" class="LineNr">28211 </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="L28212" class="LineNr">28212 </span> (<a href='mu.subx.html#L28348'>addr-handle-stream-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L28213" class="LineNr">28213 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L28214" class="LineNr">28214 </span> (<a href='mu.subx.html#L33446'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L28215" class="LineNr">28215 </span> (<a href='mu.subx.html#L33446'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L28216" class="LineNr">28216 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L28217" class="LineNr">28217 </span><span class="Constant">$translate-mu-populate-stream-stmt:end</span>: +<span id="L28218" class="LineNr">28218 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28219" class="LineNr">28219 </span> 5f/pop-to-edi +<span id="L28220" class="LineNr">28220 </span> 5e/pop-to-esi +<span id="L28221" class="LineNr">28221 </span> 59/pop-to-ecx +<span id="L28222" class="LineNr">28222 </span> 58/pop-to-eax +<span id="L28223" class="LineNr">28223 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28224" class="LineNr">28224 </span> 89/<- %esp 5/r32/ebp +<span id="L28225" class="LineNr">28225 </span> 5d/pop-to-ebp +<span id="L28226" class="LineNr">28226 </span> c3/return +<span id="L28227" class="LineNr">28227 </span> +<span id="L28228" class="LineNr">28228 </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="L28229" class="LineNr">28229 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28230" class="LineNr">28230 </span> 55/push-ebp +<span id="L28231" class="LineNr">28231 </span> 89/<- %ebp 4/r32/esp +<span id="L28232" class="LineNr">28232 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28233" class="LineNr">28233 </span> 50/push-eax +<span id="L28234" class="LineNr">28234 </span> 51/push-ecx +<span id="L28235" class="LineNr">28235 </span> 56/push-esi +<span id="L28236" class="LineNr">28236 </span> 57/push-edi +<span id="L28237" class="LineNr">28237 </span> <span class="subxComment"># esi = stmt</span> +<span id="L28238" class="LineNr">28238 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L28239" class="LineNr">28239 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L28240" class="LineNr">28240 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L28241" class="LineNr">28241 </span> 89/<- %ecx 0/r32/eax +<span id="L28242" class="LineNr">28242 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L28243" class="LineNr">28243 </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="L28244" class="LineNr">28244 </span> 89/<- %edi 0/r32/eax +<span id="L28245" class="LineNr">28245 </span> <span class="subxComment">#</span> +<span id="L28246" class="LineNr">28246 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L28247" class="LineNr">28247 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(read-from-stream"</span>) +<span id="L28248" class="LineNr">28248 </span> (<a href='mu.subx.html#L33446'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L28249" class="LineNr">28249 </span> (<a href='mu.subx.html#L33446'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L28250" class="LineNr">28250 </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="L28251" class="LineNr">28251 </span> (<a href='mu.subx.html#L28126'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L28252" class="LineNr">28252 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L28253" class="LineNr">28253 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L28254" class="LineNr">28254 </span><span class="Constant">$translate-mu-read-from-stream-stmt:end</span>: +<span id="L28255" class="LineNr">28255 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28256" class="LineNr">28256 </span> 5f/pop-to-edi +<span id="L28257" class="LineNr">28257 </span> 5e/pop-to-esi +<span id="L28258" class="LineNr">28258 </span> 59/pop-to-ecx +<span id="L28259" class="LineNr">28259 </span> 58/pop-to-eax +<span id="L28260" class="LineNr">28260 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28261" class="LineNr">28261 </span> 89/<- %esp 5/r32/ebp +<span id="L28262" class="LineNr">28262 </span> 5d/pop-to-ebp +<span id="L28263" class="LineNr">28263 </span> c3/return +<span id="L28264" class="LineNr">28264 </span> +<span id="L28265" class="LineNr">28265 </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="L28266" class="LineNr">28266 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28267" class="LineNr">28267 </span> 55/push-ebp +<span id="L28268" class="LineNr">28268 </span> 89/<- %ebp 4/r32/esp +<span id="L28269" class="LineNr">28269 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28270" class="LineNr">28270 </span> 50/push-eax +<span id="L28271" class="LineNr">28271 </span> 51/push-ecx +<span id="L28272" class="LineNr">28272 </span> 56/push-esi +<span id="L28273" class="LineNr">28273 </span> 57/push-edi +<span id="L28274" class="LineNr">28274 </span> <span class="subxComment"># esi = stmt</span> +<span id="L28275" class="LineNr">28275 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L28276" class="LineNr">28276 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L28277" class="LineNr">28277 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L28278" class="LineNr">28278 </span> 89/<- %ecx 0/r32/eax +<span id="L28279" class="LineNr">28279 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L28280" class="LineNr">28280 </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="L28281" class="LineNr">28281 </span> 89/<- %edi 0/r32/eax +<span id="L28282" class="LineNr">28282 </span> <span class="subxComment">#</span> +<span id="L28283" class="LineNr">28283 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L28284" class="LineNr">28284 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(write-to-stream"</span>) +<span id="L28285" class="LineNr">28285 </span> (<a href='mu.subx.html#L33446'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L28286" class="LineNr">28286 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L28287" class="LineNr">28287 </span> (<a href='mu.subx.html#L33446'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L28288" class="LineNr">28288 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L28289" class="LineNr">28289 </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="L28290" class="LineNr">28290 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L28291" class="LineNr">28291 </span> (<a href='mu.subx.html#L28126'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L28292" class="LineNr">28292 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L28293" class="LineNr">28293 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L28294" class="LineNr">28294 </span><span class="Constant">$translate-mu-write-to-stream-stmt:end</span>: +<span id="L28295" class="LineNr">28295 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28296" class="LineNr">28296 </span> 5f/pop-to-edi +<span id="L28297" class="LineNr">28297 </span> 5e/pop-to-esi +<span id="L28298" class="LineNr">28298 </span> 59/pop-to-ecx +<span id="L28299" class="LineNr">28299 </span> 58/pop-to-eax +<span id="L28300" class="LineNr">28300 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28301" class="LineNr">28301 </span> 89/<- %esp 5/r32/ebp +<span id="L28302" class="LineNr">28302 </span> 5d/pop-to-ebp +<span id="L28303" class="LineNr">28303 </span> c3/return +<span id="L28304" class="LineNr">28304 </span> +<span id="L28305" class="LineNr">28305 </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="L28306" class="LineNr">28306 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28307" class="LineNr">28307 </span> 55/push-ebp +<span id="L28308" class="LineNr">28308 </span> 89/<- %ebp 4/r32/esp +<span id="L28309" class="LineNr">28309 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L28310" class="LineNr">28310 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28311" class="LineNr">28311 </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="L28312" class="LineNr">28312 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28313" class="LineNr">28313 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L28314" class="LineNr">28314 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L28315" class="LineNr">28315 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L28316" class="LineNr">28316 </span> <span class="subxComment"># t = t->right</span> +<span id="L28317" class="LineNr">28317 </span><span class="Constant">$addr-handle-array-payload-size:skip-addr</span>: +<span id="L28318" class="LineNr">28318 </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="L28319" class="LineNr">28319 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L28320" class="LineNr">28320 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L28321" class="LineNr">28321 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L28322" class="LineNr">28322 </span> <span class="subxComment"># t = t->right</span> +<span id="L28323" class="LineNr">28323 </span><span class="Constant">$addr-handle-array-payload-size:skip-handle</span>: +<span id="L28324" class="LineNr">28324 </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="L28325" class="LineNr">28325 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L28326" class="LineNr">28326 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L28327" class="LineNr">28327 </span> <span class="subxComment"># TODO: check t->left == array</span> +<span id="L28328" class="LineNr">28328 </span> <span class="subxComment"># t = t->right</span> +<span id="L28329" class="LineNr">28329 </span><span class="Constant">$addr-handle-array-payload-size:skip-array</span>: +<span id="L28330" class="LineNr">28330 </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="L28331" class="LineNr">28331 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L28332" class="LineNr">28332 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L28333" class="LineNr">28333 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L28334" class="LineNr">28334 </span> { +<span id="L28335" class="LineNr">28335 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28336" class="LineNr">28336 </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="L28337" class="LineNr">28337 </span> } +<span id="L28338" class="LineNr">28338 </span><span class="Constant">$addr-handle-array-payload-size:compute-size</span>: +<span id="L28339" class="LineNr">28339 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L28340" class="LineNr">28340 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L28341" class="LineNr">28341 </span> (<a href='mu.subx.html#L27402'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L28342" class="LineNr">28342 </span><span class="Constant">$addr-handle-array-payload-size:end</span>: +<span id="L28343" class="LineNr">28343 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28344" class="LineNr">28344 </span> 89/<- %esp 5/r32/ebp +<span id="L28345" class="LineNr">28345 </span> 5d/pop-to-ebp +<span id="L28346" class="LineNr">28346 </span> c3/return +<span id="L28347" class="LineNr">28347 </span> +<span id="L28348" class="LineNr">28348 </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="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="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L28353" class="LineNr">28353 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28354" class="LineNr">28354 </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="L28355" class="LineNr">28355 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28356" class="LineNr">28356 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L28357" class="LineNr">28357 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L28358" class="LineNr">28358 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L28359" class="LineNr">28359 </span> <span class="subxComment"># t = t->right</span> +<span id="L28360" class="LineNr">28360 </span><span class="Constant">$addr-handle-stream-payload-size:skip-addr</span>: +<span id="L28361" class="LineNr">28361 </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="L28362" class="LineNr">28362 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L28363" class="LineNr">28363 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L28364" class="LineNr">28364 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L28365" class="LineNr">28365 </span> <span class="subxComment"># t = t->right</span> +<span id="L28366" class="LineNr">28366 </span><span class="Constant">$addr-handle-stream-payload-size:skip-handle</span>: +<span id="L28367" class="LineNr">28367 </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="L28368" class="LineNr">28368 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L28369" class="LineNr">28369 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L28370" class="LineNr">28370 </span> <span class="subxComment"># TODO: check t->left == stream</span> +<span id="L28371" class="LineNr">28371 </span> <span class="subxComment"># t = t->right</span> +<span id="L28372" class="LineNr">28372 </span><span class="Constant">$addr-handle-stream-payload-size:skip-stream</span>: +<span id="L28373" class="LineNr">28373 </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="L28374" class="LineNr">28374 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L28375" class="LineNr">28375 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L28376" class="LineNr">28376 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L28377" class="LineNr">28377 </span> { +<span id="L28378" class="LineNr">28378 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28379" class="LineNr">28379 </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="L28380" class="LineNr">28380 </span> } +<span id="L28381" class="LineNr">28381 </span><span class="Constant">$addr-handle-stream-payload-size:compute-size</span>: +<span id="L28382" class="LineNr">28382 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L28383" class="LineNr">28383 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L28384" class="LineNr">28384 </span> (<a href='mu.subx.html#L27402'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L28385" class="LineNr">28385 </span><span class="Constant">$addr-handle-stream-payload-size:end</span>: +<span id="L28386" class="LineNr">28386 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28387" class="LineNr">28387 </span> 89/<- %esp 5/r32/ebp +<span id="L28388" class="LineNr">28388 </span> 5d/pop-to-ebp +<span id="L28389" class="LineNr">28389 </span> c3/return +<span id="L28390" class="LineNr">28390 </span> +<span id="L28391" class="LineNr">28391 </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="L28392" class="LineNr">28392 </span> <span class="subxComment"># precondition: n is positive</span> +<span id="L28393" class="LineNr">28393 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28394" class="LineNr">28394 </span> 55/push-ebp +<span id="L28395" class="LineNr">28395 </span> 89/<- %ebp 4/r32/esp +<span id="L28396" class="LineNr">28396 </span> <span class="subxComment"># eax = n</span> +<span id="L28397" class="LineNr">28397 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28398" class="LineNr">28398 </span> <span class="subxComment"># if (n < 0) abort</span> +<span id="L28399" class="LineNr">28399 </span> 3d/compare-eax-with 0/imm32 +<span id="L28400" class="LineNr">28400 </span> 0f 8c/jump-if-< $power-of-2?:abort/disp32 +<span id="L28401" class="LineNr">28401 </span> <span class="subxComment"># var tmp/eax: int = n-1</span> +<span id="L28402" class="LineNr">28402 </span> 48/decrement-eax +<span id="L28403" class="LineNr">28403 </span> <span class="subxComment"># var tmp2/eax: int = n & tmp</span> +<span id="L28404" class="LineNr">28404 </span> 23/and-> *(ebp+8) 0/r32/eax +<span id="L28405" class="LineNr">28405 </span> <span class="subxComment"># return (tmp2 == 0)</span> +<span id="L28406" class="LineNr">28406 </span> 3d/compare-eax-and 0/imm32 +<span id="L28407" class="LineNr">28407 </span> 0f 94/set-byte-if-= %al +<span id="L28408" class="LineNr">28408 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L28409" class="LineNr">28409 </span><span class="Constant">$power-of-2?:end</span>: +<span id="L28410" class="LineNr">28410 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28411" class="LineNr">28411 </span> 89/<- %esp 5/r32/ebp +<span id="L28412" class="LineNr">28412 </span> 5d/pop-to-ebp +<span id="L28413" class="LineNr">28413 </span> c3/return +<span id="L28414" class="LineNr">28414 </span> +<span id="L28415" class="LineNr">28415 </span><span class="Constant">$power-of-2?:abort</span>: +<span id="L28416" class="LineNr">28416 </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="L28417" class="LineNr">28417 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L28418" class="LineNr">28418 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L28419" class="LineNr">28419 </span> <span class="subxComment"># never gets here</span> +<span id="L28420" class="LineNr">28420 </span> +<span id="L28421" class="LineNr">28421 </span><span class="subxFunction">num-shift-rights</span>: <span class="subxComment"># n: int -> result/eax: int</span> +<span id="L28422" class="LineNr">28422 </span> <span class="subxComment"># precondition: n is a positive power of 2</span> +<span id="L28423" class="LineNr">28423 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28424" class="LineNr">28424 </span> 55/push-ebp +<span id="L28425" class="LineNr">28425 </span> 89/<- %ebp 4/r32/esp +<span id="L28426" class="LineNr">28426 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28427" class="LineNr">28427 </span> 51/push-ecx +<span id="L28428" class="LineNr">28428 </span> <span class="subxComment"># var curr/ecx: int = n</span> +<span id="L28429" class="LineNr">28429 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28430" class="LineNr">28430 </span> <span class="subxComment"># result = 0</span> +<span id="L28431" class="LineNr">28431 </span> b8/copy-to-eax 0/imm32 +<span id="L28432" class="LineNr">28432 </span> { +<span id="L28433" class="LineNr">28433 </span> <span class="subxComment"># if (curr <= 1) break</span> +<span id="L28434" class="LineNr">28434 </span> 81 7/subop/compare %ecx 1/imm32 +<span id="L28435" class="LineNr">28435 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L28436" class="LineNr">28436 </span> 40/increment-eax +<span id="L28437" class="LineNr">28437 </span> c1/shift 5/subop/arithmetic-right %ecx 1/imm8 +<span id="L28438" class="LineNr">28438 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28439" class="LineNr">28439 </span> } +<span id="L28440" class="LineNr">28440 </span><span class="Constant">$num-shift-rights:end</span>: +<span id="L28441" class="LineNr">28441 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28442" class="LineNr">28442 </span> 59/pop-to-ecx +<span id="L28443" class="LineNr">28443 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28444" class="LineNr">28444 </span> 89/<- %esp 5/r32/ebp +<span id="L28445" class="LineNr">28445 </span> 5d/pop-to-ebp +<span id="L28446" class="LineNr">28446 </span> c3/return +<span id="L28447" class="LineNr">28447 </span> +<span id="L28448" class="LineNr">28448 </span><span class="subxFunction">mu-get-offset</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: int</span> +<span id="L28449" class="LineNr">28449 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28450" class="LineNr">28450 </span> 55/push-ebp +<span id="L28451" class="LineNr">28451 </span> 89/<- %ebp 4/r32/esp +<span id="L28452" class="LineNr">28452 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts->next</span> +<span id="L28453" class="LineNr">28453 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28454" class="LineNr">28454 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L28455" class="LineNr">28455 </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="L28456" class="LineNr">28456 </span> <span class="subxComment"># var output-var/eax: (addr var) = second-inout->value</span> +<span id="L28457" class="LineNr">28457 </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="L28458" class="LineNr">28458 </span><span class="CommentedCode">#? (write-buffered Stderr "mu-get-offset: ")</span> +<span id="L28459" class="LineNr">28459 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L28460" class="LineNr">28460 </span><span class="CommentedCode">#? (write-buffered Stderr " name: ")</span> +<span id="L28461" class="LineNr">28461 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L28462" class="LineNr">28462 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> +<span id="L28463" class="LineNr">28463 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L28464" class="LineNr">28464 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L28465" class="LineNr">28465 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L28466" class="LineNr">28466 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L28467" class="LineNr">28467 </span> <span class="subxComment"># return output-var->stack-offset</span> +<span id="L28468" class="LineNr">28468 </span> 8b/-> *(eax+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L28469" class="LineNr">28469 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> +<span id="L28470" class="LineNr">28470 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L28471" class="LineNr">28471 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L28472" class="LineNr">28472 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L28473" class="LineNr">28473 </span><span class="Constant">$emit-get-offset:end</span>: +<span id="L28474" class="LineNr">28474 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28475" class="LineNr">28475 </span> 89/<- %esp 5/r32/ebp +<span id="L28476" class="LineNr">28476 </span> 5d/pop-to-ebp +<span id="L28477" class="LineNr">28477 </span> c3/return +<span id="L28478" class="LineNr">28478 </span> +<span id="L28479" class="LineNr">28479 </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="L28480" class="LineNr">28480 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28481" class="LineNr">28481 </span> 55/push-ebp +<span id="L28482" class="LineNr">28482 </span> 89/<- %ebp 4/r32/esp +<span id="L28483" class="LineNr">28483 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28484" class="LineNr">28484 </span> 50/push-eax +<span id="L28485" class="LineNr">28485 </span> 51/push-ecx +<span id="L28486" class="LineNr">28486 </span> 56/push-esi +<span id="L28487" class="LineNr">28487 </span> <span class="subxComment"># esi = block</span> +<span id="L28488" class="LineNr">28488 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L28489" class="LineNr">28489 </span> <span class="subxComment"># block->var->block-depth = *Curr-block-depth</span> +<span id="L28490" class="LineNr">28490 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> +<span id="L28491" class="LineNr">28491 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 1/r32/ecx +<span id="L28492" class="LineNr">28492 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> +<span id="L28493" class="LineNr">28493 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> +<span id="L28494" class="LineNr">28494 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L28495" class="LineNr">28495 </span> <span class="subxComment">#</span> +<span id="L28496" class="LineNr">28496 </span> { +<span id="L28497" class="LineNr">28497 </span><span class="Constant">$emit-subx-block:check-empty</span>: +<span id="L28498" class="LineNr">28498 </span> 3d/compare-eax-and 0/imm32 +<span id="L28499" class="LineNr">28499 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28500" class="LineNr">28500 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L28501" class="LineNr">28501 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"{\n"</span>) +<span id="L28502" class="LineNr">28502 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(block->var)</span> +<span id="L28503" class="LineNr">28503 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> +<span id="L28504" class="LineNr">28504 </span> 89/<- %ecx 0/r32/eax +<span id="L28505" class="LineNr">28505 </span> <span class="subxComment">#</span> +<span id="L28506" class="LineNr">28506 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L28507" class="LineNr">28507 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L28508" class="LineNr">28508 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop:\n"</span>) +<span id="L28509" class="LineNr">28509 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> +<span id="L28510" class="LineNr">28510 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0xc)) <span class="subxComment"># Block-var</span> +<span id="L28511" class="LineNr">28511 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0x10)) <span class="subxComment"># Block-var</span> +<span id="L28512" class="LineNr">28512 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L28513" class="LineNr">28513 </span> <span class="subxComment"># emit block->statements</span> +<span id="L28514" class="LineNr">28514 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L28515" class="LineNr">28515 </span> (<a href='mu.subx.html#L25556'>emit-subx-stmt-list</a> *(ebp+8) %eax *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28516" class="LineNr">28516 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L28517" class="LineNr">28517 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L28518" class="LineNr">28518 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L28519" class="LineNr">28519 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> +<span id="L28520" class="LineNr">28520 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L28521" class="LineNr">28521 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"}\n"</span>) +<span id="L28522" class="LineNr">28522 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L28523" class="LineNr">28523 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L28524" class="LineNr">28524 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break:\n"</span>) +<span id="L28525" class="LineNr">28525 </span> } +<span id="L28526" class="LineNr">28526 </span><span class="Constant">$emit-subx-block:end</span>: +<span id="L28527" class="LineNr">28527 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28528" class="LineNr">28528 </span> 5e/pop-to-esi +<span id="L28529" class="LineNr">28529 </span> 59/pop-to-ecx +<span id="L28530" class="LineNr">28530 </span> 58/pop-to-eax +<span id="L28531" class="LineNr">28531 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28532" class="LineNr">28532 </span> 89/<- %esp 5/r32/ebp +<span id="L28533" class="LineNr">28533 </span> 5d/pop-to-ebp +<span id="L28534" class="LineNr">28534 </span> c3/return +<span id="L28535" class="LineNr">28535 </span> +<span id="L28536" class="LineNr">28536 </span><span class="subxComment"># Primitives supported</span> +<span id="L28537" class="LineNr">28537 </span><span class="subxComment"># See mu_instructions for a summary of this linked-list data structure.</span> +<span id="L28538" class="LineNr">28538 </span><span class="subxComment">#</span> +<span id="L28539" class="LineNr">28539 </span><span class="subxComment"># For each operation, put variants with hard-coded registers before flexible ones.</span> +<span id="L28540" class="LineNr">28540 </span><span class="subxComment">#</span> +<span id="L28541" class="LineNr">28541 </span><span class="subxComment"># Unfortunately, our restrictions on addresses require that various fields in</span> +<span id="L28542" class="LineNr">28542 </span><span class="subxComment"># primitives be handles, which complicates these definitions.</span> +<span id="L28543" class="LineNr">28543 </span><span class="subxComment"># - we need to insert dummy fields all over the place for fake alloc-ids</span> +<span id="L28544" class="LineNr">28544 </span><span class="subxComment"># - we can't use our syntax sugar of quoted literals for string fields</span> +<span id="L28545" class="LineNr">28545 </span><span class="subxComment">#</span> +<span id="L28546" class="LineNr">28546 </span><span class="subxComment"># Fake alloc-ids are needed because our type definitions up top require</span> +<span id="L28547" class="LineNr">28547 </span><span class="subxComment"># handles but it's clearer to statically allocate these long-lived objects.</span> +<span id="L28548" class="LineNr">28548 </span><span class="subxComment"># Fake alloc-ids are perfectly safe, but they can't be reclaimed.</span> +<span id="L28549" class="LineNr">28549 </span><span class="subxComment">#</span> +<span id="L28550" class="LineNr">28550 </span><span class="subxComment"># Every 'object' below starts with a fake alloc-id. It may also contain other</span> +<span id="L28551" class="LineNr">28551 </span><span class="subxComment"># fake alloc-ids for various handle fields.</span> +<span id="L28552" class="LineNr">28552 </span><span class="subxComment">#</span> +<span id="L28553" class="LineNr">28553 </span><span class="subxComment"># I think of objects starting with a fake alloc-id as having type 'payload'.</span> +<span id="L28554" class="LineNr">28554 </span><span class="subxComment"># It's not really intended to be created dynamically; for that use `allocate`</span> +<span id="L28555" class="LineNr">28555 </span><span class="subxComment"># as usual.</span> +<span id="L28556" class="LineNr">28556 </span><span class="subxComment">#</span> +<span id="L28557" class="LineNr">28557 </span><span class="subxComment"># Idea for a notation to simplify such definitions:</span> +<span id="L28558" class="LineNr">28558 </span><span class="subxComment"># _Primitive-increment-eax: # (payload primitive)</span> +<span id="L28559" class="LineNr">28559 </span><span class="subxComment"># 0x11/alloc-id:fake:payload</span> +<span id="L28560" class="LineNr">28560 </span><span class="subxComment"># 0x11 @(0x11 "increment") # name</span> +<span id="L28561" class="LineNr">28561 </span><span class="subxComment"># 0 0 # inouts</span> +<span id="L28562" class="LineNr">28562 </span><span class="subxComment"># 0x11 @(0x11/payload</span> +<span id="L28563" class="LineNr">28563 </span><span class="subxComment"># 0x11 @(0x11/payload # List-value</span> +<span id="L28564" class="LineNr">28564 </span><span class="subxComment"># 0 0 # Var-name</span> +<span id="L28565" class="LineNr">28565 </span><span class="subxComment"># 0x11 @(0x11 # Var-type</span> +<span id="L28566" class="LineNr">28566 </span><span class="subxComment"># 1/is-atom</span> +<span id="L28567" class="LineNr">28567 </span><span class="subxComment"># 1/value 0/unused # Type-tree-left</span> +<span id="L28568" class="LineNr">28568 </span><span class="subxComment"># 0 0 # Type-tree-right</span> +<span id="L28569" class="LineNr">28569 </span><span class="subxComment"># )</span> +<span id="L28570" class="LineNr">28570 </span><span class="subxComment"># 1 # block-depth</span> +<span id="L28571" class="LineNr">28571 </span><span class="subxComment"># 0 # stack-offset</span> +<span id="L28572" class="LineNr">28572 </span><span class="subxComment"># 0x11 @(0x11 "eax") # Var-register</span> +<span id="L28573" class="LineNr">28573 </span><span class="subxComment"># )</span> +<span id="L28574" class="LineNr">28574 </span><span class="subxComment"># 0 0) # List-next</span> +<span id="L28575" class="LineNr">28575 </span><span class="subxComment"># ...</span> +<span id="L28576" class="LineNr">28576 </span><span class="subxComment"># _Primitive-increment-ecx/imm32/next</span> +<span id="L28577" class="LineNr">28577 </span><span class="subxComment"># ...</span> +<span id="L28578" class="LineNr">28578 </span><span class="subxComment"># Awfully complex and non-obvious. But also clearly signals there's something</span> +<span id="L28579" class="LineNr">28579 </span><span class="subxComment"># to learn here, so may be worth trying.</span> +<span id="L28580" class="LineNr">28580 </span><span class="subxComment">#</span> +<span id="L28581" class="LineNr">28581 </span><span class="subxComment"># '@' is just an initial thought. Punctuation used so far in Mu: () * % # / "</span> +<span id="L28582" class="LineNr">28582 </span><span class="subxComment">#</span> +<span id="L28583" class="LineNr">28583 </span><span class="subxComment"># For now we'll continue to just use comments and manually ensure they stay up</span> +<span id="L28584" class="LineNr">28584 </span><span class="subxComment"># to date.</span> +<span id="L28585" class="LineNr">28585 </span>== data +<span id="L28586" class="LineNr">28586 </span><span class="SpecialChar">Primitives</span>: <span class="subxComment"># (addr primitive)</span> +<span id="L28587" class="LineNr">28587 </span><span class="subxH1Comment"># - increment/decrement</span> +<span id="L28588" class="LineNr">28588 </span><span class="subxMinorFunction">_Primitive-increment-eax</span>: <span class="subxComment"># (addr primitive)</span> +<span id="L28589" class="LineNr">28589 </span> <span class="subxComment"># var/eax <- increment => 40/increment-eax</span> +<span id="L28590" class="LineNr">28590 </span> 0x11/imm32/alloc-id:fake +<span id="L28591" class="LineNr">28591 </span> <a href='mu.subx.html#L32068'>_string-increment</a>/imm32/name +<span id="L28592" class="LineNr">28592 </span> 0/imm32/no-inouts +<span id="L28593" class="LineNr">28593 </span> 0/imm32/no-inouts +<span id="L28594" class="LineNr">28594 </span> 0x11/imm32/alloc-id:fake +<span id="L28595" class="LineNr">28595 </span> <span class="SpecialChar"><a href='mu.subx.html#L32935'>Single-int-var-in-eax</a></span>/imm32/outputs <span id="L28596" class="LineNr">28596 </span> 0x11/imm32/alloc-id:fake -<span id="L28597" class="LineNr">28597 </span> <a href='mu.subx.html#L31316'>_string-and</a>/imm32/name -<span id="L28598" class="LineNr">28598 </span> 0x11/imm32/alloc-id:fake -<span id="L28599" class="LineNr">28599 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L28600" class="LineNr">28600 </span> 0x11/imm32/alloc-id:fake -<span id="L28601" class="LineNr">28601 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28602" class="LineNr">28602 </span> 0x11/imm32/alloc-id:fake -<span id="L28603" class="LineNr">28603 </span> <a href='mu.subx.html#L32003'>_string_81_subop_and</a>/imm32/subx-name -<span id="L28604" class="LineNr">28604 </span> 3/imm32/rm32-is-first-output -<span id="L28605" class="LineNr">28605 </span> 0/imm32/no-r32 -<span id="L28606" class="LineNr">28606 </span> 1/imm32/imm32-is-first-inout -<span id="L28607" class="LineNr">28607 </span> 0/imm32/no-imm8 -<span id="L28608" class="LineNr">28608 </span> 0/imm32/no-disp32 -<span id="L28609" class="LineNr">28609 </span> 0/imm32/no-xm32 -<span id="L28610" class="LineNr">28610 </span> 0/imm32/no-x32 -<span id="L28611" class="LineNr">28611 </span> 0x11/imm32/alloc-id:fake -<span id="L28612" class="LineNr">28612 </span> <a href='mu.subx.html#L28613'>_Primitive-and-lit-with-mem</a>/imm32/next -<span id="L28613" class="LineNr">28613 </span><span class="subxMinorFunction">_Primitive-and-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28614" class="LineNr">28614 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28615" class="LineNr">28615 </span> <span class="subxComment"># and-with var1, lit => 81 4/subop/and var1/rm32 lit/imm32</span> +<span id="L28597" class="LineNr">28597 </span> <a href='mu.subx.html#L32570'>_string_40_increment_eax</a>/imm32/subx-name +<span id="L28598" class="LineNr">28598 </span> 0/imm32/no-rm32 +<span id="L28599" class="LineNr">28599 </span> 0/imm32/no-r32 +<span id="L28600" class="LineNr">28600 </span> 0/imm32/no-imm32 +<span id="L28601" class="LineNr">28601 </span> 0/imm32/no-imm8 +<span id="L28602" class="LineNr">28602 </span> 0/imm32/no-disp32 +<span id="L28603" class="LineNr">28603 </span> 0/imm32/no-xm32 +<span id="L28604" class="LineNr">28604 </span> 0/imm32/no-x32 +<span id="L28605" class="LineNr">28605 </span> 0x11/imm32/alloc-id:fake +<span id="L28606" class="LineNr">28606 </span> <a href='mu.subx.html#L28607'>_Primitive-increment-ecx</a>/imm32/next +<span id="L28607" class="LineNr">28607 </span><span class="subxMinorFunction">_Primitive-increment-ecx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28608" class="LineNr">28608 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28609" class="LineNr">28609 </span> <span class="subxComment"># var/ecx <- increment => 41/increment-ecx</span> +<span id="L28610" class="LineNr">28610 </span> 0x11/imm32/alloc-id:fake +<span id="L28611" class="LineNr">28611 </span> <a href='mu.subx.html#L32068'>_string-increment</a>/imm32/name +<span id="L28612" class="LineNr">28612 </span> 0/imm32/no-inouts +<span id="L28613" class="LineNr">28613 </span> 0/imm32/no-inouts +<span id="L28614" class="LineNr">28614 </span> 0x11/imm32/alloc-id:fake +<span id="L28615" class="LineNr">28615 </span> <span class="SpecialChar"><a href='mu.subx.html#L32953'>Single-int-var-in-ecx</a></span>/imm32/outputs <span id="L28616" class="LineNr">28616 </span> 0x11/imm32/alloc-id:fake -<span id="L28617" class="LineNr">28617 </span> <a href='mu.subx.html#L31321'>_string-and-with</a>/imm32/name -<span id="L28618" class="LineNr">28618 </span> 0x11/imm32/alloc-id:fake -<span id="L28619" class="LineNr">28619 </span> <span class="SpecialChar"><a href='mu.subx.html#L32203'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L28620" class="LineNr">28620 </span> 0/imm32/no-outputs -<span id="L28621" class="LineNr">28621 </span> 0/imm32/no-outputs -<span id="L28622" class="LineNr">28622 </span> 0x11/imm32/alloc-id:fake -<span id="L28623" class="LineNr">28623 </span> <a href='mu.subx.html#L32003'>_string_81_subop_and</a>/imm32/subx-name -<span id="L28624" class="LineNr">28624 </span> 1/imm32/rm32-is-first-inout -<span id="L28625" class="LineNr">28625 </span> 0/imm32/no-r32 -<span id="L28626" class="LineNr">28626 </span> 2/imm32/imm32-is-second-inout -<span id="L28627" class="LineNr">28627 </span> 0/imm32/no-imm8 -<span id="L28628" class="LineNr">28628 </span> 0/imm32/no-disp32 -<span id="L28629" class="LineNr">28629 </span> 0/imm32/no-xm32 -<span id="L28630" class="LineNr">28630 </span> 0/imm32/no-x32 -<span id="L28631" class="LineNr">28631 </span> 0x11/imm32/alloc-id:fake -<span id="L28632" class="LineNr">28632 </span> <a href='mu.subx.html#L28634'>_Primitive-or-with-eax</a>/imm32/next -<span id="L28633" class="LineNr">28633 </span><span class="subxH1Comment"># - or</span> -<span id="L28634" class="LineNr">28634 </span><span class="subxMinorFunction">_Primitive-or-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28635" class="LineNr">28635 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28636" class="LineNr">28636 </span> <span class="subxComment"># var/eax <- or lit => 0d/or-with-eax lit/imm32</span> -<span id="L28637" class="LineNr">28637 </span> 0x11/imm32/alloc-id:fake -<span id="L28638" class="LineNr">28638 </span> <a href='mu.subx.html#L31566'>_string-or</a>/imm32/name -<span id="L28639" class="LineNr">28639 </span> 0x11/imm32/alloc-id:fake -<span id="L28640" class="LineNr">28640 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L28641" class="LineNr">28641 </span> 0x11/imm32/alloc-id:fake -<span id="L28642" class="LineNr">28642 </span> <span class="SpecialChar"><a href='mu.subx.html#L32298'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L28643" class="LineNr">28643 </span> 0x11/imm32/alloc-id:fake -<span id="L28644" class="LineNr">28644 </span> <a href='mu.subx.html#L31638'>_string_0d_or_with_eax</a>/imm32/subx-name -<span id="L28645" class="LineNr">28645 </span> 0/imm32/no-rm32 -<span id="L28646" class="LineNr">28646 </span> 0/imm32/no-r32 -<span id="L28647" class="LineNr">28647 </span> 1/imm32/imm32-is-first-inout -<span id="L28648" class="LineNr">28648 </span> 0/imm32/no-imm8 -<span id="L28649" class="LineNr">28649 </span> 0/imm32/no-disp32 -<span id="L28650" class="LineNr">28650 </span> 0/imm32/no-xm32 -<span id="L28651" class="LineNr">28651 </span> 0/imm32/no-x32 -<span id="L28652" class="LineNr">28652 </span> 0x11/imm32/alloc-id:fake -<span id="L28653" class="LineNr">28653 </span> <a href='mu.subx.html#L28654'>_Primitive-or-reg-with-reg</a>/imm32/next -<span id="L28654" class="LineNr">28654 </span><span class="subxMinorFunction">_Primitive-or-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28655" class="LineNr">28655 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28656" class="LineNr">28656 </span> <span class="subxComment"># var1/reg <- or var2/reg => 09/or-with var1/rm32 var2/r32</span> -<span id="L28657" class="LineNr">28657 </span> 0x11/imm32/alloc-id:fake -<span id="L28658" class="LineNr">28658 </span> <a href='mu.subx.html#L31566'>_string-or</a>/imm32/name -<span id="L28659" class="LineNr">28659 </span> 0x11/imm32/alloc-id:fake -<span id="L28660" class="LineNr">28660 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L28661" class="LineNr">28661 </span> 0x11/imm32/alloc-id:fake -<span id="L28662" class="LineNr">28662 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28663" class="LineNr">28663 </span> 0x11/imm32/alloc-id:fake -<span id="L28664" class="LineNr">28664 </span> <a href='mu.subx.html#L31628'>_string_09_or_with</a>/imm32/subx-name -<span id="L28665" class="LineNr">28665 </span> 3/imm32/rm32-is-first-output -<span id="L28666" class="LineNr">28666 </span> 1/imm32/r32-is-first-inout -<span id="L28667" class="LineNr">28667 </span> 0/imm32/no-imm32 -<span id="L28668" class="LineNr">28668 </span> 0/imm32/no-imm8 -<span id="L28669" class="LineNr">28669 </span> 0/imm32/no-disp32 -<span id="L28670" class="LineNr">28670 </span> 0/imm32/no-xm32 -<span id="L28671" class="LineNr">28671 </span> 0/imm32/no-x32 -<span id="L28672" class="LineNr">28672 </span> 0x11/imm32/alloc-id:fake -<span id="L28673" class="LineNr">28673 </span> <a href='mu.subx.html#L28674'>_Primitive-or-reg-with-mem</a>/imm32/next -<span id="L28674" class="LineNr">28674 </span><span class="subxMinorFunction">_Primitive-or-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28675" class="LineNr">28675 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28676" class="LineNr">28676 </span> <span class="subxComment"># or-with var1 var2/reg => 09/or-with var1 var2/r32</span> -<span id="L28677" class="LineNr">28677 </span> 0x11/imm32/alloc-id:fake -<span id="L28678" class="LineNr">28678 </span> <a href='mu.subx.html#L31571'>_string-or-with</a>/imm32/name -<span id="L28679" class="LineNr">28679 </span> 0x11/imm32/alloc-id:fake -<span id="L28680" class="LineNr">28680 </span> <span class="SpecialChar"><a href='mu.subx.html#L32167'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L28681" class="LineNr">28681 </span> 0/imm32/no-outputs -<span id="L28682" class="LineNr">28682 </span> 0/imm32/no-outputs -<span id="L28683" class="LineNr">28683 </span> 0x11/imm32/alloc-id:fake -<span id="L28684" class="LineNr">28684 </span> <a href='mu.subx.html#L31628'>_string_09_or_with</a>/imm32/subx-name -<span id="L28685" class="LineNr">28685 </span> 1/imm32/rm32-is-first-inout -<span id="L28686" class="LineNr">28686 </span> 2/imm32/r32-is-second-inout -<span id="L28687" class="LineNr">28687 </span> 0/imm32/no-imm32 -<span id="L28688" class="LineNr">28688 </span> 0/imm32/no-imm8 -<span id="L28689" class="LineNr">28689 </span> 0/imm32/no-disp32 -<span id="L28690" class="LineNr">28690 </span> 0/imm32/no-xm32 -<span id="L28691" class="LineNr">28691 </span> 0/imm32/no-x32 -<span id="L28692" class="LineNr">28692 </span> 0x11/imm32/alloc-id:fake -<span id="L28693" class="LineNr">28693 </span> <a href='mu.subx.html#L28694'>_Primitive-or-mem-with-reg</a>/imm32/next -<span id="L28694" class="LineNr">28694 </span><span class="subxMinorFunction">_Primitive-or-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28695" class="LineNr">28695 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28696" class="LineNr">28696 </span> <span class="subxComment"># var1/reg <- or var2 => 0b/or var2/rm32 var1/r32</span> -<span id="L28697" class="LineNr">28697 </span> 0x11/imm32/alloc-id:fake -<span id="L28698" class="LineNr">28698 </span> <a href='mu.subx.html#L31566'>_string-or</a>/imm32/name -<span id="L28699" class="LineNr">28699 </span> 0x11/imm32/alloc-id:fake -<span id="L28700" class="LineNr">28700 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L28701" class="LineNr">28701 </span> 0x11/imm32/alloc-id:fake -<span id="L28702" class="LineNr">28702 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28703" class="LineNr">28703 </span> 0x11/imm32/alloc-id:fake -<span id="L28704" class="LineNr">28704 </span> <a href='mu.subx.html#L31633'>_string_0b_or</a>/imm32/subx-name -<span id="L28705" class="LineNr">28705 </span> 1/imm32/rm32-is-first-inout -<span id="L28706" class="LineNr">28706 </span> 3/imm32/r32-is-first-output -<span id="L28707" class="LineNr">28707 </span> 0/imm32/no-imm32 -<span id="L28708" class="LineNr">28708 </span> 0/imm32/no-imm8 -<span id="L28709" class="LineNr">28709 </span> 0/imm32/no-disp32 -<span id="L28710" class="LineNr">28710 </span> 0/imm32/no-xm32 -<span id="L28711" class="LineNr">28711 </span> 0/imm32/no-x32 -<span id="L28712" class="LineNr">28712 </span> 0x11/imm32/alloc-id:fake -<span id="L28713" class="LineNr">28713 </span> <a href='mu.subx.html#L28714'>_Primitive-or-lit-with-reg</a>/imm32/next -<span id="L28714" class="LineNr">28714 </span><span class="subxMinorFunction">_Primitive-or-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28715" class="LineNr">28715 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28716" class="LineNr">28716 </span> <span class="subxComment"># var1/reg <- or lit => 81 1/subop/or var1/rm32 lit/imm32</span> -<span id="L28717" class="LineNr">28717 </span> 0x11/imm32/alloc-id:fake -<span id="L28718" class="LineNr">28718 </span> <a href='mu.subx.html#L31566'>_string-or</a>/imm32/name -<span id="L28719" class="LineNr">28719 </span> 0x11/imm32/alloc-id:fake -<span id="L28720" class="LineNr">28720 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L28721" class="LineNr">28721 </span> 0x11/imm32/alloc-id:fake -<span id="L28722" class="LineNr">28722 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28723" class="LineNr">28723 </span> 0x11/imm32/alloc-id:fake -<span id="L28724" class="LineNr">28724 </span> <a href='mu.subx.html#L31998'>_string_81_subop_or</a>/imm32/subx-name -<span id="L28725" class="LineNr">28725 </span> 3/imm32/rm32-is-first-output -<span id="L28726" class="LineNr">28726 </span> 0/imm32/no-r32 -<span id="L28727" class="LineNr">28727 </span> 1/imm32/imm32-is-first-inout -<span id="L28728" class="LineNr">28728 </span> 0/imm32/no-imm8 -<span id="L28729" class="LineNr">28729 </span> 0/imm32/no-disp32 -<span id="L28730" class="LineNr">28730 </span> 0/imm32/no-xm32 -<span id="L28731" class="LineNr">28731 </span> 0/imm32/no-x32 -<span id="L28732" class="LineNr">28732 </span> 0x11/imm32/alloc-id:fake -<span id="L28733" class="LineNr">28733 </span> <a href='mu.subx.html#L28734'>_Primitive-or-lit-with-mem</a>/imm32/next -<span id="L28734" class="LineNr">28734 </span><span class="subxMinorFunction">_Primitive-or-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28735" class="LineNr">28735 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28736" class="LineNr">28736 </span> <span class="subxComment"># or-with var1, lit => 81 1/subop/or var1/rm32 lit/imm32</span> -<span id="L28737" class="LineNr">28737 </span> 0x11/imm32/alloc-id:fake -<span id="L28738" class="LineNr">28738 </span> <a href='mu.subx.html#L31571'>_string-or-with</a>/imm32/name -<span id="L28739" class="LineNr">28739 </span> 0x11/imm32/alloc-id:fake -<span id="L28740" class="LineNr">28740 </span> <span class="SpecialChar"><a href='mu.subx.html#L32203'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L28741" class="LineNr">28741 </span> 0/imm32/no-outputs -<span id="L28742" class="LineNr">28742 </span> 0/imm32/no-outputs -<span id="L28743" class="LineNr">28743 </span> 0x11/imm32/alloc-id:fake -<span id="L28744" class="LineNr">28744 </span> <a href='mu.subx.html#L31998'>_string_81_subop_or</a>/imm32/subx-name -<span id="L28745" class="LineNr">28745 </span> 1/imm32/rm32-is-first-inout -<span id="L28746" class="LineNr">28746 </span> 0/imm32/no-r32 -<span id="L28747" class="LineNr">28747 </span> 2/imm32/imm32-is-second-inout -<span id="L28748" class="LineNr">28748 </span> 0/imm32/no-imm8 -<span id="L28749" class="LineNr">28749 </span> 0/imm32/no-disp32 -<span id="L28750" class="LineNr">28750 </span> 0/imm32/no-xm32 -<span id="L28751" class="LineNr">28751 </span> 0/imm32/no-x32 -<span id="L28752" class="LineNr">28752 </span> 0x11/imm32/alloc-id:fake -<span id="L28753" class="LineNr">28753 </span> <a href='mu.subx.html#L28755'>_Primitive-xor-with-eax</a>/imm32/next -<span id="L28754" class="LineNr">28754 </span><span class="subxH1Comment"># - xor</span> -<span id="L28755" class="LineNr">28755 </span><span class="subxMinorFunction">_Primitive-xor-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28756" class="LineNr">28756 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28757" class="LineNr">28757 </span> <span class="subxComment"># var/eax <- xor lit => 35/xor-with-eax lit/imm32</span> -<span id="L28758" class="LineNr">28758 </span> 0x11/imm32/alloc-id:fake -<span id="L28759" class="LineNr">28759 </span> <a href='mu.subx.html#L31586'>_string-xor</a>/imm32/name -<span id="L28760" class="LineNr">28760 </span> 0x11/imm32/alloc-id:fake -<span id="L28761" class="LineNr">28761 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L28762" class="LineNr">28762 </span> 0x11/imm32/alloc-id:fake -<span id="L28763" class="LineNr">28763 </span> <span class="SpecialChar"><a href='mu.subx.html#L32298'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L28764" class="LineNr">28764 </span> 0x11/imm32/alloc-id:fake -<span id="L28765" class="LineNr">28765 </span> <a href='mu.subx.html#L31913'>_string_35_xor_with_eax</a>/imm32/subx-name -<span id="L28766" class="LineNr">28766 </span> 0/imm32/no-rm32 -<span id="L28767" class="LineNr">28767 </span> 0/imm32/no-r32 -<span id="L28768" class="LineNr">28768 </span> 1/imm32/imm32-is-first-inout -<span id="L28769" class="LineNr">28769 </span> 0/imm32/no-imm8 -<span id="L28770" class="LineNr">28770 </span> 0/imm32/no-disp32 -<span id="L28771" class="LineNr">28771 </span> 0/imm32/no-xm32 -<span id="L28772" class="LineNr">28772 </span> 0/imm32/no-x32 -<span id="L28773" class="LineNr">28773 </span> 0x11/imm32/alloc-id:fake -<span id="L28774" class="LineNr">28774 </span> <a href='mu.subx.html#L28775'>_Primitive-xor-reg-with-reg</a>/imm32/next -<span id="L28775" class="LineNr">28775 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28776" class="LineNr">28776 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28777" class="LineNr">28777 </span> <span class="subxComment"># var1/reg <- xor var2/reg => 31/xor-with var1/rm32 var2/r32</span> -<span id="L28778" class="LineNr">28778 </span> 0x11/imm32/alloc-id:fake -<span id="L28779" class="LineNr">28779 </span> <a href='mu.subx.html#L31586'>_string-xor</a>/imm32/name -<span id="L28780" class="LineNr">28780 </span> 0x11/imm32/alloc-id:fake -<span id="L28781" class="LineNr">28781 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L28782" class="LineNr">28782 </span> 0x11/imm32/alloc-id:fake -<span id="L28783" class="LineNr">28783 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28784" class="LineNr">28784 </span> 0x11/imm32/alloc-id:fake -<span id="L28785" class="LineNr">28785 </span> <a href='mu.subx.html#L31903'>_string_31_xor_with</a>/imm32/subx-name -<span id="L28786" class="LineNr">28786 </span> 3/imm32/rm32-is-first-output -<span id="L28787" class="LineNr">28787 </span> 1/imm32/r32-is-first-inout -<span id="L28788" class="LineNr">28788 </span> 0/imm32/no-imm32 -<span id="L28789" class="LineNr">28789 </span> 0/imm32/no-imm8 -<span id="L28790" class="LineNr">28790 </span> 0/imm32/no-disp32 -<span id="L28791" class="LineNr">28791 </span> 0/imm32/no-xm32 -<span id="L28792" class="LineNr">28792 </span> 0/imm32/no-x32 -<span id="L28793" class="LineNr">28793 </span> 0x11/imm32/alloc-id:fake -<span id="L28794" class="LineNr">28794 </span> <a href='mu.subx.html#L28795'>_Primitive-xor-reg-with-mem</a>/imm32/next -<span id="L28795" class="LineNr">28795 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28796" class="LineNr">28796 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28797" class="LineNr">28797 </span> <span class="subxComment"># xor-with var1 var2/reg => 31/xor-with var1 var2/r32</span> -<span id="L28798" class="LineNr">28798 </span> 0x11/imm32/alloc-id:fake -<span id="L28799" class="LineNr">28799 </span> <a href='mu.subx.html#L31591'>_string-xor-with</a>/imm32/name -<span id="L28800" class="LineNr">28800 </span> 0x11/imm32/alloc-id:fake -<span id="L28801" class="LineNr">28801 </span> <span class="SpecialChar"><a href='mu.subx.html#L32167'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L28802" class="LineNr">28802 </span> 0/imm32/no-outputs -<span id="L28803" class="LineNr">28803 </span> 0/imm32/no-outputs -<span id="L28804" class="LineNr">28804 </span> 0x11/imm32/alloc-id:fake -<span id="L28805" class="LineNr">28805 </span> <a href='mu.subx.html#L31903'>_string_31_xor_with</a>/imm32/subx-name -<span id="L28806" class="LineNr">28806 </span> 1/imm32/rm32-is-first-inout -<span id="L28807" class="LineNr">28807 </span> 2/imm32/r32-is-second-inout -<span id="L28808" class="LineNr">28808 </span> 0/imm32/no-imm32 -<span id="L28809" class="LineNr">28809 </span> 0/imm32/no-imm8 -<span id="L28810" class="LineNr">28810 </span> 0/imm32/no-disp32 -<span id="L28811" class="LineNr">28811 </span> 0/imm32/no-xm32 -<span id="L28812" class="LineNr">28812 </span> 0/imm32/no-x32 -<span id="L28813" class="LineNr">28813 </span> 0x11/imm32/alloc-id:fake -<span id="L28814" class="LineNr">28814 </span> <a href='mu.subx.html#L28815'>_Primitive-xor-mem-with-reg</a>/imm32/next -<span id="L28815" class="LineNr">28815 </span><span class="subxMinorFunction">_Primitive-xor-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28816" class="LineNr">28816 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28817" class="LineNr">28817 </span> <span class="subxComment"># var1/reg <- xor var2 => 33/xor var2/rm32 var1/r32</span> -<span id="L28818" class="LineNr">28818 </span> 0x11/imm32/alloc-id:fake -<span id="L28819" class="LineNr">28819 </span> <a href='mu.subx.html#L31586'>_string-xor</a>/imm32/name -<span id="L28820" class="LineNr">28820 </span> 0x11/imm32/alloc-id:fake -<span id="L28821" class="LineNr">28821 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L28822" class="LineNr">28822 </span> 0x11/imm32/alloc-id:fake -<span id="L28823" class="LineNr">28823 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28824" class="LineNr">28824 </span> 0x11/imm32/alloc-id:fake -<span id="L28825" class="LineNr">28825 </span> <a href='mu.subx.html#L31908'>_string_33_xor</a>/imm32/subx-name -<span id="L28826" class="LineNr">28826 </span> 1/imm32/rm32-is-first-inout -<span id="L28827" class="LineNr">28827 </span> 3/imm32/r32-is-first-output -<span id="L28828" class="LineNr">28828 </span> 0/imm32/no-imm32 -<span id="L28829" class="LineNr">28829 </span> 0/imm32/no-imm8 -<span id="L28830" class="LineNr">28830 </span> 0/imm32/no-disp32 -<span id="L28831" class="LineNr">28831 </span> 0/imm32/no-xm32 -<span id="L28832" class="LineNr">28832 </span> 0/imm32/no-x32 -<span id="L28833" class="LineNr">28833 </span> 0x11/imm32/alloc-id:fake -<span id="L28834" class="LineNr">28834 </span> <a href='mu.subx.html#L28835'>_Primitive-xor-lit-with-reg</a>/imm32/next -<span id="L28835" class="LineNr">28835 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28836" class="LineNr">28836 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28837" class="LineNr">28837 </span> <span class="subxComment"># var1/reg <- xor lit => 81 6/subop/xor var1/rm32 lit/imm32</span> -<span id="L28838" class="LineNr">28838 </span> 0x11/imm32/alloc-id:fake -<span id="L28839" class="LineNr">28839 </span> <a href='mu.subx.html#L31586'>_string-xor</a>/imm32/name -<span id="L28840" class="LineNr">28840 </span> 0x11/imm32/alloc-id:fake -<span id="L28841" class="LineNr">28841 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L28842" class="LineNr">28842 </span> 0x11/imm32/alloc-id:fake -<span id="L28843" class="LineNr">28843 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28844" class="LineNr">28844 </span> 0x11/imm32/alloc-id:fake -<span id="L28845" class="LineNr">28845 </span> <a href='mu.subx.html#L32013'>_string_81_subop_xor</a>/imm32/subx-name -<span id="L28846" class="LineNr">28846 </span> 3/imm32/rm32-is-first-output -<span id="L28847" class="LineNr">28847 </span> 0/imm32/no-r32 -<span id="L28848" class="LineNr">28848 </span> 1/imm32/imm32-is-first-inout -<span id="L28849" class="LineNr">28849 </span> 0/imm32/no-imm8 -<span id="L28850" class="LineNr">28850 </span> 0/imm32/no-disp32 -<span id="L28851" class="LineNr">28851 </span> 0/imm32/no-xm32 -<span id="L28852" class="LineNr">28852 </span> 0/imm32/no-x32 -<span id="L28853" class="LineNr">28853 </span> 0x11/imm32/alloc-id:fake -<span id="L28854" class="LineNr">28854 </span> <a href='mu.subx.html#L28855'>_Primitive-xor-lit-with-mem</a>/imm32/next -<span id="L28855" class="LineNr">28855 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28856" class="LineNr">28856 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28857" class="LineNr">28857 </span> <span class="subxComment"># xor-with var1, lit => 81 6/subop/xor var1/rm32 lit/imm32</span> -<span id="L28858" class="LineNr">28858 </span> 0x11/imm32/alloc-id:fake -<span id="L28859" class="LineNr">28859 </span> <a href='mu.subx.html#L31591'>_string-xor-with</a>/imm32/name -<span id="L28860" class="LineNr">28860 </span> 0x11/imm32/alloc-id:fake -<span id="L28861" class="LineNr">28861 </span> <span class="SpecialChar"><a href='mu.subx.html#L32203'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L28862" class="LineNr">28862 </span> 0/imm32/no-outputs -<span id="L28863" class="LineNr">28863 </span> 0/imm32/no-outputs -<span id="L28864" class="LineNr">28864 </span> 0x11/imm32/alloc-id:fake -<span id="L28865" class="LineNr">28865 </span> <a href='mu.subx.html#L32013'>_string_81_subop_xor</a>/imm32/subx-name -<span id="L28866" class="LineNr">28866 </span> 1/imm32/rm32-is-first-inout -<span id="L28867" class="LineNr">28867 </span> 0/imm32/no-r32 -<span id="L28868" class="LineNr">28868 </span> 2/imm32/imm32-is-second-inout -<span id="L28869" class="LineNr">28869 </span> 0/imm32/no-imm8 -<span id="L28870" class="LineNr">28870 </span> 0/imm32/no-disp32 -<span id="L28871" class="LineNr">28871 </span> 0/imm32/no-xm32 -<span id="L28872" class="LineNr">28872 </span> 0/imm32/no-x32 -<span id="L28873" class="LineNr">28873 </span> 0x11/imm32/alloc-id:fake -<span id="L28874" class="LineNr">28874 </span> <a href='mu.subx.html#L28875'>_Primitive-shift-reg-left-by-lit</a>/imm32/next -<span id="L28875" class="LineNr">28875 </span><span class="subxMinorFunction">_Primitive-shift-reg-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28876" class="LineNr">28876 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28877" class="LineNr">28877 </span> <span class="subxComment"># var1/reg <- shift-left lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> -<span id="L28878" class="LineNr">28878 </span> 0x11/imm32/alloc-id:fake -<span id="L28879" class="LineNr">28879 </span> <a href='mu.subx.html#L31596'>_string-shift-left</a>/imm32/name -<span id="L28880" class="LineNr">28880 </span> 0x11/imm32/alloc-id:fake -<span id="L28881" class="LineNr">28881 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L28882" class="LineNr">28882 </span> 0x11/imm32/alloc-id:fake -<span id="L28883" class="LineNr">28883 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28884" class="LineNr">28884 </span> 0x11/imm32/alloc-id:fake -<span id="L28885" class="LineNr">28885 </span> <a href='mu.subx.html#L32113'>_string_c1_subop_shift_left</a>/imm32/subx-name -<span id="L28886" class="LineNr">28886 </span> 3/imm32/rm32-is-first-output -<span id="L28887" class="LineNr">28887 </span> 0/imm32/no-r32 -<span id="L28888" class="LineNr">28888 </span> 0/imm32/no-imm32 -<span id="L28889" class="LineNr">28889 </span> 1/imm32/imm8-is-first-inout -<span id="L28890" class="LineNr">28890 </span> 0/imm32/no-disp32 -<span id="L28891" class="LineNr">28891 </span> 0/imm32/no-xm32 -<span id="L28892" class="LineNr">28892 </span> 0/imm32/no-x32 -<span id="L28893" class="LineNr">28893 </span> 0x11/imm32/alloc-id:fake -<span id="L28894" class="LineNr">28894 </span> <a href='mu.subx.html#L28895'>_Primitive-shift-reg-right-by-lit</a>/imm32/next -<span id="L28895" class="LineNr">28895 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28896" class="LineNr">28896 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28897" class="LineNr">28897 </span> <span class="subxComment"># var1/reg <- shift-right lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> -<span id="L28898" class="LineNr">28898 </span> 0x11/imm32/alloc-id:fake -<span id="L28899" class="LineNr">28899 </span> <a href='mu.subx.html#L31601'>_string-shift-right</a>/imm32/name -<span id="L28900" class="LineNr">28900 </span> 0x11/imm32/alloc-id:fake -<span id="L28901" class="LineNr">28901 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L28902" class="LineNr">28902 </span> 0x11/imm32/alloc-id:fake -<span id="L28903" class="LineNr">28903 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28904" class="LineNr">28904 </span> 0x11/imm32/alloc-id:fake -<span id="L28905" class="LineNr">28905 </span> <a href='mu.subx.html#L32118'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name -<span id="L28906" class="LineNr">28906 </span> 3/imm32/rm32-is-first-output -<span id="L28907" class="LineNr">28907 </span> 0/imm32/no-r32 -<span id="L28908" class="LineNr">28908 </span> 0/imm32/no-imm32 -<span id="L28909" class="LineNr">28909 </span> 1/imm32/imm8-is-first-inout -<span id="L28910" class="LineNr">28910 </span> 0/imm32/no-disp32 -<span id="L28911" class="LineNr">28911 </span> 0/imm32/no-xm32 -<span id="L28912" class="LineNr">28912 </span> 0/imm32/no-x32 +<span id="L28617" class="LineNr">28617 </span> <a href='mu.subx.html#L32575'>_string_41_increment_ecx</a>/imm32/subx-name +<span id="L28618" class="LineNr">28618 </span> 0/imm32/no-rm32 +<span id="L28619" class="LineNr">28619 </span> 0/imm32/no-r32 +<span id="L28620" class="LineNr">28620 </span> 0/imm32/no-imm32 +<span id="L28621" class="LineNr">28621 </span> 0/imm32/no-imm8 +<span id="L28622" class="LineNr">28622 </span> 0/imm32/no-disp32 +<span id="L28623" class="LineNr">28623 </span> 0/imm32/no-xm32 +<span id="L28624" class="LineNr">28624 </span> 0/imm32/no-x32 +<span id="L28625" class="LineNr">28625 </span> 0x11/imm32/alloc-id:fake +<span id="L28626" class="LineNr">28626 </span> <a href='mu.subx.html#L28627'>_Primitive-increment-edx</a>/imm32/next +<span id="L28627" class="LineNr">28627 </span><span class="subxMinorFunction">_Primitive-increment-edx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28628" class="LineNr">28628 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28629" class="LineNr">28629 </span> <span class="subxComment"># var/edx <- increment => 42/increment-edx</span> +<span id="L28630" class="LineNr">28630 </span> 0x11/imm32/alloc-id:fake +<span id="L28631" class="LineNr">28631 </span> <a href='mu.subx.html#L32068'>_string-increment</a>/imm32/name +<span id="L28632" class="LineNr">28632 </span> 0/imm32/no-inouts +<span id="L28633" class="LineNr">28633 </span> 0/imm32/no-inouts +<span id="L28634" class="LineNr">28634 </span> 0x11/imm32/alloc-id:fake +<span id="L28635" class="LineNr">28635 </span> <span class="SpecialChar"><a href='mu.subx.html#L32971'>Single-int-var-in-edx</a></span>/imm32/outputs +<span id="L28636" class="LineNr">28636 </span> 0x11/imm32/alloc-id:fake +<span id="L28637" class="LineNr">28637 </span> <a href='mu.subx.html#L32580'>_string_42_increment_edx</a>/imm32/subx-name +<span id="L28638" class="LineNr">28638 </span> 0/imm32/no-rm32 +<span id="L28639" class="LineNr">28639 </span> 0/imm32/no-r32 +<span id="L28640" class="LineNr">28640 </span> 0/imm32/no-imm32 +<span id="L28641" class="LineNr">28641 </span> 0/imm32/no-imm8 +<span id="L28642" class="LineNr">28642 </span> 0/imm32/no-disp32 +<span id="L28643" class="LineNr">28643 </span> 0/imm32/no-xm32 +<span id="L28644" class="LineNr">28644 </span> 0/imm32/no-x32 +<span id="L28645" class="LineNr">28645 </span> 0x11/imm32/alloc-id:fake +<span id="L28646" class="LineNr">28646 </span> <a href='mu.subx.html#L28647'>_Primitive-increment-ebx</a>/imm32/next +<span id="L28647" class="LineNr">28647 </span><span class="subxMinorFunction">_Primitive-increment-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28648" class="LineNr">28648 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28649" class="LineNr">28649 </span> <span class="subxComment"># var/ebx <- increment => 43/increment-ebx</span> +<span id="L28650" class="LineNr">28650 </span> 0x11/imm32/alloc-id:fake +<span id="L28651" class="LineNr">28651 </span> <a href='mu.subx.html#L32068'>_string-increment</a>/imm32/name +<span id="L28652" class="LineNr">28652 </span> 0/imm32/no-inouts +<span id="L28653" class="LineNr">28653 </span> 0/imm32/no-inouts +<span id="L28654" class="LineNr">28654 </span> 0x11/imm32/alloc-id:fake +<span id="L28655" class="LineNr">28655 </span> <span class="SpecialChar"><a href='mu.subx.html#L32989'>Single-int-var-in-ebx</a></span>/imm32/outputs +<span id="L28656" class="LineNr">28656 </span> 0x11/imm32/alloc-id:fake +<span id="L28657" class="LineNr">28657 </span> <a href='mu.subx.html#L32585'>_string_43_increment_ebx</a>/imm32/subx-name +<span id="L28658" class="LineNr">28658 </span> 0/imm32/no-rm32 +<span id="L28659" class="LineNr">28659 </span> 0/imm32/no-r32 +<span id="L28660" class="LineNr">28660 </span> 0/imm32/no-imm32 +<span id="L28661" class="LineNr">28661 </span> 0/imm32/no-imm8 +<span id="L28662" class="LineNr">28662 </span> 0/imm32/no-disp32 +<span id="L28663" class="LineNr">28663 </span> 0/imm32/no-xm32 +<span id="L28664" class="LineNr">28664 </span> 0/imm32/no-x32 +<span id="L28665" class="LineNr">28665 </span> 0x11/imm32/alloc-id:fake +<span id="L28666" class="LineNr">28666 </span> <a href='mu.subx.html#L28667'>_Primitive-increment-esi</a>/imm32/next +<span id="L28667" class="LineNr">28667 </span><span class="subxMinorFunction">_Primitive-increment-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28668" class="LineNr">28668 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28669" class="LineNr">28669 </span> <span class="subxComment"># var/esi <- increment => 46/increment-esi</span> +<span id="L28670" class="LineNr">28670 </span> 0x11/imm32/alloc-id:fake +<span id="L28671" class="LineNr">28671 </span> <a href='mu.subx.html#L32068'>_string-increment</a>/imm32/name +<span id="L28672" class="LineNr">28672 </span> 0/imm32/no-inouts +<span id="L28673" class="LineNr">28673 </span> 0/imm32/no-inouts +<span id="L28674" class="LineNr">28674 </span> 0x11/imm32/alloc-id:fake +<span id="L28675" class="LineNr">28675 </span> <span class="SpecialChar"><a href='mu.subx.html#L33007'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L28676" class="LineNr">28676 </span> 0x11/imm32/alloc-id:fake +<span id="L28677" class="LineNr">28677 </span> <a href='mu.subx.html#L32590'>_string_46_increment_esi</a>/imm32/subx-name +<span id="L28678" class="LineNr">28678 </span> 0/imm32/no-rm32 +<span id="L28679" class="LineNr">28679 </span> 0/imm32/no-r32 +<span id="L28680" class="LineNr">28680 </span> 0/imm32/no-imm32 +<span id="L28681" class="LineNr">28681 </span> 0/imm32/no-imm8 +<span id="L28682" class="LineNr">28682 </span> 0/imm32/no-disp32 +<span id="L28683" class="LineNr">28683 </span> 0/imm32/no-xm32 +<span id="L28684" class="LineNr">28684 </span> 0/imm32/no-x32 +<span id="L28685" class="LineNr">28685 </span> 0x11/imm32/alloc-id:fake +<span id="L28686" class="LineNr">28686 </span> <a href='mu.subx.html#L28687'>_Primitive-increment-edi</a>/imm32/next +<span id="L28687" class="LineNr">28687 </span><span class="subxMinorFunction">_Primitive-increment-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28688" class="LineNr">28688 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28689" class="LineNr">28689 </span> <span class="subxComment"># var/edi <- increment => 47/increment-edi</span> +<span id="L28690" class="LineNr">28690 </span> 0x11/imm32/alloc-id:fake +<span id="L28691" class="LineNr">28691 </span> <a href='mu.subx.html#L32068'>_string-increment</a>/imm32/name +<span id="L28692" class="LineNr">28692 </span> 0/imm32/no-inouts +<span id="L28693" class="LineNr">28693 </span> 0/imm32/no-inouts +<span id="L28694" class="LineNr">28694 </span> 0x11/imm32/alloc-id:fake +<span id="L28695" class="LineNr">28695 </span> <span class="SpecialChar"><a href='mu.subx.html#L33025'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L28696" class="LineNr">28696 </span> 0x11/imm32/alloc-id:fake +<span id="L28697" class="LineNr">28697 </span> <a href='mu.subx.html#L32595'>_string_47_increment_edi</a>/imm32/subx-name +<span id="L28698" class="LineNr">28698 </span> 0/imm32/no-rm32 +<span id="L28699" class="LineNr">28699 </span> 0/imm32/no-r32 +<span id="L28700" class="LineNr">28700 </span> 0/imm32/no-imm32 +<span id="L28701" class="LineNr">28701 </span> 0/imm32/no-imm8 +<span id="L28702" class="LineNr">28702 </span> 0/imm32/no-disp32 +<span id="L28703" class="LineNr">28703 </span> 0/imm32/no-xm32 +<span id="L28704" class="LineNr">28704 </span> 0/imm32/no-x32 +<span id="L28705" class="LineNr">28705 </span> 0x11/imm32/alloc-id:fake +<span id="L28706" class="LineNr">28706 </span> <a href='mu.subx.html#L28707'>_Primitive-decrement-eax</a>/imm32/next +<span id="L28707" class="LineNr">28707 </span><span class="subxMinorFunction">_Primitive-decrement-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28708" class="LineNr">28708 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28709" class="LineNr">28709 </span> <span class="subxComment"># var/eax <- decrement => 48/decrement-eax</span> +<span id="L28710" class="LineNr">28710 </span> 0x11/imm32/alloc-id:fake +<span id="L28711" class="LineNr">28711 </span> <a href='mu.subx.html#L32063'>_string-decrement</a>/imm32/name +<span id="L28712" class="LineNr">28712 </span> 0/imm32/no-inouts +<span id="L28713" class="LineNr">28713 </span> 0/imm32/no-inouts +<span id="L28714" class="LineNr">28714 </span> 0x11/imm32/alloc-id:fake +<span id="L28715" class="LineNr">28715 </span> <span class="SpecialChar"><a href='mu.subx.html#L32935'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L28716" class="LineNr">28716 </span> 0x11/imm32/alloc-id:fake +<span id="L28717" class="LineNr">28717 </span> <a href='mu.subx.html#L32600'>_string_48_decrement_eax</a>/imm32/subx-name +<span id="L28718" class="LineNr">28718 </span> 0/imm32/no-rm32 +<span id="L28719" class="LineNr">28719 </span> 0/imm32/no-r32 +<span id="L28720" class="LineNr">28720 </span> 0/imm32/no-imm32 +<span id="L28721" class="LineNr">28721 </span> 0/imm32/no-imm8 +<span id="L28722" class="LineNr">28722 </span> 0/imm32/no-disp32 +<span id="L28723" class="LineNr">28723 </span> 0/imm32/no-xm32 +<span id="L28724" class="LineNr">28724 </span> 0/imm32/no-x32 +<span id="L28725" class="LineNr">28725 </span> 0x11/imm32/alloc-id:fake +<span id="L28726" class="LineNr">28726 </span> <a href='mu.subx.html#L28727'>_Primitive-decrement-ecx</a>/imm32/next +<span id="L28727" class="LineNr">28727 </span><span class="subxMinorFunction">_Primitive-decrement-ecx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28728" class="LineNr">28728 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28729" class="LineNr">28729 </span> <span class="subxComment"># var/ecx <- decrement => 49/decrement-ecx</span> +<span id="L28730" class="LineNr">28730 </span> 0x11/imm32/alloc-id:fake +<span id="L28731" class="LineNr">28731 </span> <a href='mu.subx.html#L32063'>_string-decrement</a>/imm32/name +<span id="L28732" class="LineNr">28732 </span> 0/imm32/no-inouts +<span id="L28733" class="LineNr">28733 </span> 0/imm32/no-inouts +<span id="L28734" class="LineNr">28734 </span> 0x11/imm32/alloc-id:fake +<span id="L28735" class="LineNr">28735 </span> <span class="SpecialChar"><a href='mu.subx.html#L32953'>Single-int-var-in-ecx</a></span>/imm32/outputs +<span id="L28736" class="LineNr">28736 </span> 0x11/imm32/alloc-id:fake +<span id="L28737" class="LineNr">28737 </span> <a href='mu.subx.html#L32605'>_string_49_decrement_ecx</a>/imm32/subx-name +<span id="L28738" class="LineNr">28738 </span> 0/imm32/no-rm32 +<span id="L28739" class="LineNr">28739 </span> 0/imm32/no-r32 +<span id="L28740" class="LineNr">28740 </span> 0/imm32/no-imm32 +<span id="L28741" class="LineNr">28741 </span> 0/imm32/no-imm8 +<span id="L28742" class="LineNr">28742 </span> 0/imm32/no-disp32 +<span id="L28743" class="LineNr">28743 </span> 0/imm32/no-xm32 +<span id="L28744" class="LineNr">28744 </span> 0/imm32/no-x32 +<span id="L28745" class="LineNr">28745 </span> 0x11/imm32/alloc-id:fake +<span id="L28746" class="LineNr">28746 </span> <a href='mu.subx.html#L28747'>_Primitive-decrement-edx</a>/imm32/next +<span id="L28747" class="LineNr">28747 </span><span class="subxMinorFunction">_Primitive-decrement-edx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28748" class="LineNr">28748 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28749" class="LineNr">28749 </span> <span class="subxComment"># var/edx <- decrement => 4a/decrement-edx</span> +<span id="L28750" class="LineNr">28750 </span> 0x11/imm32/alloc-id:fake +<span id="L28751" class="LineNr">28751 </span> <a href='mu.subx.html#L32063'>_string-decrement</a>/imm32/name +<span id="L28752" class="LineNr">28752 </span> 0/imm32/no-inouts +<span id="L28753" class="LineNr">28753 </span> 0/imm32/no-inouts +<span id="L28754" class="LineNr">28754 </span> 0x11/imm32/alloc-id:fake +<span id="L28755" class="LineNr">28755 </span> <span class="SpecialChar"><a href='mu.subx.html#L32971'>Single-int-var-in-edx</a></span>/imm32/outputs +<span id="L28756" class="LineNr">28756 </span> 0x11/imm32/alloc-id:fake +<span id="L28757" class="LineNr">28757 </span> <a href='mu.subx.html#L32610'>_string_4a_decrement_edx</a>/imm32/subx-name +<span id="L28758" class="LineNr">28758 </span> 0/imm32/no-rm32 +<span id="L28759" class="LineNr">28759 </span> 0/imm32/no-r32 +<span id="L28760" class="LineNr">28760 </span> 0/imm32/no-imm32 +<span id="L28761" class="LineNr">28761 </span> 0/imm32/no-imm8 +<span id="L28762" class="LineNr">28762 </span> 0/imm32/no-disp32 +<span id="L28763" class="LineNr">28763 </span> 0/imm32/no-xm32 +<span id="L28764" class="LineNr">28764 </span> 0/imm32/no-x32 +<span id="L28765" class="LineNr">28765 </span> 0x11/imm32/alloc-id:fake +<span id="L28766" class="LineNr">28766 </span> <a href='mu.subx.html#L28767'>_Primitive-decrement-ebx</a>/imm32/next +<span id="L28767" class="LineNr">28767 </span><span class="subxMinorFunction">_Primitive-decrement-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28768" class="LineNr">28768 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28769" class="LineNr">28769 </span> <span class="subxComment"># var/ebx <- decrement => 4b/decrement-ebx</span> +<span id="L28770" class="LineNr">28770 </span> 0x11/imm32/alloc-id:fake +<span id="L28771" class="LineNr">28771 </span> <a href='mu.subx.html#L32063'>_string-decrement</a>/imm32/name +<span id="L28772" class="LineNr">28772 </span> 0/imm32/no-inouts +<span id="L28773" class="LineNr">28773 </span> 0/imm32/no-inouts +<span id="L28774" class="LineNr">28774 </span> 0x11/imm32/alloc-id:fake +<span id="L28775" class="LineNr">28775 </span> <span class="SpecialChar"><a href='mu.subx.html#L32989'>Single-int-var-in-ebx</a></span>/imm32/outputs +<span id="L28776" class="LineNr">28776 </span> 0x11/imm32/alloc-id:fake +<span id="L28777" class="LineNr">28777 </span> <a href='mu.subx.html#L32615'>_string_4b_decrement_ebx</a>/imm32/subx-name +<span id="L28778" class="LineNr">28778 </span> 0/imm32/no-rm32 +<span id="L28779" class="LineNr">28779 </span> 0/imm32/no-r32 +<span id="L28780" class="LineNr">28780 </span> 0/imm32/no-imm32 +<span id="L28781" class="LineNr">28781 </span> 0/imm32/no-imm8 +<span id="L28782" class="LineNr">28782 </span> 0/imm32/no-disp32 +<span id="L28783" class="LineNr">28783 </span> 0/imm32/no-xm32 +<span id="L28784" class="LineNr">28784 </span> 0/imm32/no-x32 +<span id="L28785" class="LineNr">28785 </span> 0x11/imm32/alloc-id:fake +<span id="L28786" class="LineNr">28786 </span> <a href='mu.subx.html#L28787'>_Primitive-decrement-esi</a>/imm32/next +<span id="L28787" class="LineNr">28787 </span><span class="subxMinorFunction">_Primitive-decrement-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28788" class="LineNr">28788 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28789" class="LineNr">28789 </span> <span class="subxComment"># var/esi <- decrement => 4e/decrement-esi</span> +<span id="L28790" class="LineNr">28790 </span> 0x11/imm32/alloc-id:fake +<span id="L28791" class="LineNr">28791 </span> <a href='mu.subx.html#L32063'>_string-decrement</a>/imm32/name +<span id="L28792" class="LineNr">28792 </span> 0/imm32/no-inouts +<span id="L28793" class="LineNr">28793 </span> 0/imm32/no-inouts +<span id="L28794" class="LineNr">28794 </span> 0x11/imm32/alloc-id:fake +<span id="L28795" class="LineNr">28795 </span> <span class="SpecialChar"><a href='mu.subx.html#L33007'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L28796" class="LineNr">28796 </span> 0x11/imm32/alloc-id:fake +<span id="L28797" class="LineNr">28797 </span> <a href='mu.subx.html#L32620'>_string_4e_decrement_esi</a>/imm32/subx-name +<span id="L28798" class="LineNr">28798 </span> 0/imm32/no-rm32 +<span id="L28799" class="LineNr">28799 </span> 0/imm32/no-r32 +<span id="L28800" class="LineNr">28800 </span> 0/imm32/no-imm32 +<span id="L28801" class="LineNr">28801 </span> 0/imm32/no-imm8 +<span id="L28802" class="LineNr">28802 </span> 0/imm32/no-disp32 +<span id="L28803" class="LineNr">28803 </span> 0/imm32/no-xm32 +<span id="L28804" class="LineNr">28804 </span> 0/imm32/no-x32 +<span id="L28805" class="LineNr">28805 </span> 0x11/imm32/alloc-id:fake +<span id="L28806" class="LineNr">28806 </span> <a href='mu.subx.html#L28807'>_Primitive-decrement-edi</a>/imm32/next +<span id="L28807" class="LineNr">28807 </span><span class="subxMinorFunction">_Primitive-decrement-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28808" class="LineNr">28808 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28809" class="LineNr">28809 </span> <span class="subxComment"># var/edi <- decrement => 4f/decrement-edi</span> +<span id="L28810" class="LineNr">28810 </span> 0x11/imm32/alloc-id:fake +<span id="L28811" class="LineNr">28811 </span> <a href='mu.subx.html#L32063'>_string-decrement</a>/imm32/name +<span id="L28812" class="LineNr">28812 </span> 0/imm32/no-inouts +<span id="L28813" class="LineNr">28813 </span> 0/imm32/no-inouts +<span id="L28814" class="LineNr">28814 </span> 0x11/imm32/alloc-id:fake +<span id="L28815" class="LineNr">28815 </span> <span class="SpecialChar"><a href='mu.subx.html#L33025'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L28816" class="LineNr">28816 </span> 0x11/imm32/alloc-id:fake +<span id="L28817" class="LineNr">28817 </span> <a href='mu.subx.html#L32625'>_string_4f_decrement_edi</a>/imm32/subx-name +<span id="L28818" class="LineNr">28818 </span> 0/imm32/no-rm32 +<span id="L28819" class="LineNr">28819 </span> 0/imm32/no-r32 +<span id="L28820" class="LineNr">28820 </span> 0/imm32/no-imm32 +<span id="L28821" class="LineNr">28821 </span> 0/imm32/no-imm8 +<span id="L28822" class="LineNr">28822 </span> 0/imm32/no-disp32 +<span id="L28823" class="LineNr">28823 </span> 0/imm32/no-xm32 +<span id="L28824" class="LineNr">28824 </span> 0/imm32/no-x32 +<span id="L28825" class="LineNr">28825 </span> 0x11/imm32/alloc-id:fake +<span id="L28826" class="LineNr">28826 </span> <a href='mu.subx.html#L28827'>_Primitive-increment-mem</a>/imm32/next +<span id="L28827" class="LineNr">28827 </span><span class="subxMinorFunction">_Primitive-increment-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28828" class="LineNr">28828 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28829" class="LineNr">28829 </span> <span class="subxComment"># increment var => ff 0/subop/increment *(ebp+__)</span> +<span id="L28830" class="LineNr">28830 </span> 0x11/imm32/alloc-id:fake +<span id="L28831" class="LineNr">28831 </span> <a href='mu.subx.html#L32068'>_string-increment</a>/imm32/name +<span id="L28832" class="LineNr">28832 </span> 0x11/imm32/alloc-id:fake +<span id="L28833" class="LineNr">28833 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L28834" class="LineNr">28834 </span> 0/imm32/no-outputs +<span id="L28835" class="LineNr">28835 </span> 0/imm32/no-outputs +<span id="L28836" class="LineNr">28836 </span> 0x11/imm32/alloc-id:fake +<span id="L28837" class="LineNr">28837 </span> <a href='mu.subx.html#L32740'>_string_ff_subop_increment</a>/imm32/subx-name +<span id="L28838" class="LineNr">28838 </span> 1/imm32/rm32-is-first-inout +<span id="L28839" class="LineNr">28839 </span> 0/imm32/no-r32 +<span id="L28840" class="LineNr">28840 </span> 0/imm32/no-imm32 +<span id="L28841" class="LineNr">28841 </span> 0/imm32/no-imm8 +<span id="L28842" class="LineNr">28842 </span> 0/imm32/no-disp32 +<span id="L28843" class="LineNr">28843 </span> 0/imm32/no-xm32 +<span id="L28844" class="LineNr">28844 </span> 0/imm32/no-x32 +<span id="L28845" class="LineNr">28845 </span> 0x11/imm32/alloc-id:fake +<span id="L28846" class="LineNr">28846 </span> <a href='mu.subx.html#L28847'>_Primitive-increment-reg</a>/imm32/next +<span id="L28847" class="LineNr">28847 </span><span class="subxMinorFunction">_Primitive-increment-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28848" class="LineNr">28848 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28849" class="LineNr">28849 </span> <span class="subxComment"># var/reg <- increment => ff 0/subop/increment %__</span> +<span id="L28850" class="LineNr">28850 </span> 0x11/imm32/alloc-id:fake +<span id="L28851" class="LineNr">28851 </span> <a href='mu.subx.html#L32068'>_string-increment</a>/imm32/name +<span id="L28852" class="LineNr">28852 </span> 0/imm32/no-inouts +<span id="L28853" class="LineNr">28853 </span> 0/imm32/no-inouts +<span id="L28854" class="LineNr">28854 </span> 0x11/imm32/alloc-id:fake +<span id="L28855" class="LineNr">28855 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L28856" class="LineNr">28856 </span> 0x11/imm32/alloc-id:fake +<span id="L28857" class="LineNr">28857 </span> <a href='mu.subx.html#L32740'>_string_ff_subop_increment</a>/imm32/subx-name +<span id="L28858" class="LineNr">28858 </span> 3/imm32/rm32-is-first-output +<span id="L28859" class="LineNr">28859 </span> 0/imm32/no-r32 +<span id="L28860" class="LineNr">28860 </span> 0/imm32/no-imm32 +<span id="L28861" class="LineNr">28861 </span> 0/imm32/no-imm8 +<span id="L28862" class="LineNr">28862 </span> 0/imm32/no-disp32 +<span id="L28863" class="LineNr">28863 </span> 0/imm32/no-xm32 +<span id="L28864" class="LineNr">28864 </span> 0/imm32/no-x32 +<span id="L28865" class="LineNr">28865 </span> 0x11/imm32/alloc-id:fake +<span id="L28866" class="LineNr">28866 </span> <a href='mu.subx.html#L28867'>_Primitive-decrement-mem</a>/imm32/next +<span id="L28867" class="LineNr">28867 </span><span class="subxMinorFunction">_Primitive-decrement-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28868" class="LineNr">28868 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28869" class="LineNr">28869 </span> <span class="subxComment"># decrement var => ff 1/subop/decrement *(ebp+__)</span> +<span id="L28870" class="LineNr">28870 </span> 0x11/imm32/alloc-id:fake +<span id="L28871" class="LineNr">28871 </span> <a href='mu.subx.html#L32063'>_string-decrement</a>/imm32/name +<span id="L28872" class="LineNr">28872 </span> 0x11/imm32/alloc-id:fake +<span id="L28873" class="LineNr">28873 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L28874" class="LineNr">28874 </span> 0/imm32/no-outputs +<span id="L28875" class="LineNr">28875 </span> 0/imm32/no-outputs +<span id="L28876" class="LineNr">28876 </span> 0x11/imm32/alloc-id:fake +<span id="L28877" class="LineNr">28877 </span> <a href='mu.subx.html#L32745'>_string_ff_subop_decrement</a>/imm32/subx-name +<span id="L28878" class="LineNr">28878 </span> 1/imm32/rm32-is-first-inout +<span id="L28879" class="LineNr">28879 </span> 0/imm32/no-r32 +<span id="L28880" class="LineNr">28880 </span> 0/imm32/no-imm32 +<span id="L28881" class="LineNr">28881 </span> 0/imm32/no-imm8 +<span id="L28882" class="LineNr">28882 </span> 0/imm32/no-disp32 +<span id="L28883" class="LineNr">28883 </span> 0/imm32/no-xm32 +<span id="L28884" class="LineNr">28884 </span> 0/imm32/no-x32 +<span id="L28885" class="LineNr">28885 </span> 0x11/imm32/alloc-id:fake +<span id="L28886" class="LineNr">28886 </span> <a href='mu.subx.html#L28887'>_Primitive-decrement-reg</a>/imm32/next +<span id="L28887" class="LineNr">28887 </span><span class="subxMinorFunction">_Primitive-decrement-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28888" class="LineNr">28888 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28889" class="LineNr">28889 </span> <span class="subxComment"># var/reg <- decrement => ff 1/subop/decrement %__</span> +<span id="L28890" class="LineNr">28890 </span> 0x11/imm32/alloc-id:fake +<span id="L28891" class="LineNr">28891 </span> <a href='mu.subx.html#L32063'>_string-decrement</a>/imm32/name +<span id="L28892" class="LineNr">28892 </span> 0/imm32/no-inouts +<span id="L28893" class="LineNr">28893 </span> 0/imm32/no-inouts +<span id="L28894" class="LineNr">28894 </span> 0x11/imm32/alloc-id:fake +<span id="L28895" class="LineNr">28895 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L28896" class="LineNr">28896 </span> 0x11/imm32/alloc-id:fake +<span id="L28897" class="LineNr">28897 </span> <a href='mu.subx.html#L32745'>_string_ff_subop_decrement</a>/imm32/subx-name +<span id="L28898" class="LineNr">28898 </span> 3/imm32/rm32-is-first-output +<span id="L28899" class="LineNr">28899 </span> 0/imm32/no-r32 +<span id="L28900" class="LineNr">28900 </span> 0/imm32/no-imm32 +<span id="L28901" class="LineNr">28901 </span> 0/imm32/no-imm8 +<span id="L28902" class="LineNr">28902 </span> 0/imm32/no-disp32 +<span id="L28903" class="LineNr">28903 </span> 0/imm32/no-xm32 +<span id="L28904" class="LineNr">28904 </span> 0/imm32/no-x32 +<span id="L28905" class="LineNr">28905 </span> 0x11/imm32/alloc-id:fake +<span id="L28906" class="LineNr">28906 </span> <a href='mu.subx.html#L28908'>_Primitive-add-to-eax</a>/imm32/next +<span id="L28907" class="LineNr">28907 </span><span class="subxH1Comment"># - add</span> +<span id="L28908" class="LineNr">28908 </span><span class="subxMinorFunction">_Primitive-add-to-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28909" class="LineNr">28909 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28910" class="LineNr">28910 </span> <span class="subxComment"># var/eax <- add lit => 05/add-to-eax lit/imm32</span> +<span id="L28911" class="LineNr">28911 </span> 0x11/imm32/alloc-id:fake +<span id="L28912" class="LineNr">28912 </span> <a href='mu.subx.html#L31938'>_string-add</a>/imm32/name <span id="L28913" class="LineNr">28913 </span> 0x11/imm32/alloc-id:fake -<span id="L28914" class="LineNr">28914 </span> <a href='mu.subx.html#L28915'>_Primitive-shift-reg-right-signed-by-lit</a>/imm32/next -<span id="L28915" class="LineNr">28915 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28916" class="LineNr">28916 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28917" class="LineNr">28917 </span> <span class="subxComment"># var1/reg <- shift-right-signed lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> -<span id="L28918" class="LineNr">28918 </span> 0x11/imm32/alloc-id:fake -<span id="L28919" class="LineNr">28919 </span> <a href='mu.subx.html#L31606'>_string-shift-right-signed</a>/imm32/name -<span id="L28920" class="LineNr">28920 </span> 0x11/imm32/alloc-id:fake -<span id="L28921" class="LineNr">28921 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L28922" class="LineNr">28922 </span> 0x11/imm32/alloc-id:fake -<span id="L28923" class="LineNr">28923 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L28924" class="LineNr">28924 </span> 0x11/imm32/alloc-id:fake -<span id="L28925" class="LineNr">28925 </span> <a href='mu.subx.html#L32123'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name -<span id="L28926" class="LineNr">28926 </span> 3/imm32/rm32-is-first-output -<span id="L28927" class="LineNr">28927 </span> 0/imm32/no-r32 -<span id="L28928" class="LineNr">28928 </span> 0/imm32/no-imm32 -<span id="L28929" class="LineNr">28929 </span> 1/imm32/imm8-is-first-inout -<span id="L28930" class="LineNr">28930 </span> 0/imm32/no-disp32 -<span id="L28931" class="LineNr">28931 </span> 0/imm32/no-xm32 -<span id="L28932" class="LineNr">28932 </span> 0/imm32/no-x32 +<span id="L28914" class="LineNr">28914 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L28915" class="LineNr">28915 </span> 0x11/imm32/alloc-id:fake +<span id="L28916" class="LineNr">28916 </span> <span class="SpecialChar"><a href='mu.subx.html#L32935'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L28917" class="LineNr">28917 </span> 0x11/imm32/alloc-id:fake +<span id="L28918" class="LineNr">28918 </span> <a href='mu.subx.html#L32260'>_string_05_add_to_eax</a>/imm32/subx-name +<span id="L28919" class="LineNr">28919 </span> 0/imm32/no-rm32 +<span id="L28920" class="LineNr">28920 </span> 0/imm32/no-r32 +<span id="L28921" class="LineNr">28921 </span> 1/imm32/imm32-is-first-inout +<span id="L28922" class="LineNr">28922 </span> 0/imm32/no-imm8 +<span id="L28923" class="LineNr">28923 </span> 0/imm32/no-disp32 +<span id="L28924" class="LineNr">28924 </span> 0/imm32/no-xm32 +<span id="L28925" class="LineNr">28925 </span> 0/imm32/no-x32 +<span id="L28926" class="LineNr">28926 </span> 0x11/imm32/alloc-id:fake +<span id="L28927" class="LineNr">28927 </span> <a href='mu.subx.html#L28928'>_Primitive-add-reg-to-reg</a>/imm32/next +<span id="L28928" class="LineNr">28928 </span><span class="subxMinorFunction">_Primitive-add-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28929" class="LineNr">28929 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28930" class="LineNr">28930 </span> <span class="subxComment"># var1/reg <- add var2/reg => 01/add-to var1/rm32 var2/r32</span> +<span id="L28931" class="LineNr">28931 </span> 0x11/imm32/alloc-id:fake +<span id="L28932" class="LineNr">28932 </span> <a href='mu.subx.html#L31938'>_string-add</a>/imm32/name <span id="L28933" class="LineNr">28933 </span> 0x11/imm32/alloc-id:fake -<span id="L28934" class="LineNr">28934 </span> <a href='mu.subx.html#L28935'>_Primitive-shift-mem-left-by-lit</a>/imm32/next -<span id="L28935" class="LineNr">28935 </span><span class="subxMinorFunction">_Primitive-shift-mem-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28936" class="LineNr">28936 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28937" class="LineNr">28937 </span> <span class="subxComment"># shift-left var1, lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> -<span id="L28938" class="LineNr">28938 </span> 0x11/imm32/alloc-id:fake -<span id="L28939" class="LineNr">28939 </span> <a href='mu.subx.html#L31596'>_string-shift-left</a>/imm32/name -<span id="L28940" class="LineNr">28940 </span> 0x11/imm32/alloc-id:fake -<span id="L28941" class="LineNr">28941 </span> <span class="SpecialChar"><a href='mu.subx.html#L32203'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L28942" class="LineNr">28942 </span> 0/imm32/no-outputs -<span id="L28943" class="LineNr">28943 </span> 0/imm32/no-outputs -<span id="L28944" class="LineNr">28944 </span> 0x11/imm32/alloc-id:fake -<span id="L28945" class="LineNr">28945 </span> <a href='mu.subx.html#L32113'>_string_c1_subop_shift_left</a>/imm32/subx-name -<span id="L28946" class="LineNr">28946 </span> 1/imm32/rm32-is-first-inout -<span id="L28947" class="LineNr">28947 </span> 0/imm32/no-r32 -<span id="L28948" class="LineNr">28948 </span> 0/imm32/no-imm32 -<span id="L28949" class="LineNr">28949 </span> 2/imm32/imm8-is-second-inout -<span id="L28950" class="LineNr">28950 </span> 0/imm32/no-disp32 -<span id="L28951" class="LineNr">28951 </span> 0/imm32/no-xm32 -<span id="L28952" class="LineNr">28952 </span> 0/imm32/no-x32 +<span id="L28934" class="LineNr">28934 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L28935" class="LineNr">28935 </span> 0x11/imm32/alloc-id:fake +<span id="L28936" class="LineNr">28936 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L28937" class="LineNr">28937 </span> 0x11/imm32/alloc-id:fake +<span id="L28938" class="LineNr">28938 </span> <a href='mu.subx.html#L32250'>_string_01_add_to</a>/imm32/subx-name +<span id="L28939" class="LineNr">28939 </span> 3/imm32/rm32-is-first-output +<span id="L28940" class="LineNr">28940 </span> 1/imm32/r32-is-first-inout +<span id="L28941" class="LineNr">28941 </span> 0/imm32/no-imm32 +<span id="L28942" class="LineNr">28942 </span> 0/imm32/no-imm8 +<span id="L28943" class="LineNr">28943 </span> 0/imm32/no-disp32 +<span id="L28944" class="LineNr">28944 </span> 0/imm32/no-xm32 +<span id="L28945" class="LineNr">28945 </span> 0/imm32/no-x32 +<span id="L28946" class="LineNr">28946 </span> 0x11/imm32/alloc-id:fake +<span id="L28947" class="LineNr">28947 </span> <a href='mu.subx.html#L28948'>_Primitive-add-reg-to-mem</a>/imm32/next +<span id="L28948" class="LineNr">28948 </span><span class="subxMinorFunction">_Primitive-add-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28949" class="LineNr">28949 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28950" class="LineNr">28950 </span> <span class="subxComment"># add-to var1 var2/reg => 01/add-to var1 var2/r32</span> +<span id="L28951" class="LineNr">28951 </span> 0x11/imm32/alloc-id:fake +<span id="L28952" class="LineNr">28952 </span> <a href='mu.subx.html#L31948'>_string-add-to</a>/imm32/name <span id="L28953" class="LineNr">28953 </span> 0x11/imm32/alloc-id:fake -<span id="L28954" class="LineNr">28954 </span> <a href='mu.subx.html#L28955'>_Primitive-shift-mem-right-by-lit</a>/imm32/next -<span id="L28955" class="LineNr">28955 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28956" class="LineNr">28956 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28957" class="LineNr">28957 </span> <span class="subxComment"># shift-right var1, lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> -<span id="L28958" class="LineNr">28958 </span> 0x11/imm32/alloc-id:fake -<span id="L28959" class="LineNr">28959 </span> <a href='mu.subx.html#L31601'>_string-shift-right</a>/imm32/name -<span id="L28960" class="LineNr">28960 </span> 0x11/imm32/alloc-id:fake -<span id="L28961" class="LineNr">28961 </span> <span class="SpecialChar"><a href='mu.subx.html#L32203'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L28962" class="LineNr">28962 </span> 0/imm32/no-outputs -<span id="L28963" class="LineNr">28963 </span> 0/imm32/no-outputs -<span id="L28964" class="LineNr">28964 </span> 0x11/imm32/alloc-id:fake -<span id="L28965" class="LineNr">28965 </span> <a href='mu.subx.html#L32118'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name -<span id="L28966" class="LineNr">28966 </span> 1/imm32/rm32-is-first-inout -<span id="L28967" class="LineNr">28967 </span> 0/imm32/no-r32 -<span id="L28968" class="LineNr">28968 </span> 0/imm32/no-imm32 -<span id="L28969" class="LineNr">28969 </span> 2/imm32/imm8-is-second-inout -<span id="L28970" class="LineNr">28970 </span> 0/imm32/no-disp32 -<span id="L28971" class="LineNr">28971 </span> 0/imm32/no-xm32 -<span id="L28972" class="LineNr">28972 </span> 0/imm32/no-x32 +<span id="L28954" class="LineNr">28954 </span> <span class="SpecialChar"><a href='mu.subx.html#L32804'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L28955" class="LineNr">28955 </span> 0/imm32/no-outputs +<span id="L28956" class="LineNr">28956 </span> 0/imm32/no-outputs +<span id="L28957" class="LineNr">28957 </span> 0x11/imm32/alloc-id:fake +<span id="L28958" class="LineNr">28958 </span> <a href='mu.subx.html#L32250'>_string_01_add_to</a>/imm32/subx-name +<span id="L28959" class="LineNr">28959 </span> 1/imm32/rm32-is-first-inout +<span id="L28960" class="LineNr">28960 </span> 2/imm32/r32-is-second-inout +<span id="L28961" class="LineNr">28961 </span> 0/imm32/no-imm32 +<span id="L28962" class="LineNr">28962 </span> 0/imm32/no-imm8 +<span id="L28963" class="LineNr">28963 </span> 0/imm32/no-disp32 +<span id="L28964" class="LineNr">28964 </span> 0/imm32/no-xm32 +<span id="L28965" class="LineNr">28965 </span> 0/imm32/no-x32 +<span id="L28966" class="LineNr">28966 </span> 0x11/imm32/alloc-id:fake +<span id="L28967" class="LineNr">28967 </span> <a href='mu.subx.html#L28968'>_Primitive-add-mem-to-reg</a>/imm32/next +<span id="L28968" class="LineNr">28968 </span><span class="subxMinorFunction">_Primitive-add-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28969" class="LineNr">28969 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28970" class="LineNr">28970 </span> <span class="subxComment"># var1/reg <- add var2 => 03/add var2/rm32 var1/r32</span> +<span id="L28971" class="LineNr">28971 </span> 0x11/imm32/alloc-id:fake +<span id="L28972" class="LineNr">28972 </span> <a href='mu.subx.html#L31938'>_string-add</a>/imm32/name <span id="L28973" class="LineNr">28973 </span> 0x11/imm32/alloc-id:fake -<span id="L28974" class="LineNr">28974 </span> <a href='mu.subx.html#L28975'>_Primitive-shift-mem-right-signed-by-lit</a>/imm32/next -<span id="L28975" class="LineNr">28975 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28976" class="LineNr">28976 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28977" class="LineNr">28977 </span> <span class="subxComment"># shift-right-signed var1, lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> -<span id="L28978" class="LineNr">28978 </span> 0x11/imm32/alloc-id:fake -<span id="L28979" class="LineNr">28979 </span> <a href='mu.subx.html#L31606'>_string-shift-right-signed</a>/imm32/name -<span id="L28980" class="LineNr">28980 </span> 0x11/imm32/alloc-id:fake -<span id="L28981" class="LineNr">28981 </span> <span class="SpecialChar"><a href='mu.subx.html#L32203'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L28982" class="LineNr">28982 </span> 0/imm32/no-outputs -<span id="L28983" class="LineNr">28983 </span> 0/imm32/no-outputs -<span id="L28984" class="LineNr">28984 </span> 0x11/imm32/alloc-id:fake -<span id="L28985" class="LineNr">28985 </span> <a href='mu.subx.html#L32123'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name -<span id="L28986" class="LineNr">28986 </span> 1/imm32/rm32-is-first-inout -<span id="L28987" class="LineNr">28987 </span> 0/imm32/no-r32 -<span id="L28988" class="LineNr">28988 </span> 0/imm32/no-imm32 -<span id="L28989" class="LineNr">28989 </span> 2/imm32/imm8-is-second-inout -<span id="L28990" class="LineNr">28990 </span> 0/imm32/no-disp32 -<span id="L28991" class="LineNr">28991 </span> 0/imm32/no-xm32 -<span id="L28992" class="LineNr">28992 </span> 0/imm32/no-x32 +<span id="L28974" class="LineNr">28974 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L28975" class="LineNr">28975 </span> 0x11/imm32/alloc-id:fake +<span id="L28976" class="LineNr">28976 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L28977" class="LineNr">28977 </span> 0x11/imm32/alloc-id:fake +<span id="L28978" class="LineNr">28978 </span> <a href='mu.subx.html#L32255'>_string_03_add</a>/imm32/subx-name +<span id="L28979" class="LineNr">28979 </span> 1/imm32/rm32-is-first-inout +<span id="L28980" class="LineNr">28980 </span> 3/imm32/r32-is-first-output +<span id="L28981" class="LineNr">28981 </span> 0/imm32/no-imm32 +<span id="L28982" class="LineNr">28982 </span> 0/imm32/no-imm8 +<span id="L28983" class="LineNr">28983 </span> 0/imm32/no-disp32 +<span id="L28984" class="LineNr">28984 </span> 0/imm32/no-xm32 +<span id="L28985" class="LineNr">28985 </span> 0/imm32/no-x32 +<span id="L28986" class="LineNr">28986 </span> 0x11/imm32/alloc-id:fake +<span id="L28987" class="LineNr">28987 </span> <a href='mu.subx.html#L28988'>_Primitive-add-lit-to-reg</a>/imm32/next +<span id="L28988" class="LineNr">28988 </span><span class="subxMinorFunction">_Primitive-add-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L28989" class="LineNr">28989 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L28990" class="LineNr">28990 </span> <span class="subxComment"># var1/reg <- add lit => 81 0/subop/add var1/rm32 lit/imm32</span> +<span id="L28991" class="LineNr">28991 </span> 0x11/imm32/alloc-id:fake +<span id="L28992" class="LineNr">28992 </span> <a href='mu.subx.html#L31938'>_string-add</a>/imm32/name <span id="L28993" class="LineNr">28993 </span> 0x11/imm32/alloc-id:fake -<span id="L28994" class="LineNr">28994 </span> <a href='mu.subx.html#L28996'>_Primitive-copy-to-eax</a>/imm32/next -<span id="L28995" class="LineNr">28995 </span><span class="subxH1Comment"># - copy</span> -<span id="L28996" class="LineNr">28996 </span><span class="subxMinorFunction">_Primitive-copy-to-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L28997" class="LineNr">28997 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L28998" class="LineNr">28998 </span> <span class="subxComment"># var/eax <- copy lit => b8/copy-to-eax lit/imm32</span> -<span id="L28999" class="LineNr">28999 </span> 0x11/imm32/alloc-id:fake -<span id="L29000" class="LineNr">29000 </span> <a href='mu.subx.html#L31406'>_string-copy</a>/imm32/name -<span id="L29001" class="LineNr">29001 </span> 0x11/imm32/alloc-id:fake -<span id="L29002" class="LineNr">29002 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L29003" class="LineNr">29003 </span> 0x11/imm32/alloc-id:fake -<span id="L29004" class="LineNr">29004 </span> <span class="SpecialChar"><a href='mu.subx.html#L32298'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L29005" class="LineNr">29005 </span> 0x11/imm32/alloc-id:fake -<span id="L29006" class="LineNr">29006 </span> <a href='mu.subx.html#L32048'>_string_b8_copy_to_eax</a>/imm32/subx-name -<span id="L29007" class="LineNr">29007 </span> 0/imm32/no-rm32 -<span id="L29008" class="LineNr">29008 </span> 0/imm32/no-r32 -<span id="L29009" class="LineNr">29009 </span> 1/imm32/imm32-is-first-inout -<span id="L29010" class="LineNr">29010 </span> 0/imm32/no-imm8 -<span id="L29011" class="LineNr">29011 </span> 0/imm32/no-disp32 -<span id="L29012" class="LineNr">29012 </span> 0/imm32/no-xm32 -<span id="L29013" class="LineNr">29013 </span> 0/imm32/no-x32 -<span id="L29014" class="LineNr">29014 </span> 0x11/imm32/alloc-id:fake -<span id="L29015" class="LineNr">29015 </span> <a href='mu.subx.html#L29016'>_Primitive-copy-to-ecx</a>/imm32/next -<span id="L29016" class="LineNr">29016 </span><span class="subxMinorFunction">_Primitive-copy-to-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29017" class="LineNr">29017 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29018" class="LineNr">29018 </span> <span class="subxComment"># var/ecx <- copy lit => b9/copy-to-ecx lit/imm32</span> -<span id="L29019" class="LineNr">29019 </span> 0x11/imm32/alloc-id:fake -<span id="L29020" class="LineNr">29020 </span> <a href='mu.subx.html#L31406'>_string-copy</a>/imm32/name -<span id="L29021" class="LineNr">29021 </span> 0x11/imm32/alloc-id:fake -<span id="L29022" class="LineNr">29022 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L29023" class="LineNr">29023 </span> 0x11/imm32/alloc-id:fake -<span id="L29024" class="LineNr">29024 </span> <span class="SpecialChar"><a href='mu.subx.html#L32316'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L29025" class="LineNr">29025 </span> 0x11/imm32/alloc-id:fake -<span id="L29026" class="LineNr">29026 </span> <a href='mu.subx.html#L32053'>_string_b9_copy_to_ecx</a>/imm32/subx-name -<span id="L29027" class="LineNr">29027 </span> 0/imm32/no-rm32 -<span id="L29028" class="LineNr">29028 </span> 0/imm32/no-r32 -<span id="L29029" class="LineNr">29029 </span> 1/imm32/imm32-is-first-inout -<span id="L29030" class="LineNr">29030 </span> 0/imm32/no-imm8 -<span id="L29031" class="LineNr">29031 </span> 0/imm32/no-disp32 -<span id="L29032" class="LineNr">29032 </span> 0/imm32/no-xm32 -<span id="L29033" class="LineNr">29033 </span> 0/imm32/no-x32 +<span id="L28994" class="LineNr">28994 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L28995" class="LineNr">28995 </span> 0x11/imm32/alloc-id:fake +<span id="L28996" class="LineNr">28996 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L28997" class="LineNr">28997 </span> 0x11/imm32/alloc-id:fake +<span id="L28998" class="LineNr">28998 </span> <a href='mu.subx.html#L32630'>_string_81_subop_add</a>/imm32/subx-name +<span id="L28999" class="LineNr">28999 </span> 3/imm32/rm32-is-first-output +<span id="L29000" class="LineNr">29000 </span> 0/imm32/no-r32 +<span id="L29001" class="LineNr">29001 </span> 1/imm32/imm32-is-first-inout +<span id="L29002" class="LineNr">29002 </span> 0/imm32/no-imm8 +<span id="L29003" class="LineNr">29003 </span> 0/imm32/no-disp32 +<span id="L29004" class="LineNr">29004 </span> 0/imm32/no-xm32 +<span id="L29005" class="LineNr">29005 </span> 0/imm32/no-x32 +<span id="L29006" class="LineNr">29006 </span> 0x11/imm32/alloc-id:fake +<span id="L29007" class="LineNr">29007 </span> <a href='mu.subx.html#L29008'>_Primitive-add-lit-to-mem</a>/imm32/next +<span id="L29008" class="LineNr">29008 </span><span class="subxMinorFunction">_Primitive-add-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29009" class="LineNr">29009 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29010" class="LineNr">29010 </span> <span class="subxComment"># add-to var1, lit => 81 0/subop/add var1/rm32 lit/imm32</span> +<span id="L29011" class="LineNr">29011 </span> 0x11/imm32/alloc-id:fake +<span id="L29012" class="LineNr">29012 </span> <a href='mu.subx.html#L31948'>_string-add-to</a>/imm32/name +<span id="L29013" class="LineNr">29013 </span> 0x11/imm32/alloc-id:fake +<span id="L29014" class="LineNr">29014 </span> <span class="SpecialChar"><a href='mu.subx.html#L32840'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L29015" class="LineNr">29015 </span> 0/imm32/no-outputs +<span id="L29016" class="LineNr">29016 </span> 0/imm32/no-outputs +<span id="L29017" class="LineNr">29017 </span> 0x11/imm32/alloc-id:fake +<span id="L29018" class="LineNr">29018 </span> <a href='mu.subx.html#L32630'>_string_81_subop_add</a>/imm32/subx-name +<span id="L29019" class="LineNr">29019 </span> 1/imm32/rm32-is-first-inout +<span id="L29020" class="LineNr">29020 </span> 0/imm32/no-r32 +<span id="L29021" class="LineNr">29021 </span> 2/imm32/imm32-is-second-inout +<span id="L29022" class="LineNr">29022 </span> 0/imm32/no-imm8 +<span id="L29023" class="LineNr">29023 </span> 0/imm32/no-disp32 +<span id="L29024" class="LineNr">29024 </span> 0/imm32/no-xm32 +<span id="L29025" class="LineNr">29025 </span> 0/imm32/no-x32 +<span id="L29026" class="LineNr">29026 </span> 0x11/imm32/alloc-id:fake +<span id="L29027" class="LineNr">29027 </span> <a href='mu.subx.html#L29029'>_Primitive-subtract-from-eax</a>/imm32/next +<span id="L29028" class="LineNr">29028 </span><span class="subxH1Comment"># - subtract</span> +<span id="L29029" class="LineNr">29029 </span><span class="subxMinorFunction">_Primitive-subtract-from-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29030" class="LineNr">29030 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29031" class="LineNr">29031 </span> <span class="subxComment"># var/eax <- subtract lit => 2d/subtract-from-eax lit/imm32</span> +<span id="L29032" class="LineNr">29032 </span> 0x11/imm32/alloc-id:fake +<span id="L29033" class="LineNr">29033 </span> <a href='mu.subx.html#L32213'>_string-subtract</a>/imm32/name <span id="L29034" class="LineNr">29034 </span> 0x11/imm32/alloc-id:fake -<span id="L29035" class="LineNr">29035 </span> <a href='mu.subx.html#L29036'>_Primitive-copy-to-edx</a>/imm32/next -<span id="L29036" class="LineNr">29036 </span><span class="subxMinorFunction">_Primitive-copy-to-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29037" class="LineNr">29037 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29038" class="LineNr">29038 </span> <span class="subxComment"># var/edx <- copy lit => ba/copy-to-edx lit/imm32</span> -<span id="L29039" class="LineNr">29039 </span> 0x11/imm32/alloc-id:fake -<span id="L29040" class="LineNr">29040 </span> <a href='mu.subx.html#L31406'>_string-copy</a>/imm32/name -<span id="L29041" class="LineNr">29041 </span> 0x11/imm32/alloc-id:fake -<span id="L29042" class="LineNr">29042 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L29043" class="LineNr">29043 </span> 0x11/imm32/alloc-id:fake -<span id="L29044" class="LineNr">29044 </span> <span class="SpecialChar"><a href='mu.subx.html#L32334'>Single-int-var-in-edx</a></span>/imm32/outputs -<span id="L29045" class="LineNr">29045 </span> 0x11/imm32/alloc-id:fake -<span id="L29046" class="LineNr">29046 </span> <a href='mu.subx.html#L32058'>_string_ba_copy_to_edx</a>/imm32/subx-name -<span id="L29047" class="LineNr">29047 </span> 0/imm32/no-rm32 -<span id="L29048" class="LineNr">29048 </span> 0/imm32/no-r32 -<span id="L29049" class="LineNr">29049 </span> 1/imm32/imm32-is-first-inout -<span id="L29050" class="LineNr">29050 </span> 0/imm32/no-imm8 -<span id="L29051" class="LineNr">29051 </span> 0/imm32/no-disp32 -<span id="L29052" class="LineNr">29052 </span> 0/imm32/no-xm32 -<span id="L29053" class="LineNr">29053 </span> 0/imm32/no-x32 +<span id="L29035" class="LineNr">29035 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29036" class="LineNr">29036 </span> 0x11/imm32/alloc-id:fake +<span id="L29037" class="LineNr">29037 </span> <span class="SpecialChar"><a href='mu.subx.html#L32935'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L29038" class="LineNr">29038 </span> 0x11/imm32/alloc-id:fake +<span id="L29039" class="LineNr">29039 </span> <a href='mu.subx.html#L32535'>_string_2d_subtract_from_eax</a>/imm32/subx-name +<span id="L29040" class="LineNr">29040 </span> 0/imm32/no-rm32 +<span id="L29041" class="LineNr">29041 </span> 0/imm32/no-r32 +<span id="L29042" class="LineNr">29042 </span> 1/imm32/imm32-is-first-inout +<span id="L29043" class="LineNr">29043 </span> 0/imm32/no-imm8 +<span id="L29044" class="LineNr">29044 </span> 0/imm32/no-disp32 +<span id="L29045" class="LineNr">29045 </span> 0/imm32/no-xm32 +<span id="L29046" class="LineNr">29046 </span> 0/imm32/no-x32 +<span id="L29047" class="LineNr">29047 </span> 0x11/imm32/alloc-id:fake +<span id="L29048" class="LineNr">29048 </span> <a href='mu.subx.html#L29049'>_Primitive-subtract-reg-from-reg</a>/imm32/next +<span id="L29049" class="LineNr">29049 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29050" class="LineNr">29050 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29051" class="LineNr">29051 </span> <span class="subxComment"># var1/reg <- subtract var2/reg => 29/subtract-from var1/rm32 var2/r32</span> +<span id="L29052" class="LineNr">29052 </span> 0x11/imm32/alloc-id:fake +<span id="L29053" class="LineNr">29053 </span> <a href='mu.subx.html#L32213'>_string-subtract</a>/imm32/name <span id="L29054" class="LineNr">29054 </span> 0x11/imm32/alloc-id:fake -<span id="L29055" class="LineNr">29055 </span> <a href='mu.subx.html#L29056'>_Primitive-copy-to-ebx</a>/imm32/next -<span id="L29056" class="LineNr">29056 </span><span class="subxMinorFunction">_Primitive-copy-to-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29057" class="LineNr">29057 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29058" class="LineNr">29058 </span> <span class="subxComment"># var/ebx <- copy lit => bb/copy-to-ebx lit/imm32</span> -<span id="L29059" class="LineNr">29059 </span> 0x11/imm32/alloc-id:fake -<span id="L29060" class="LineNr">29060 </span> <a href='mu.subx.html#L31406'>_string-copy</a>/imm32/name -<span id="L29061" class="LineNr">29061 </span> 0x11/imm32/alloc-id:fake -<span id="L29062" class="LineNr">29062 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L29063" class="LineNr">29063 </span> 0x11/imm32/alloc-id:fake -<span id="L29064" class="LineNr">29064 </span> <span class="SpecialChar"><a href='mu.subx.html#L32352'>Single-int-var-in-ebx</a></span>/imm32/outputs -<span id="L29065" class="LineNr">29065 </span> 0x11/imm32/alloc-id:fake -<span id="L29066" class="LineNr">29066 </span> <a href='mu.subx.html#L32063'>_string_bb_copy_to_ebx</a>/imm32/subx-name -<span id="L29067" class="LineNr">29067 </span> 0/imm32/no-rm32 -<span id="L29068" class="LineNr">29068 </span> 0/imm32/no-r32 -<span id="L29069" class="LineNr">29069 </span> 1/imm32/imm32-is-first-inout -<span id="L29070" class="LineNr">29070 </span> 0/imm32/no-imm8 -<span id="L29071" class="LineNr">29071 </span> 0/imm32/no-disp32 -<span id="L29072" class="LineNr">29072 </span> 0/imm32/no-xm32 -<span id="L29073" class="LineNr">29073 </span> 0/imm32/no-x32 +<span id="L29055" class="LineNr">29055 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L29056" class="LineNr">29056 </span> 0x11/imm32/alloc-id:fake +<span id="L29057" class="LineNr">29057 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29058" class="LineNr">29058 </span> 0x11/imm32/alloc-id:fake +<span id="L29059" class="LineNr">29059 </span> <a href='mu.subx.html#L32525'>_string_29_subtract_from</a>/imm32/subx-name +<span id="L29060" class="LineNr">29060 </span> 3/imm32/rm32-is-first-output +<span id="L29061" class="LineNr">29061 </span> 1/imm32/r32-is-first-inout +<span id="L29062" class="LineNr">29062 </span> 0/imm32/no-imm32 +<span id="L29063" class="LineNr">29063 </span> 0/imm32/no-imm8 +<span id="L29064" class="LineNr">29064 </span> 0/imm32/no-disp32 +<span id="L29065" class="LineNr">29065 </span> 0/imm32/no-xm32 +<span id="L29066" class="LineNr">29066 </span> 0/imm32/no-x32 +<span id="L29067" class="LineNr">29067 </span> 0x11/imm32/alloc-id:fake +<span id="L29068" class="LineNr">29068 </span> <a href='mu.subx.html#L29069'>_Primitive-subtract-reg-from-mem</a>/imm32/next +<span id="L29069" class="LineNr">29069 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29070" class="LineNr">29070 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29071" class="LineNr">29071 </span> <span class="subxComment"># subtract-from var1 var2/reg => 29/subtract-from var1 var2/r32</span> +<span id="L29072" class="LineNr">29072 </span> 0x11/imm32/alloc-id:fake +<span id="L29073" class="LineNr">29073 </span> <a href='mu.subx.html#L32218'>_string-subtract-from</a>/imm32/name <span id="L29074" class="LineNr">29074 </span> 0x11/imm32/alloc-id:fake -<span id="L29075" class="LineNr">29075 </span> <a href='mu.subx.html#L29076'>_Primitive-copy-to-esi</a>/imm32/next -<span id="L29076" class="LineNr">29076 </span><span class="subxMinorFunction">_Primitive-copy-to-esi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29077" class="LineNr">29077 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29078" class="LineNr">29078 </span> <span class="subxComment"># var/esi <- copy lit => be/copy-to-esi lit/imm32</span> -<span id="L29079" class="LineNr">29079 </span> 0x11/imm32/alloc-id:fake -<span id="L29080" class="LineNr">29080 </span> <a href='mu.subx.html#L31406'>_string-copy</a>/imm32/name -<span id="L29081" class="LineNr">29081 </span> 0x11/imm32/alloc-id:fake -<span id="L29082" class="LineNr">29082 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L29083" class="LineNr">29083 </span> 0x11/imm32/alloc-id:fake -<span id="L29084" class="LineNr">29084 </span> <span class="SpecialChar"><a href='mu.subx.html#L32370'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L29085" class="LineNr">29085 </span> 0x11/imm32/alloc-id:fake -<span id="L29086" class="LineNr">29086 </span> <a href='mu.subx.html#L32068'>_string_be_copy_to_esi</a>/imm32/subx-name -<span id="L29087" class="LineNr">29087 </span> 0/imm32/no-rm32 -<span id="L29088" class="LineNr">29088 </span> 0/imm32/no-r32 -<span id="L29089" class="LineNr">29089 </span> 1/imm32/imm32-is-first-inout -<span id="L29090" class="LineNr">29090 </span> 0/imm32/no-imm8 -<span id="L29091" class="LineNr">29091 </span> 0/imm32/no-disp32 -<span id="L29092" class="LineNr">29092 </span> 0/imm32/no-xm32 -<span id="L29093" class="LineNr">29093 </span> 0/imm32/no-x32 +<span id="L29075" class="LineNr">29075 </span> <span class="SpecialChar"><a href='mu.subx.html#L32804'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L29076" class="LineNr">29076 </span> 0/imm32/no-outputs +<span id="L29077" class="LineNr">29077 </span> 0/imm32/no-outputs +<span id="L29078" class="LineNr">29078 </span> 0x11/imm32/alloc-id:fake +<span id="L29079" class="LineNr">29079 </span> <a href='mu.subx.html#L32525'>_string_29_subtract_from</a>/imm32/subx-name +<span id="L29080" class="LineNr">29080 </span> 1/imm32/rm32-is-first-inout +<span id="L29081" class="LineNr">29081 </span> 2/imm32/r32-is-second-inout +<span id="L29082" class="LineNr">29082 </span> 0/imm32/no-imm32 +<span id="L29083" class="LineNr">29083 </span> 0/imm32/no-imm8 +<span id="L29084" class="LineNr">29084 </span> 0/imm32/no-disp32 +<span id="L29085" class="LineNr">29085 </span> 0/imm32/no-xm32 +<span id="L29086" class="LineNr">29086 </span> 0/imm32/no-x32 +<span id="L29087" class="LineNr">29087 </span> 0x11/imm32/alloc-id:fake +<span id="L29088" class="LineNr">29088 </span> <a href='mu.subx.html#L29089'>_Primitive-subtract-mem-from-reg</a>/imm32/next +<span id="L29089" class="LineNr">29089 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29090" class="LineNr">29090 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29091" class="LineNr">29091 </span> <span class="subxComment"># var1/reg <- subtract var2 => 2b/subtract var2/rm32 var1/r32</span> +<span id="L29092" class="LineNr">29092 </span> 0x11/imm32/alloc-id:fake +<span id="L29093" class="LineNr">29093 </span> <a href='mu.subx.html#L32213'>_string-subtract</a>/imm32/name <span id="L29094" class="LineNr">29094 </span> 0x11/imm32/alloc-id:fake -<span id="L29095" class="LineNr">29095 </span> <a href='mu.subx.html#L29096'>_Primitive-copy-to-edi</a>/imm32/next -<span id="L29096" class="LineNr">29096 </span><span class="subxMinorFunction">_Primitive-copy-to-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29097" class="LineNr">29097 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29098" class="LineNr">29098 </span> <span class="subxComment"># var/edi <- copy lit => bf/copy-to-edi lit/imm32</span> -<span id="L29099" class="LineNr">29099 </span> 0x11/imm32/alloc-id:fake -<span id="L29100" class="LineNr">29100 </span> <a href='mu.subx.html#L31406'>_string-copy</a>/imm32/name -<span id="L29101" class="LineNr">29101 </span> 0x11/imm32/alloc-id:fake -<span id="L29102" class="LineNr">29102 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L29103" class="LineNr">29103 </span> 0x11/imm32/alloc-id:fake -<span id="L29104" class="LineNr">29104 </span> <span class="SpecialChar"><a href='mu.subx.html#L32388'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L29105" class="LineNr">29105 </span> 0x11/imm32/alloc-id:fake -<span id="L29106" class="LineNr">29106 </span> <a href='mu.subx.html#L32073'>_string_bf_copy_to_edi</a>/imm32/subx-name -<span id="L29107" class="LineNr">29107 </span> 0/imm32/no-rm32 -<span id="L29108" class="LineNr">29108 </span> 0/imm32/no-r32 -<span id="L29109" class="LineNr">29109 </span> 1/imm32/imm32-is-first-inout -<span id="L29110" class="LineNr">29110 </span> 0/imm32/no-imm8 -<span id="L29111" class="LineNr">29111 </span> 0/imm32/no-disp32 -<span id="L29112" class="LineNr">29112 </span> 0/imm32/no-xm32 -<span id="L29113" class="LineNr">29113 </span> 0/imm32/no-x32 +<span id="L29095" class="LineNr">29095 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L29096" class="LineNr">29096 </span> 0x11/imm32/alloc-id:fake +<span id="L29097" class="LineNr">29097 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29098" class="LineNr">29098 </span> 0x11/imm32/alloc-id:fake +<span id="L29099" class="LineNr">29099 </span> <a href='mu.subx.html#L32530'>_string_2b_subtract</a>/imm32/subx-name +<span id="L29100" class="LineNr">29100 </span> 1/imm32/rm32-is-first-inout +<span id="L29101" class="LineNr">29101 </span> 3/imm32/r32-is-first-output +<span id="L29102" class="LineNr">29102 </span> 0/imm32/no-imm32 +<span id="L29103" class="LineNr">29103 </span> 0/imm32/no-imm8 +<span id="L29104" class="LineNr">29104 </span> 0/imm32/no-disp32 +<span id="L29105" class="LineNr">29105 </span> 0/imm32/no-xm32 +<span id="L29106" class="LineNr">29106 </span> 0/imm32/no-x32 +<span id="L29107" class="LineNr">29107 </span> 0x11/imm32/alloc-id:fake +<span id="L29108" class="LineNr">29108 </span> <a href='mu.subx.html#L29109'>_Primitive-subtract-lit-from-reg</a>/imm32/next +<span id="L29109" class="LineNr">29109 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29110" class="LineNr">29110 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29111" class="LineNr">29111 </span> <span class="subxComment"># var1/reg <- subtract lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> +<span id="L29112" class="LineNr">29112 </span> 0x11/imm32/alloc-id:fake +<span id="L29113" class="LineNr">29113 </span> <a href='mu.subx.html#L32213'>_string-subtract</a>/imm32/name <span id="L29114" class="LineNr">29114 </span> 0x11/imm32/alloc-id:fake -<span id="L29115" class="LineNr">29115 </span> <a href='mu.subx.html#L29116'>_Primitive-copy-reg-to-reg</a>/imm32/next -<span id="L29116" class="LineNr">29116 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29117" class="LineNr">29117 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29118" class="LineNr">29118 </span> <span class="subxComment"># var1/reg <- copy var2/reg => 89/<- var1/rm32 var2/r32</span> -<span id="L29119" class="LineNr">29119 </span> 0x11/imm32/alloc-id:fake -<span id="L29120" class="LineNr">29120 </span> <a href='mu.subx.html#L31406'>_string-copy</a>/imm32/name -<span id="L29121" class="LineNr">29121 </span> 0x11/imm32/alloc-id:fake -<span id="L29122" class="LineNr">29122 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L29123" class="LineNr">29123 </span> 0x11/imm32/alloc-id:fake -<span id="L29124" class="LineNr">29124 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L29125" class="LineNr">29125 </span> 0x11/imm32/alloc-id:fake -<span id="L29126" class="LineNr">29126 </span> <a href='mu.subx.html#L32023'>_string_89_<-</a>/imm32/subx-name -<span id="L29127" class="LineNr">29127 </span> 3/imm32/rm32-is-first-output -<span id="L29128" class="LineNr">29128 </span> 1/imm32/r32-is-first-inout -<span id="L29129" class="LineNr">29129 </span> 0/imm32/no-imm32 -<span id="L29130" class="LineNr">29130 </span> 0/imm32/no-imm8 -<span id="L29131" class="LineNr">29131 </span> 0/imm32/no-disp32 -<span id="L29132" class="LineNr">29132 </span> 0/imm32/no-xm32 -<span id="L29133" class="LineNr">29133 </span> 0/imm32/no-x32 +<span id="L29115" class="LineNr">29115 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29116" class="LineNr">29116 </span> 0x11/imm32/alloc-id:fake +<span id="L29117" class="LineNr">29117 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29118" class="LineNr">29118 </span> 0x11/imm32/alloc-id:fake +<span id="L29119" class="LineNr">29119 </span> <a href='mu.subx.html#L32645'>_string_81_subop_subtract</a>/imm32/subx-name +<span id="L29120" class="LineNr">29120 </span> 3/imm32/rm32-is-first-output +<span id="L29121" class="LineNr">29121 </span> 0/imm32/no-r32 +<span id="L29122" class="LineNr">29122 </span> 1/imm32/imm32-is-first-inout +<span id="L29123" class="LineNr">29123 </span> 0/imm32/no-imm8 +<span id="L29124" class="LineNr">29124 </span> 0/imm32/no-disp32 +<span id="L29125" class="LineNr">29125 </span> 0/imm32/no-xm32 +<span id="L29126" class="LineNr">29126 </span> 0/imm32/no-x32 +<span id="L29127" class="LineNr">29127 </span> 0x11/imm32/alloc-id:fake +<span id="L29128" class="LineNr">29128 </span> <a href='mu.subx.html#L29129'>_Primitive-subtract-lit-from-mem</a>/imm32/next +<span id="L29129" class="LineNr">29129 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29130" class="LineNr">29130 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29131" class="LineNr">29131 </span> <span class="subxComment"># subtract-from var1, lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> +<span id="L29132" class="LineNr">29132 </span> 0x11/imm32/alloc-id:fake +<span id="L29133" class="LineNr">29133 </span> <a href='mu.subx.html#L32218'>_string-subtract-from</a>/imm32/name <span id="L29134" class="LineNr">29134 </span> 0x11/imm32/alloc-id:fake -<span id="L29135" class="LineNr">29135 </span> <a href='mu.subx.html#L29136'>_Primitive-copy-reg-to-mem</a>/imm32/next -<span id="L29136" class="LineNr">29136 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29137" class="LineNr">29137 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29138" class="LineNr">29138 </span> <span class="subxComment"># copy-to var1 var2/reg => 89/<- var1 var2/r32</span> -<span id="L29139" class="LineNr">29139 </span> 0x11/imm32/alloc-id:fake -<span id="L29140" class="LineNr">29140 </span> <a href='mu.subx.html#L31411'>_string-copy-to</a>/imm32/name -<span id="L29141" class="LineNr">29141 </span> 0x11/imm32/alloc-id:fake -<span id="L29142" class="LineNr">29142 </span> <span class="SpecialChar"><a href='mu.subx.html#L32167'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L29143" class="LineNr">29143 </span> 0/imm32/no-outputs -<span id="L29144" class="LineNr">29144 </span> 0/imm32/no-outputs -<span id="L29145" class="LineNr">29145 </span> 0x11/imm32/alloc-id:fake -<span id="L29146" class="LineNr">29146 </span> <a href='mu.subx.html#L32023'>_string_89_<-</a>/imm32/subx-name -<span id="L29147" class="LineNr">29147 </span> 1/imm32/rm32-is-first-inout -<span id="L29148" class="LineNr">29148 </span> 2/imm32/r32-is-second-inout -<span id="L29149" class="LineNr">29149 </span> 0/imm32/no-imm32 -<span id="L29150" class="LineNr">29150 </span> 0/imm32/no-imm8 -<span id="L29151" class="LineNr">29151 </span> 0/imm32/no-disp32 -<span id="L29152" class="LineNr">29152 </span> 0/imm32/no-xm32 -<span id="L29153" class="LineNr">29153 </span> 0/imm32/no-x32 -<span id="L29154" class="LineNr">29154 </span> 0x11/imm32/alloc-id:fake -<span id="L29155" class="LineNr">29155 </span> <a href='mu.subx.html#L29156'>_Primitive-copy-mem-to-reg</a>/imm32/next -<span id="L29156" class="LineNr">29156 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29157" class="LineNr">29157 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29158" class="LineNr">29158 </span> <span class="subxComment"># var1/reg <- copy var2 => 8b/-> var2/rm32 var1/r32</span> +<span id="L29135" class="LineNr">29135 </span> <span class="SpecialChar"><a href='mu.subx.html#L32840'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L29136" class="LineNr">29136 </span> 0/imm32/no-outputs +<span id="L29137" class="LineNr">29137 </span> 0/imm32/no-outputs +<span id="L29138" class="LineNr">29138 </span> 0x11/imm32/alloc-id:fake +<span id="L29139" class="LineNr">29139 </span> <a href='mu.subx.html#L32645'>_string_81_subop_subtract</a>/imm32/subx-name +<span id="L29140" class="LineNr">29140 </span> 1/imm32/rm32-is-first-inout +<span id="L29141" class="LineNr">29141 </span> 0/imm32/no-r32 +<span id="L29142" class="LineNr">29142 </span> 2/imm32/imm32-is-second-inout +<span id="L29143" class="LineNr">29143 </span> 0/imm32/no-imm8 +<span id="L29144" class="LineNr">29144 </span> 0/imm32/no-disp32 +<span id="L29145" class="LineNr">29145 </span> 0/imm32/no-xm32 +<span id="L29146" class="LineNr">29146 </span> 0/imm32/no-x32 +<span id="L29147" class="LineNr">29147 </span> 0x11/imm32/alloc-id:fake +<span id="L29148" class="LineNr">29148 </span> <a href='mu.subx.html#L29150'>_Primitive-and-with-eax</a>/imm32/next +<span id="L29149" class="LineNr">29149 </span><span class="subxH1Comment"># - and</span> +<span id="L29150" class="LineNr">29150 </span><span class="subxMinorFunction">_Primitive-and-with-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29151" class="LineNr">29151 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29152" class="LineNr">29152 </span> <span class="subxComment"># var/eax <- and lit => 25/and-with-eax lit/imm32</span> +<span id="L29153" class="LineNr">29153 </span> 0x11/imm32/alloc-id:fake +<span id="L29154" class="LineNr">29154 </span> <a href='mu.subx.html#L31953'>_string-and</a>/imm32/name +<span id="L29155" class="LineNr">29155 </span> 0x11/imm32/alloc-id:fake +<span id="L29156" class="LineNr">29156 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29157" class="LineNr">29157 </span> 0x11/imm32/alloc-id:fake +<span id="L29158" class="LineNr">29158 </span> <span class="SpecialChar"><a href='mu.subx.html#L32935'>Single-int-var-in-eax</a></span>/imm32/outputs <span id="L29159" class="LineNr">29159 </span> 0x11/imm32/alloc-id:fake -<span id="L29160" class="LineNr">29160 </span> <a href='mu.subx.html#L31406'>_string-copy</a>/imm32/name -<span id="L29161" class="LineNr">29161 </span> 0x11/imm32/alloc-id:fake -<span id="L29162" class="LineNr">29162 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L29163" class="LineNr">29163 </span> 0x11/imm32/alloc-id:fake -<span id="L29164" class="LineNr">29164 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L29165" class="LineNr">29165 </span> 0x11/imm32/alloc-id:fake -<span id="L29166" class="LineNr">29166 </span> <a href='mu.subx.html#L32028'>_string_8b_-></a>/imm32/subx-name -<span id="L29167" class="LineNr">29167 </span> 1/imm32/rm32-is-first-inout -<span id="L29168" class="LineNr">29168 </span> 3/imm32/r32-is-first-output -<span id="L29169" class="LineNr">29169 </span> 0/imm32/no-imm32 -<span id="L29170" class="LineNr">29170 </span> 0/imm32/no-imm8 -<span id="L29171" class="LineNr">29171 </span> 0/imm32/no-disp32 -<span id="L29172" class="LineNr">29172 </span> 0/imm32/no-xm32 -<span id="L29173" class="LineNr">29173 </span> 0/imm32/no-x32 -<span id="L29174" class="LineNr">29174 </span> 0x11/imm32/alloc-id:fake -<span id="L29175" class="LineNr">29175 </span> <a href='mu.subx.html#L29176'>_Primitive-copy-lit-to-reg</a>/imm32/next -<span id="L29176" class="LineNr">29176 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29177" class="LineNr">29177 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29178" class="LineNr">29178 </span> <span class="subxComment"># var1/reg <- copy lit => c7 0/subop/copy var1/rm32 lit/imm32</span> +<span id="L29160" class="LineNr">29160 </span> <a href='mu.subx.html#L32520'>_string_25_and_with_eax</a>/imm32/subx-name +<span id="L29161" class="LineNr">29161 </span> 0/imm32/no-rm32 +<span id="L29162" class="LineNr">29162 </span> 0/imm32/no-r32 +<span id="L29163" class="LineNr">29163 </span> 1/imm32/imm32-is-first-inout +<span id="L29164" class="LineNr">29164 </span> 0/imm32/no-imm8 +<span id="L29165" class="LineNr">29165 </span> 0/imm32/no-disp32 +<span id="L29166" class="LineNr">29166 </span> 0/imm32/no-xm32 +<span id="L29167" class="LineNr">29167 </span> 0/imm32/no-x32 +<span id="L29168" class="LineNr">29168 </span> 0x11/imm32/alloc-id:fake +<span id="L29169" class="LineNr">29169 </span> <a href='mu.subx.html#L29170'>_Primitive-and-reg-with-reg</a>/imm32/next +<span id="L29170" class="LineNr">29170 </span><span class="subxMinorFunction">_Primitive-and-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29171" class="LineNr">29171 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29172" class="LineNr">29172 </span> <span class="subxComment"># var1/reg <- and var2/reg => 21/and-with var1/rm32 var2/r32</span> +<span id="L29173" class="LineNr">29173 </span> 0x11/imm32/alloc-id:fake +<span id="L29174" class="LineNr">29174 </span> <a href='mu.subx.html#L31953'>_string-and</a>/imm32/name +<span id="L29175" class="LineNr">29175 </span> 0x11/imm32/alloc-id:fake +<span id="L29176" class="LineNr">29176 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L29177" class="LineNr">29177 </span> 0x11/imm32/alloc-id:fake +<span id="L29178" class="LineNr">29178 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L29179" class="LineNr">29179 </span> 0x11/imm32/alloc-id:fake -<span id="L29180" class="LineNr">29180 </span> <a href='mu.subx.html#L31406'>_string-copy</a>/imm32/name -<span id="L29181" class="LineNr">29181 </span> 0x11/imm32/alloc-id:fake -<span id="L29182" class="LineNr">29182 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L29183" class="LineNr">29183 </span> 0x11/imm32/alloc-id:fake -<span id="L29184" class="LineNr">29184 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L29185" class="LineNr">29185 </span> 0x11/imm32/alloc-id:fake -<span id="L29186" class="LineNr">29186 </span> <a href='mu.subx.html#L32078'>_string_c7_subop_copy</a>/imm32/subx-name -<span id="L29187" class="LineNr">29187 </span> 3/imm32/rm32-is-first-output -<span id="L29188" class="LineNr">29188 </span> 0/imm32/no-r32 -<span id="L29189" class="LineNr">29189 </span> 1/imm32/imm32-is-first-inout -<span id="L29190" class="LineNr">29190 </span> 0/imm32/no-imm8 -<span id="L29191" class="LineNr">29191 </span> 0/imm32/no-disp32 -<span id="L29192" class="LineNr">29192 </span> 0/imm32/no-xm32 -<span id="L29193" class="LineNr">29193 </span> 0/imm32/no-x32 -<span id="L29194" class="LineNr">29194 </span> 0x11/imm32/alloc-id:fake -<span id="L29195" class="LineNr">29195 </span> <a href='mu.subx.html#L29196'>_Primitive-copy-lit-to-mem</a>/imm32/next -<span id="L29196" class="LineNr">29196 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29197" class="LineNr">29197 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29198" class="LineNr">29198 </span> <span class="subxComment"># copy-to var1, lit => c7 0/subop/copy var1/rm32 lit/imm32</span> +<span id="L29180" class="LineNr">29180 </span> <a href='mu.subx.html#L32510'>_string_21_and_with</a>/imm32/subx-name +<span id="L29181" class="LineNr">29181 </span> 3/imm32/rm32-is-first-output +<span id="L29182" class="LineNr">29182 </span> 1/imm32/r32-is-first-inout +<span id="L29183" class="LineNr">29183 </span> 0/imm32/no-imm32 +<span id="L29184" class="LineNr">29184 </span> 0/imm32/no-imm8 +<span id="L29185" class="LineNr">29185 </span> 0/imm32/no-disp32 +<span id="L29186" class="LineNr">29186 </span> 0/imm32/no-xm32 +<span id="L29187" class="LineNr">29187 </span> 0/imm32/no-x32 +<span id="L29188" class="LineNr">29188 </span> 0x11/imm32/alloc-id:fake +<span id="L29189" class="LineNr">29189 </span> <a href='mu.subx.html#L29190'>_Primitive-and-reg-with-mem</a>/imm32/next +<span id="L29190" class="LineNr">29190 </span><span class="subxMinorFunction">_Primitive-and-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29191" class="LineNr">29191 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29192" class="LineNr">29192 </span> <span class="subxComment"># and-with var1 var2/reg => 21/and-with var1 var2/r32</span> +<span id="L29193" class="LineNr">29193 </span> 0x11/imm32/alloc-id:fake +<span id="L29194" class="LineNr">29194 </span> <a href='mu.subx.html#L31958'>_string-and-with</a>/imm32/name +<span id="L29195" class="LineNr">29195 </span> 0x11/imm32/alloc-id:fake +<span id="L29196" class="LineNr">29196 </span> <span class="SpecialChar"><a href='mu.subx.html#L32804'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L29197" class="LineNr">29197 </span> 0/imm32/no-outputs +<span id="L29198" class="LineNr">29198 </span> 0/imm32/no-outputs <span id="L29199" class="LineNr">29199 </span> 0x11/imm32/alloc-id:fake -<span id="L29200" class="LineNr">29200 </span> <a href='mu.subx.html#L31411'>_string-copy-to</a>/imm32/name -<span id="L29201" class="LineNr">29201 </span> 0x11/imm32/alloc-id:fake -<span id="L29202" class="LineNr">29202 </span> <span class="SpecialChar"><a href='mu.subx.html#L32203'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L29203" class="LineNr">29203 </span> 0/imm32/no-outputs -<span id="L29204" class="LineNr">29204 </span> 0/imm32/no-outputs -<span id="L29205" class="LineNr">29205 </span> 0x11/imm32/alloc-id:fake -<span id="L29206" class="LineNr">29206 </span> <a href='mu.subx.html#L32078'>_string_c7_subop_copy</a>/imm32/subx-name -<span id="L29207" class="LineNr">29207 </span> 1/imm32/rm32-is-first-inout -<span id="L29208" class="LineNr">29208 </span> 0/imm32/no-r32 -<span id="L29209" class="LineNr">29209 </span> 2/imm32/imm32-is-second-inout -<span id="L29210" class="LineNr">29210 </span> 0/imm32/no-imm8 -<span id="L29211" class="LineNr">29211 </span> 0/imm32/no-disp32 -<span id="L29212" class="LineNr">29212 </span> 0/imm32/no-xm32 -<span id="L29213" class="LineNr">29213 </span> 0/imm32/no-x32 -<span id="L29214" class="LineNr">29214 </span> 0x11/imm32/alloc-id:fake -<span id="L29215" class="LineNr">29215 </span> <a href='mu.subx.html#L29217'>_Primitive-copy-byte-from-reg</a>/imm32/next -<span id="L29216" class="LineNr">29216 </span><span class="subxH1Comment"># - copy byte</span> -<span id="L29217" class="LineNr">29217 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-reg</span>: -<span id="L29218" class="LineNr">29218 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29219" class="LineNr">29219 </span> <span class="subxComment"># var/reg <- copy-byte var2/reg2 => 8a/byte-> %var2 var/r32</span> -<span id="L29220" class="LineNr">29220 </span> 0x11/imm32/alloc-id:fake -<span id="L29221" class="LineNr">29221 </span> <a href='mu.subx.html#L31416'>_string-copy-byte</a>/imm32/name -<span id="L29222" class="LineNr">29222 </span> 0x11/imm32/alloc-id:fake -<span id="L29223" class="LineNr">29223 </span> <span class="SpecialChar"><a href='mu.subx.html#L32252'>Single-byte-var-in-some-register</a></span>/imm32/inouts -<span id="L29224" class="LineNr">29224 </span> 0x11/imm32/alloc-id:fake -<span id="L29225" class="LineNr">29225 </span> <span class="SpecialChar"><a href='mu.subx.html#L32252'>Single-byte-var-in-some-register</a></span>/imm32/outputs -<span id="L29226" class="LineNr">29226 </span> 0x11/imm32/alloc-id:fake -<span id="L29227" class="LineNr">29227 </span> <a href='mu.subx.html#L32033'>_string_8a_copy_byte</a>/imm32/subx-name -<span id="L29228" class="LineNr">29228 </span> 1/imm32/rm32-is-first-inout -<span id="L29229" class="LineNr">29229 </span> 3/imm32/r32-is-first-output -<span id="L29230" class="LineNr">29230 </span> 0/imm32/no-imm32 -<span id="L29231" class="LineNr">29231 </span> 0/imm32/no-imm8 -<span id="L29232" class="LineNr">29232 </span> 0/imm32/no-disp32 -<span id="L29233" class="LineNr">29233 </span> 0/imm32/no-xm32 -<span id="L29234" class="LineNr">29234 </span> 0/imm32/no-x32 +<span id="L29200" class="LineNr">29200 </span> <a href='mu.subx.html#L32510'>_string_21_and_with</a>/imm32/subx-name +<span id="L29201" class="LineNr">29201 </span> 1/imm32/rm32-is-first-inout +<span id="L29202" class="LineNr">29202 </span> 2/imm32/r32-is-second-inout +<span id="L29203" class="LineNr">29203 </span> 0/imm32/no-imm32 +<span id="L29204" class="LineNr">29204 </span> 0/imm32/no-imm8 +<span id="L29205" class="LineNr">29205 </span> 0/imm32/no-disp32 +<span id="L29206" class="LineNr">29206 </span> 0/imm32/no-xm32 +<span id="L29207" class="LineNr">29207 </span> 0/imm32/no-x32 +<span id="L29208" class="LineNr">29208 </span> 0x11/imm32/alloc-id:fake +<span id="L29209" class="LineNr">29209 </span> <a href='mu.subx.html#L29210'>_Primitive-and-mem-with-reg</a>/imm32/next +<span id="L29210" class="LineNr">29210 </span><span class="subxMinorFunction">_Primitive-and-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29211" class="LineNr">29211 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29212" class="LineNr">29212 </span> <span class="subxComment"># var1/reg <- and var2 => 23/and var2/rm32 var1/r32</span> +<span id="L29213" class="LineNr">29213 </span> 0x11/imm32/alloc-id:fake +<span id="L29214" class="LineNr">29214 </span> <a href='mu.subx.html#L31953'>_string-and</a>/imm32/name +<span id="L29215" class="LineNr">29215 </span> 0x11/imm32/alloc-id:fake +<span id="L29216" class="LineNr">29216 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L29217" class="LineNr">29217 </span> 0x11/imm32/alloc-id:fake +<span id="L29218" class="LineNr">29218 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29219" class="LineNr">29219 </span> 0x11/imm32/alloc-id:fake +<span id="L29220" class="LineNr">29220 </span> <a href='mu.subx.html#L32515'>_string_23_and</a>/imm32/subx-name +<span id="L29221" class="LineNr">29221 </span> 1/imm32/rm32-is-first-inout +<span id="L29222" class="LineNr">29222 </span> 3/imm32/r32-is-first-output +<span id="L29223" class="LineNr">29223 </span> 0/imm32/no-imm32 +<span id="L29224" class="LineNr">29224 </span> 0/imm32/no-imm8 +<span id="L29225" class="LineNr">29225 </span> 0/imm32/no-disp32 +<span id="L29226" class="LineNr">29226 </span> 0/imm32/no-xm32 +<span id="L29227" class="LineNr">29227 </span> 0/imm32/no-x32 +<span id="L29228" class="LineNr">29228 </span> 0x11/imm32/alloc-id:fake +<span id="L29229" class="LineNr">29229 </span> <a href='mu.subx.html#L29230'>_Primitive-and-lit-with-reg</a>/imm32/next +<span id="L29230" class="LineNr">29230 </span><span class="subxMinorFunction">_Primitive-and-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29231" class="LineNr">29231 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29232" class="LineNr">29232 </span> <span class="subxComment"># var1/reg <- and lit => 81 4/subop/and var1/rm32 lit/imm32</span> +<span id="L29233" class="LineNr">29233 </span> 0x11/imm32/alloc-id:fake +<span id="L29234" class="LineNr">29234 </span> <a href='mu.subx.html#L31953'>_string-and</a>/imm32/name <span id="L29235" class="LineNr">29235 </span> 0x11/imm32/alloc-id:fake -<span id="L29236" class="LineNr">29236 </span> <a href='mu.subx.html#L29237'>_Primitive-copy-byte-from-mem</a>/imm32/next -<span id="L29237" class="LineNr">29237 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-mem</span>: -<span id="L29238" class="LineNr">29238 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29239" class="LineNr">29239 </span> <span class="subxComment"># var/reg <- copy-byte *var2/reg2 => 8a/byte-> *var2 var/r32</span> -<span id="L29240" class="LineNr">29240 </span> 0x11/imm32/alloc-id:fake -<span id="L29241" class="LineNr">29241 </span> <a href='mu.subx.html#L31416'>_string-copy-byte</a>/imm32/name -<span id="L29242" class="LineNr">29242 </span> 0x11/imm32/alloc-id:fake -<span id="L29243" class="LineNr">29243 </span> <span class="SpecialChar"><a href='mu.subx.html#L32148'>Single-byte-var-in-mem</a></span>/imm32/inouts -<span id="L29244" class="LineNr">29244 </span> 0x11/imm32/alloc-id:fake -<span id="L29245" class="LineNr">29245 </span> <span class="SpecialChar"><a href='mu.subx.html#L32252'>Single-byte-var-in-some-register</a></span>/imm32/outputs -<span id="L29246" class="LineNr">29246 </span> 0x11/imm32/alloc-id:fake -<span id="L29247" class="LineNr">29247 </span> <a href='mu.subx.html#L32033'>_string_8a_copy_byte</a>/imm32/subx-name -<span id="L29248" class="LineNr">29248 </span> 1/imm32/rm32-is-first-inout -<span id="L29249" class="LineNr">29249 </span> 3/imm32/r32-is-first-output -<span id="L29250" class="LineNr">29250 </span> 0/imm32/no-imm32 -<span id="L29251" class="LineNr">29251 </span> 0/imm32/no-imm8 -<span id="L29252" class="LineNr">29252 </span> 0/imm32/no-disp32 -<span id="L29253" class="LineNr">29253 </span> 0/imm32/no-xm32 -<span id="L29254" class="LineNr">29254 </span> 0/imm32/no-x32 +<span id="L29236" class="LineNr">29236 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29237" class="LineNr">29237 </span> 0x11/imm32/alloc-id:fake +<span id="L29238" class="LineNr">29238 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29239" class="LineNr">29239 </span> 0x11/imm32/alloc-id:fake +<span id="L29240" class="LineNr">29240 </span> <a href='mu.subx.html#L32640'>_string_81_subop_and</a>/imm32/subx-name +<span id="L29241" class="LineNr">29241 </span> 3/imm32/rm32-is-first-output +<span id="L29242" class="LineNr">29242 </span> 0/imm32/no-r32 +<span id="L29243" class="LineNr">29243 </span> 1/imm32/imm32-is-first-inout +<span id="L29244" class="LineNr">29244 </span> 0/imm32/no-imm8 +<span id="L29245" class="LineNr">29245 </span> 0/imm32/no-disp32 +<span id="L29246" class="LineNr">29246 </span> 0/imm32/no-xm32 +<span id="L29247" class="LineNr">29247 </span> 0/imm32/no-x32 +<span id="L29248" class="LineNr">29248 </span> 0x11/imm32/alloc-id:fake +<span id="L29249" class="LineNr">29249 </span> <a href='mu.subx.html#L29250'>_Primitive-and-lit-with-mem</a>/imm32/next +<span id="L29250" class="LineNr">29250 </span><span class="subxMinorFunction">_Primitive-and-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29251" class="LineNr">29251 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29252" class="LineNr">29252 </span> <span class="subxComment"># and-with var1, lit => 81 4/subop/and var1/rm32 lit/imm32</span> +<span id="L29253" class="LineNr">29253 </span> 0x11/imm32/alloc-id:fake +<span id="L29254" class="LineNr">29254 </span> <a href='mu.subx.html#L31958'>_string-and-with</a>/imm32/name <span id="L29255" class="LineNr">29255 </span> 0x11/imm32/alloc-id:fake -<span id="L29256" class="LineNr">29256 </span> <a href='mu.subx.html#L29257'>_Primitive-copy-byte-to-mem</a>/imm32/next -<span id="L29257" class="LineNr">29257 </span><span class="subxMinorFunction">_Primitive-copy-byte-to-mem</span>: -<span id="L29258" class="LineNr">29258 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29259" class="LineNr">29259 </span> <span class="subxComment"># copy-byte-to *var1/reg1, var2/reg2 => 88/byte<- *reg1 reg2/r32</span> -<span id="L29260" class="LineNr">29260 </span> 0x11/imm32/alloc-id:fake -<span id="L29261" class="LineNr">29261 </span> <a href='mu.subx.html#L31421'>_string-copy-byte-to</a>/imm32/name -<span id="L29262" class="LineNr">29262 </span> 0x11/imm32/alloc-id:fake -<span id="L29263" class="LineNr">29263 </span> <span class="SpecialChar"><a href='mu.subx.html#L32182'>Two-args-byte-stack-byte-reg</a></span>/imm32/inouts -<span id="L29264" class="LineNr">29264 </span> 0/imm32/no-outputs -<span id="L29265" class="LineNr">29265 </span> 0/imm32/no-outputs -<span id="L29266" class="LineNr">29266 </span> 0x11/imm32/alloc-id:fake -<span id="L29267" class="LineNr">29267 </span> <a href='mu.subx.html#L32038'>_string_88_copy_byte</a>/imm32/subx-name -<span id="L29268" class="LineNr">29268 </span> 1/imm32/rm32-is-first-inout -<span id="L29269" class="LineNr">29269 </span> 2/imm32/r32-is-second-inout -<span id="L29270" class="LineNr">29270 </span> 0/imm32/no-imm32 -<span id="L29271" class="LineNr">29271 </span> 0/imm32/no-imm8 -<span id="L29272" class="LineNr">29272 </span> 0/imm32/no-disp32 -<span id="L29273" class="LineNr">29273 </span> 0/imm32/no-xm32 -<span id="L29274" class="LineNr">29274 </span> 0/imm32/no-x32 -<span id="L29275" class="LineNr">29275 </span> 0x11/imm32/alloc-id:fake -<span id="L29276" class="LineNr">29276 </span> <a href='mu.subx.html#L29278'>_Primitive-address</a>/imm32/next -<span id="L29277" class="LineNr">29277 </span><span class="subxH1Comment"># - address</span> -<span id="L29278" class="LineNr">29278 </span><span class="subxMinorFunction">_Primitive-address</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29279" class="LineNr">29279 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29280" class="LineNr">29280 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> -<span id="L29281" class="LineNr">29281 </span> 0x11/imm32/alloc-id:fake -<span id="L29282" class="LineNr">29282 </span> <a href='mu.subx.html#L31306'>_string-address</a>/imm32/name -<span id="L29283" class="LineNr">29283 </span> 0x11/imm32/alloc-id:fake -<span id="L29284" class="LineNr">29284 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L29285" class="LineNr">29285 </span> 0x11/imm32/alloc-id:fake -<span id="L29286" class="LineNr">29286 </span> <span class="SpecialChar"><a href='mu.subx.html#L32245'>Single-addr-var-in-some-register</a></span>/imm32/outputs -<span id="L29287" class="LineNr">29287 </span> 0x11/imm32/alloc-id:fake -<span id="L29288" class="LineNr">29288 </span> <a href='mu.subx.html#L32043'>_string_8d_copy_address</a>/imm32/subx-name -<span id="L29289" class="LineNr">29289 </span> 1/imm32/rm32-is-first-inout -<span id="L29290" class="LineNr">29290 </span> 3/imm32/r32-is-first-output -<span id="L29291" class="LineNr">29291 </span> 0/imm32/no-imm32 -<span id="L29292" class="LineNr">29292 </span> 0/imm32/no-imm8 -<span id="L29293" class="LineNr">29293 </span> 0/imm32/no-disp32 -<span id="L29294" class="LineNr">29294 </span> 0/imm32/no-xm32 -<span id="L29295" class="LineNr">29295 </span> 0/imm32/no-x32 +<span id="L29256" class="LineNr">29256 </span> <span class="SpecialChar"><a href='mu.subx.html#L32840'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L29257" class="LineNr">29257 </span> 0/imm32/no-outputs +<span id="L29258" class="LineNr">29258 </span> 0/imm32/no-outputs +<span id="L29259" class="LineNr">29259 </span> 0x11/imm32/alloc-id:fake +<span id="L29260" class="LineNr">29260 </span> <a href='mu.subx.html#L32640'>_string_81_subop_and</a>/imm32/subx-name +<span id="L29261" class="LineNr">29261 </span> 1/imm32/rm32-is-first-inout +<span id="L29262" class="LineNr">29262 </span> 0/imm32/no-r32 +<span id="L29263" class="LineNr">29263 </span> 2/imm32/imm32-is-second-inout +<span id="L29264" class="LineNr">29264 </span> 0/imm32/no-imm8 +<span id="L29265" class="LineNr">29265 </span> 0/imm32/no-disp32 +<span id="L29266" class="LineNr">29266 </span> 0/imm32/no-xm32 +<span id="L29267" class="LineNr">29267 </span> 0/imm32/no-x32 +<span id="L29268" class="LineNr">29268 </span> 0x11/imm32/alloc-id:fake +<span id="L29269" class="LineNr">29269 </span> <a href='mu.subx.html#L29271'>_Primitive-or-with-eax</a>/imm32/next +<span id="L29270" class="LineNr">29270 </span><span class="subxH1Comment"># - or</span> +<span id="L29271" class="LineNr">29271 </span><span class="subxMinorFunction">_Primitive-or-with-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29272" class="LineNr">29272 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29273" class="LineNr">29273 </span> <span class="subxComment"># var/eax <- or lit => 0d/or-with-eax lit/imm32</span> +<span id="L29274" class="LineNr">29274 </span> 0x11/imm32/alloc-id:fake +<span id="L29275" class="LineNr">29275 </span> <a href='mu.subx.html#L32203'>_string-or</a>/imm32/name +<span id="L29276" class="LineNr">29276 </span> 0x11/imm32/alloc-id:fake +<span id="L29277" class="LineNr">29277 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29278" class="LineNr">29278 </span> 0x11/imm32/alloc-id:fake +<span id="L29279" class="LineNr">29279 </span> <span class="SpecialChar"><a href='mu.subx.html#L32935'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L29280" class="LineNr">29280 </span> 0x11/imm32/alloc-id:fake +<span id="L29281" class="LineNr">29281 </span> <a href='mu.subx.html#L32275'>_string_0d_or_with_eax</a>/imm32/subx-name +<span id="L29282" class="LineNr">29282 </span> 0/imm32/no-rm32 +<span id="L29283" class="LineNr">29283 </span> 0/imm32/no-r32 +<span id="L29284" class="LineNr">29284 </span> 1/imm32/imm32-is-first-inout +<span id="L29285" class="LineNr">29285 </span> 0/imm32/no-imm8 +<span id="L29286" class="LineNr">29286 </span> 0/imm32/no-disp32 +<span id="L29287" class="LineNr">29287 </span> 0/imm32/no-xm32 +<span id="L29288" class="LineNr">29288 </span> 0/imm32/no-x32 +<span id="L29289" class="LineNr">29289 </span> 0x11/imm32/alloc-id:fake +<span id="L29290" class="LineNr">29290 </span> <a href='mu.subx.html#L29291'>_Primitive-or-reg-with-reg</a>/imm32/next +<span id="L29291" class="LineNr">29291 </span><span class="subxMinorFunction">_Primitive-or-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29292" class="LineNr">29292 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29293" class="LineNr">29293 </span> <span class="subxComment"># var1/reg <- or var2/reg => 09/or-with var1/rm32 var2/r32</span> +<span id="L29294" class="LineNr">29294 </span> 0x11/imm32/alloc-id:fake +<span id="L29295" class="LineNr">29295 </span> <a href='mu.subx.html#L32203'>_string-or</a>/imm32/name <span id="L29296" class="LineNr">29296 </span> 0x11/imm32/alloc-id:fake -<span id="L29297" class="LineNr">29297 </span> <a href='mu.subx.html#L29299'>_Primitive-compare-reg-with-reg</a>/imm32/next -<span id="L29298" class="LineNr">29298 </span><span class="subxH1Comment"># - compare</span> -<span id="L29299" class="LineNr">29299 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29300" class="LineNr">29300 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29301" class="LineNr">29301 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 39/compare var1/rm32 var2/r32</span> -<span id="L29302" class="LineNr">29302 </span> 0x11/imm32/alloc-id:fake -<span id="L29303" class="LineNr">29303 </span> <a href='mu.subx.html#L31401'>_string-compare</a>/imm32/name -<span id="L29304" class="LineNr">29304 </span> 0x11/imm32/alloc-id:fake -<span id="L29305" class="LineNr">29305 </span> <span class="SpecialChar"><a href='mu.subx.html#L32174'>Two-int-args-in-regs</a></span>/imm32/inouts -<span id="L29306" class="LineNr">29306 </span> 0/imm32/no-outputs -<span id="L29307" class="LineNr">29307 </span> 0/imm32/no-outputs -<span id="L29308" class="LineNr">29308 </span> 0x11/imm32/alloc-id:fake -<span id="L29309" class="LineNr">29309 </span> <a href='mu.subx.html#L31918'>_string_39_compare-></a>/imm32/subx-name -<span id="L29310" class="LineNr">29310 </span> 1/imm32/rm32-is-first-inout -<span id="L29311" class="LineNr">29311 </span> 2/imm32/r32-is-second-inout -<span id="L29312" class="LineNr">29312 </span> 0/imm32/no-imm32 -<span id="L29313" class="LineNr">29313 </span> 0/imm32/no-imm8 -<span id="L29314" class="LineNr">29314 </span> 0/imm32/no-disp32 -<span id="L29315" class="LineNr">29315 </span> 0/imm32/no-xm32 -<span id="L29316" class="LineNr">29316 </span> 0/imm32/no-x32 -<span id="L29317" class="LineNr">29317 </span> 0x11/imm32/alloc-id:fake -<span id="L29318" class="LineNr">29318 </span> <a href='mu.subx.html#L29319'>_Primitive-compare-mem-with-reg</a>/imm32/next -<span id="L29319" class="LineNr">29319 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29320" class="LineNr">29320 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29321" class="LineNr">29321 </span> <span class="subxComment"># compare var1 var2/reg => 39/compare var1/rm32 var2/r32</span> -<span id="L29322" class="LineNr">29322 </span> 0x11/imm32/alloc-id:fake -<span id="L29323" class="LineNr">29323 </span> <a href='mu.subx.html#L31401'>_string-compare</a>/imm32/name -<span id="L29324" class="LineNr">29324 </span> 0x11/imm32/alloc-id:fake -<span id="L29325" class="LineNr">29325 </span> <span class="SpecialChar"><a href='mu.subx.html#L32167'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L29326" class="LineNr">29326 </span> 0/imm32/no-outputs -<span id="L29327" class="LineNr">29327 </span> 0/imm32/no-outputs -<span id="L29328" class="LineNr">29328 </span> 0x11/imm32/alloc-id:fake -<span id="L29329" class="LineNr">29329 </span> <a href='mu.subx.html#L31918'>_string_39_compare-></a>/imm32/subx-name -<span id="L29330" class="LineNr">29330 </span> 1/imm32/rm32-is-first-inout -<span id="L29331" class="LineNr">29331 </span> 2/imm32/r32-is-second-inout -<span id="L29332" class="LineNr">29332 </span> 0/imm32/no-imm32 -<span id="L29333" class="LineNr">29333 </span> 0/imm32/no-imm8 -<span id="L29334" class="LineNr">29334 </span> 0/imm32/no-disp32 -<span id="L29335" class="LineNr">29335 </span> 0/imm32/no-xm32 -<span id="L29336" class="LineNr">29336 </span> 0/imm32/no-x32 -<span id="L29337" class="LineNr">29337 </span> 0x11/imm32/alloc-id:fake -<span id="L29338" class="LineNr">29338 </span> <a href='mu.subx.html#L29339'>_Primitive-compare-reg-with-mem</a>/imm32/next -<span id="L29339" class="LineNr">29339 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29340" class="LineNr">29340 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29341" class="LineNr">29341 </span> <span class="subxComment"># compare var1/reg var2 => 3b/compare<- var2/rm32 var1/r32</span> -<span id="L29342" class="LineNr">29342 </span> 0x11/imm32/alloc-id:fake -<span id="L29343" class="LineNr">29343 </span> <a href='mu.subx.html#L31401'>_string-compare</a>/imm32/name -<span id="L29344" class="LineNr">29344 </span> 0x11/imm32/alloc-id:fake -<span id="L29345" class="LineNr">29345 </span> <span class="SpecialChar"><a href='mu.subx.html#L32189'>Two-args-int-reg-int-stack</a></span>/imm32/inouts -<span id="L29346" class="LineNr">29346 </span> 0/imm32/no-outputs -<span id="L29347" class="LineNr">29347 </span> 0/imm32/no-outputs -<span id="L29348" class="LineNr">29348 </span> 0x11/imm32/alloc-id:fake -<span id="L29349" class="LineNr">29349 </span> <a href='mu.subx.html#L31923'>_string_3b_compare<-</a>/imm32/subx-name -<span id="L29350" class="LineNr">29350 </span> 2/imm32/rm32-is-second-inout -<span id="L29351" class="LineNr">29351 </span> 1/imm32/r32-is-first-inout -<span id="L29352" class="LineNr">29352 </span> 0/imm32/no-imm32 -<span id="L29353" class="LineNr">29353 </span> 0/imm32/no-imm8 -<span id="L29354" class="LineNr">29354 </span> 0/imm32/no-disp32 -<span id="L29355" class="LineNr">29355 </span> 0/imm32/no-xm32 -<span id="L29356" class="LineNr">29356 </span> 0/imm32/no-x32 -<span id="L29357" class="LineNr">29357 </span> 0x11/imm32/alloc-id:fake -<span id="L29358" class="LineNr">29358 </span> <a href='mu.subx.html#L29359'>_Primitive-compare-eax-with-literal</a>/imm32/next -<span id="L29359" class="LineNr">29359 </span><span class="subxMinorFunction">_Primitive-compare-eax-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29360" class="LineNr">29360 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29361" class="LineNr">29361 </span> <span class="subxComment"># compare var1/eax n => 3d/compare-eax-with n/imm32</span> -<span id="L29362" class="LineNr">29362 </span> 0x11/imm32/alloc-id:fake -<span id="L29363" class="LineNr">29363 </span> <a href='mu.subx.html#L31401'>_string-compare</a>/imm32/name -<span id="L29364" class="LineNr">29364 </span> 0x11/imm32/alloc-id:fake -<span id="L29365" class="LineNr">29365 </span> <span class="SpecialChar"><a href='mu.subx.html#L32196'>Two-args-int-eax-int-literal</a></span>/imm32/inouts -<span id="L29366" class="LineNr">29366 </span> 0/imm32/no-outputs -<span id="L29367" class="LineNr">29367 </span> 0/imm32/no-outputs -<span id="L29368" class="LineNr">29368 </span> 0x11/imm32/alloc-id:fake -<span id="L29369" class="LineNr">29369 </span> <a href='mu.subx.html#L31928'>_string_3d_compare_eax_with</a>/imm32/subx-name -<span id="L29370" class="LineNr">29370 </span> 0/imm32/no-rm32 -<span id="L29371" class="LineNr">29371 </span> 0/imm32/no-r32 -<span id="L29372" class="LineNr">29372 </span> 2/imm32/imm32-is-second-inout -<span id="L29373" class="LineNr">29373 </span> 0/imm32/no-imm8 -<span id="L29374" class="LineNr">29374 </span> 0/imm32/no-disp32 -<span id="L29375" class="LineNr">29375 </span> 0/imm32/no-xm32 -<span id="L29376" class="LineNr">29376 </span> 0/imm32/no-x32 -<span id="L29377" class="LineNr">29377 </span> 0x11/imm32/alloc-id:fake -<span id="L29378" class="LineNr">29378 </span> <a href='mu.subx.html#L29379'>_Primitive-compare-reg-with-literal</a>/imm32/next -<span id="L29379" class="LineNr">29379 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29380" class="LineNr">29380 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29381" class="LineNr">29381 </span> <span class="subxComment"># compare var1/reg n => 81 7/subop/compare %reg n/imm32</span> -<span id="L29382" class="LineNr">29382 </span> 0x11/imm32/alloc-id:fake -<span id="L29383" class="LineNr">29383 </span> <a href='mu.subx.html#L31401'>_string-compare</a>/imm32/name -<span id="L29384" class="LineNr">29384 </span> 0x11/imm32/alloc-id:fake -<span id="L29385" class="LineNr">29385 </span> <span class="SpecialChar"><a href='mu.subx.html#L32210'>Int-var-in-register-and-literal</a></span>/imm32/inouts -<span id="L29386" class="LineNr">29386 </span> 0/imm32/no-outputs -<span id="L29387" class="LineNr">29387 </span> 0/imm32/no-outputs -<span id="L29388" class="LineNr">29388 </span> 0x11/imm32/alloc-id:fake -<span id="L29389" class="LineNr">29389 </span> <a href='mu.subx.html#L32018'>_string_81_subop_compare</a>/imm32/subx-name -<span id="L29390" class="LineNr">29390 </span> 1/imm32/rm32-is-first-inout -<span id="L29391" class="LineNr">29391 </span> 0/imm32/no-r32 -<span id="L29392" class="LineNr">29392 </span> 2/imm32/imm32-is-second-inout -<span id="L29393" class="LineNr">29393 </span> 0/imm32/no-imm8 -<span id="L29394" class="LineNr">29394 </span> 0/imm32/no-disp32 -<span id="L29395" class="LineNr">29395 </span> 0/imm32/no-xm32 -<span id="L29396" class="LineNr">29396 </span> 0/imm32/no-x32 +<span id="L29297" class="LineNr">29297 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L29298" class="LineNr">29298 </span> 0x11/imm32/alloc-id:fake +<span id="L29299" class="LineNr">29299 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29300" class="LineNr">29300 </span> 0x11/imm32/alloc-id:fake +<span id="L29301" class="LineNr">29301 </span> <a href='mu.subx.html#L32265'>_string_09_or_with</a>/imm32/subx-name +<span id="L29302" class="LineNr">29302 </span> 3/imm32/rm32-is-first-output +<span id="L29303" class="LineNr">29303 </span> 1/imm32/r32-is-first-inout +<span id="L29304" class="LineNr">29304 </span> 0/imm32/no-imm32 +<span id="L29305" class="LineNr">29305 </span> 0/imm32/no-imm8 +<span id="L29306" class="LineNr">29306 </span> 0/imm32/no-disp32 +<span id="L29307" class="LineNr">29307 </span> 0/imm32/no-xm32 +<span id="L29308" class="LineNr">29308 </span> 0/imm32/no-x32 +<span id="L29309" class="LineNr">29309 </span> 0x11/imm32/alloc-id:fake +<span id="L29310" class="LineNr">29310 </span> <a href='mu.subx.html#L29311'>_Primitive-or-reg-with-mem</a>/imm32/next +<span id="L29311" class="LineNr">29311 </span><span class="subxMinorFunction">_Primitive-or-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29312" class="LineNr">29312 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29313" class="LineNr">29313 </span> <span class="subxComment"># or-with var1 var2/reg => 09/or-with var1 var2/r32</span> +<span id="L29314" class="LineNr">29314 </span> 0x11/imm32/alloc-id:fake +<span id="L29315" class="LineNr">29315 </span> <a href='mu.subx.html#L32208'>_string-or-with</a>/imm32/name +<span id="L29316" class="LineNr">29316 </span> 0x11/imm32/alloc-id:fake +<span id="L29317" class="LineNr">29317 </span> <span class="SpecialChar"><a href='mu.subx.html#L32804'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L29318" class="LineNr">29318 </span> 0/imm32/no-outputs +<span id="L29319" class="LineNr">29319 </span> 0/imm32/no-outputs +<span id="L29320" class="LineNr">29320 </span> 0x11/imm32/alloc-id:fake +<span id="L29321" class="LineNr">29321 </span> <a href='mu.subx.html#L32265'>_string_09_or_with</a>/imm32/subx-name +<span id="L29322" class="LineNr">29322 </span> 1/imm32/rm32-is-first-inout +<span id="L29323" class="LineNr">29323 </span> 2/imm32/r32-is-second-inout +<span id="L29324" class="LineNr">29324 </span> 0/imm32/no-imm32 +<span id="L29325" class="LineNr">29325 </span> 0/imm32/no-imm8 +<span id="L29326" class="LineNr">29326 </span> 0/imm32/no-disp32 +<span id="L29327" class="LineNr">29327 </span> 0/imm32/no-xm32 +<span id="L29328" class="LineNr">29328 </span> 0/imm32/no-x32 +<span id="L29329" class="LineNr">29329 </span> 0x11/imm32/alloc-id:fake +<span id="L29330" class="LineNr">29330 </span> <a href='mu.subx.html#L29331'>_Primitive-or-mem-with-reg</a>/imm32/next +<span id="L29331" class="LineNr">29331 </span><span class="subxMinorFunction">_Primitive-or-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29332" class="LineNr">29332 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29333" class="LineNr">29333 </span> <span class="subxComment"># var1/reg <- or var2 => 0b/or var2/rm32 var1/r32</span> +<span id="L29334" class="LineNr">29334 </span> 0x11/imm32/alloc-id:fake +<span id="L29335" class="LineNr">29335 </span> <a href='mu.subx.html#L32203'>_string-or</a>/imm32/name +<span id="L29336" class="LineNr">29336 </span> 0x11/imm32/alloc-id:fake +<span id="L29337" class="LineNr">29337 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L29338" class="LineNr">29338 </span> 0x11/imm32/alloc-id:fake +<span id="L29339" class="LineNr">29339 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29340" class="LineNr">29340 </span> 0x11/imm32/alloc-id:fake +<span id="L29341" class="LineNr">29341 </span> <a href='mu.subx.html#L32270'>_string_0b_or</a>/imm32/subx-name +<span id="L29342" class="LineNr">29342 </span> 1/imm32/rm32-is-first-inout +<span id="L29343" class="LineNr">29343 </span> 3/imm32/r32-is-first-output +<span id="L29344" class="LineNr">29344 </span> 0/imm32/no-imm32 +<span id="L29345" class="LineNr">29345 </span> 0/imm32/no-imm8 +<span id="L29346" class="LineNr">29346 </span> 0/imm32/no-disp32 +<span id="L29347" class="LineNr">29347 </span> 0/imm32/no-xm32 +<span id="L29348" class="LineNr">29348 </span> 0/imm32/no-x32 +<span id="L29349" class="LineNr">29349 </span> 0x11/imm32/alloc-id:fake +<span id="L29350" class="LineNr">29350 </span> <a href='mu.subx.html#L29351'>_Primitive-or-lit-with-reg</a>/imm32/next +<span id="L29351" class="LineNr">29351 </span><span class="subxMinorFunction">_Primitive-or-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29352" class="LineNr">29352 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29353" class="LineNr">29353 </span> <span class="subxComment"># var1/reg <- or lit => 81 1/subop/or var1/rm32 lit/imm32</span> +<span id="L29354" class="LineNr">29354 </span> 0x11/imm32/alloc-id:fake +<span id="L29355" class="LineNr">29355 </span> <a href='mu.subx.html#L32203'>_string-or</a>/imm32/name +<span id="L29356" class="LineNr">29356 </span> 0x11/imm32/alloc-id:fake +<span id="L29357" class="LineNr">29357 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29358" class="LineNr">29358 </span> 0x11/imm32/alloc-id:fake +<span id="L29359" class="LineNr">29359 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29360" class="LineNr">29360 </span> 0x11/imm32/alloc-id:fake +<span id="L29361" class="LineNr">29361 </span> <a href='mu.subx.html#L32635'>_string_81_subop_or</a>/imm32/subx-name +<span id="L29362" class="LineNr">29362 </span> 3/imm32/rm32-is-first-output +<span id="L29363" class="LineNr">29363 </span> 0/imm32/no-r32 +<span id="L29364" class="LineNr">29364 </span> 1/imm32/imm32-is-first-inout +<span id="L29365" class="LineNr">29365 </span> 0/imm32/no-imm8 +<span id="L29366" class="LineNr">29366 </span> 0/imm32/no-disp32 +<span id="L29367" class="LineNr">29367 </span> 0/imm32/no-xm32 +<span id="L29368" class="LineNr">29368 </span> 0/imm32/no-x32 +<span id="L29369" class="LineNr">29369 </span> 0x11/imm32/alloc-id:fake +<span id="L29370" class="LineNr">29370 </span> <a href='mu.subx.html#L29371'>_Primitive-or-lit-with-mem</a>/imm32/next +<span id="L29371" class="LineNr">29371 </span><span class="subxMinorFunction">_Primitive-or-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29372" class="LineNr">29372 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29373" class="LineNr">29373 </span> <span class="subxComment"># or-with var1, lit => 81 1/subop/or var1/rm32 lit/imm32</span> +<span id="L29374" class="LineNr">29374 </span> 0x11/imm32/alloc-id:fake +<span id="L29375" class="LineNr">29375 </span> <a href='mu.subx.html#L32208'>_string-or-with</a>/imm32/name +<span id="L29376" class="LineNr">29376 </span> 0x11/imm32/alloc-id:fake +<span id="L29377" class="LineNr">29377 </span> <span class="SpecialChar"><a href='mu.subx.html#L32840'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L29378" class="LineNr">29378 </span> 0/imm32/no-outputs +<span id="L29379" class="LineNr">29379 </span> 0/imm32/no-outputs +<span id="L29380" class="LineNr">29380 </span> 0x11/imm32/alloc-id:fake +<span id="L29381" class="LineNr">29381 </span> <a href='mu.subx.html#L32635'>_string_81_subop_or</a>/imm32/subx-name +<span id="L29382" class="LineNr">29382 </span> 1/imm32/rm32-is-first-inout +<span id="L29383" class="LineNr">29383 </span> 0/imm32/no-r32 +<span id="L29384" class="LineNr">29384 </span> 2/imm32/imm32-is-second-inout +<span id="L29385" class="LineNr">29385 </span> 0/imm32/no-imm8 +<span id="L29386" class="LineNr">29386 </span> 0/imm32/no-disp32 +<span id="L29387" class="LineNr">29387 </span> 0/imm32/no-xm32 +<span id="L29388" class="LineNr">29388 </span> 0/imm32/no-x32 +<span id="L29389" class="LineNr">29389 </span> 0x11/imm32/alloc-id:fake +<span id="L29390" class="LineNr">29390 </span> <a href='mu.subx.html#L29392'>_Primitive-xor-with-eax</a>/imm32/next +<span id="L29391" class="LineNr">29391 </span><span class="subxH1Comment"># - xor</span> +<span id="L29392" class="LineNr">29392 </span><span class="subxMinorFunction">_Primitive-xor-with-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29393" class="LineNr">29393 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29394" class="LineNr">29394 </span> <span class="subxComment"># var/eax <- xor lit => 35/xor-with-eax lit/imm32</span> +<span id="L29395" class="LineNr">29395 </span> 0x11/imm32/alloc-id:fake +<span id="L29396" class="LineNr">29396 </span> <a href='mu.subx.html#L32223'>_string-xor</a>/imm32/name <span id="L29397" class="LineNr">29397 </span> 0x11/imm32/alloc-id:fake -<span id="L29398" class="LineNr">29398 </span> <a href='mu.subx.html#L29399'>_Primitive-compare-mem-with-literal</a>/imm32/next -<span id="L29399" class="LineNr">29399 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29400" class="LineNr">29400 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29401" class="LineNr">29401 </span> <span class="subxComment"># compare var1 n => 81 7/subop/compare *(ebp+___) n/imm32</span> -<span id="L29402" class="LineNr">29402 </span> 0x11/imm32/alloc-id:fake -<span id="L29403" class="LineNr">29403 </span> <a href='mu.subx.html#L31401'>_string-compare</a>/imm32/name -<span id="L29404" class="LineNr">29404 </span> 0x11/imm32/alloc-id:fake -<span id="L29405" class="LineNr">29405 </span> <span class="SpecialChar"><a href='mu.subx.html#L32203'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L29406" class="LineNr">29406 </span> 0/imm32/no-outputs -<span id="L29407" class="LineNr">29407 </span> 0/imm32/no-outputs -<span id="L29408" class="LineNr">29408 </span> 0x11/imm32/alloc-id:fake -<span id="L29409" class="LineNr">29409 </span> <a href='mu.subx.html#L32018'>_string_81_subop_compare</a>/imm32/subx-name -<span id="L29410" class="LineNr">29410 </span> 1/imm32/rm32-is-first-inout -<span id="L29411" class="LineNr">29411 </span> 0/imm32/no-r32 -<span id="L29412" class="LineNr">29412 </span> 2/imm32/imm32-is-second-inout -<span id="L29413" class="LineNr">29413 </span> 0/imm32/no-imm8 -<span id="L29414" class="LineNr">29414 </span> 0/imm32/no-disp32 -<span id="L29415" class="LineNr">29415 </span> 0/imm32/no-xm32 -<span id="L29416" class="LineNr">29416 </span> 0/imm32/no-x32 +<span id="L29398" class="LineNr">29398 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29399" class="LineNr">29399 </span> 0x11/imm32/alloc-id:fake +<span id="L29400" class="LineNr">29400 </span> <span class="SpecialChar"><a href='mu.subx.html#L32935'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L29401" class="LineNr">29401 </span> 0x11/imm32/alloc-id:fake +<span id="L29402" class="LineNr">29402 </span> <a href='mu.subx.html#L32550'>_string_35_xor_with_eax</a>/imm32/subx-name +<span id="L29403" class="LineNr">29403 </span> 0/imm32/no-rm32 +<span id="L29404" class="LineNr">29404 </span> 0/imm32/no-r32 +<span id="L29405" class="LineNr">29405 </span> 1/imm32/imm32-is-first-inout +<span id="L29406" class="LineNr">29406 </span> 0/imm32/no-imm8 +<span id="L29407" class="LineNr">29407 </span> 0/imm32/no-disp32 +<span id="L29408" class="LineNr">29408 </span> 0/imm32/no-xm32 +<span id="L29409" class="LineNr">29409 </span> 0/imm32/no-x32 +<span id="L29410" class="LineNr">29410 </span> 0x11/imm32/alloc-id:fake +<span id="L29411" class="LineNr">29411 </span> <a href='mu.subx.html#L29412'>_Primitive-xor-reg-with-reg</a>/imm32/next +<span id="L29412" class="LineNr">29412 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29413" class="LineNr">29413 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29414" class="LineNr">29414 </span> <span class="subxComment"># var1/reg <- xor var2/reg => 31/xor-with var1/rm32 var2/r32</span> +<span id="L29415" class="LineNr">29415 </span> 0x11/imm32/alloc-id:fake +<span id="L29416" class="LineNr">29416 </span> <a href='mu.subx.html#L32223'>_string-xor</a>/imm32/name <span id="L29417" class="LineNr">29417 </span> 0x11/imm32/alloc-id:fake -<span id="L29418" class="LineNr">29418 </span> <a href='mu.subx.html#L29420'>_Primitive-negate-reg</a>/imm32/next -<span id="L29419" class="LineNr">29419 </span><span class="subxH1Comment"># - negate</span> -<span id="L29420" class="LineNr">29420 </span><span class="subxMinorFunction">_Primitive-negate-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29421" class="LineNr">29421 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29422" class="LineNr">29422 </span> <span class="subxComment"># var1/reg <- negate => f7 3/subop/negate var1/rm32</span> -<span id="L29423" class="LineNr">29423 </span> 0x11/imm32/alloc-id:fake -<span id="L29424" class="LineNr">29424 </span> <a href='mu.subx.html#L31561'>_string-negate</a>/imm32/name -<span id="L29425" class="LineNr">29425 </span> 0/imm32/no-inouts -<span id="L29426" class="LineNr">29426 </span> 0/imm32/no-inouts -<span id="L29427" class="LineNr">29427 </span> 0x11/imm32/alloc-id:fake -<span id="L29428" class="LineNr">29428 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L29429" class="LineNr">29429 </span> 0x11/imm32/alloc-id:fake -<span id="L29430" class="LineNr">29430 </span> <a href='mu.subx.html#L32098'>_string_f7_subop_negate</a>/imm32/subx-name -<span id="L29431" class="LineNr">29431 </span> 3/imm32/rm32-is-first-output -<span id="L29432" class="LineNr">29432 </span> 0/imm32/no-r32 -<span id="L29433" class="LineNr">29433 </span> 0/imm32/no-imm32 -<span id="L29434" class="LineNr">29434 </span> 0/imm32/no-imm8 -<span id="L29435" class="LineNr">29435 </span> 0/imm32/no-disp32 -<span id="L29436" class="LineNr">29436 </span> 0/imm32/no-xm32 -<span id="L29437" class="LineNr">29437 </span> 0/imm32/no-x32 -<span id="L29438" class="LineNr">29438 </span> 0x11/imm32/alloc-id:fake -<span id="L29439" class="LineNr">29439 </span> <a href='mu.subx.html#L29440'>_Primitive-negate-mem</a>/imm32/next -<span id="L29440" class="LineNr">29440 </span><span class="subxMinorFunction">_Primitive-negate-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29441" class="LineNr">29441 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29442" class="LineNr">29442 </span> <span class="subxComment"># negate var1 => f7 3/subop/negate var1/rm32</span> -<span id="L29443" class="LineNr">29443 </span> 0x11/imm32/alloc-id:fake -<span id="L29444" class="LineNr">29444 </span> <a href='mu.subx.html#L31561'>_string-negate</a>/imm32/name -<span id="L29445" class="LineNr">29445 </span> 0x11/imm32/alloc-id:fake -<span id="L29446" class="LineNr">29446 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L29447" class="LineNr">29447 </span> 0/imm32/no-outputs -<span id="L29448" class="LineNr">29448 </span> 0/imm32/no-outputs -<span id="L29449" class="LineNr">29449 </span> 0x11/imm32/alloc-id:fake -<span id="L29450" class="LineNr">29450 </span> <a href='mu.subx.html#L32098'>_string_f7_subop_negate</a>/imm32/subx-name -<span id="L29451" class="LineNr">29451 </span> 1/imm32/rm32-is-first-inout -<span id="L29452" class="LineNr">29452 </span> 0/imm32/no-r32 -<span id="L29453" class="LineNr">29453 </span> 0/imm32/no-imm32 -<span id="L29454" class="LineNr">29454 </span> 0/imm32/no-imm8 -<span id="L29455" class="LineNr">29455 </span> 0/imm32/no-disp32 -<span id="L29456" class="LineNr">29456 </span> 0/imm32/no-xm32 -<span id="L29457" class="LineNr">29457 </span> 0/imm32/no-x32 -<span id="L29458" class="LineNr">29458 </span> 0x11/imm32/alloc-id:fake -<span id="L29459" class="LineNr">29459 </span> <a href='mu.subx.html#L29461'>_Primitive-multiply-reg-by-reg</a>/imm32/next -<span id="L29460" class="LineNr">29460 </span><span class="subxH1Comment"># - multiply</span> -<span id="L29461" class="LineNr">29461 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29462" class="LineNr">29462 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29463" class="LineNr">29463 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> -<span id="L29464" class="LineNr">29464 </span> 0x11/imm32/alloc-id:fake -<span id="L29465" class="LineNr">29465 </span> <a href='mu.subx.html#L31511'>_string-multiply</a>/imm32/name -<span id="L29466" class="LineNr">29466 </span> 0x11/imm32/alloc-id:fake -<span id="L29467" class="LineNr">29467 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L29468" class="LineNr">29468 </span> 0x11/imm32/alloc-id:fake -<span id="L29469" class="LineNr">29469 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29418" class="LineNr">29418 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L29419" class="LineNr">29419 </span> 0x11/imm32/alloc-id:fake +<span id="L29420" class="LineNr">29420 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29421" class="LineNr">29421 </span> 0x11/imm32/alloc-id:fake +<span id="L29422" class="LineNr">29422 </span> <a href='mu.subx.html#L32540'>_string_31_xor_with</a>/imm32/subx-name +<span id="L29423" class="LineNr">29423 </span> 3/imm32/rm32-is-first-output +<span id="L29424" class="LineNr">29424 </span> 1/imm32/r32-is-first-inout +<span id="L29425" class="LineNr">29425 </span> 0/imm32/no-imm32 +<span id="L29426" class="LineNr">29426 </span> 0/imm32/no-imm8 +<span id="L29427" class="LineNr">29427 </span> 0/imm32/no-disp32 +<span id="L29428" class="LineNr">29428 </span> 0/imm32/no-xm32 +<span id="L29429" class="LineNr">29429 </span> 0/imm32/no-x32 +<span id="L29430" class="LineNr">29430 </span> 0x11/imm32/alloc-id:fake +<span id="L29431" class="LineNr">29431 </span> <a href='mu.subx.html#L29432'>_Primitive-xor-reg-with-mem</a>/imm32/next +<span id="L29432" class="LineNr">29432 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29433" class="LineNr">29433 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29434" class="LineNr">29434 </span> <span class="subxComment"># xor-with var1 var2/reg => 31/xor-with var1 var2/r32</span> +<span id="L29435" class="LineNr">29435 </span> 0x11/imm32/alloc-id:fake +<span id="L29436" class="LineNr">29436 </span> <a href='mu.subx.html#L32228'>_string-xor-with</a>/imm32/name +<span id="L29437" class="LineNr">29437 </span> 0x11/imm32/alloc-id:fake +<span id="L29438" class="LineNr">29438 </span> <span class="SpecialChar"><a href='mu.subx.html#L32804'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L29439" class="LineNr">29439 </span> 0/imm32/no-outputs +<span id="L29440" class="LineNr">29440 </span> 0/imm32/no-outputs +<span id="L29441" class="LineNr">29441 </span> 0x11/imm32/alloc-id:fake +<span id="L29442" class="LineNr">29442 </span> <a href='mu.subx.html#L32540'>_string_31_xor_with</a>/imm32/subx-name +<span id="L29443" class="LineNr">29443 </span> 1/imm32/rm32-is-first-inout +<span id="L29444" class="LineNr">29444 </span> 2/imm32/r32-is-second-inout +<span id="L29445" class="LineNr">29445 </span> 0/imm32/no-imm32 +<span id="L29446" class="LineNr">29446 </span> 0/imm32/no-imm8 +<span id="L29447" class="LineNr">29447 </span> 0/imm32/no-disp32 +<span id="L29448" class="LineNr">29448 </span> 0/imm32/no-xm32 +<span id="L29449" class="LineNr">29449 </span> 0/imm32/no-x32 +<span id="L29450" class="LineNr">29450 </span> 0x11/imm32/alloc-id:fake +<span id="L29451" class="LineNr">29451 </span> <a href='mu.subx.html#L29452'>_Primitive-xor-mem-with-reg</a>/imm32/next +<span id="L29452" class="LineNr">29452 </span><span class="subxMinorFunction">_Primitive-xor-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29453" class="LineNr">29453 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29454" class="LineNr">29454 </span> <span class="subxComment"># var1/reg <- xor var2 => 33/xor var2/rm32 var1/r32</span> +<span id="L29455" class="LineNr">29455 </span> 0x11/imm32/alloc-id:fake +<span id="L29456" class="LineNr">29456 </span> <a href='mu.subx.html#L32223'>_string-xor</a>/imm32/name +<span id="L29457" class="LineNr">29457 </span> 0x11/imm32/alloc-id:fake +<span id="L29458" class="LineNr">29458 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L29459" class="LineNr">29459 </span> 0x11/imm32/alloc-id:fake +<span id="L29460" class="LineNr">29460 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29461" class="LineNr">29461 </span> 0x11/imm32/alloc-id:fake +<span id="L29462" class="LineNr">29462 </span> <a href='mu.subx.html#L32545'>_string_33_xor</a>/imm32/subx-name +<span id="L29463" class="LineNr">29463 </span> 1/imm32/rm32-is-first-inout +<span id="L29464" class="LineNr">29464 </span> 3/imm32/r32-is-first-output +<span id="L29465" class="LineNr">29465 </span> 0/imm32/no-imm32 +<span id="L29466" class="LineNr">29466 </span> 0/imm32/no-imm8 +<span id="L29467" class="LineNr">29467 </span> 0/imm32/no-disp32 +<span id="L29468" class="LineNr">29468 </span> 0/imm32/no-xm32 +<span id="L29469" class="LineNr">29469 </span> 0/imm32/no-x32 <span id="L29470" class="LineNr">29470 </span> 0x11/imm32/alloc-id:fake -<span id="L29471" class="LineNr">29471 </span> <a href='mu.subx.html#L31793'>_string_0f_af_multiply</a>/imm32/subx-name -<span id="L29472" class="LineNr">29472 </span> 1/imm32/rm32-is-first-inout -<span id="L29473" class="LineNr">29473 </span> 3/imm32/r32-is-first-output -<span id="L29474" class="LineNr">29474 </span> 0/imm32/no-imm32 -<span id="L29475" class="LineNr">29475 </span> 0/imm32/no-imm8 -<span id="L29476" class="LineNr">29476 </span> 0/imm32/no-disp32 -<span id="L29477" class="LineNr">29477 </span> 0/imm32/no-xm32 -<span id="L29478" class="LineNr">29478 </span> 0/imm32/no-x32 +<span id="L29471" class="LineNr">29471 </span> <a href='mu.subx.html#L29472'>_Primitive-xor-lit-with-reg</a>/imm32/next +<span id="L29472" class="LineNr">29472 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29473" class="LineNr">29473 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29474" class="LineNr">29474 </span> <span class="subxComment"># var1/reg <- xor lit => 81 6/subop/xor var1/rm32 lit/imm32</span> +<span id="L29475" class="LineNr">29475 </span> 0x11/imm32/alloc-id:fake +<span id="L29476" class="LineNr">29476 </span> <a href='mu.subx.html#L32223'>_string-xor</a>/imm32/name +<span id="L29477" class="LineNr">29477 </span> 0x11/imm32/alloc-id:fake +<span id="L29478" class="LineNr">29478 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts <span id="L29479" class="LineNr">29479 </span> 0x11/imm32/alloc-id:fake -<span id="L29480" class="LineNr">29480 </span> <a href='mu.subx.html#L29481'>_Primitive-multiply-reg-by-mem</a>/imm32/next -<span id="L29481" class="LineNr">29481 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29482" class="LineNr">29482 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29483" class="LineNr">29483 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> -<span id="L29484" class="LineNr">29484 </span> 0x11/imm32/alloc-id:fake -<span id="L29485" class="LineNr">29485 </span> <a href='mu.subx.html#L31511'>_string-multiply</a>/imm32/name -<span id="L29486" class="LineNr">29486 </span> 0x11/imm32/alloc-id:fake -<span id="L29487" class="LineNr">29487 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L29488" class="LineNr">29488 </span> 0x11/imm32/alloc-id:fake -<span id="L29489" class="LineNr">29489 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29480" class="LineNr">29480 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29481" class="LineNr">29481 </span> 0x11/imm32/alloc-id:fake +<span id="L29482" class="LineNr">29482 </span> <a href='mu.subx.html#L32650'>_string_81_subop_xor</a>/imm32/subx-name +<span id="L29483" class="LineNr">29483 </span> 3/imm32/rm32-is-first-output +<span id="L29484" class="LineNr">29484 </span> 0/imm32/no-r32 +<span id="L29485" class="LineNr">29485 </span> 1/imm32/imm32-is-first-inout +<span id="L29486" class="LineNr">29486 </span> 0/imm32/no-imm8 +<span id="L29487" class="LineNr">29487 </span> 0/imm32/no-disp32 +<span id="L29488" class="LineNr">29488 </span> 0/imm32/no-xm32 +<span id="L29489" class="LineNr">29489 </span> 0/imm32/no-x32 <span id="L29490" class="LineNr">29490 </span> 0x11/imm32/alloc-id:fake -<span id="L29491" class="LineNr">29491 </span> <a href='mu.subx.html#L31793'>_string_0f_af_multiply</a>/imm32/subx-name -<span id="L29492" class="LineNr">29492 </span> 1/imm32/rm32-is-first-inout -<span id="L29493" class="LineNr">29493 </span> 3/imm32/r32-is-first-output -<span id="L29494" class="LineNr">29494 </span> 0/imm32/no-imm32 -<span id="L29495" class="LineNr">29495 </span> 0/imm32/no-imm8 -<span id="L29496" class="LineNr">29496 </span> 0/imm32/no-disp32 -<span id="L29497" class="LineNr">29497 </span> 0/imm32/no-xm32 -<span id="L29498" class="LineNr">29498 </span> 0/imm32/no-x32 -<span id="L29499" class="LineNr">29499 </span> 0x11/imm32/alloc-id:fake -<span id="L29500" class="LineNr">29500 </span> <a href='mu.subx.html#L29502'>_Primitive-convert-mem-to-xreg</a>/imm32/next -<span id="L29501" class="LineNr">29501 </span><span class="subxH1Comment"># - convert int to floating point</span> -<span id="L29502" class="LineNr">29502 </span><span class="subxMinorFunction">_Primitive-convert-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29503" class="LineNr">29503 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29504" class="LineNr">29504 </span> <span class="subxComment"># var1/xreg <- convert var2 => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> -<span id="L29505" class="LineNr">29505 </span> 0x11/imm32/alloc-id:fake -<span id="L29506" class="LineNr">29506 </span> <a href='mu.subx.html#L31516'>_string-convert</a>/imm32/name -<span id="L29507" class="LineNr">29507 </span> 0x11/imm32/alloc-id:fake -<span id="L29508" class="LineNr">29508 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L29509" class="LineNr">29509 </span> 0x11/imm32/alloc-id:fake -<span id="L29510" class="LineNr">29510 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L29511" class="LineNr">29511 </span> 0x11/imm32/alloc-id:fake -<span id="L29512" class="LineNr">29512 </span> <a href='mu.subx.html#L31798'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name -<span id="L29513" class="LineNr">29513 </span> 1/imm32/rm32-is-first-inout -<span id="L29514" class="LineNr">29514 </span> 0/imm32/no-r32 -<span id="L29515" class="LineNr">29515 </span> 0/imm32/no-imm32 -<span id="L29516" class="LineNr">29516 </span> 0/imm32/no-imm8 -<span id="L29517" class="LineNr">29517 </span> 0/imm32/no-disp32 -<span id="L29518" class="LineNr">29518 </span> 0/imm32/no-xm32 -<span id="L29519" class="LineNr">29519 </span> 3/imm32/x32-is-first-output -<span id="L29520" class="LineNr">29520 </span> 0x11/imm32/alloc-id:fake -<span id="L29521" class="LineNr">29521 </span> <a href='mu.subx.html#L29522'>_Primitive-convert-reg-to-xreg</a>/imm32/next -<span id="L29522" class="LineNr">29522 </span><span class="subxMinorFunction">_Primitive-convert-reg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29523" class="LineNr">29523 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29524" class="LineNr">29524 </span> <span class="subxComment"># var1/xreg <- convert var2/reg => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> -<span id="L29525" class="LineNr">29525 </span> 0x11/imm32/alloc-id:fake -<span id="L29526" class="LineNr">29526 </span> <a href='mu.subx.html#L31516'>_string-convert</a>/imm32/name -<span id="L29527" class="LineNr">29527 </span> 0x11/imm32/alloc-id:fake -<span id="L29528" class="LineNr">29528 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L29529" class="LineNr">29529 </span> 0x11/imm32/alloc-id:fake -<span id="L29530" class="LineNr">29530 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L29531" class="LineNr">29531 </span> 0x11/imm32/alloc-id:fake -<span id="L29532" class="LineNr">29532 </span> <a href='mu.subx.html#L31798'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name -<span id="L29533" class="LineNr">29533 </span> 1/imm32/rm32-is-first-inout -<span id="L29534" class="LineNr">29534 </span> 0/imm32/no-r32 -<span id="L29535" class="LineNr">29535 </span> 0/imm32/no-imm32 -<span id="L29536" class="LineNr">29536 </span> 0/imm32/no-imm8 -<span id="L29537" class="LineNr">29537 </span> 0/imm32/no-disp32 -<span id="L29538" class="LineNr">29538 </span> 0/imm32/no-xm32 -<span id="L29539" class="LineNr">29539 </span> 3/imm32/x32-is-first-output -<span id="L29540" class="LineNr">29540 </span> 0x11/imm32/alloc-id:fake -<span id="L29541" class="LineNr">29541 </span> <a href='mu.subx.html#L29543'>_Primitive-convert-xmem-to-reg</a>/imm32/next -<span id="L29542" class="LineNr">29542 </span><span class="subxH1Comment"># - convert floating point to int</span> -<span id="L29543" class="LineNr">29543 </span><span class="subxMinorFunction">_Primitive-convert-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29544" class="LineNr">29544 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29545" class="LineNr">29545 </span> <span class="subxComment"># var1/reg <- convert var2 => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> -<span id="L29546" class="LineNr">29546 </span> 0x11/imm32/alloc-id:fake -<span id="L29547" class="LineNr">29547 </span> <a href='mu.subx.html#L31516'>_string-convert</a>/imm32/name -<span id="L29548" class="LineNr">29548 </span> 0x11/imm32/alloc-id:fake -<span id="L29549" class="LineNr">29549 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L29491" class="LineNr">29491 </span> <a href='mu.subx.html#L29492'>_Primitive-xor-lit-with-mem</a>/imm32/next +<span id="L29492" class="LineNr">29492 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29493" class="LineNr">29493 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29494" class="LineNr">29494 </span> <span class="subxComment"># xor-with var1, lit => 81 6/subop/xor var1/rm32 lit/imm32</span> +<span id="L29495" class="LineNr">29495 </span> 0x11/imm32/alloc-id:fake +<span id="L29496" class="LineNr">29496 </span> <a href='mu.subx.html#L32228'>_string-xor-with</a>/imm32/name +<span id="L29497" class="LineNr">29497 </span> 0x11/imm32/alloc-id:fake +<span id="L29498" class="LineNr">29498 </span> <span class="SpecialChar"><a href='mu.subx.html#L32840'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L29499" class="LineNr">29499 </span> 0/imm32/no-outputs +<span id="L29500" class="LineNr">29500 </span> 0/imm32/no-outputs +<span id="L29501" class="LineNr">29501 </span> 0x11/imm32/alloc-id:fake +<span id="L29502" class="LineNr">29502 </span> <a href='mu.subx.html#L32650'>_string_81_subop_xor</a>/imm32/subx-name +<span id="L29503" class="LineNr">29503 </span> 1/imm32/rm32-is-first-inout +<span id="L29504" class="LineNr">29504 </span> 0/imm32/no-r32 +<span id="L29505" class="LineNr">29505 </span> 2/imm32/imm32-is-second-inout +<span id="L29506" class="LineNr">29506 </span> 0/imm32/no-imm8 +<span id="L29507" class="LineNr">29507 </span> 0/imm32/no-disp32 +<span id="L29508" class="LineNr">29508 </span> 0/imm32/no-xm32 +<span id="L29509" class="LineNr">29509 </span> 0/imm32/no-x32 +<span id="L29510" class="LineNr">29510 </span> 0x11/imm32/alloc-id:fake +<span id="L29511" class="LineNr">29511 </span> <a href='mu.subx.html#L29512'>_Primitive-shift-reg-left-by-lit</a>/imm32/next +<span id="L29512" class="LineNr">29512 </span><span class="subxMinorFunction">_Primitive-shift-reg-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29513" class="LineNr">29513 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29514" class="LineNr">29514 </span> <span class="subxComment"># var1/reg <- shift-left lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> +<span id="L29515" class="LineNr">29515 </span> 0x11/imm32/alloc-id:fake +<span id="L29516" class="LineNr">29516 </span> <a href='mu.subx.html#L32233'>_string-shift-left</a>/imm32/name +<span id="L29517" class="LineNr">29517 </span> 0x11/imm32/alloc-id:fake +<span id="L29518" class="LineNr">29518 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29519" class="LineNr">29519 </span> 0x11/imm32/alloc-id:fake +<span id="L29520" class="LineNr">29520 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29521" class="LineNr">29521 </span> 0x11/imm32/alloc-id:fake +<span id="L29522" class="LineNr">29522 </span> <a href='mu.subx.html#L32750'>_string_c1_subop_shift_left</a>/imm32/subx-name +<span id="L29523" class="LineNr">29523 </span> 3/imm32/rm32-is-first-output +<span id="L29524" class="LineNr">29524 </span> 0/imm32/no-r32 +<span id="L29525" class="LineNr">29525 </span> 0/imm32/no-imm32 +<span id="L29526" class="LineNr">29526 </span> 1/imm32/imm8-is-first-inout +<span id="L29527" class="LineNr">29527 </span> 0/imm32/no-disp32 +<span id="L29528" class="LineNr">29528 </span> 0/imm32/no-xm32 +<span id="L29529" class="LineNr">29529 </span> 0/imm32/no-x32 +<span id="L29530" class="LineNr">29530 </span> 0x11/imm32/alloc-id:fake +<span id="L29531" class="LineNr">29531 </span> <a href='mu.subx.html#L29532'>_Primitive-shift-reg-right-by-lit</a>/imm32/next +<span id="L29532" class="LineNr">29532 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29533" class="LineNr">29533 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29534" class="LineNr">29534 </span> <span class="subxComment"># var1/reg <- shift-right lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> +<span id="L29535" class="LineNr">29535 </span> 0x11/imm32/alloc-id:fake +<span id="L29536" class="LineNr">29536 </span> <a href='mu.subx.html#L32238'>_string-shift-right</a>/imm32/name +<span id="L29537" class="LineNr">29537 </span> 0x11/imm32/alloc-id:fake +<span id="L29538" class="LineNr">29538 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29539" class="LineNr">29539 </span> 0x11/imm32/alloc-id:fake +<span id="L29540" class="LineNr">29540 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29541" class="LineNr">29541 </span> 0x11/imm32/alloc-id:fake +<span id="L29542" class="LineNr">29542 </span> <a href='mu.subx.html#L32755'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name +<span id="L29543" class="LineNr">29543 </span> 3/imm32/rm32-is-first-output +<span id="L29544" class="LineNr">29544 </span> 0/imm32/no-r32 +<span id="L29545" class="LineNr">29545 </span> 0/imm32/no-imm32 +<span id="L29546" class="LineNr">29546 </span> 1/imm32/imm8-is-first-inout +<span id="L29547" class="LineNr">29547 </span> 0/imm32/no-disp32 +<span id="L29548" class="LineNr">29548 </span> 0/imm32/no-xm32 +<span id="L29549" class="LineNr">29549 </span> 0/imm32/no-x32 <span id="L29550" class="LineNr">29550 </span> 0x11/imm32/alloc-id:fake -<span id="L29551" class="LineNr">29551 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L29552" class="LineNr">29552 </span> 0x11/imm32/alloc-id:fake -<span id="L29553" class="LineNr">29553 </span> <a href='mu.subx.html#L31803'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name -<span id="L29554" class="LineNr">29554 </span> 0/imm32/no-rm32 -<span id="L29555" class="LineNr">29555 </span> 3/imm32/r32-is-first-output -<span id="L29556" class="LineNr">29556 </span> 0/imm32/no-imm32 -<span id="L29557" class="LineNr">29557 </span> 0/imm32/no-imm8 -<span id="L29558" class="LineNr">29558 </span> 0/imm32/no-disp32 -<span id="L29559" class="LineNr">29559 </span> 1/imm32/xm32-is-first-inout -<span id="L29560" class="LineNr">29560 </span> 0/imm32/no-x32 +<span id="L29551" class="LineNr">29551 </span> <a href='mu.subx.html#L29552'>_Primitive-shift-reg-right-signed-by-lit</a>/imm32/next +<span id="L29552" class="LineNr">29552 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29553" class="LineNr">29553 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29554" class="LineNr">29554 </span> <span class="subxComment"># var1/reg <- shift-right-signed lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> +<span id="L29555" class="LineNr">29555 </span> 0x11/imm32/alloc-id:fake +<span id="L29556" class="LineNr">29556 </span> <a href='mu.subx.html#L32243'>_string-shift-right-signed</a>/imm32/name +<span id="L29557" class="LineNr">29557 </span> 0x11/imm32/alloc-id:fake +<span id="L29558" class="LineNr">29558 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29559" class="LineNr">29559 </span> 0x11/imm32/alloc-id:fake +<span id="L29560" class="LineNr">29560 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs <span id="L29561" class="LineNr">29561 </span> 0x11/imm32/alloc-id:fake -<span id="L29562" class="LineNr">29562 </span> <a href='mu.subx.html#L29563'>_Primitive-convert-xreg-to-reg</a>/imm32/next -<span id="L29563" class="LineNr">29563 </span><span class="subxMinorFunction">_Primitive-convert-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29564" class="LineNr">29564 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29565" class="LineNr">29565 </span> <span class="subxComment"># var1/reg <- convert var2/xreg => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> -<span id="L29566" class="LineNr">29566 </span> 0x11/imm32/alloc-id:fake -<span id="L29567" class="LineNr">29567 </span> <a href='mu.subx.html#L31516'>_string-convert</a>/imm32/name -<span id="L29568" class="LineNr">29568 </span> 0x11/imm32/alloc-id:fake -<span id="L29569" class="LineNr">29569 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L29562" class="LineNr">29562 </span> <a href='mu.subx.html#L32760'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name +<span id="L29563" class="LineNr">29563 </span> 3/imm32/rm32-is-first-output +<span id="L29564" class="LineNr">29564 </span> 0/imm32/no-r32 +<span id="L29565" class="LineNr">29565 </span> 0/imm32/no-imm32 +<span id="L29566" class="LineNr">29566 </span> 1/imm32/imm8-is-first-inout +<span id="L29567" class="LineNr">29567 </span> 0/imm32/no-disp32 +<span id="L29568" class="LineNr">29568 </span> 0/imm32/no-xm32 +<span id="L29569" class="LineNr">29569 </span> 0/imm32/no-x32 <span id="L29570" class="LineNr">29570 </span> 0x11/imm32/alloc-id:fake -<span id="L29571" class="LineNr">29571 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L29572" class="LineNr">29572 </span> 0x11/imm32/alloc-id:fake -<span id="L29573" class="LineNr">29573 </span> <a href='mu.subx.html#L31803'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name -<span id="L29574" class="LineNr">29574 </span> 0/imm32/no-rm32 -<span id="L29575" class="LineNr">29575 </span> 3/imm32/r32-is-first-output -<span id="L29576" class="LineNr">29576 </span> 0/imm32/no-imm32 -<span id="L29577" class="LineNr">29577 </span> 0/imm32/no-imm8 -<span id="L29578" class="LineNr">29578 </span> 0/imm32/no-disp32 -<span id="L29579" class="LineNr">29579 </span> 1/imm32/xm32-is-first-inout -<span id="L29580" class="LineNr">29580 </span> 0/imm32/no-x32 +<span id="L29571" class="LineNr">29571 </span> <a href='mu.subx.html#L29572'>_Primitive-shift-mem-left-by-lit</a>/imm32/next +<span id="L29572" class="LineNr">29572 </span><span class="subxMinorFunction">_Primitive-shift-mem-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29573" class="LineNr">29573 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29574" class="LineNr">29574 </span> <span class="subxComment"># shift-left var1, lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> +<span id="L29575" class="LineNr">29575 </span> 0x11/imm32/alloc-id:fake +<span id="L29576" class="LineNr">29576 </span> <a href='mu.subx.html#L32233'>_string-shift-left</a>/imm32/name +<span id="L29577" class="LineNr">29577 </span> 0x11/imm32/alloc-id:fake +<span id="L29578" class="LineNr">29578 </span> <span class="SpecialChar"><a href='mu.subx.html#L32840'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L29579" class="LineNr">29579 </span> 0/imm32/no-outputs +<span id="L29580" class="LineNr">29580 </span> 0/imm32/no-outputs <span id="L29581" class="LineNr">29581 </span> 0x11/imm32/alloc-id:fake -<span id="L29582" class="LineNr">29582 </span> <a href='mu.subx.html#L29583'>_Primitive-truncate-xmem-to-reg</a>/imm32/next -<span id="L29583" class="LineNr">29583 </span><span class="subxMinorFunction">_Primitive-truncate-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29584" class="LineNr">29584 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29585" class="LineNr">29585 </span> <span class="subxComment"># var1/reg <- truncate var2 => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> -<span id="L29586" class="LineNr">29586 </span> 0x11/imm32/alloc-id:fake -<span id="L29587" class="LineNr">29587 </span> <a href='mu.subx.html#L31521'>_string-truncate</a>/imm32/name -<span id="L29588" class="LineNr">29588 </span> 0x11/imm32/alloc-id:fake -<span id="L29589" class="LineNr">29589 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L29582" class="LineNr">29582 </span> <a href='mu.subx.html#L32750'>_string_c1_subop_shift_left</a>/imm32/subx-name +<span id="L29583" class="LineNr">29583 </span> 1/imm32/rm32-is-first-inout +<span id="L29584" class="LineNr">29584 </span> 0/imm32/no-r32 +<span id="L29585" class="LineNr">29585 </span> 0/imm32/no-imm32 +<span id="L29586" class="LineNr">29586 </span> 2/imm32/imm8-is-second-inout +<span id="L29587" class="LineNr">29587 </span> 0/imm32/no-disp32 +<span id="L29588" class="LineNr">29588 </span> 0/imm32/no-xm32 +<span id="L29589" class="LineNr">29589 </span> 0/imm32/no-x32 <span id="L29590" class="LineNr">29590 </span> 0x11/imm32/alloc-id:fake -<span id="L29591" class="LineNr">29591 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L29592" class="LineNr">29592 </span> 0x11/imm32/alloc-id:fake -<span id="L29593" class="LineNr">29593 </span> <a href='mu.subx.html#L31808'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name -<span id="L29594" class="LineNr">29594 </span> 0/imm32/no-rm32 -<span id="L29595" class="LineNr">29595 </span> 3/imm32/r32-is-first-output -<span id="L29596" class="LineNr">29596 </span> 0/imm32/no-imm32 -<span id="L29597" class="LineNr">29597 </span> 0/imm32/no-imm8 -<span id="L29598" class="LineNr">29598 </span> 0/imm32/no-disp32 -<span id="L29599" class="LineNr">29599 </span> 1/imm32/xm32-is-first-inout -<span id="L29600" class="LineNr">29600 </span> 0/imm32/no-x32 +<span id="L29591" class="LineNr">29591 </span> <a href='mu.subx.html#L29592'>_Primitive-shift-mem-right-by-lit</a>/imm32/next +<span id="L29592" class="LineNr">29592 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29593" class="LineNr">29593 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29594" class="LineNr">29594 </span> <span class="subxComment"># shift-right var1, lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> +<span id="L29595" class="LineNr">29595 </span> 0x11/imm32/alloc-id:fake +<span id="L29596" class="LineNr">29596 </span> <a href='mu.subx.html#L32238'>_string-shift-right</a>/imm32/name +<span id="L29597" class="LineNr">29597 </span> 0x11/imm32/alloc-id:fake +<span id="L29598" class="LineNr">29598 </span> <span class="SpecialChar"><a href='mu.subx.html#L32840'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L29599" class="LineNr">29599 </span> 0/imm32/no-outputs +<span id="L29600" class="LineNr">29600 </span> 0/imm32/no-outputs <span id="L29601" class="LineNr">29601 </span> 0x11/imm32/alloc-id:fake -<span id="L29602" class="LineNr">29602 </span> <a href='mu.subx.html#L29603'>_Primitive-truncate-xreg-to-reg</a>/imm32/next -<span id="L29603" class="LineNr">29603 </span><span class="subxMinorFunction">_Primitive-truncate-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29604" class="LineNr">29604 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29605" class="LineNr">29605 </span> <span class="subxComment"># var1/reg <- truncate var2/xreg => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> -<span id="L29606" class="LineNr">29606 </span> 0x11/imm32/alloc-id:fake -<span id="L29607" class="LineNr">29607 </span> <a href='mu.subx.html#L31521'>_string-truncate</a>/imm32/name -<span id="L29608" class="LineNr">29608 </span> 0x11/imm32/alloc-id:fake -<span id="L29609" class="LineNr">29609 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L29602" class="LineNr">29602 </span> <a href='mu.subx.html#L32755'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name +<span id="L29603" class="LineNr">29603 </span> 1/imm32/rm32-is-first-inout +<span id="L29604" class="LineNr">29604 </span> 0/imm32/no-r32 +<span id="L29605" class="LineNr">29605 </span> 0/imm32/no-imm32 +<span id="L29606" class="LineNr">29606 </span> 2/imm32/imm8-is-second-inout +<span id="L29607" class="LineNr">29607 </span> 0/imm32/no-disp32 +<span id="L29608" class="LineNr">29608 </span> 0/imm32/no-xm32 +<span id="L29609" class="LineNr">29609 </span> 0/imm32/no-x32 <span id="L29610" class="LineNr">29610 </span> 0x11/imm32/alloc-id:fake -<span id="L29611" class="LineNr">29611 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L29612" class="LineNr">29612 </span> 0x11/imm32/alloc-id:fake -<span id="L29613" class="LineNr">29613 </span> <a href='mu.subx.html#L31808'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name -<span id="L29614" class="LineNr">29614 </span> 0/imm32/no-rm32 -<span id="L29615" class="LineNr">29615 </span> 3/imm32/r32-is-first-output -<span id="L29616" class="LineNr">29616 </span> 0/imm32/no-imm32 -<span id="L29617" class="LineNr">29617 </span> 0/imm32/no-imm8 -<span id="L29618" class="LineNr">29618 </span> 0/imm32/no-disp32 -<span id="L29619" class="LineNr">29619 </span> 1/imm32/xm32-is-first-inout -<span id="L29620" class="LineNr">29620 </span> 0/imm32/no-x32 +<span id="L29611" class="LineNr">29611 </span> <a href='mu.subx.html#L29612'>_Primitive-shift-mem-right-signed-by-lit</a>/imm32/next +<span id="L29612" class="LineNr">29612 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29613" class="LineNr">29613 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29614" class="LineNr">29614 </span> <span class="subxComment"># shift-right-signed var1, lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> +<span id="L29615" class="LineNr">29615 </span> 0x11/imm32/alloc-id:fake +<span id="L29616" class="LineNr">29616 </span> <a href='mu.subx.html#L32243'>_string-shift-right-signed</a>/imm32/name +<span id="L29617" class="LineNr">29617 </span> 0x11/imm32/alloc-id:fake +<span id="L29618" class="LineNr">29618 </span> <span class="SpecialChar"><a href='mu.subx.html#L32840'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L29619" class="LineNr">29619 </span> 0/imm32/no-outputs +<span id="L29620" class="LineNr">29620 </span> 0/imm32/no-outputs <span id="L29621" class="LineNr">29621 </span> 0x11/imm32/alloc-id:fake -<span id="L29622" class="LineNr">29622 </span> <a href='mu.subx.html#L29624'>_Primitive-reinterpret-xmem-as-reg</a>/imm32/next -<span id="L29623" class="LineNr">29623 </span><span class="subxH1Comment"># - reinterpret bytes (just for debugging)</span> -<span id="L29624" class="LineNr">29624 </span><span class="subxMinorFunction">_Primitive-reinterpret-xmem-as-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29625" class="LineNr">29625 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29626" class="LineNr">29626 </span> <span class="subxComment"># var1/reg <- reinterpret var2 => 8b/-> var2/xm32 var1/r32</span> -<span id="L29627" class="LineNr">29627 </span> 0x11/imm32/alloc-id:fake -<span id="L29628" class="LineNr">29628 </span> <a href='mu.subx.html#L31526'>_string-reinterpret</a>/imm32/name -<span id="L29629" class="LineNr">29629 </span> 0x11/imm32/alloc-id:fake -<span id="L29630" class="LineNr">29630 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L29631" class="LineNr">29631 </span> 0x11/imm32/alloc-id:fake -<span id="L29632" class="LineNr">29632 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L29633" class="LineNr">29633 </span> 0x11/imm32/alloc-id:fake -<span id="L29634" class="LineNr">29634 </span> <a href='mu.subx.html#L32028'>_string_8b_-></a>/imm32/subx-name -<span id="L29635" class="LineNr">29635 </span> 0/imm32/no-rm32 -<span id="L29636" class="LineNr">29636 </span> 3/imm32/r32-is-first-output -<span id="L29637" class="LineNr">29637 </span> 0/imm32/no-imm32 -<span id="L29638" class="LineNr">29638 </span> 0/imm32/no-imm8 -<span id="L29639" class="LineNr">29639 </span> 0/imm32/no-disp32 -<span id="L29640" class="LineNr">29640 </span> 1/imm32/xm32-is-first-inout -<span id="L29641" class="LineNr">29641 </span> 0/imm32/no-x32 +<span id="L29622" class="LineNr">29622 </span> <a href='mu.subx.html#L32760'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name +<span id="L29623" class="LineNr">29623 </span> 1/imm32/rm32-is-first-inout +<span id="L29624" class="LineNr">29624 </span> 0/imm32/no-r32 +<span id="L29625" class="LineNr">29625 </span> 0/imm32/no-imm32 +<span id="L29626" class="LineNr">29626 </span> 2/imm32/imm8-is-second-inout +<span id="L29627" class="LineNr">29627 </span> 0/imm32/no-disp32 +<span id="L29628" class="LineNr">29628 </span> 0/imm32/no-xm32 +<span id="L29629" class="LineNr">29629 </span> 0/imm32/no-x32 +<span id="L29630" class="LineNr">29630 </span> 0x11/imm32/alloc-id:fake +<span id="L29631" class="LineNr">29631 </span> <a href='mu.subx.html#L29633'>_Primitive-copy-to-eax</a>/imm32/next +<span id="L29632" class="LineNr">29632 </span><span class="subxH1Comment"># - copy</span> +<span id="L29633" class="LineNr">29633 </span><span class="subxMinorFunction">_Primitive-copy-to-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29634" class="LineNr">29634 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29635" class="LineNr">29635 </span> <span class="subxComment"># var/eax <- copy lit => b8/copy-to-eax lit/imm32</span> +<span id="L29636" class="LineNr">29636 </span> 0x11/imm32/alloc-id:fake +<span id="L29637" class="LineNr">29637 </span> <a href='mu.subx.html#L32043'>_string-copy</a>/imm32/name +<span id="L29638" class="LineNr">29638 </span> 0x11/imm32/alloc-id:fake +<span id="L29639" class="LineNr">29639 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29640" class="LineNr">29640 </span> 0x11/imm32/alloc-id:fake +<span id="L29641" class="LineNr">29641 </span> <span class="SpecialChar"><a href='mu.subx.html#L32935'>Single-int-var-in-eax</a></span>/imm32/outputs <span id="L29642" class="LineNr">29642 </span> 0x11/imm32/alloc-id:fake -<span id="L29643" class="LineNr">29643 </span> <a href='mu.subx.html#L29644'>_Primitive-reinterpret-mem-as-xreg</a>/imm32/next -<span id="L29644" class="LineNr">29644 </span><span class="subxMinorFunction">_Primitive-reinterpret-mem-as-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29645" class="LineNr">29645 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29646" class="LineNr">29646 </span> <span class="subxComment"># var1/xreg <- reinterpret var2 => f3 0f 10/-> var2/rm32 var1/x32</span> -<span id="L29647" class="LineNr">29647 </span> 0x11/imm32/alloc-id:fake -<span id="L29648" class="LineNr">29648 </span> <a href='mu.subx.html#L31526'>_string-reinterpret</a>/imm32/name -<span id="L29649" class="LineNr">29649 </span> 0x11/imm32/alloc-id:fake -<span id="L29650" class="LineNr">29650 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L29643" class="LineNr">29643 </span> <a href='mu.subx.html#L32685'>_string_b8_copy_to_eax</a>/imm32/subx-name +<span id="L29644" class="LineNr">29644 </span> 0/imm32/no-rm32 +<span id="L29645" class="LineNr">29645 </span> 0/imm32/no-r32 +<span id="L29646" class="LineNr">29646 </span> 1/imm32/imm32-is-first-inout +<span id="L29647" class="LineNr">29647 </span> 0/imm32/no-imm8 +<span id="L29648" class="LineNr">29648 </span> 0/imm32/no-disp32 +<span id="L29649" class="LineNr">29649 </span> 0/imm32/no-xm32 +<span id="L29650" class="LineNr">29650 </span> 0/imm32/no-x32 <span id="L29651" class="LineNr">29651 </span> 0x11/imm32/alloc-id:fake -<span id="L29652" class="LineNr">29652 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L29653" class="LineNr">29653 </span> 0x11/imm32/alloc-id:fake -<span id="L29654" class="LineNr">29654 </span> <a href='mu.subx.html#L31858'>_string_f3_0f_10_copy</a>/imm32/subx-name -<span id="L29655" class="LineNr">29655 </span> 1/imm32/rm32-is-first-inout -<span id="L29656" class="LineNr">29656 </span> 0/imm32/no-r32 -<span id="L29657" class="LineNr">29657 </span> 0/imm32/no-imm32 -<span id="L29658" class="LineNr">29658 </span> 0/imm32/no-imm8 -<span id="L29659" class="LineNr">29659 </span> 0/imm32/no-disp32 -<span id="L29660" class="LineNr">29660 </span> 0/imm32/no-xm32 -<span id="L29661" class="LineNr">29661 </span> 3/imm32/x32-is-first-output +<span id="L29652" class="LineNr">29652 </span> <a href='mu.subx.html#L29653'>_Primitive-copy-to-ecx</a>/imm32/next +<span id="L29653" class="LineNr">29653 </span><span class="subxMinorFunction">_Primitive-copy-to-ecx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29654" class="LineNr">29654 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29655" class="LineNr">29655 </span> <span class="subxComment"># var/ecx <- copy lit => b9/copy-to-ecx lit/imm32</span> +<span id="L29656" class="LineNr">29656 </span> 0x11/imm32/alloc-id:fake +<span id="L29657" class="LineNr">29657 </span> <a href='mu.subx.html#L32043'>_string-copy</a>/imm32/name +<span id="L29658" class="LineNr">29658 </span> 0x11/imm32/alloc-id:fake +<span id="L29659" class="LineNr">29659 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29660" class="LineNr">29660 </span> 0x11/imm32/alloc-id:fake +<span id="L29661" class="LineNr">29661 </span> <span class="SpecialChar"><a href='mu.subx.html#L32953'>Single-int-var-in-ecx</a></span>/imm32/outputs <span id="L29662" class="LineNr">29662 </span> 0x11/imm32/alloc-id:fake -<span id="L29663" class="LineNr">29663 </span> <a href='mu.subx.html#L29665'>_Primitive-copy-xreg-to-xreg</a>/imm32/next -<span id="L29664" class="LineNr">29664 </span><span class="subxH1Comment"># - floating-point copy</span> -<span id="L29665" class="LineNr">29665 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29666" class="LineNr">29666 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29667" class="LineNr">29667 </span> <span class="subxComment"># var1/xreg <- copy var2/xreg => f3 0f 11/<- var1/xm32 var2/x32</span> -<span id="L29668" class="LineNr">29668 </span> 0x11/imm32/alloc-id:fake -<span id="L29669" class="LineNr">29669 </span> <a href='mu.subx.html#L31406'>_string-copy</a>/imm32/name -<span id="L29670" class="LineNr">29670 </span> 0x11/imm32/alloc-id:fake -<span id="L29671" class="LineNr">29671 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L29672" class="LineNr">29672 </span> 0x11/imm32/alloc-id:fake -<span id="L29673" class="LineNr">29673 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L29674" class="LineNr">29674 </span> 0x11/imm32/alloc-id:fake -<span id="L29675" class="LineNr">29675 </span> <a href='mu.subx.html#L31863'>_string_f3_0f_11_copy</a>/imm32/subx-name -<span id="L29676" class="LineNr">29676 </span> 0/imm32/no-rm32 -<span id="L29677" class="LineNr">29677 </span> 0/imm32/no-r32 -<span id="L29678" class="LineNr">29678 </span> 0/imm32/no-imm32 -<span id="L29679" class="LineNr">29679 </span> 0/imm32/no-imm8 -<span id="L29680" class="LineNr">29680 </span> 0/imm32/no-disp32 -<span id="L29681" class="LineNr">29681 </span> 3/imm32/xm32-is-first-output -<span id="L29682" class="LineNr">29682 </span> 1/imm32/x32-is-first-inout -<span id="L29683" class="LineNr">29683 </span> 0x11/imm32/alloc-id:fake -<span id="L29684" class="LineNr">29684 </span> <a href='mu.subx.html#L29685'>_Primitive-copy-xreg-to-mem</a>/imm32/next -<span id="L29685" class="LineNr">29685 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29686" class="LineNr">29686 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29687" class="LineNr">29687 </span> <span class="subxComment"># copy-to var1 var2/xreg => f3 0f 11/<- var1 var2/x32</span> -<span id="L29688" class="LineNr">29688 </span> 0x11/imm32/alloc-id:fake -<span id="L29689" class="LineNr">29689 </span> <a href='mu.subx.html#L31411'>_string-copy-to</a>/imm32/name -<span id="L29690" class="LineNr">29690 </span> 0x11/imm32/alloc-id:fake -<span id="L29691" class="LineNr">29691 </span> <span class="SpecialChar"><a href='mu.subx.html#L32231'>Two-args-float-stack-float-reg</a></span>/imm32/inouts -<span id="L29692" class="LineNr">29692 </span> 0/imm32/no-outputs -<span id="L29693" class="LineNr">29693 </span> 0/imm32/no-outputs -<span id="L29694" class="LineNr">29694 </span> 0x11/imm32/alloc-id:fake -<span id="L29695" class="LineNr">29695 </span> <a href='mu.subx.html#L31863'>_string_f3_0f_11_copy</a>/imm32/subx-name -<span id="L29696" class="LineNr">29696 </span> 0/imm32/no-rm32 -<span id="L29697" class="LineNr">29697 </span> 0/imm32/no-r32 -<span id="L29698" class="LineNr">29698 </span> 0/imm32/no-imm32 -<span id="L29699" class="LineNr">29699 </span> 0/imm32/no-imm8 -<span id="L29700" class="LineNr">29700 </span> 0/imm32/no-disp32 -<span id="L29701" class="LineNr">29701 </span> 1/imm32/xm32-is-first-inout -<span id="L29702" class="LineNr">29702 </span> 2/imm32/x32-is-second-inout -<span id="L29703" class="LineNr">29703 </span> 0x11/imm32/alloc-id:fake -<span id="L29704" class="LineNr">29704 </span> <a href='mu.subx.html#L29705'>_Primitive-copy-mem-to-xreg</a>/imm32/next -<span id="L29705" class="LineNr">29705 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29706" class="LineNr">29706 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29707" class="LineNr">29707 </span> <span class="subxComment"># var1/xreg <- copy var2 => f3 0f 10/-> var2/rm32 var1/x32</span> -<span id="L29708" class="LineNr">29708 </span> 0x11/imm32/alloc-id:fake -<span id="L29709" class="LineNr">29709 </span> <a href='mu.subx.html#L31406'>_string-copy</a>/imm32/name -<span id="L29710" class="LineNr">29710 </span> 0x11/imm32/alloc-id:fake -<span id="L29711" class="LineNr">29711 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L29712" class="LineNr">29712 </span> 0x11/imm32/alloc-id:fake -<span id="L29713" class="LineNr">29713 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L29714" class="LineNr">29714 </span> 0x11/imm32/alloc-id:fake -<span id="L29715" class="LineNr">29715 </span> <a href='mu.subx.html#L31858'>_string_f3_0f_10_copy</a>/imm32/subx-name -<span id="L29716" class="LineNr">29716 </span> 0/imm32/no-rm32 -<span id="L29717" class="LineNr">29717 </span> 0/imm32/no-r32 -<span id="L29718" class="LineNr">29718 </span> 0/imm32/no-imm32 -<span id="L29719" class="LineNr">29719 </span> 0/imm32/no-imm8 -<span id="L29720" class="LineNr">29720 </span> 0/imm32/no-disp32 -<span id="L29721" class="LineNr">29721 </span> 1/imm32/xm32-is-first-inout -<span id="L29722" class="LineNr">29722 </span> 3/imm32/x32-is-first-output -<span id="L29723" class="LineNr">29723 </span> 0x11/imm32/alloc-id:fake -<span id="L29724" class="LineNr">29724 </span> <a href='mu.subx.html#L29726'>_Primitive-address-of-xmem</a>/imm32/next -<span id="L29725" class="LineNr">29725 </span><span class="subxH1Comment"># - floating-point-address</span> -<span id="L29726" class="LineNr">29726 </span><span class="subxMinorFunction">_Primitive-address-of-xmem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29727" class="LineNr">29727 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29728" class="LineNr">29728 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> -<span id="L29729" class="LineNr">29729 </span> 0x11/imm32/alloc-id:fake -<span id="L29730" class="LineNr">29730 </span> <a href='mu.subx.html#L31306'>_string-address</a>/imm32/name +<span id="L29663" class="LineNr">29663 </span> <a href='mu.subx.html#L32690'>_string_b9_copy_to_ecx</a>/imm32/subx-name +<span id="L29664" class="LineNr">29664 </span> 0/imm32/no-rm32 +<span id="L29665" class="LineNr">29665 </span> 0/imm32/no-r32 +<span id="L29666" class="LineNr">29666 </span> 1/imm32/imm32-is-first-inout +<span id="L29667" class="LineNr">29667 </span> 0/imm32/no-imm8 +<span id="L29668" class="LineNr">29668 </span> 0/imm32/no-disp32 +<span id="L29669" class="LineNr">29669 </span> 0/imm32/no-xm32 +<span id="L29670" class="LineNr">29670 </span> 0/imm32/no-x32 +<span id="L29671" class="LineNr">29671 </span> 0x11/imm32/alloc-id:fake +<span id="L29672" class="LineNr">29672 </span> <a href='mu.subx.html#L29673'>_Primitive-copy-to-edx</a>/imm32/next +<span id="L29673" class="LineNr">29673 </span><span class="subxMinorFunction">_Primitive-copy-to-edx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29674" class="LineNr">29674 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29675" class="LineNr">29675 </span> <span class="subxComment"># var/edx <- copy lit => ba/copy-to-edx lit/imm32</span> +<span id="L29676" class="LineNr">29676 </span> 0x11/imm32/alloc-id:fake +<span id="L29677" class="LineNr">29677 </span> <a href='mu.subx.html#L32043'>_string-copy</a>/imm32/name +<span id="L29678" class="LineNr">29678 </span> 0x11/imm32/alloc-id:fake +<span id="L29679" class="LineNr">29679 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29680" class="LineNr">29680 </span> 0x11/imm32/alloc-id:fake +<span id="L29681" class="LineNr">29681 </span> <span class="SpecialChar"><a href='mu.subx.html#L32971'>Single-int-var-in-edx</a></span>/imm32/outputs +<span id="L29682" class="LineNr">29682 </span> 0x11/imm32/alloc-id:fake +<span id="L29683" class="LineNr">29683 </span> <a href='mu.subx.html#L32695'>_string_ba_copy_to_edx</a>/imm32/subx-name +<span id="L29684" class="LineNr">29684 </span> 0/imm32/no-rm32 +<span id="L29685" class="LineNr">29685 </span> 0/imm32/no-r32 +<span id="L29686" class="LineNr">29686 </span> 1/imm32/imm32-is-first-inout +<span id="L29687" class="LineNr">29687 </span> 0/imm32/no-imm8 +<span id="L29688" class="LineNr">29688 </span> 0/imm32/no-disp32 +<span id="L29689" class="LineNr">29689 </span> 0/imm32/no-xm32 +<span id="L29690" class="LineNr">29690 </span> 0/imm32/no-x32 +<span id="L29691" class="LineNr">29691 </span> 0x11/imm32/alloc-id:fake +<span id="L29692" class="LineNr">29692 </span> <a href='mu.subx.html#L29693'>_Primitive-copy-to-ebx</a>/imm32/next +<span id="L29693" class="LineNr">29693 </span><span class="subxMinorFunction">_Primitive-copy-to-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29694" class="LineNr">29694 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29695" class="LineNr">29695 </span> <span class="subxComment"># var/ebx <- copy lit => bb/copy-to-ebx lit/imm32</span> +<span id="L29696" class="LineNr">29696 </span> 0x11/imm32/alloc-id:fake +<span id="L29697" class="LineNr">29697 </span> <a href='mu.subx.html#L32043'>_string-copy</a>/imm32/name +<span id="L29698" class="LineNr">29698 </span> 0x11/imm32/alloc-id:fake +<span id="L29699" class="LineNr">29699 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29700" class="LineNr">29700 </span> 0x11/imm32/alloc-id:fake +<span id="L29701" class="LineNr">29701 </span> <span class="SpecialChar"><a href='mu.subx.html#L32989'>Single-int-var-in-ebx</a></span>/imm32/outputs +<span id="L29702" class="LineNr">29702 </span> 0x11/imm32/alloc-id:fake +<span id="L29703" class="LineNr">29703 </span> <a href='mu.subx.html#L32700'>_string_bb_copy_to_ebx</a>/imm32/subx-name +<span id="L29704" class="LineNr">29704 </span> 0/imm32/no-rm32 +<span id="L29705" class="LineNr">29705 </span> 0/imm32/no-r32 +<span id="L29706" class="LineNr">29706 </span> 1/imm32/imm32-is-first-inout +<span id="L29707" class="LineNr">29707 </span> 0/imm32/no-imm8 +<span id="L29708" class="LineNr">29708 </span> 0/imm32/no-disp32 +<span id="L29709" class="LineNr">29709 </span> 0/imm32/no-xm32 +<span id="L29710" class="LineNr">29710 </span> 0/imm32/no-x32 +<span id="L29711" class="LineNr">29711 </span> 0x11/imm32/alloc-id:fake +<span id="L29712" class="LineNr">29712 </span> <a href='mu.subx.html#L29713'>_Primitive-copy-to-esi</a>/imm32/next +<span id="L29713" class="LineNr">29713 </span><span class="subxMinorFunction">_Primitive-copy-to-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29714" class="LineNr">29714 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29715" class="LineNr">29715 </span> <span class="subxComment"># var/esi <- copy lit => be/copy-to-esi lit/imm32</span> +<span id="L29716" class="LineNr">29716 </span> 0x11/imm32/alloc-id:fake +<span id="L29717" class="LineNr">29717 </span> <a href='mu.subx.html#L32043'>_string-copy</a>/imm32/name +<span id="L29718" class="LineNr">29718 </span> 0x11/imm32/alloc-id:fake +<span id="L29719" class="LineNr">29719 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29720" class="LineNr">29720 </span> 0x11/imm32/alloc-id:fake +<span id="L29721" class="LineNr">29721 </span> <span class="SpecialChar"><a href='mu.subx.html#L33007'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L29722" class="LineNr">29722 </span> 0x11/imm32/alloc-id:fake +<span id="L29723" class="LineNr">29723 </span> <a href='mu.subx.html#L32705'>_string_be_copy_to_esi</a>/imm32/subx-name +<span id="L29724" class="LineNr">29724 </span> 0/imm32/no-rm32 +<span id="L29725" class="LineNr">29725 </span> 0/imm32/no-r32 +<span id="L29726" class="LineNr">29726 </span> 1/imm32/imm32-is-first-inout +<span id="L29727" class="LineNr">29727 </span> 0/imm32/no-imm8 +<span id="L29728" class="LineNr">29728 </span> 0/imm32/no-disp32 +<span id="L29729" class="LineNr">29729 </span> 0/imm32/no-xm32 +<span id="L29730" class="LineNr">29730 </span> 0/imm32/no-x32 <span id="L29731" class="LineNr">29731 </span> 0x11/imm32/alloc-id:fake -<span id="L29732" class="LineNr">29732 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L29733" class="LineNr">29733 </span> 0x11/imm32/alloc-id:fake -<span id="L29734" class="LineNr">29734 </span> <span class="SpecialChar"><a href='mu.subx.html#L32245'>Single-addr-var-in-some-register</a></span>/imm32/outputs -<span id="L29735" class="LineNr">29735 </span> 0x11/imm32/alloc-id:fake -<span id="L29736" class="LineNr">29736 </span> <a href='mu.subx.html#L32043'>_string_8d_copy_address</a>/imm32/subx-name -<span id="L29737" class="LineNr">29737 </span> 1/imm32/rm32-is-first-inout -<span id="L29738" class="LineNr">29738 </span> 3/imm32/r32-is-first-output -<span id="L29739" class="LineNr">29739 </span> 0/imm32/no-imm32 -<span id="L29740" class="LineNr">29740 </span> 0/imm32/no-imm8 -<span id="L29741" class="LineNr">29741 </span> 0/imm32/no-disp32 -<span id="L29742" class="LineNr">29742 </span> 0/imm32/no-xm32 -<span id="L29743" class="LineNr">29743 </span> 0/imm32/no-x32 -<span id="L29744" class="LineNr">29744 </span> 0x11/imm32/alloc-id:fake -<span id="L29745" class="LineNr">29745 </span> <a href='mu.subx.html#L29747'>_Primitive-add-xreg-to-xreg</a>/imm32/next -<span id="L29746" class="LineNr">29746 </span><span class="subxH1Comment"># - floating-point add</span> -<span id="L29747" class="LineNr">29747 </span><span class="subxMinorFunction">_Primitive-add-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29748" class="LineNr">29748 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29749" class="LineNr">29749 </span> <span class="subxComment"># var1/xreg <- add var2/xreg => f3 0f 58/add var1/xm32 var2/x32</span> -<span id="L29750" class="LineNr">29750 </span> 0x11/imm32/alloc-id:fake -<span id="L29751" class="LineNr">29751 </span> <a href='mu.subx.html#L31301'>_string-add</a>/imm32/name -<span id="L29752" class="LineNr">29752 </span> 0x11/imm32/alloc-id:fake -<span id="L29753" class="LineNr">29753 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L29754" class="LineNr">29754 </span> 0x11/imm32/alloc-id:fake -<span id="L29755" class="LineNr">29755 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L29732" class="LineNr">29732 </span> <a href='mu.subx.html#L29733'>_Primitive-copy-to-edi</a>/imm32/next +<span id="L29733" class="LineNr">29733 </span><span class="subxMinorFunction">_Primitive-copy-to-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29734" class="LineNr">29734 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29735" class="LineNr">29735 </span> <span class="subxComment"># var/edi <- copy lit => bf/copy-to-edi lit/imm32</span> +<span id="L29736" class="LineNr">29736 </span> 0x11/imm32/alloc-id:fake +<span id="L29737" class="LineNr">29737 </span> <a href='mu.subx.html#L32043'>_string-copy</a>/imm32/name +<span id="L29738" class="LineNr">29738 </span> 0x11/imm32/alloc-id:fake +<span id="L29739" class="LineNr">29739 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29740" class="LineNr">29740 </span> 0x11/imm32/alloc-id:fake +<span id="L29741" class="LineNr">29741 </span> <span class="SpecialChar"><a href='mu.subx.html#L33025'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L29742" class="LineNr">29742 </span> 0x11/imm32/alloc-id:fake +<span id="L29743" class="LineNr">29743 </span> <a href='mu.subx.html#L32710'>_string_bf_copy_to_edi</a>/imm32/subx-name +<span id="L29744" class="LineNr">29744 </span> 0/imm32/no-rm32 +<span id="L29745" class="LineNr">29745 </span> 0/imm32/no-r32 +<span id="L29746" class="LineNr">29746 </span> 1/imm32/imm32-is-first-inout +<span id="L29747" class="LineNr">29747 </span> 0/imm32/no-imm8 +<span id="L29748" class="LineNr">29748 </span> 0/imm32/no-disp32 +<span id="L29749" class="LineNr">29749 </span> 0/imm32/no-xm32 +<span id="L29750" class="LineNr">29750 </span> 0/imm32/no-x32 +<span id="L29751" class="LineNr">29751 </span> 0x11/imm32/alloc-id:fake +<span id="L29752" class="LineNr">29752 </span> <a href='mu.subx.html#L29753'>_Primitive-copy-reg-to-reg</a>/imm32/next +<span id="L29753" class="LineNr">29753 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29754" class="LineNr">29754 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29755" class="LineNr">29755 </span> <span class="subxComment"># var1/reg <- copy var2/reg => 89/<- var1/rm32 var2/r32</span> <span id="L29756" class="LineNr">29756 </span> 0x11/imm32/alloc-id:fake -<span id="L29757" class="LineNr">29757 </span> <a href='mu.subx.html#L31813'>_string_f3_0f_58_add</a>/imm32/subx-name -<span id="L29758" class="LineNr">29758 </span> 0/imm32/no-rm32 -<span id="L29759" class="LineNr">29759 </span> 0/imm32/no-r32 -<span id="L29760" class="LineNr">29760 </span> 0/imm32/no-imm32 -<span id="L29761" class="LineNr">29761 </span> 0/imm32/no-imm8 -<span id="L29762" class="LineNr">29762 </span> 0/imm32/no-disp32 -<span id="L29763" class="LineNr">29763 </span> 1/imm32/xm32-is-first-inout -<span id="L29764" class="LineNr">29764 </span> 3/imm32/x32-is-first-output -<span id="L29765" class="LineNr">29765 </span> 0x11/imm32/alloc-id:fake -<span id="L29766" class="LineNr">29766 </span> <a href='mu.subx.html#L29767'>_Primitive-add-mem-to-xreg</a>/imm32/next -<span id="L29767" class="LineNr">29767 </span><span class="subxMinorFunction">_Primitive-add-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29768" class="LineNr">29768 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29769" class="LineNr">29769 </span> <span class="subxComment"># var1/xreg <- add var2 => f3 0f 58/add var2/xm32 var1/x32</span> -<span id="L29770" class="LineNr">29770 </span> 0x11/imm32/alloc-id:fake -<span id="L29771" class="LineNr">29771 </span> <a href='mu.subx.html#L31301'>_string-add</a>/imm32/name -<span id="L29772" class="LineNr">29772 </span> 0x11/imm32/alloc-id:fake -<span id="L29773" class="LineNr">29773 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L29774" class="LineNr">29774 </span> 0x11/imm32/alloc-id:fake -<span id="L29775" class="LineNr">29775 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L29757" class="LineNr">29757 </span> <a href='mu.subx.html#L32043'>_string-copy</a>/imm32/name +<span id="L29758" class="LineNr">29758 </span> 0x11/imm32/alloc-id:fake +<span id="L29759" class="LineNr">29759 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L29760" class="LineNr">29760 </span> 0x11/imm32/alloc-id:fake +<span id="L29761" class="LineNr">29761 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29762" class="LineNr">29762 </span> 0x11/imm32/alloc-id:fake +<span id="L29763" class="LineNr">29763 </span> <a href='mu.subx.html#L32660'>_string_89_<-</a>/imm32/subx-name +<span id="L29764" class="LineNr">29764 </span> 3/imm32/rm32-is-first-output +<span id="L29765" class="LineNr">29765 </span> 1/imm32/r32-is-first-inout +<span id="L29766" class="LineNr">29766 </span> 0/imm32/no-imm32 +<span id="L29767" class="LineNr">29767 </span> 0/imm32/no-imm8 +<span id="L29768" class="LineNr">29768 </span> 0/imm32/no-disp32 +<span id="L29769" class="LineNr">29769 </span> 0/imm32/no-xm32 +<span id="L29770" class="LineNr">29770 </span> 0/imm32/no-x32 +<span id="L29771" class="LineNr">29771 </span> 0x11/imm32/alloc-id:fake +<span id="L29772" class="LineNr">29772 </span> <a href='mu.subx.html#L29773'>_Primitive-copy-reg-to-mem</a>/imm32/next +<span id="L29773" class="LineNr">29773 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29774" class="LineNr">29774 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29775" class="LineNr">29775 </span> <span class="subxComment"># copy-to var1 var2/reg => 89/<- var1 var2/r32</span> <span id="L29776" class="LineNr">29776 </span> 0x11/imm32/alloc-id:fake -<span id="L29777" class="LineNr">29777 </span> <a href='mu.subx.html#L31813'>_string_f3_0f_58_add</a>/imm32/subx-name -<span id="L29778" class="LineNr">29778 </span> 0/imm32/no-rm32 -<span id="L29779" class="LineNr">29779 </span> 0/imm32/no-r32 -<span id="L29780" class="LineNr">29780 </span> 0/imm32/no-imm32 -<span id="L29781" class="LineNr">29781 </span> 0/imm32/no-imm8 -<span id="L29782" class="LineNr">29782 </span> 0/imm32/no-disp32 -<span id="L29783" class="LineNr">29783 </span> 1/imm32/xm32-is-first-inout -<span id="L29784" class="LineNr">29784 </span> 3/imm32/x32-is-first-output -<span id="L29785" class="LineNr">29785 </span> 0x11/imm32/alloc-id:fake -<span id="L29786" class="LineNr">29786 </span> <a href='mu.subx.html#L29788'>_Primitive-subtract-xreg-from-xreg</a>/imm32/next -<span id="L29787" class="LineNr">29787 </span><span class="subxH1Comment"># - floating-point subtract</span> -<span id="L29788" class="LineNr">29788 </span><span class="subxMinorFunction">_Primitive-subtract-xreg-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29789" class="LineNr">29789 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29790" class="LineNr">29790 </span> <span class="subxComment"># var1/xreg <- subtract var2/xreg => f3 0f 5c/subtract var1/xm32 var2/x32</span> +<span id="L29777" class="LineNr">29777 </span> <a href='mu.subx.html#L32048'>_string-copy-to</a>/imm32/name +<span id="L29778" class="LineNr">29778 </span> 0x11/imm32/alloc-id:fake +<span id="L29779" class="LineNr">29779 </span> <span class="SpecialChar"><a href='mu.subx.html#L32804'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L29780" class="LineNr">29780 </span> 0/imm32/no-outputs +<span id="L29781" class="LineNr">29781 </span> 0/imm32/no-outputs +<span id="L29782" class="LineNr">29782 </span> 0x11/imm32/alloc-id:fake +<span id="L29783" class="LineNr">29783 </span> <a href='mu.subx.html#L32660'>_string_89_<-</a>/imm32/subx-name +<span id="L29784" class="LineNr">29784 </span> 1/imm32/rm32-is-first-inout +<span id="L29785" class="LineNr">29785 </span> 2/imm32/r32-is-second-inout +<span id="L29786" class="LineNr">29786 </span> 0/imm32/no-imm32 +<span id="L29787" class="LineNr">29787 </span> 0/imm32/no-imm8 +<span id="L29788" class="LineNr">29788 </span> 0/imm32/no-disp32 +<span id="L29789" class="LineNr">29789 </span> 0/imm32/no-xm32 +<span id="L29790" class="LineNr">29790 </span> 0/imm32/no-x32 <span id="L29791" class="LineNr">29791 </span> 0x11/imm32/alloc-id:fake -<span id="L29792" class="LineNr">29792 </span> <a href='mu.subx.html#L31576'>_string-subtract</a>/imm32/name -<span id="L29793" class="LineNr">29793 </span> 0x11/imm32/alloc-id:fake -<span id="L29794" class="LineNr">29794 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L29795" class="LineNr">29795 </span> 0x11/imm32/alloc-id:fake -<span id="L29796" class="LineNr">29796 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L29797" class="LineNr">29797 </span> 0x11/imm32/alloc-id:fake -<span id="L29798" class="LineNr">29798 </span> <a href='mu.subx.html#L31818'>_string_f3_0f_5c_subtract</a>/imm32/subx-name -<span id="L29799" class="LineNr">29799 </span> 0/imm32/no-rm32 -<span id="L29800" class="LineNr">29800 </span> 0/imm32/no-r32 -<span id="L29801" class="LineNr">29801 </span> 0/imm32/no-imm32 -<span id="L29802" class="LineNr">29802 </span> 0/imm32/no-imm8 -<span id="L29803" class="LineNr">29803 </span> 0/imm32/no-disp32 -<span id="L29804" class="LineNr">29804 </span> 1/imm32/xm32-is-first-inout -<span id="L29805" class="LineNr">29805 </span> 3/imm32/x32-is-first-output -<span id="L29806" class="LineNr">29806 </span> 0x11/imm32/alloc-id:fake -<span id="L29807" class="LineNr">29807 </span> <a href='mu.subx.html#L29808'>_Primitive-subtract-mem-from-xreg</a>/imm32/next -<span id="L29808" class="LineNr">29808 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29809" class="LineNr">29809 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29810" class="LineNr">29810 </span> <span class="subxComment"># var1/xreg <- subtract var2 => f3 0f 5c/subtract var2/xm32 var1/x32</span> +<span id="L29792" class="LineNr">29792 </span> <a href='mu.subx.html#L29793'>_Primitive-copy-mem-to-reg</a>/imm32/next +<span id="L29793" class="LineNr">29793 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29794" class="LineNr">29794 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29795" class="LineNr">29795 </span> <span class="subxComment"># var1/reg <- copy var2 => 8b/-> var2/rm32 var1/r32</span> +<span id="L29796" class="LineNr">29796 </span> 0x11/imm32/alloc-id:fake +<span id="L29797" class="LineNr">29797 </span> <a href='mu.subx.html#L32043'>_string-copy</a>/imm32/name +<span id="L29798" class="LineNr">29798 </span> 0x11/imm32/alloc-id:fake +<span id="L29799" class="LineNr">29799 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L29800" class="LineNr">29800 </span> 0x11/imm32/alloc-id:fake +<span id="L29801" class="LineNr">29801 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29802" class="LineNr">29802 </span> 0x11/imm32/alloc-id:fake +<span id="L29803" class="LineNr">29803 </span> <a href='mu.subx.html#L32665'>_string_8b_-></a>/imm32/subx-name +<span id="L29804" class="LineNr">29804 </span> 1/imm32/rm32-is-first-inout +<span id="L29805" class="LineNr">29805 </span> 3/imm32/r32-is-first-output +<span id="L29806" class="LineNr">29806 </span> 0/imm32/no-imm32 +<span id="L29807" class="LineNr">29807 </span> 0/imm32/no-imm8 +<span id="L29808" class="LineNr">29808 </span> 0/imm32/no-disp32 +<span id="L29809" class="LineNr">29809 </span> 0/imm32/no-xm32 +<span id="L29810" class="LineNr">29810 </span> 0/imm32/no-x32 <span id="L29811" class="LineNr">29811 </span> 0x11/imm32/alloc-id:fake -<span id="L29812" class="LineNr">29812 </span> <a href='mu.subx.html#L31576'>_string-subtract</a>/imm32/name -<span id="L29813" class="LineNr">29813 </span> 0x11/imm32/alloc-id:fake -<span id="L29814" class="LineNr">29814 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L29815" class="LineNr">29815 </span> 0x11/imm32/alloc-id:fake -<span id="L29816" class="LineNr">29816 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L29817" class="LineNr">29817 </span> 0x11/imm32/alloc-id:fake -<span id="L29818" class="LineNr">29818 </span> <a href='mu.subx.html#L31818'>_string_f3_0f_5c_subtract</a>/imm32/subx-name -<span id="L29819" class="LineNr">29819 </span> 0/imm32/no-rm32 -<span id="L29820" class="LineNr">29820 </span> 0/imm32/no-r32 -<span id="L29821" class="LineNr">29821 </span> 0/imm32/no-imm32 -<span id="L29822" class="LineNr">29822 </span> 0/imm32/no-imm8 -<span id="L29823" class="LineNr">29823 </span> 0/imm32/no-disp32 -<span id="L29824" class="LineNr">29824 </span> 1/imm32/xm32-is-first-inout -<span id="L29825" class="LineNr">29825 </span> 3/imm32/x32-is-first-output -<span id="L29826" class="LineNr">29826 </span> 0x11/imm32/alloc-id:fake -<span id="L29827" class="LineNr">29827 </span> <a href='mu.subx.html#L29829'>_Primitive-multiply-xreg-by-xreg</a>/imm32/next -<span id="L29828" class="LineNr">29828 </span><span class="subxH1Comment"># - floating-point multiply</span> -<span id="L29829" class="LineNr">29829 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29830" class="LineNr">29830 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29831" class="LineNr">29831 </span> <span class="subxComment"># var1/xreg <- multiply var2 => f3 0f 59/multiply var2/xm32 var1/x32</span> -<span id="L29832" class="LineNr">29832 </span> 0x11/imm32/alloc-id:fake -<span id="L29833" class="LineNr">29833 </span> <a href='mu.subx.html#L31511'>_string-multiply</a>/imm32/name -<span id="L29834" class="LineNr">29834 </span> 0x11/imm32/alloc-id:fake -<span id="L29835" class="LineNr">29835 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L29812" class="LineNr">29812 </span> <a href='mu.subx.html#L29813'>_Primitive-copy-lit-to-reg</a>/imm32/next +<span id="L29813" class="LineNr">29813 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29814" class="LineNr">29814 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29815" class="LineNr">29815 </span> <span class="subxComment"># var1/reg <- copy lit => c7 0/subop/copy var1/rm32 lit/imm32</span> +<span id="L29816" class="LineNr">29816 </span> 0x11/imm32/alloc-id:fake +<span id="L29817" class="LineNr">29817 </span> <a href='mu.subx.html#L32043'>_string-copy</a>/imm32/name +<span id="L29818" class="LineNr">29818 </span> 0x11/imm32/alloc-id:fake +<span id="L29819" class="LineNr">29819 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L29820" class="LineNr">29820 </span> 0x11/imm32/alloc-id:fake +<span id="L29821" class="LineNr">29821 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L29822" class="LineNr">29822 </span> 0x11/imm32/alloc-id:fake +<span id="L29823" class="LineNr">29823 </span> <a href='mu.subx.html#L32715'>_string_c7_subop_copy</a>/imm32/subx-name +<span id="L29824" class="LineNr">29824 </span> 3/imm32/rm32-is-first-output +<span id="L29825" class="LineNr">29825 </span> 0/imm32/no-r32 +<span id="L29826" class="LineNr">29826 </span> 1/imm32/imm32-is-first-inout +<span id="L29827" class="LineNr">29827 </span> 0/imm32/no-imm8 +<span id="L29828" class="LineNr">29828 </span> 0/imm32/no-disp32 +<span id="L29829" class="LineNr">29829 </span> 0/imm32/no-xm32 +<span id="L29830" class="LineNr">29830 </span> 0/imm32/no-x32 +<span id="L29831" class="LineNr">29831 </span> 0x11/imm32/alloc-id:fake +<span id="L29832" class="LineNr">29832 </span> <a href='mu.subx.html#L29833'>_Primitive-copy-lit-to-mem</a>/imm32/next +<span id="L29833" class="LineNr">29833 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29834" class="LineNr">29834 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29835" class="LineNr">29835 </span> <span class="subxComment"># copy-to var1, lit => c7 0/subop/copy var1/rm32 lit/imm32</span> <span id="L29836" class="LineNr">29836 </span> 0x11/imm32/alloc-id:fake -<span id="L29837" class="LineNr">29837 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L29837" class="LineNr">29837 </span> <a href='mu.subx.html#L32048'>_string-copy-to</a>/imm32/name <span id="L29838" class="LineNr">29838 </span> 0x11/imm32/alloc-id:fake -<span id="L29839" class="LineNr">29839 </span> <a href='mu.subx.html#L31823'>_string_f3_0f_59_multiply</a>/imm32/subx-name -<span id="L29840" class="LineNr">29840 </span> 0/imm32/no-rm32 -<span id="L29841" class="LineNr">29841 </span> 0/imm32/no-r32 -<span id="L29842" class="LineNr">29842 </span> 0/imm32/no-imm32 -<span id="L29843" class="LineNr">29843 </span> 0/imm32/no-imm8 -<span id="L29844" class="LineNr">29844 </span> 0/imm32/no-disp32 -<span id="L29845" class="LineNr">29845 </span> 1/imm32/xm32-is-first-inout -<span id="L29846" class="LineNr">29846 </span> 3/imm32/x32-is-first-output -<span id="L29847" class="LineNr">29847 </span> 0x11/imm32/alloc-id:fake -<span id="L29848" class="LineNr">29848 </span> <a href='mu.subx.html#L29849'>_Primitive-multiply-xreg-by-mem</a>/imm32/next -<span id="L29849" class="LineNr">29849 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29850" class="LineNr">29850 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29851" class="LineNr">29851 </span> <span class="subxComment"># var1/xreg <- multiply var2 => 53 0f 59/multiply var2/xm32 var1/x32</span> -<span id="L29852" class="LineNr">29852 </span> 0x11/imm32/alloc-id:fake -<span id="L29853" class="LineNr">29853 </span> <a href='mu.subx.html#L31511'>_string-multiply</a>/imm32/name -<span id="L29854" class="LineNr">29854 </span> 0x11/imm32/alloc-id:fake -<span id="L29855" class="LineNr">29855 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L29856" class="LineNr">29856 </span> 0x11/imm32/alloc-id:fake -<span id="L29857" class="LineNr">29857 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L29858" class="LineNr">29858 </span> 0x11/imm32/alloc-id:fake -<span id="L29859" class="LineNr">29859 </span> <a href='mu.subx.html#L31823'>_string_f3_0f_59_multiply</a>/imm32/subx-name -<span id="L29860" class="LineNr">29860 </span> 0/imm32/no-rm32 -<span id="L29861" class="LineNr">29861 </span> 0/imm32/no-r32 -<span id="L29862" class="LineNr">29862 </span> 0/imm32/no-imm32 -<span id="L29863" class="LineNr">29863 </span> 0/imm32/no-imm8 -<span id="L29864" class="LineNr">29864 </span> 0/imm32/no-disp32 -<span id="L29865" class="LineNr">29865 </span> 1/imm32/xm32-is-first-inout -<span id="L29866" class="LineNr">29866 </span> 3/imm32/x32-is-first-output -<span id="L29867" class="LineNr">29867 </span> 0x11/imm32/alloc-id:fake -<span id="L29868" class="LineNr">29868 </span> <a href='mu.subx.html#L29870'>_Primitive-divide-xreg-by-xreg</a>/imm32/next -<span id="L29869" class="LineNr">29869 </span><span class="subxH1Comment"># - floating-point divide</span> -<span id="L29870" class="LineNr">29870 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29871" class="LineNr">29871 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29872" class="LineNr">29872 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> -<span id="L29873" class="LineNr">29873 </span> 0x11/imm32/alloc-id:fake -<span id="L29874" class="LineNr">29874 </span> <a href='mu.subx.html#L31531'>_string-divide</a>/imm32/name -<span id="L29875" class="LineNr">29875 </span> 0x11/imm32/alloc-id:fake -<span id="L29876" class="LineNr">29876 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L29839" class="LineNr">29839 </span> <span class="SpecialChar"><a href='mu.subx.html#L32840'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L29840" class="LineNr">29840 </span> 0/imm32/no-outputs +<span id="L29841" class="LineNr">29841 </span> 0/imm32/no-outputs +<span id="L29842" class="LineNr">29842 </span> 0x11/imm32/alloc-id:fake +<span id="L29843" class="LineNr">29843 </span> <a href='mu.subx.html#L32715'>_string_c7_subop_copy</a>/imm32/subx-name +<span id="L29844" class="LineNr">29844 </span> 1/imm32/rm32-is-first-inout +<span id="L29845" class="LineNr">29845 </span> 0/imm32/no-r32 +<span id="L29846" class="LineNr">29846 </span> 2/imm32/imm32-is-second-inout +<span id="L29847" class="LineNr">29847 </span> 0/imm32/no-imm8 +<span id="L29848" class="LineNr">29848 </span> 0/imm32/no-disp32 +<span id="L29849" class="LineNr">29849 </span> 0/imm32/no-xm32 +<span id="L29850" class="LineNr">29850 </span> 0/imm32/no-x32 +<span id="L29851" class="LineNr">29851 </span> 0x11/imm32/alloc-id:fake +<span id="L29852" class="LineNr">29852 </span> <a href='mu.subx.html#L29854'>_Primitive-copy-byte-from-reg</a>/imm32/next +<span id="L29853" class="LineNr">29853 </span><span class="subxH1Comment"># - copy byte</span> +<span id="L29854" class="LineNr">29854 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-reg</span>: +<span id="L29855" class="LineNr">29855 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29856" class="LineNr">29856 </span> <span class="subxComment"># var/reg <- copy-byte var2/reg2 => 8a/byte-> %var2 var/r32</span> +<span id="L29857" class="LineNr">29857 </span> 0x11/imm32/alloc-id:fake +<span id="L29858" class="LineNr">29858 </span> <a href='mu.subx.html#L32053'>_string-copy-byte</a>/imm32/name +<span id="L29859" class="LineNr">29859 </span> 0x11/imm32/alloc-id:fake +<span id="L29860" class="LineNr">29860 </span> <span class="SpecialChar"><a href='mu.subx.html#L32889'>Single-byte-var-in-some-register</a></span>/imm32/inouts +<span id="L29861" class="LineNr">29861 </span> 0x11/imm32/alloc-id:fake +<span id="L29862" class="LineNr">29862 </span> <span class="SpecialChar"><a href='mu.subx.html#L32889'>Single-byte-var-in-some-register</a></span>/imm32/outputs +<span id="L29863" class="LineNr">29863 </span> 0x11/imm32/alloc-id:fake +<span id="L29864" class="LineNr">29864 </span> <a href='mu.subx.html#L32670'>_string_8a_copy_byte</a>/imm32/subx-name +<span id="L29865" class="LineNr">29865 </span> 1/imm32/rm32-is-first-inout +<span id="L29866" class="LineNr">29866 </span> 3/imm32/r32-is-first-output +<span id="L29867" class="LineNr">29867 </span> 0/imm32/no-imm32 +<span id="L29868" class="LineNr">29868 </span> 0/imm32/no-imm8 +<span id="L29869" class="LineNr">29869 </span> 0/imm32/no-disp32 +<span id="L29870" class="LineNr">29870 </span> 0/imm32/no-xm32 +<span id="L29871" class="LineNr">29871 </span> 0/imm32/no-x32 +<span id="L29872" class="LineNr">29872 </span> 0x11/imm32/alloc-id:fake +<span id="L29873" class="LineNr">29873 </span> <a href='mu.subx.html#L29874'>_Primitive-copy-byte-from-mem</a>/imm32/next +<span id="L29874" class="LineNr">29874 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-mem</span>: +<span id="L29875" class="LineNr">29875 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29876" class="LineNr">29876 </span> <span class="subxComment"># var/reg <- copy-byte *var2/reg2 => 8a/byte-> *var2 var/r32</span> <span id="L29877" class="LineNr">29877 </span> 0x11/imm32/alloc-id:fake -<span id="L29878" class="LineNr">29878 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L29878" class="LineNr">29878 </span> <a href='mu.subx.html#L32053'>_string-copy-byte</a>/imm32/name <span id="L29879" class="LineNr">29879 </span> 0x11/imm32/alloc-id:fake -<span id="L29880" class="LineNr">29880 </span> <a href='mu.subx.html#L31828'>_string_f3_0f_5e_divide</a>/imm32/subx-name -<span id="L29881" class="LineNr">29881 </span> 0/imm32/no-rm32 -<span id="L29882" class="LineNr">29882 </span> 0/imm32/no-r32 -<span id="L29883" class="LineNr">29883 </span> 0/imm32/no-imm32 -<span id="L29884" class="LineNr">29884 </span> 0/imm32/no-imm8 -<span id="L29885" class="LineNr">29885 </span> 0/imm32/no-disp32 -<span id="L29886" class="LineNr">29886 </span> 1/imm32/xm32-is-first-inout -<span id="L29887" class="LineNr">29887 </span> 3/imm32/x32-is-first-output -<span id="L29888" class="LineNr">29888 </span> 0x11/imm32/alloc-id:fake -<span id="L29889" class="LineNr">29889 </span> <a href='mu.subx.html#L29890'>_Primitive-divide-xreg-by-mem</a>/imm32/next -<span id="L29890" class="LineNr">29890 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29891" class="LineNr">29891 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29892" class="LineNr">29892 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> -<span id="L29893" class="LineNr">29893 </span> 0x11/imm32/alloc-id:fake -<span id="L29894" class="LineNr">29894 </span> <a href='mu.subx.html#L31531'>_string-divide</a>/imm32/name -<span id="L29895" class="LineNr">29895 </span> 0x11/imm32/alloc-id:fake -<span id="L29896" class="LineNr">29896 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L29880" class="LineNr">29880 </span> <span class="SpecialChar"><a href='mu.subx.html#L32785'>Single-byte-var-in-mem</a></span>/imm32/inouts +<span id="L29881" class="LineNr">29881 </span> 0x11/imm32/alloc-id:fake +<span id="L29882" class="LineNr">29882 </span> <span class="SpecialChar"><a href='mu.subx.html#L32889'>Single-byte-var-in-some-register</a></span>/imm32/outputs +<span id="L29883" class="LineNr">29883 </span> 0x11/imm32/alloc-id:fake +<span id="L29884" class="LineNr">29884 </span> <a href='mu.subx.html#L32670'>_string_8a_copy_byte</a>/imm32/subx-name +<span id="L29885" class="LineNr">29885 </span> 1/imm32/rm32-is-first-inout +<span id="L29886" class="LineNr">29886 </span> 3/imm32/r32-is-first-output +<span id="L29887" class="LineNr">29887 </span> 0/imm32/no-imm32 +<span id="L29888" class="LineNr">29888 </span> 0/imm32/no-imm8 +<span id="L29889" class="LineNr">29889 </span> 0/imm32/no-disp32 +<span id="L29890" class="LineNr">29890 </span> 0/imm32/no-xm32 +<span id="L29891" class="LineNr">29891 </span> 0/imm32/no-x32 +<span id="L29892" class="LineNr">29892 </span> 0x11/imm32/alloc-id:fake +<span id="L29893" class="LineNr">29893 </span> <a href='mu.subx.html#L29894'>_Primitive-copy-byte-to-mem</a>/imm32/next +<span id="L29894" class="LineNr">29894 </span><span class="subxMinorFunction">_Primitive-copy-byte-to-mem</span>: +<span id="L29895" class="LineNr">29895 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29896" class="LineNr">29896 </span> <span class="subxComment"># copy-byte-to *var1/reg1, var2/reg2 => 88/byte<- *reg1 reg2/r32</span> <span id="L29897" class="LineNr">29897 </span> 0x11/imm32/alloc-id:fake -<span id="L29898" class="LineNr">29898 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L29898" class="LineNr">29898 </span> <a href='mu.subx.html#L32058'>_string-copy-byte-to</a>/imm32/name <span id="L29899" class="LineNr">29899 </span> 0x11/imm32/alloc-id:fake -<span id="L29900" class="LineNr">29900 </span> <a href='mu.subx.html#L31828'>_string_f3_0f_5e_divide</a>/imm32/subx-name -<span id="L29901" class="LineNr">29901 </span> 0/imm32/no-rm32 -<span id="L29902" class="LineNr">29902 </span> 0/imm32/no-r32 -<span id="L29903" class="LineNr">29903 </span> 0/imm32/no-imm32 -<span id="L29904" class="LineNr">29904 </span> 0/imm32/no-imm8 -<span id="L29905" class="LineNr">29905 </span> 0/imm32/no-disp32 -<span id="L29906" class="LineNr">29906 </span> 1/imm32/xm32-is-first-inout -<span id="L29907" class="LineNr">29907 </span> 3/imm32/x32-is-first-output -<span id="L29908" class="LineNr">29908 </span> 0x11/imm32/alloc-id:fake -<span id="L29909" class="LineNr">29909 </span> <a href='mu.subx.html#L29911'>_Primitive-max-xreg-with-xreg</a>/imm32/next -<span id="L29910" class="LineNr">29910 </span><span class="subxH1Comment"># - floating-point maximum</span> -<span id="L29911" class="LineNr">29911 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29912" class="LineNr">29912 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29913" class="LineNr">29913 </span> <span class="subxComment"># var1/xreg <- max var2 => f3 0f 5f/max var2/xm32 var1/x32</span> -<span id="L29914" class="LineNr">29914 </span> 0x11/imm32/alloc-id:fake -<span id="L29915" class="LineNr">29915 </span> <a href='mu.subx.html#L31536'>_string-max</a>/imm32/name -<span id="L29916" class="LineNr">29916 </span> 0x11/imm32/alloc-id:fake -<span id="L29917" class="LineNr">29917 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L29900" class="LineNr">29900 </span> <span class="SpecialChar"><a href='mu.subx.html#L32819'>Two-args-byte-stack-byte-reg</a></span>/imm32/inouts +<span id="L29901" class="LineNr">29901 </span> 0/imm32/no-outputs +<span id="L29902" class="LineNr">29902 </span> 0/imm32/no-outputs +<span id="L29903" class="LineNr">29903 </span> 0x11/imm32/alloc-id:fake +<span id="L29904" class="LineNr">29904 </span> <a href='mu.subx.html#L32675'>_string_88_copy_byte</a>/imm32/subx-name +<span id="L29905" class="LineNr">29905 </span> 1/imm32/rm32-is-first-inout +<span id="L29906" class="LineNr">29906 </span> 2/imm32/r32-is-second-inout +<span id="L29907" class="LineNr">29907 </span> 0/imm32/no-imm32 +<span id="L29908" class="LineNr">29908 </span> 0/imm32/no-imm8 +<span id="L29909" class="LineNr">29909 </span> 0/imm32/no-disp32 +<span id="L29910" class="LineNr">29910 </span> 0/imm32/no-xm32 +<span id="L29911" class="LineNr">29911 </span> 0/imm32/no-x32 +<span id="L29912" class="LineNr">29912 </span> 0x11/imm32/alloc-id:fake +<span id="L29913" class="LineNr">29913 </span> <a href='mu.subx.html#L29915'>_Primitive-address</a>/imm32/next +<span id="L29914" class="LineNr">29914 </span><span class="subxH1Comment"># - address</span> +<span id="L29915" class="LineNr">29915 </span><span class="subxMinorFunction">_Primitive-address</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29916" class="LineNr">29916 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29917" class="LineNr">29917 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> <span id="L29918" class="LineNr">29918 </span> 0x11/imm32/alloc-id:fake -<span id="L29919" class="LineNr">29919 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L29919" class="LineNr">29919 </span> <a href='mu.subx.html#L31943'>_string-address</a>/imm32/name <span id="L29920" class="LineNr">29920 </span> 0x11/imm32/alloc-id:fake -<span id="L29921" class="LineNr">29921 </span> <a href='mu.subx.html#L31853'>_string_f3_0f_5f_max</a>/imm32/subx-name -<span id="L29922" class="LineNr">29922 </span> 0/imm32/no-rm32 -<span id="L29923" class="LineNr">29923 </span> 0/imm32/no-r32 -<span id="L29924" class="LineNr">29924 </span> 0/imm32/no-imm32 -<span id="L29925" class="LineNr">29925 </span> 0/imm32/no-imm8 -<span id="L29926" class="LineNr">29926 </span> 0/imm32/no-disp32 -<span id="L29927" class="LineNr">29927 </span> 1/imm32/xm32-is-first-inout -<span id="L29928" class="LineNr">29928 </span> 3/imm32/x32-is-first-output -<span id="L29929" class="LineNr">29929 </span> 0x11/imm32/alloc-id:fake -<span id="L29930" class="LineNr">29930 </span> <a href='mu.subx.html#L29931'>_Primitive-max-xreg-with-mem</a>/imm32/next -<span id="L29931" class="LineNr">29931 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29932" class="LineNr">29932 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29933" class="LineNr">29933 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5f/max var2/xm32 var1/x32</span> -<span id="L29934" class="LineNr">29934 </span> 0x11/imm32/alloc-id:fake -<span id="L29935" class="LineNr">29935 </span> <a href='mu.subx.html#L31536'>_string-max</a>/imm32/name -<span id="L29936" class="LineNr">29936 </span> 0x11/imm32/alloc-id:fake -<span id="L29937" class="LineNr">29937 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L29938" class="LineNr">29938 </span> 0x11/imm32/alloc-id:fake -<span id="L29939" class="LineNr">29939 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L29940" class="LineNr">29940 </span> 0x11/imm32/alloc-id:fake -<span id="L29941" class="LineNr">29941 </span> <a href='mu.subx.html#L31853'>_string_f3_0f_5f_max</a>/imm32/subx-name -<span id="L29942" class="LineNr">29942 </span> 0/imm32/no-rm32 -<span id="L29943" class="LineNr">29943 </span> 0/imm32/no-r32 -<span id="L29944" class="LineNr">29944 </span> 0/imm32/no-imm32 -<span id="L29945" class="LineNr">29945 </span> 0/imm32/no-imm8 -<span id="L29946" class="LineNr">29946 </span> 0/imm32/no-disp32 -<span id="L29947" class="LineNr">29947 </span> 1/imm32/xm32-is-first-inout -<span id="L29948" class="LineNr">29948 </span> 3/imm32/x32-is-first-output -<span id="L29949" class="LineNr">29949 </span> 0x11/imm32/alloc-id:fake -<span id="L29950" class="LineNr">29950 </span> <a href='mu.subx.html#L29952'>_Primitive-min-xreg-with-xreg</a>/imm32/next -<span id="L29951" class="LineNr">29951 </span><span class="subxH1Comment"># - floating-point minimum</span> -<span id="L29952" class="LineNr">29952 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29953" class="LineNr">29953 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29954" class="LineNr">29954 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> -<span id="L29955" class="LineNr">29955 </span> 0x11/imm32/alloc-id:fake -<span id="L29956" class="LineNr">29956 </span> <a href='mu.subx.html#L31541'>_string-min</a>/imm32/name -<span id="L29957" class="LineNr">29957 </span> 0x11/imm32/alloc-id:fake -<span id="L29958" class="LineNr">29958 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L29921" class="LineNr">29921 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L29922" class="LineNr">29922 </span> 0x11/imm32/alloc-id:fake +<span id="L29923" class="LineNr">29923 </span> <span class="SpecialChar"><a href='mu.subx.html#L32882'>Single-addr-var-in-some-register</a></span>/imm32/outputs +<span id="L29924" class="LineNr">29924 </span> 0x11/imm32/alloc-id:fake +<span id="L29925" class="LineNr">29925 </span> <a href='mu.subx.html#L32680'>_string_8d_copy_address</a>/imm32/subx-name +<span id="L29926" class="LineNr">29926 </span> 1/imm32/rm32-is-first-inout +<span id="L29927" class="LineNr">29927 </span> 3/imm32/r32-is-first-output +<span id="L29928" class="LineNr">29928 </span> 0/imm32/no-imm32 +<span id="L29929" class="LineNr">29929 </span> 0/imm32/no-imm8 +<span id="L29930" class="LineNr">29930 </span> 0/imm32/no-disp32 +<span id="L29931" class="LineNr">29931 </span> 0/imm32/no-xm32 +<span id="L29932" class="LineNr">29932 </span> 0/imm32/no-x32 +<span id="L29933" class="LineNr">29933 </span> 0x11/imm32/alloc-id:fake +<span id="L29934" class="LineNr">29934 </span> <a href='mu.subx.html#L29936'>_Primitive-compare-reg-with-reg</a>/imm32/next +<span id="L29935" class="LineNr">29935 </span><span class="subxH1Comment"># - compare</span> +<span id="L29936" class="LineNr">29936 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29937" class="LineNr">29937 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29938" class="LineNr">29938 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 39/compare var1/rm32 var2/r32</span> +<span id="L29939" class="LineNr">29939 </span> 0x11/imm32/alloc-id:fake +<span id="L29940" class="LineNr">29940 </span> <a href='mu.subx.html#L32038'>_string-compare</a>/imm32/name +<span id="L29941" class="LineNr">29941 </span> 0x11/imm32/alloc-id:fake +<span id="L29942" class="LineNr">29942 </span> <span class="SpecialChar"><a href='mu.subx.html#L32811'>Two-int-args-in-regs</a></span>/imm32/inouts +<span id="L29943" class="LineNr">29943 </span> 0/imm32/no-outputs +<span id="L29944" class="LineNr">29944 </span> 0/imm32/no-outputs +<span id="L29945" class="LineNr">29945 </span> 0x11/imm32/alloc-id:fake +<span id="L29946" class="LineNr">29946 </span> <a href='mu.subx.html#L32555'>_string_39_compare-></a>/imm32/subx-name +<span id="L29947" class="LineNr">29947 </span> 1/imm32/rm32-is-first-inout +<span id="L29948" class="LineNr">29948 </span> 2/imm32/r32-is-second-inout +<span id="L29949" class="LineNr">29949 </span> 0/imm32/no-imm32 +<span id="L29950" class="LineNr">29950 </span> 0/imm32/no-imm8 +<span id="L29951" class="LineNr">29951 </span> 0/imm32/no-disp32 +<span id="L29952" class="LineNr">29952 </span> 0/imm32/no-xm32 +<span id="L29953" class="LineNr">29953 </span> 0/imm32/no-x32 +<span id="L29954" class="LineNr">29954 </span> 0x11/imm32/alloc-id:fake +<span id="L29955" class="LineNr">29955 </span> <a href='mu.subx.html#L29956'>_Primitive-compare-mem-with-reg</a>/imm32/next +<span id="L29956" class="LineNr">29956 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29957" class="LineNr">29957 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29958" class="LineNr">29958 </span> <span class="subxComment"># compare var1 var2/reg => 39/compare var1/rm32 var2/r32</span> <span id="L29959" class="LineNr">29959 </span> 0x11/imm32/alloc-id:fake -<span id="L29960" class="LineNr">29960 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L29960" class="LineNr">29960 </span> <a href='mu.subx.html#L32038'>_string-compare</a>/imm32/name <span id="L29961" class="LineNr">29961 </span> 0x11/imm32/alloc-id:fake -<span id="L29962" class="LineNr">29962 </span> <a href='mu.subx.html#L31848'>_string_f3_0f_5d_min</a>/imm32/subx-name -<span id="L29963" class="LineNr">29963 </span> 0/imm32/no-rm32 -<span id="L29964" class="LineNr">29964 </span> 0/imm32/no-r32 -<span id="L29965" class="LineNr">29965 </span> 0/imm32/no-imm32 -<span id="L29966" class="LineNr">29966 </span> 0/imm32/no-imm8 -<span id="L29967" class="LineNr">29967 </span> 0/imm32/no-disp32 -<span id="L29968" class="LineNr">29968 </span> 1/imm32/xm32-is-first-inout -<span id="L29969" class="LineNr">29969 </span> 3/imm32/x32-is-first-output -<span id="L29970" class="LineNr">29970 </span> 0x11/imm32/alloc-id:fake -<span id="L29971" class="LineNr">29971 </span> <a href='mu.subx.html#L29972'>_Primitive-min-xreg-with-mem</a>/imm32/next -<span id="L29972" class="LineNr">29972 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29973" class="LineNr">29973 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29974" class="LineNr">29974 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> -<span id="L29975" class="LineNr">29975 </span> 0x11/imm32/alloc-id:fake -<span id="L29976" class="LineNr">29976 </span> <a href='mu.subx.html#L31541'>_string-min</a>/imm32/name -<span id="L29977" class="LineNr">29977 </span> 0x11/imm32/alloc-id:fake -<span id="L29978" class="LineNr">29978 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L29962" class="LineNr">29962 </span> <span class="SpecialChar"><a href='mu.subx.html#L32804'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L29963" class="LineNr">29963 </span> 0/imm32/no-outputs +<span id="L29964" class="LineNr">29964 </span> 0/imm32/no-outputs +<span id="L29965" class="LineNr">29965 </span> 0x11/imm32/alloc-id:fake +<span id="L29966" class="LineNr">29966 </span> <a href='mu.subx.html#L32555'>_string_39_compare-></a>/imm32/subx-name +<span id="L29967" class="LineNr">29967 </span> 1/imm32/rm32-is-first-inout +<span id="L29968" class="LineNr">29968 </span> 2/imm32/r32-is-second-inout +<span id="L29969" class="LineNr">29969 </span> 0/imm32/no-imm32 +<span id="L29970" class="LineNr">29970 </span> 0/imm32/no-imm8 +<span id="L29971" class="LineNr">29971 </span> 0/imm32/no-disp32 +<span id="L29972" class="LineNr">29972 </span> 0/imm32/no-xm32 +<span id="L29973" class="LineNr">29973 </span> 0/imm32/no-x32 +<span id="L29974" class="LineNr">29974 </span> 0x11/imm32/alloc-id:fake +<span id="L29975" class="LineNr">29975 </span> <a href='mu.subx.html#L29976'>_Primitive-compare-reg-with-mem</a>/imm32/next +<span id="L29976" class="LineNr">29976 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29977" class="LineNr">29977 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29978" class="LineNr">29978 </span> <span class="subxComment"># compare var1/reg var2 => 3b/compare<- var2/rm32 var1/r32</span> <span id="L29979" class="LineNr">29979 </span> 0x11/imm32/alloc-id:fake -<span id="L29980" class="LineNr">29980 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L29980" class="LineNr">29980 </span> <a href='mu.subx.html#L32038'>_string-compare</a>/imm32/name <span id="L29981" class="LineNr">29981 </span> 0x11/imm32/alloc-id:fake -<span id="L29982" class="LineNr">29982 </span> <a href='mu.subx.html#L31848'>_string_f3_0f_5d_min</a>/imm32/subx-name -<span id="L29983" class="LineNr">29983 </span> 0/imm32/no-rm32 -<span id="L29984" class="LineNr">29984 </span> 0/imm32/no-r32 -<span id="L29985" class="LineNr">29985 </span> 0/imm32/no-imm32 -<span id="L29986" class="LineNr">29986 </span> 0/imm32/no-imm8 -<span id="L29987" class="LineNr">29987 </span> 0/imm32/no-disp32 -<span id="L29988" class="LineNr">29988 </span> 1/imm32/xm32-is-first-inout -<span id="L29989" class="LineNr">29989 </span> 3/imm32/x32-is-first-output -<span id="L29990" class="LineNr">29990 </span> 0x11/imm32/alloc-id:fake -<span id="L29991" class="LineNr">29991 </span> <a href='mu.subx.html#L29993'>_Primitive-reciprocal-xreg-to-xreg</a>/imm32/next -<span id="L29992" class="LineNr">29992 </span><span class="subxH1Comment"># - floating-point reciprocal</span> -<span id="L29993" class="LineNr">29993 </span><span class="subxMinorFunction">_Primitive-reciprocal-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L29994" class="LineNr">29994 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L29995" class="LineNr">29995 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> -<span id="L29996" class="LineNr">29996 </span> 0x11/imm32/alloc-id:fake -<span id="L29997" class="LineNr">29997 </span> <a href='mu.subx.html#L31546'>_string-reciprocal</a>/imm32/name -<span id="L29998" class="LineNr">29998 </span> 0x11/imm32/alloc-id:fake -<span id="L29999" class="LineNr">29999 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L30000" class="LineNr">30000 </span> 0x11/imm32/alloc-id:fake -<span id="L30001" class="LineNr">30001 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L30002" class="LineNr">30002 </span> 0x11/imm32/alloc-id:fake -<span id="L30003" class="LineNr">30003 </span> <a href='mu.subx.html#L31833'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name -<span id="L30004" class="LineNr">30004 </span> 0/imm32/no-rm32 -<span id="L30005" class="LineNr">30005 </span> 0/imm32/no-r32 -<span id="L30006" class="LineNr">30006 </span> 0/imm32/no-imm32 -<span id="L30007" class="LineNr">30007 </span> 0/imm32/no-imm8 -<span id="L30008" class="LineNr">30008 </span> 0/imm32/no-disp32 -<span id="L30009" class="LineNr">30009 </span> 1/imm32/xm32-is-first-inout -<span id="L30010" class="LineNr">30010 </span> 3/imm32/x32-is-first-output -<span id="L30011" class="LineNr">30011 </span> 0x11/imm32/alloc-id:fake -<span id="L30012" class="LineNr">30012 </span> <a href='mu.subx.html#L30013'>_Primitive-reciprocal-mem-to-xreg</a>/imm32/next -<span id="L30013" class="LineNr">30013 </span><span class="subxMinorFunction">_Primitive-reciprocal-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30014" class="LineNr">30014 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30015" class="LineNr">30015 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> -<span id="L30016" class="LineNr">30016 </span> 0x11/imm32/alloc-id:fake -<span id="L30017" class="LineNr">30017 </span> <a href='mu.subx.html#L31546'>_string-reciprocal</a>/imm32/name -<span id="L30018" class="LineNr">30018 </span> 0x11/imm32/alloc-id:fake -<span id="L30019" class="LineNr">30019 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L30020" class="LineNr">30020 </span> 0x11/imm32/alloc-id:fake -<span id="L30021" class="LineNr">30021 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L30022" class="LineNr">30022 </span> 0x11/imm32/alloc-id:fake -<span id="L30023" class="LineNr">30023 </span> <a href='mu.subx.html#L31833'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name -<span id="L30024" class="LineNr">30024 </span> 0/imm32/no-rm32 -<span id="L30025" class="LineNr">30025 </span> 0/imm32/no-r32 -<span id="L30026" class="LineNr">30026 </span> 0/imm32/no-imm32 -<span id="L30027" class="LineNr">30027 </span> 0/imm32/no-imm8 -<span id="L30028" class="LineNr">30028 </span> 0/imm32/no-disp32 -<span id="L30029" class="LineNr">30029 </span> 1/imm32/xm32-is-first-inout -<span id="L30030" class="LineNr">30030 </span> 3/imm32/x32-is-first-output -<span id="L30031" class="LineNr">30031 </span> 0x11/imm32/alloc-id:fake -<span id="L30032" class="LineNr">30032 </span> <a href='mu.subx.html#L30034'>_Primitive-square-root-xreg-to-xreg</a>/imm32/next -<span id="L30033" class="LineNr">30033 </span><span class="subxH1Comment"># - floating-point square root</span> -<span id="L30034" class="LineNr">30034 </span><span class="subxMinorFunction">_Primitive-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30035" class="LineNr">30035 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30036" class="LineNr">30036 </span> <span class="subxComment"># var1/xreg <- square-root var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> -<span id="L30037" class="LineNr">30037 </span> 0x11/imm32/alloc-id:fake -<span id="L30038" class="LineNr">30038 </span> <a href='mu.subx.html#L31551'>_string-square-root</a>/imm32/name +<span id="L29982" class="LineNr">29982 </span> <span class="SpecialChar"><a href='mu.subx.html#L32826'>Two-args-int-reg-int-stack</a></span>/imm32/inouts +<span id="L29983" class="LineNr">29983 </span> 0/imm32/no-outputs +<span id="L29984" class="LineNr">29984 </span> 0/imm32/no-outputs +<span id="L29985" class="LineNr">29985 </span> 0x11/imm32/alloc-id:fake +<span id="L29986" class="LineNr">29986 </span> <a href='mu.subx.html#L32560'>_string_3b_compare<-</a>/imm32/subx-name +<span id="L29987" class="LineNr">29987 </span> 2/imm32/rm32-is-second-inout +<span id="L29988" class="LineNr">29988 </span> 1/imm32/r32-is-first-inout +<span id="L29989" class="LineNr">29989 </span> 0/imm32/no-imm32 +<span id="L29990" class="LineNr">29990 </span> 0/imm32/no-imm8 +<span id="L29991" class="LineNr">29991 </span> 0/imm32/no-disp32 +<span id="L29992" class="LineNr">29992 </span> 0/imm32/no-xm32 +<span id="L29993" class="LineNr">29993 </span> 0/imm32/no-x32 +<span id="L29994" class="LineNr">29994 </span> 0x11/imm32/alloc-id:fake +<span id="L29995" class="LineNr">29995 </span> <a href='mu.subx.html#L29996'>_Primitive-compare-eax-with-literal</a>/imm32/next +<span id="L29996" class="LineNr">29996 </span><span class="subxMinorFunction">_Primitive-compare-eax-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L29997" class="LineNr">29997 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L29998" class="LineNr">29998 </span> <span class="subxComment"># compare var1/eax n => 3d/compare-eax-with n/imm32</span> +<span id="L29999" class="LineNr">29999 </span> 0x11/imm32/alloc-id:fake +<span id="L30000" class="LineNr">30000 </span> <a href='mu.subx.html#L32038'>_string-compare</a>/imm32/name +<span id="L30001" class="LineNr">30001 </span> 0x11/imm32/alloc-id:fake +<span id="L30002" class="LineNr">30002 </span> <span class="SpecialChar"><a href='mu.subx.html#L32833'>Two-args-int-eax-int-literal</a></span>/imm32/inouts +<span id="L30003" class="LineNr">30003 </span> 0/imm32/no-outputs +<span id="L30004" class="LineNr">30004 </span> 0/imm32/no-outputs +<span id="L30005" class="LineNr">30005 </span> 0x11/imm32/alloc-id:fake +<span id="L30006" class="LineNr">30006 </span> <a href='mu.subx.html#L32565'>_string_3d_compare_eax_with</a>/imm32/subx-name +<span id="L30007" class="LineNr">30007 </span> 0/imm32/no-rm32 +<span id="L30008" class="LineNr">30008 </span> 0/imm32/no-r32 +<span id="L30009" class="LineNr">30009 </span> 2/imm32/imm32-is-second-inout +<span id="L30010" class="LineNr">30010 </span> 0/imm32/no-imm8 +<span id="L30011" class="LineNr">30011 </span> 0/imm32/no-disp32 +<span id="L30012" class="LineNr">30012 </span> 0/imm32/no-xm32 +<span id="L30013" class="LineNr">30013 </span> 0/imm32/no-x32 +<span id="L30014" class="LineNr">30014 </span> 0x11/imm32/alloc-id:fake +<span id="L30015" class="LineNr">30015 </span> <a href='mu.subx.html#L30016'>_Primitive-compare-reg-with-literal</a>/imm32/next +<span id="L30016" class="LineNr">30016 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30017" class="LineNr">30017 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30018" class="LineNr">30018 </span> <span class="subxComment"># compare var1/reg n => 81 7/subop/compare %reg n/imm32</span> +<span id="L30019" class="LineNr">30019 </span> 0x11/imm32/alloc-id:fake +<span id="L30020" class="LineNr">30020 </span> <a href='mu.subx.html#L32038'>_string-compare</a>/imm32/name +<span id="L30021" class="LineNr">30021 </span> 0x11/imm32/alloc-id:fake +<span id="L30022" class="LineNr">30022 </span> <span class="SpecialChar"><a href='mu.subx.html#L32847'>Int-var-in-register-and-literal</a></span>/imm32/inouts +<span id="L30023" class="LineNr">30023 </span> 0/imm32/no-outputs +<span id="L30024" class="LineNr">30024 </span> 0/imm32/no-outputs +<span id="L30025" class="LineNr">30025 </span> 0x11/imm32/alloc-id:fake +<span id="L30026" class="LineNr">30026 </span> <a href='mu.subx.html#L32655'>_string_81_subop_compare</a>/imm32/subx-name +<span id="L30027" class="LineNr">30027 </span> 1/imm32/rm32-is-first-inout +<span id="L30028" class="LineNr">30028 </span> 0/imm32/no-r32 +<span id="L30029" class="LineNr">30029 </span> 2/imm32/imm32-is-second-inout +<span id="L30030" class="LineNr">30030 </span> 0/imm32/no-imm8 +<span id="L30031" class="LineNr">30031 </span> 0/imm32/no-disp32 +<span id="L30032" class="LineNr">30032 </span> 0/imm32/no-xm32 +<span id="L30033" class="LineNr">30033 </span> 0/imm32/no-x32 +<span id="L30034" class="LineNr">30034 </span> 0x11/imm32/alloc-id:fake +<span id="L30035" class="LineNr">30035 </span> <a href='mu.subx.html#L30036'>_Primitive-compare-mem-with-literal</a>/imm32/next +<span id="L30036" class="LineNr">30036 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30037" class="LineNr">30037 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30038" class="LineNr">30038 </span> <span class="subxComment"># compare var1 n => 81 7/subop/compare *(ebp+___) n/imm32</span> <span id="L30039" class="LineNr">30039 </span> 0x11/imm32/alloc-id:fake -<span id="L30040" class="LineNr">30040 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L30040" class="LineNr">30040 </span> <a href='mu.subx.html#L32038'>_string-compare</a>/imm32/name <span id="L30041" class="LineNr">30041 </span> 0x11/imm32/alloc-id:fake -<span id="L30042" class="LineNr">30042 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L30043" class="LineNr">30043 </span> 0x11/imm32/alloc-id:fake -<span id="L30044" class="LineNr">30044 </span> <a href='mu.subx.html#L31838'>_string_f3_0f_51_square_root</a>/imm32/subx-name -<span id="L30045" class="LineNr">30045 </span> 0/imm32/no-rm32 -<span id="L30046" class="LineNr">30046 </span> 0/imm32/no-r32 -<span id="L30047" class="LineNr">30047 </span> 0/imm32/no-imm32 -<span id="L30048" class="LineNr">30048 </span> 0/imm32/no-imm8 -<span id="L30049" class="LineNr">30049 </span> 0/imm32/no-disp32 -<span id="L30050" class="LineNr">30050 </span> 1/imm32/xm32-is-first-inout -<span id="L30051" class="LineNr">30051 </span> 3/imm32/x32-is-first-output -<span id="L30052" class="LineNr">30052 </span> 0x11/imm32/alloc-id:fake -<span id="L30053" class="LineNr">30053 </span> <a href='mu.subx.html#L30054'>_Primitive-square-root-mem-to-xreg</a>/imm32/next -<span id="L30054" class="LineNr">30054 </span><span class="subxMinorFunction">_Primitive-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30055" class="LineNr">30055 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30056" class="LineNr">30056 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> -<span id="L30057" class="LineNr">30057 </span> 0x11/imm32/alloc-id:fake -<span id="L30058" class="LineNr">30058 </span> <a href='mu.subx.html#L31551'>_string-square-root</a>/imm32/name -<span id="L30059" class="LineNr">30059 </span> 0x11/imm32/alloc-id:fake -<span id="L30060" class="LineNr">30060 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L30061" class="LineNr">30061 </span> 0x11/imm32/alloc-id:fake -<span id="L30062" class="LineNr">30062 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L30063" class="LineNr">30063 </span> 0x11/imm32/alloc-id:fake -<span id="L30064" class="LineNr">30064 </span> <a href='mu.subx.html#L31838'>_string_f3_0f_51_square_root</a>/imm32/subx-name -<span id="L30065" class="LineNr">30065 </span> 0/imm32/no-rm32 -<span id="L30066" class="LineNr">30066 </span> 0/imm32/no-r32 -<span id="L30067" class="LineNr">30067 </span> 0/imm32/no-imm32 -<span id="L30068" class="LineNr">30068 </span> 0/imm32/no-imm8 -<span id="L30069" class="LineNr">30069 </span> 0/imm32/no-disp32 -<span id="L30070" class="LineNr">30070 </span> 1/imm32/xm32-is-first-inout -<span id="L30071" class="LineNr">30071 </span> 3/imm32/x32-is-first-output -<span id="L30072" class="LineNr">30072 </span> 0x11/imm32/alloc-id:fake -<span id="L30073" class="LineNr">30073 </span> <a href='mu.subx.html#L30075'>_Primitive-inverse-square-root-xreg-to-xreg</a>/imm32/next -<span id="L30074" class="LineNr">30074 </span><span class="subxH1Comment"># - floating-point inverse square root 1/sqrt(x)</span> -<span id="L30075" class="LineNr">30075 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30076" class="LineNr">30076 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30077" class="LineNr">30077 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> -<span id="L30078" class="LineNr">30078 </span> 0x11/imm32/alloc-id:fake -<span id="L30079" class="LineNr">30079 </span> <a href='mu.subx.html#L31556'>_string-inverse-square-root</a>/imm32/name +<span id="L30042" class="LineNr">30042 </span> <span class="SpecialChar"><a href='mu.subx.html#L32840'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L30043" class="LineNr">30043 </span> 0/imm32/no-outputs +<span id="L30044" class="LineNr">30044 </span> 0/imm32/no-outputs +<span id="L30045" class="LineNr">30045 </span> 0x11/imm32/alloc-id:fake +<span id="L30046" class="LineNr">30046 </span> <a href='mu.subx.html#L32655'>_string_81_subop_compare</a>/imm32/subx-name +<span id="L30047" class="LineNr">30047 </span> 1/imm32/rm32-is-first-inout +<span id="L30048" class="LineNr">30048 </span> 0/imm32/no-r32 +<span id="L30049" class="LineNr">30049 </span> 2/imm32/imm32-is-second-inout +<span id="L30050" class="LineNr">30050 </span> 0/imm32/no-imm8 +<span id="L30051" class="LineNr">30051 </span> 0/imm32/no-disp32 +<span id="L30052" class="LineNr">30052 </span> 0/imm32/no-xm32 +<span id="L30053" class="LineNr">30053 </span> 0/imm32/no-x32 +<span id="L30054" class="LineNr">30054 </span> 0x11/imm32/alloc-id:fake +<span id="L30055" class="LineNr">30055 </span> <a href='mu.subx.html#L30057'>_Primitive-negate-reg</a>/imm32/next +<span id="L30056" class="LineNr">30056 </span><span class="subxH1Comment"># - negate</span> +<span id="L30057" class="LineNr">30057 </span><span class="subxMinorFunction">_Primitive-negate-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30058" class="LineNr">30058 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30059" class="LineNr">30059 </span> <span class="subxComment"># var1/reg <- negate => f7 3/subop/negate var1/rm32</span> +<span id="L30060" class="LineNr">30060 </span> 0x11/imm32/alloc-id:fake +<span id="L30061" class="LineNr">30061 </span> <a href='mu.subx.html#L32198'>_string-negate</a>/imm32/name +<span id="L30062" class="LineNr">30062 </span> 0/imm32/no-inouts +<span id="L30063" class="LineNr">30063 </span> 0/imm32/no-inouts +<span id="L30064" class="LineNr">30064 </span> 0x11/imm32/alloc-id:fake +<span id="L30065" class="LineNr">30065 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30066" class="LineNr">30066 </span> 0x11/imm32/alloc-id:fake +<span id="L30067" class="LineNr">30067 </span> <a href='mu.subx.html#L32735'>_string_f7_subop_negate</a>/imm32/subx-name +<span id="L30068" class="LineNr">30068 </span> 3/imm32/rm32-is-first-output +<span id="L30069" class="LineNr">30069 </span> 0/imm32/no-r32 +<span id="L30070" class="LineNr">30070 </span> 0/imm32/no-imm32 +<span id="L30071" class="LineNr">30071 </span> 0/imm32/no-imm8 +<span id="L30072" class="LineNr">30072 </span> 0/imm32/no-disp32 +<span id="L30073" class="LineNr">30073 </span> 0/imm32/no-xm32 +<span id="L30074" class="LineNr">30074 </span> 0/imm32/no-x32 +<span id="L30075" class="LineNr">30075 </span> 0x11/imm32/alloc-id:fake +<span id="L30076" class="LineNr">30076 </span> <a href='mu.subx.html#L30077'>_Primitive-negate-mem</a>/imm32/next +<span id="L30077" class="LineNr">30077 </span><span class="subxMinorFunction">_Primitive-negate-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30078" class="LineNr">30078 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30079" class="LineNr">30079 </span> <span class="subxComment"># negate var1 => f7 3/subop/negate var1/rm32</span> <span id="L30080" class="LineNr">30080 </span> 0x11/imm32/alloc-id:fake -<span id="L30081" class="LineNr">30081 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L30081" class="LineNr">30081 </span> <a href='mu.subx.html#L32198'>_string-negate</a>/imm32/name <span id="L30082" class="LineNr">30082 </span> 0x11/imm32/alloc-id:fake -<span id="L30083" class="LineNr">30083 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L30084" class="LineNr">30084 </span> 0x11/imm32/alloc-id:fake -<span id="L30085" class="LineNr">30085 </span> <a href='mu.subx.html#L31843'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name -<span id="L30086" class="LineNr">30086 </span> 0/imm32/no-rm32 -<span id="L30087" class="LineNr">30087 </span> 0/imm32/no-r32 -<span id="L30088" class="LineNr">30088 </span> 0/imm32/no-imm32 -<span id="L30089" class="LineNr">30089 </span> 0/imm32/no-imm8 -<span id="L30090" class="LineNr">30090 </span> 0/imm32/no-disp32 -<span id="L30091" class="LineNr">30091 </span> 1/imm32/xm32-is-first-inout -<span id="L30092" class="LineNr">30092 </span> 3/imm32/x32-is-first-output -<span id="L30093" class="LineNr">30093 </span> 0x11/imm32/alloc-id:fake -<span id="L30094" class="LineNr">30094 </span> <a href='mu.subx.html#L30095'>_Primitive-inverse-square-root-mem-to-xreg</a>/imm32/next -<span id="L30095" class="LineNr">30095 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30096" class="LineNr">30096 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30097" class="LineNr">30097 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> -<span id="L30098" class="LineNr">30098 </span> 0x11/imm32/alloc-id:fake -<span id="L30099" class="LineNr">30099 </span> <a href='mu.subx.html#L31556'>_string-inverse-square-root</a>/imm32/name -<span id="L30100" class="LineNr">30100 </span> 0x11/imm32/alloc-id:fake -<span id="L30101" class="LineNr">30101 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L30102" class="LineNr">30102 </span> 0x11/imm32/alloc-id:fake -<span id="L30103" class="LineNr">30103 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L30104" class="LineNr">30104 </span> 0x11/imm32/alloc-id:fake -<span id="L30105" class="LineNr">30105 </span> <a href='mu.subx.html#L31843'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name -<span id="L30106" class="LineNr">30106 </span> 0/imm32/no-rm32 -<span id="L30107" class="LineNr">30107 </span> 0/imm32/no-r32 -<span id="L30108" class="LineNr">30108 </span> 0/imm32/no-imm32 -<span id="L30109" class="LineNr">30109 </span> 0/imm32/no-imm8 -<span id="L30110" class="LineNr">30110 </span> 0/imm32/no-disp32 -<span id="L30111" class="LineNr">30111 </span> 1/imm32/xm32-is-first-inout -<span id="L30112" class="LineNr">30112 </span> 3/imm32/x32-is-first-output -<span id="L30113" class="LineNr">30113 </span> 0x11/imm32/alloc-id:fake -<span id="L30114" class="LineNr">30114 </span> <a href='mu.subx.html#L30116'>_Primitive-compare-xreg-with-xreg</a>/imm32/next -<span id="L30115" class="LineNr">30115 </span><span class="subxH1Comment"># - floating-point compare</span> -<span id="L30116" class="LineNr">30116 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30117" class="LineNr">30117 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30118" class="LineNr">30118 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 0f 2f/compare var2/x32 var1/xm32</span> -<span id="L30119" class="LineNr">30119 </span> 0x11/imm32/alloc-id:fake -<span id="L30120" class="LineNr">30120 </span> <a href='mu.subx.html#L31401'>_string-compare</a>/imm32/name +<span id="L30083" class="LineNr">30083 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L30084" class="LineNr">30084 </span> 0/imm32/no-outputs +<span id="L30085" class="LineNr">30085 </span> 0/imm32/no-outputs +<span id="L30086" class="LineNr">30086 </span> 0x11/imm32/alloc-id:fake +<span id="L30087" class="LineNr">30087 </span> <a href='mu.subx.html#L32735'>_string_f7_subop_negate</a>/imm32/subx-name +<span id="L30088" class="LineNr">30088 </span> 1/imm32/rm32-is-first-inout +<span id="L30089" class="LineNr">30089 </span> 0/imm32/no-r32 +<span id="L30090" class="LineNr">30090 </span> 0/imm32/no-imm32 +<span id="L30091" class="LineNr">30091 </span> 0/imm32/no-imm8 +<span id="L30092" class="LineNr">30092 </span> 0/imm32/no-disp32 +<span id="L30093" class="LineNr">30093 </span> 0/imm32/no-xm32 +<span id="L30094" class="LineNr">30094 </span> 0/imm32/no-x32 +<span id="L30095" class="LineNr">30095 </span> 0x11/imm32/alloc-id:fake +<span id="L30096" class="LineNr">30096 </span> <a href='mu.subx.html#L30098'>_Primitive-multiply-reg-by-reg</a>/imm32/next +<span id="L30097" class="LineNr">30097 </span><span class="subxH1Comment"># - multiply</span> +<span id="L30098" class="LineNr">30098 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30099" class="LineNr">30099 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30100" class="LineNr">30100 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> +<span id="L30101" class="LineNr">30101 </span> 0x11/imm32/alloc-id:fake +<span id="L30102" class="LineNr">30102 </span> <a href='mu.subx.html#L32148'>_string-multiply</a>/imm32/name +<span id="L30103" class="LineNr">30103 </span> 0x11/imm32/alloc-id:fake +<span id="L30104" class="LineNr">30104 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L30105" class="LineNr">30105 </span> 0x11/imm32/alloc-id:fake +<span id="L30106" class="LineNr">30106 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30107" class="LineNr">30107 </span> 0x11/imm32/alloc-id:fake +<span id="L30108" class="LineNr">30108 </span> <a href='mu.subx.html#L32430'>_string_0f_af_multiply</a>/imm32/subx-name +<span id="L30109" class="LineNr">30109 </span> 1/imm32/rm32-is-first-inout +<span id="L30110" class="LineNr">30110 </span> 3/imm32/r32-is-first-output +<span id="L30111" class="LineNr">30111 </span> 0/imm32/no-imm32 +<span id="L30112" class="LineNr">30112 </span> 0/imm32/no-imm8 +<span id="L30113" class="LineNr">30113 </span> 0/imm32/no-disp32 +<span id="L30114" class="LineNr">30114 </span> 0/imm32/no-xm32 +<span id="L30115" class="LineNr">30115 </span> 0/imm32/no-x32 +<span id="L30116" class="LineNr">30116 </span> 0x11/imm32/alloc-id:fake +<span id="L30117" class="LineNr">30117 </span> <a href='mu.subx.html#L30118'>_Primitive-multiply-reg-by-mem</a>/imm32/next +<span id="L30118" class="LineNr">30118 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30119" class="LineNr">30119 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30120" class="LineNr">30120 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> <span id="L30121" class="LineNr">30121 </span> 0x11/imm32/alloc-id:fake -<span id="L30122" class="LineNr">30122 </span> <span class="SpecialChar"><a href='mu.subx.html#L32217'>Two-float-args-in-regs</a></span>/imm32/inouts -<span id="L30123" class="LineNr">30123 </span> 0/imm32/no-outputs -<span id="L30124" class="LineNr">30124 </span> 0/imm32/no-outputs +<span id="L30122" class="LineNr">30122 </span> <a href='mu.subx.html#L32148'>_string-multiply</a>/imm32/name +<span id="L30123" class="LineNr">30123 </span> 0x11/imm32/alloc-id:fake +<span id="L30124" class="LineNr">30124 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/inouts <span id="L30125" class="LineNr">30125 </span> 0x11/imm32/alloc-id:fake -<span id="L30126" class="LineNr">30126 </span> <a href='mu.subx.html#L31868'>_string_0f_2f_compare</a>/imm32/subx-name -<span id="L30127" class="LineNr">30127 </span> 0/imm32/no-rm32 -<span id="L30128" class="LineNr">30128 </span> 0/imm32/no-r32 -<span id="L30129" class="LineNr">30129 </span> 0/imm32/no-imm32 -<span id="L30130" class="LineNr">30130 </span> 0/imm32/no-imm8 -<span id="L30131" class="LineNr">30131 </span> 0/imm32/no-disp32 -<span id="L30132" class="LineNr">30132 </span> 1/imm32/xm32-is-first-inout -<span id="L30133" class="LineNr">30133 </span> 2/imm32/x32-is-second-inout -<span id="L30134" class="LineNr">30134 </span> 0x11/imm32/alloc-id:fake -<span id="L30135" class="LineNr">30135 </span> <a href='mu.subx.html#L30136'>_Primitive-compare-xreg-with-mem</a>/imm32/next -<span id="L30136" class="LineNr">30136 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30137" class="LineNr">30137 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30138" class="LineNr">30138 </span> <span class="subxComment"># compare var1/xreg var2 => 0f 2f/compare var1/x32 var2/xm32</span> -<span id="L30139" class="LineNr">30139 </span> 0x11/imm32/alloc-id:fake -<span id="L30140" class="LineNr">30140 </span> <a href='mu.subx.html#L31401'>_string-compare</a>/imm32/name -<span id="L30141" class="LineNr">30141 </span> 0x11/imm32/alloc-id:fake -<span id="L30142" class="LineNr">30142 </span> <span class="SpecialChar"><a href='mu.subx.html#L32224'>Two-args-float-reg-float-stack</a></span>/imm32/inouts -<span id="L30143" class="LineNr">30143 </span> 0/imm32/no-outputs -<span id="L30144" class="LineNr">30144 </span> 0/imm32/no-outputs -<span id="L30145" class="LineNr">30145 </span> 0x11/imm32/alloc-id:fake -<span id="L30146" class="LineNr">30146 </span> <a href='mu.subx.html#L31868'>_string_0f_2f_compare</a>/imm32/subx-name -<span id="L30147" class="LineNr">30147 </span> 0/imm32/no-rm32 -<span id="L30148" class="LineNr">30148 </span> 0/imm32/no-r32 -<span id="L30149" class="LineNr">30149 </span> 0/imm32/no-imm32 -<span id="L30150" class="LineNr">30150 </span> 0/imm32/no-imm8 -<span id="L30151" class="LineNr">30151 </span> 0/imm32/no-disp32 -<span id="L30152" class="LineNr">30152 </span> 2/imm32/xm32-is-second-inout -<span id="L30153" class="LineNr">30153 </span> 1/imm32/x32-is-first-inout -<span id="L30154" class="LineNr">30154 </span> 0x11/imm32/alloc-id:fake -<span id="L30155" class="LineNr">30155 </span> <a href='mu.subx.html#L30157'>_Primitive-break-if-addr<</a>/imm32/next -<span id="L30156" class="LineNr">30156 </span><span class="subxH1Comment"># - branches</span> -<span id="L30157" class="LineNr">30157 </span><span class="subxMinorFunction">_Primitive-break-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30158" class="LineNr">30158 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30159" class="LineNr">30159 </span> 0x11/imm32/alloc-id:fake -<span id="L30160" class="LineNr">30160 </span> <a href='mu.subx.html#L31361'>_string-break-if-addr<</a>/imm32/name -<span id="L30161" class="LineNr">30161 </span> 0/imm32/no-inouts -<span id="L30162" class="LineNr">30162 </span> 0/imm32/no-inouts -<span id="L30163" class="LineNr">30163 </span> 0/imm32/no-outputs -<span id="L30164" class="LineNr">30164 </span> 0/imm32/no-outputs -<span id="L30165" class="LineNr">30165 </span> 0x11/imm32/alloc-id:fake -<span id="L30166" class="LineNr">30166 </span> <a href='mu.subx.html#L31648'>_string_0f_82_jump_break</a>/imm32/subx-name -<span id="L30167" class="LineNr">30167 </span> 0/imm32/no-rm32 -<span id="L30168" class="LineNr">30168 </span> 0/imm32/no-r32 -<span id="L30169" class="LineNr">30169 </span> 0/imm32/no-imm32 -<span id="L30170" class="LineNr">30170 </span> 0/imm32/no-imm8 -<span id="L30171" class="LineNr">30171 </span> 0/imm32/no-disp32 -<span id="L30172" class="LineNr">30172 </span> 0/imm32/no-xm32 -<span id="L30173" class="LineNr">30173 </span> 0/imm32/no-x32 -<span id="L30174" class="LineNr">30174 </span> 0x11/imm32/alloc-id:fake -<span id="L30175" class="LineNr">30175 </span> <a href='mu.subx.html#L30176'>_Primitive-break-if-addr>=</a>/imm32/next -<span id="L30176" class="LineNr">30176 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30177" class="LineNr">30177 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30178" class="LineNr">30178 </span> 0x11/imm32/alloc-id:fake -<span id="L30179" class="LineNr">30179 </span> <a href='mu.subx.html#L31376'>_string-break-if-addr>=</a>/imm32/name -<span id="L30180" class="LineNr">30180 </span> 0/imm32/no-inouts -<span id="L30181" class="LineNr">30181 </span> 0/imm32/no-inouts -<span id="L30182" class="LineNr">30182 </span> 0/imm32/no-outputs -<span id="L30183" class="LineNr">30183 </span> 0/imm32/no-outputs -<span id="L30184" class="LineNr">30184 </span> 0x11/imm32/alloc-id:fake -<span id="L30185" class="LineNr">30185 </span> <a href='mu.subx.html#L31663'>_string_0f_83_jump_break</a>/imm32/subx-name -<span id="L30186" class="LineNr">30186 </span> 0/imm32/no-rm32 -<span id="L30187" class="LineNr">30187 </span> 0/imm32/no-r32 -<span id="L30188" class="LineNr">30188 </span> 0/imm32/no-imm32 -<span id="L30189" class="LineNr">30189 </span> 0/imm32/no-imm8 -<span id="L30190" class="LineNr">30190 </span> 0/imm32/no-disp32 -<span id="L30191" class="LineNr">30191 </span> 0/imm32/no-xm32 -<span id="L30192" class="LineNr">30192 </span> 0/imm32/no-x32 -<span id="L30193" class="LineNr">30193 </span> 0x11/imm32/alloc-id:fake -<span id="L30194" class="LineNr">30194 </span> <a href='mu.subx.html#L30195'>_Primitive-break-if-=</a>/imm32/next -<span id="L30195" class="LineNr">30195 </span><span class="subxMinorFunction">_Primitive-break-if-=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30196" class="LineNr">30196 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30197" class="LineNr">30197 </span> 0x11/imm32/alloc-id:fake -<span id="L30198" class="LineNr">30198 </span> <a href='mu.subx.html#L31341'>_string-break-if-=</a>/imm32/name -<span id="L30199" class="LineNr">30199 </span> 0/imm32/no-inouts -<span id="L30200" class="LineNr">30200 </span> 0/imm32/no-inouts -<span id="L30201" class="LineNr">30201 </span> 0/imm32/no-outputs -<span id="L30202" class="LineNr">30202 </span> 0/imm32/no-outputs +<span id="L30126" class="LineNr">30126 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30127" class="LineNr">30127 </span> 0x11/imm32/alloc-id:fake +<span id="L30128" class="LineNr">30128 </span> <a href='mu.subx.html#L32430'>_string_0f_af_multiply</a>/imm32/subx-name +<span id="L30129" class="LineNr">30129 </span> 1/imm32/rm32-is-first-inout +<span id="L30130" class="LineNr">30130 </span> 3/imm32/r32-is-first-output +<span id="L30131" class="LineNr">30131 </span> 0/imm32/no-imm32 +<span id="L30132" class="LineNr">30132 </span> 0/imm32/no-imm8 +<span id="L30133" class="LineNr">30133 </span> 0/imm32/no-disp32 +<span id="L30134" class="LineNr">30134 </span> 0/imm32/no-xm32 +<span id="L30135" class="LineNr">30135 </span> 0/imm32/no-x32 +<span id="L30136" class="LineNr">30136 </span> 0x11/imm32/alloc-id:fake +<span id="L30137" class="LineNr">30137 </span> <a href='mu.subx.html#L30139'>_Primitive-convert-mem-to-xreg</a>/imm32/next +<span id="L30138" class="LineNr">30138 </span><span class="subxH1Comment"># - convert int to floating point</span> +<span id="L30139" class="LineNr">30139 </span><span class="subxMinorFunction">_Primitive-convert-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30140" class="LineNr">30140 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30141" class="LineNr">30141 </span> <span class="subxComment"># var1/xreg <- convert var2 => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> +<span id="L30142" class="LineNr">30142 </span> 0x11/imm32/alloc-id:fake +<span id="L30143" class="LineNr">30143 </span> <a href='mu.subx.html#L32153'>_string-convert</a>/imm32/name +<span id="L30144" class="LineNr">30144 </span> 0x11/imm32/alloc-id:fake +<span id="L30145" class="LineNr">30145 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L30146" class="LineNr">30146 </span> 0x11/imm32/alloc-id:fake +<span id="L30147" class="LineNr">30147 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30148" class="LineNr">30148 </span> 0x11/imm32/alloc-id:fake +<span id="L30149" class="LineNr">30149 </span> <a href='mu.subx.html#L32435'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name +<span id="L30150" class="LineNr">30150 </span> 1/imm32/rm32-is-first-inout +<span id="L30151" class="LineNr">30151 </span> 0/imm32/no-r32 +<span id="L30152" class="LineNr">30152 </span> 0/imm32/no-imm32 +<span id="L30153" class="LineNr">30153 </span> 0/imm32/no-imm8 +<span id="L30154" class="LineNr">30154 </span> 0/imm32/no-disp32 +<span id="L30155" class="LineNr">30155 </span> 0/imm32/no-xm32 +<span id="L30156" class="LineNr">30156 </span> 3/imm32/x32-is-first-output +<span id="L30157" class="LineNr">30157 </span> 0x11/imm32/alloc-id:fake +<span id="L30158" class="LineNr">30158 </span> <a href='mu.subx.html#L30159'>_Primitive-convert-reg-to-xreg</a>/imm32/next +<span id="L30159" class="LineNr">30159 </span><span class="subxMinorFunction">_Primitive-convert-reg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30160" class="LineNr">30160 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30161" class="LineNr">30161 </span> <span class="subxComment"># var1/xreg <- convert var2/reg => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> +<span id="L30162" class="LineNr">30162 </span> 0x11/imm32/alloc-id:fake +<span id="L30163" class="LineNr">30163 </span> <a href='mu.subx.html#L32153'>_string-convert</a>/imm32/name +<span id="L30164" class="LineNr">30164 </span> 0x11/imm32/alloc-id:fake +<span id="L30165" class="LineNr">30165 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L30166" class="LineNr">30166 </span> 0x11/imm32/alloc-id:fake +<span id="L30167" class="LineNr">30167 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30168" class="LineNr">30168 </span> 0x11/imm32/alloc-id:fake +<span id="L30169" class="LineNr">30169 </span> <a href='mu.subx.html#L32435'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name +<span id="L30170" class="LineNr">30170 </span> 1/imm32/rm32-is-first-inout +<span id="L30171" class="LineNr">30171 </span> 0/imm32/no-r32 +<span id="L30172" class="LineNr">30172 </span> 0/imm32/no-imm32 +<span id="L30173" class="LineNr">30173 </span> 0/imm32/no-imm8 +<span id="L30174" class="LineNr">30174 </span> 0/imm32/no-disp32 +<span id="L30175" class="LineNr">30175 </span> 0/imm32/no-xm32 +<span id="L30176" class="LineNr">30176 </span> 3/imm32/x32-is-first-output +<span id="L30177" class="LineNr">30177 </span> 0x11/imm32/alloc-id:fake +<span id="L30178" class="LineNr">30178 </span> <a href='mu.subx.html#L30180'>_Primitive-convert-xmem-to-reg</a>/imm32/next +<span id="L30179" class="LineNr">30179 </span><span class="subxH1Comment"># - convert floating point to int</span> +<span id="L30180" class="LineNr">30180 </span><span class="subxMinorFunction">_Primitive-convert-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30181" class="LineNr">30181 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30182" class="LineNr">30182 </span> <span class="subxComment"># var1/reg <- convert var2 => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> +<span id="L30183" class="LineNr">30183 </span> 0x11/imm32/alloc-id:fake +<span id="L30184" class="LineNr">30184 </span> <a href='mu.subx.html#L32153'>_string-convert</a>/imm32/name +<span id="L30185" class="LineNr">30185 </span> 0x11/imm32/alloc-id:fake +<span id="L30186" class="LineNr">30186 </span> <span class="SpecialChar"><a href='mu.subx.html#L33061'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L30187" class="LineNr">30187 </span> 0x11/imm32/alloc-id:fake +<span id="L30188" class="LineNr">30188 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30189" class="LineNr">30189 </span> 0x11/imm32/alloc-id:fake +<span id="L30190" class="LineNr">30190 </span> <a href='mu.subx.html#L32440'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name +<span id="L30191" class="LineNr">30191 </span> 0/imm32/no-rm32 +<span id="L30192" class="LineNr">30192 </span> 3/imm32/r32-is-first-output +<span id="L30193" class="LineNr">30193 </span> 0/imm32/no-imm32 +<span id="L30194" class="LineNr">30194 </span> 0/imm32/no-imm8 +<span id="L30195" class="LineNr">30195 </span> 0/imm32/no-disp32 +<span id="L30196" class="LineNr">30196 </span> 1/imm32/xm32-is-first-inout +<span id="L30197" class="LineNr">30197 </span> 0/imm32/no-x32 +<span id="L30198" class="LineNr">30198 </span> 0x11/imm32/alloc-id:fake +<span id="L30199" class="LineNr">30199 </span> <a href='mu.subx.html#L30200'>_Primitive-convert-xreg-to-reg</a>/imm32/next +<span id="L30200" class="LineNr">30200 </span><span class="subxMinorFunction">_Primitive-convert-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30201" class="LineNr">30201 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30202" class="LineNr">30202 </span> <span class="subxComment"># var1/reg <- convert var2/xreg => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> <span id="L30203" class="LineNr">30203 </span> 0x11/imm32/alloc-id:fake -<span id="L30204" class="LineNr">30204 </span> <a href='mu.subx.html#L31678'>_string_0f_84_jump_break</a>/imm32/subx-name -<span id="L30205" class="LineNr">30205 </span> 0/imm32/no-rm32 -<span id="L30206" class="LineNr">30206 </span> 0/imm32/no-r32 -<span id="L30207" class="LineNr">30207 </span> 0/imm32/no-imm32 -<span id="L30208" class="LineNr">30208 </span> 0/imm32/no-imm8 -<span id="L30209" class="LineNr">30209 </span> 0/imm32/no-disp32 -<span id="L30210" class="LineNr">30210 </span> 0/imm32/no-xm32 -<span id="L30211" class="LineNr">30211 </span> 0/imm32/no-x32 -<span id="L30212" class="LineNr">30212 </span> 0x11/imm32/alloc-id:fake -<span id="L30213" class="LineNr">30213 </span> <a href='mu.subx.html#L30214'>_Primitive-break-if-!=</a>/imm32/next -<span id="L30214" class="LineNr">30214 </span><span class="subxMinorFunction">_Primitive-break-if-!=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30215" class="LineNr">30215 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30216" class="LineNr">30216 </span> 0x11/imm32/alloc-id:fake -<span id="L30217" class="LineNr">30217 </span> <a href='mu.subx.html#L31356'>_string-break-if-!=</a>/imm32/name -<span id="L30218" class="LineNr">30218 </span> 0/imm32/no-inouts -<span id="L30219" class="LineNr">30219 </span> 0/imm32/no-inouts -<span id="L30220" class="LineNr">30220 </span> 0/imm32/no-outputs -<span id="L30221" class="LineNr">30221 </span> 0/imm32/no-outputs -<span id="L30222" class="LineNr">30222 </span> 0x11/imm32/alloc-id:fake -<span id="L30223" class="LineNr">30223 </span> <a href='mu.subx.html#L31693'>_string_0f_85_jump_break</a>/imm32/subx-name -<span id="L30224" class="LineNr">30224 </span> 0/imm32/no-rm32 -<span id="L30225" class="LineNr">30225 </span> 0/imm32/no-r32 -<span id="L30226" class="LineNr">30226 </span> 0/imm32/no-imm32 -<span id="L30227" class="LineNr">30227 </span> 0/imm32/no-imm8 -<span id="L30228" class="LineNr">30228 </span> 0/imm32/no-disp32 -<span id="L30229" class="LineNr">30229 </span> 0/imm32/no-xm32 -<span id="L30230" class="LineNr">30230 </span> 0/imm32/no-x32 -<span id="L30231" class="LineNr">30231 </span> 0x11/imm32/alloc-id:fake -<span id="L30232" class="LineNr">30232 </span> <a href='mu.subx.html#L30233'>_Primitive-break-if-addr<=</a>/imm32/next -<span id="L30233" class="LineNr">30233 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30234" class="LineNr">30234 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30235" class="LineNr">30235 </span> 0x11/imm32/alloc-id:fake -<span id="L30236" class="LineNr">30236 </span> <a href='mu.subx.html#L31366'>_string-break-if-addr<=</a>/imm32/name -<span id="L30237" class="LineNr">30237 </span> 0/imm32/no-inouts -<span id="L30238" class="LineNr">30238 </span> 0/imm32/no-inouts -<span id="L30239" class="LineNr">30239 </span> 0/imm32/no-outputs -<span id="L30240" class="LineNr">30240 </span> 0/imm32/no-outputs -<span id="L30241" class="LineNr">30241 </span> 0x11/imm32/alloc-id:fake -<span id="L30242" class="LineNr">30242 </span> <a href='mu.subx.html#L31708'>_string_0f_86_jump_break</a>/imm32/subx-name -<span id="L30243" class="LineNr">30243 </span> 0/imm32/no-rm32 -<span id="L30244" class="LineNr">30244 </span> 0/imm32/no-r32 -<span id="L30245" class="LineNr">30245 </span> 0/imm32/no-imm32 -<span id="L30246" class="LineNr">30246 </span> 0/imm32/no-imm8 -<span id="L30247" class="LineNr">30247 </span> 0/imm32/no-disp32 -<span id="L30248" class="LineNr">30248 </span> 0/imm32/no-xm32 -<span id="L30249" class="LineNr">30249 </span> 0/imm32/no-x32 -<span id="L30250" class="LineNr">30250 </span> 0x11/imm32/alloc-id:fake -<span id="L30251" class="LineNr">30251 </span> <a href='mu.subx.html#L30252'>_Primitive-break-if-addr></a>/imm32/next -<span id="L30252" class="LineNr">30252 </span><span class="subxMinorFunction">_Primitive-break-if-addr></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30253" class="LineNr">30253 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30254" class="LineNr">30254 </span> 0x11/imm32/alloc-id:fake -<span id="L30255" class="LineNr">30255 </span> <a href='mu.subx.html#L31371'>_string-break-if-addr></a>/imm32/name -<span id="L30256" class="LineNr">30256 </span> 0/imm32/no-inouts -<span id="L30257" class="LineNr">30257 </span> 0/imm32/no-inouts -<span id="L30258" class="LineNr">30258 </span> 0/imm32/no-outputs -<span id="L30259" class="LineNr">30259 </span> 0/imm32/no-outputs -<span id="L30260" class="LineNr">30260 </span> 0x11/imm32/alloc-id:fake -<span id="L30261" class="LineNr">30261 </span> <a href='mu.subx.html#L31723'>_string_0f_87_jump_break</a>/imm32/subx-name -<span id="L30262" class="LineNr">30262 </span> 0/imm32/no-rm32 -<span id="L30263" class="LineNr">30263 </span> 0/imm32/no-r32 -<span id="L30264" class="LineNr">30264 </span> 0/imm32/no-imm32 -<span id="L30265" class="LineNr">30265 </span> 0/imm32/no-imm8 -<span id="L30266" class="LineNr">30266 </span> 0/imm32/no-disp32 -<span id="L30267" class="LineNr">30267 </span> 0/imm32/no-xm32 -<span id="L30268" class="LineNr">30268 </span> 0/imm32/no-x32 -<span id="L30269" class="LineNr">30269 </span> 0x11/imm32/alloc-id:fake -<span id="L30270" class="LineNr">30270 </span> <a href='mu.subx.html#L30271'>_Primitive-break-if-<</a>/imm32/next -<span id="L30271" class="LineNr">30271 </span><span class="subxMinorFunction">_Primitive-break-if-<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30272" class="LineNr">30272 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30273" class="LineNr">30273 </span> 0x11/imm32/alloc-id:fake -<span id="L30274" class="LineNr">30274 </span> <a href='mu.subx.html#L31331'>_string-break-if-<</a>/imm32/name -<span id="L30275" class="LineNr">30275 </span> 0/imm32/no-inouts -<span id="L30276" class="LineNr">30276 </span> 0/imm32/no-inouts -<span id="L30277" class="LineNr">30277 </span> 0/imm32/no-outputs -<span id="L30278" class="LineNr">30278 </span> 0/imm32/no-outputs +<span id="L30204" class="LineNr">30204 </span> <a href='mu.subx.html#L32153'>_string-convert</a>/imm32/name +<span id="L30205" class="LineNr">30205 </span> 0x11/imm32/alloc-id:fake +<span id="L30206" class="LineNr">30206 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L30207" class="LineNr">30207 </span> 0x11/imm32/alloc-id:fake +<span id="L30208" class="LineNr">30208 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30209" class="LineNr">30209 </span> 0x11/imm32/alloc-id:fake +<span id="L30210" class="LineNr">30210 </span> <a href='mu.subx.html#L32440'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name +<span id="L30211" class="LineNr">30211 </span> 0/imm32/no-rm32 +<span id="L30212" class="LineNr">30212 </span> 3/imm32/r32-is-first-output +<span id="L30213" class="LineNr">30213 </span> 0/imm32/no-imm32 +<span id="L30214" class="LineNr">30214 </span> 0/imm32/no-imm8 +<span id="L30215" class="LineNr">30215 </span> 0/imm32/no-disp32 +<span id="L30216" class="LineNr">30216 </span> 1/imm32/xm32-is-first-inout +<span id="L30217" class="LineNr">30217 </span> 0/imm32/no-x32 +<span id="L30218" class="LineNr">30218 </span> 0x11/imm32/alloc-id:fake +<span id="L30219" class="LineNr">30219 </span> <a href='mu.subx.html#L30220'>_Primitive-truncate-xmem-to-reg</a>/imm32/next +<span id="L30220" class="LineNr">30220 </span><span class="subxMinorFunction">_Primitive-truncate-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30221" class="LineNr">30221 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30222" class="LineNr">30222 </span> <span class="subxComment"># var1/reg <- truncate var2 => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> +<span id="L30223" class="LineNr">30223 </span> 0x11/imm32/alloc-id:fake +<span id="L30224" class="LineNr">30224 </span> <a href='mu.subx.html#L32158'>_string-truncate</a>/imm32/name +<span id="L30225" class="LineNr">30225 </span> 0x11/imm32/alloc-id:fake +<span id="L30226" class="LineNr">30226 </span> <span class="SpecialChar"><a href='mu.subx.html#L33061'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L30227" class="LineNr">30227 </span> 0x11/imm32/alloc-id:fake +<span id="L30228" class="LineNr">30228 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30229" class="LineNr">30229 </span> 0x11/imm32/alloc-id:fake +<span id="L30230" class="LineNr">30230 </span> <a href='mu.subx.html#L32445'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name +<span id="L30231" class="LineNr">30231 </span> 0/imm32/no-rm32 +<span id="L30232" class="LineNr">30232 </span> 3/imm32/r32-is-first-output +<span id="L30233" class="LineNr">30233 </span> 0/imm32/no-imm32 +<span id="L30234" class="LineNr">30234 </span> 0/imm32/no-imm8 +<span id="L30235" class="LineNr">30235 </span> 0/imm32/no-disp32 +<span id="L30236" class="LineNr">30236 </span> 1/imm32/xm32-is-first-inout +<span id="L30237" class="LineNr">30237 </span> 0/imm32/no-x32 +<span id="L30238" class="LineNr">30238 </span> 0x11/imm32/alloc-id:fake +<span id="L30239" class="LineNr">30239 </span> <a href='mu.subx.html#L30240'>_Primitive-truncate-xreg-to-reg</a>/imm32/next +<span id="L30240" class="LineNr">30240 </span><span class="subxMinorFunction">_Primitive-truncate-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30241" class="LineNr">30241 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30242" class="LineNr">30242 </span> <span class="subxComment"># var1/reg <- truncate var2/xreg => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> +<span id="L30243" class="LineNr">30243 </span> 0x11/imm32/alloc-id:fake +<span id="L30244" class="LineNr">30244 </span> <a href='mu.subx.html#L32158'>_string-truncate</a>/imm32/name +<span id="L30245" class="LineNr">30245 </span> 0x11/imm32/alloc-id:fake +<span id="L30246" class="LineNr">30246 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L30247" class="LineNr">30247 </span> 0x11/imm32/alloc-id:fake +<span id="L30248" class="LineNr">30248 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30249" class="LineNr">30249 </span> 0x11/imm32/alloc-id:fake +<span id="L30250" class="LineNr">30250 </span> <a href='mu.subx.html#L32445'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name +<span id="L30251" class="LineNr">30251 </span> 0/imm32/no-rm32 +<span id="L30252" class="LineNr">30252 </span> 3/imm32/r32-is-first-output +<span id="L30253" class="LineNr">30253 </span> 0/imm32/no-imm32 +<span id="L30254" class="LineNr">30254 </span> 0/imm32/no-imm8 +<span id="L30255" class="LineNr">30255 </span> 0/imm32/no-disp32 +<span id="L30256" class="LineNr">30256 </span> 1/imm32/xm32-is-first-inout +<span id="L30257" class="LineNr">30257 </span> 0/imm32/no-x32 +<span id="L30258" class="LineNr">30258 </span> 0x11/imm32/alloc-id:fake +<span id="L30259" class="LineNr">30259 </span> <a href='mu.subx.html#L30261'>_Primitive-reinterpret-xmem-as-reg</a>/imm32/next +<span id="L30260" class="LineNr">30260 </span><span class="subxH1Comment"># - reinterpret bytes (just for debugging)</span> +<span id="L30261" class="LineNr">30261 </span><span class="subxMinorFunction">_Primitive-reinterpret-xmem-as-reg</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"># var1/reg <- reinterpret var2 => 8b/-> var2/xm32 var1/r32</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#L32163'>_string-reinterpret</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#L33061'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L30268" class="LineNr">30268 </span> 0x11/imm32/alloc-id:fake +<span id="L30269" class="LineNr">30269 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/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#L32665'>_string_8b_-></a>/imm32/subx-name +<span id="L30272" class="LineNr">30272 </span> 0/imm32/no-rm32 +<span id="L30273" class="LineNr">30273 </span> 3/imm32/r32-is-first-output +<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> 1/imm32/xm32-is-first-inout +<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#L31738'>_string_0f_8c_jump_break</a>/imm32/subx-name -<span id="L30281" class="LineNr">30281 </span> 0/imm32/no-rm32 -<span id="L30282" class="LineNr">30282 </span> 0/imm32/no-r32 -<span id="L30283" class="LineNr">30283 </span> 0/imm32/no-imm32 -<span id="L30284" class="LineNr">30284 </span> 0/imm32/no-imm8 -<span id="L30285" class="LineNr">30285 </span> 0/imm32/no-disp32 -<span id="L30286" class="LineNr">30286 </span> 0/imm32/no-xm32 -<span id="L30287" class="LineNr">30287 </span> 0/imm32/no-x32 +<span id="L30280" class="LineNr">30280 </span> <a href='mu.subx.html#L30281'>_Primitive-reinterpret-mem-as-xreg</a>/imm32/next +<span id="L30281" class="LineNr">30281 </span><span class="subxMinorFunction">_Primitive-reinterpret-mem-as-xreg</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"># var1/xreg <- reinterpret var2 => f3 0f 10/-> var2/rm32 var1/x32</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#L32163'>_string-reinterpret</a>/imm32/name +<span id="L30286" class="LineNr">30286 </span> 0x11/imm32/alloc-id:fake +<span id="L30287" class="LineNr">30287 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/inouts <span id="L30288" class="LineNr">30288 </span> 0x11/imm32/alloc-id:fake -<span id="L30289" class="LineNr">30289 </span> <a href='mu.subx.html#L30290'>_Primitive-break-if->=</a>/imm32/next -<span id="L30290" class="LineNr">30290 </span><span class="subxMinorFunction">_Primitive-break-if->=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30291" class="LineNr">30291 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30292" class="LineNr">30292 </span> 0x11/imm32/alloc-id:fake -<span id="L30293" class="LineNr">30293 </span> <a href='mu.subx.html#L31351'>_string-break-if->=</a>/imm32/name -<span id="L30294" class="LineNr">30294 </span> 0/imm32/no-inouts -<span id="L30295" class="LineNr">30295 </span> 0/imm32/no-inouts -<span id="L30296" class="LineNr">30296 </span> 0/imm32/no-outputs -<span id="L30297" class="LineNr">30297 </span> 0/imm32/no-outputs -<span id="L30298" class="LineNr">30298 </span> 0x11/imm32/alloc-id:fake -<span id="L30299" class="LineNr">30299 </span> <a href='mu.subx.html#L31753'>_string_0f_8d_jump_break</a>/imm32/subx-name -<span id="L30300" class="LineNr">30300 </span> 0/imm32/no-rm32 -<span id="L30301" class="LineNr">30301 </span> 0/imm32/no-r32 -<span id="L30302" class="LineNr">30302 </span> 0/imm32/no-imm32 -<span id="L30303" class="LineNr">30303 </span> 0/imm32/no-imm8 -<span id="L30304" class="LineNr">30304 </span> 0/imm32/no-disp32 -<span id="L30305" class="LineNr">30305 </span> 0/imm32/no-xm32 -<span id="L30306" class="LineNr">30306 </span> 0/imm32/no-x32 +<span id="L30289" class="LineNr">30289 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-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#L32495'>_string_f3_0f_10_copy</a>/imm32/subx-name +<span id="L30292" class="LineNr">30292 </span> 1/imm32/rm32-is-first-inout +<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> 3/imm32/x32-is-first-output +<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-copy-xreg-to-xreg</a>/imm32/next +<span id="L30301" class="LineNr">30301 </span><span class="subxH1Comment"># - floating-point copy</span> +<span id="L30302" class="LineNr">30302 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-xreg</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"># var1/xreg <- copy var2/xreg => f3 0f 11/<- var1/xm32 var2/x32</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#L32043'>_string-copy</a>/imm32/name <span id="L30307" class="LineNr">30307 </span> 0x11/imm32/alloc-id:fake -<span id="L30308" class="LineNr">30308 </span> <a href='mu.subx.html#L30309'>_Primitive-break-if-<=</a>/imm32/next -<span id="L30309" class="LineNr">30309 </span><span class="subxMinorFunction">_Primitive-break-if-<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30310" class="LineNr">30310 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30308" class="LineNr">30308 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</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#L33079'>Single-float-var-in-some-register</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#L31336'>_string-break-if-<=</a>/imm32/name -<span id="L30313" class="LineNr">30313 </span> 0/imm32/no-inouts -<span id="L30314" class="LineNr">30314 </span> 0/imm32/no-inouts -<span id="L30315" class="LineNr">30315 </span> 0/imm32/no-outputs -<span id="L30316" class="LineNr">30316 </span> 0/imm32/no-outputs -<span id="L30317" class="LineNr">30317 </span> 0x11/imm32/alloc-id:fake -<span id="L30318" class="LineNr">30318 </span> <a href='mu.subx.html#L31768'>_string_0f_8e_jump_break</a>/imm32/subx-name -<span id="L30319" class="LineNr">30319 </span> 0/imm32/no-rm32 -<span id="L30320" class="LineNr">30320 </span> 0/imm32/no-r32 -<span id="L30321" class="LineNr">30321 </span> 0/imm32/no-imm32 -<span id="L30322" class="LineNr">30322 </span> 0/imm32/no-imm8 -<span id="L30323" class="LineNr">30323 </span> 0/imm32/no-disp32 -<span id="L30324" class="LineNr">30324 </span> 0/imm32/no-xm32 -<span id="L30325" class="LineNr">30325 </span> 0/imm32/no-x32 -<span id="L30326" class="LineNr">30326 </span> 0x11/imm32/alloc-id:fake -<span id="L30327" class="LineNr">30327 </span> <a href='mu.subx.html#L30328'>_Primitive-break-if-></a>/imm32/next -<span id="L30328" class="LineNr">30328 </span><span class="subxMinorFunction">_Primitive-break-if-></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30329" class="LineNr">30329 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30330" class="LineNr">30330 </span> 0x11/imm32/alloc-id:fake -<span id="L30331" class="LineNr">30331 </span> <a href='mu.subx.html#L31346'>_string-break-if-></a>/imm32/name -<span id="L30332" class="LineNr">30332 </span> 0/imm32/no-inouts -<span id="L30333" class="LineNr">30333 </span> 0/imm32/no-inouts -<span id="L30334" class="LineNr">30334 </span> 0/imm32/no-outputs -<span id="L30335" class="LineNr">30335 </span> 0/imm32/no-outputs -<span id="L30336" class="LineNr">30336 </span> 0x11/imm32/alloc-id:fake -<span id="L30337" class="LineNr">30337 </span> <a href='mu.subx.html#L31783'>_string_0f_8f_jump_break</a>/imm32/subx-name -<span id="L30338" class="LineNr">30338 </span> 0/imm32/no-rm32 -<span id="L30339" class="LineNr">30339 </span> 0/imm32/no-r32 -<span id="L30340" class="LineNr">30340 </span> 0/imm32/no-imm32 -<span id="L30341" class="LineNr">30341 </span> 0/imm32/no-imm8 -<span id="L30342" class="LineNr">30342 </span> 0/imm32/no-disp32 -<span id="L30343" class="LineNr">30343 </span> 0/imm32/no-xm32 -<span id="L30344" class="LineNr">30344 </span> 0/imm32/no-x32 +<span id="L30312" class="LineNr">30312 </span> <a href='mu.subx.html#L32500'>_string_f3_0f_11_copy</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> 0/imm32/no-imm32 +<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> 3/imm32/xm32-is-first-output +<span id="L30319" class="LineNr">30319 </span> 1/imm32/x32-is-first-inout +<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-copy-xreg-to-mem</a>/imm32/next +<span id="L30322" class="LineNr">30322 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-mem</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"># copy-to var1 var2/xreg => f3 0f 11/<- var1 var2/x32</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#L32048'>_string-copy-to</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#L32868'>Two-args-float-stack-float-reg</a></span>/imm32/inouts +<span id="L30329" class="LineNr">30329 </span> 0/imm32/no-outputs +<span id="L30330" class="LineNr">30330 </span> 0/imm32/no-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#L32500'>_string_f3_0f_11_copy</a>/imm32/subx-name +<span id="L30333" class="LineNr">30333 </span> 0/imm32/no-rm32 +<span id="L30334" class="LineNr">30334 </span> 0/imm32/no-r32 +<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> 1/imm32/xm32-is-first-inout +<span id="L30339" class="LineNr">30339 </span> 2/imm32/x32-is-second-inout +<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-copy-mem-to-xreg</a>/imm32/next +<span id="L30342" class="LineNr">30342 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-xreg</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"># var1/xreg <- copy var2 => f3 0f 10/-> var2/rm32 var1/x32</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#L30347'>_Primitive-break</a>/imm32/next -<span id="L30347" class="LineNr">30347 </span><span class="subxMinorFunction">_Primitive-break</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30348" class="LineNr">30348 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30346" class="LineNr">30346 </span> <a href='mu.subx.html#L32043'>_string-copy</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#L33061'>Single-float-var-in-mem</a></span>/imm32/inouts <span id="L30349" class="LineNr">30349 </span> 0x11/imm32/alloc-id:fake -<span id="L30350" class="LineNr">30350 </span> <a href='mu.subx.html#L31326'>_string-break</a>/imm32/name -<span id="L30351" class="LineNr">30351 </span> 0/imm32/no-inouts -<span id="L30352" class="LineNr">30352 </span> 0/imm32/no-inouts -<span id="L30353" class="LineNr">30353 </span> 0/imm32/no-outputs -<span id="L30354" class="LineNr">30354 </span> 0/imm32/no-outputs -<span id="L30355" class="LineNr">30355 </span> 0x11/imm32/alloc-id:fake -<span id="L30356" class="LineNr">30356 </span> <a href='mu.subx.html#L32088'>_string_e9_jump_break</a>/imm32/subx-name -<span id="L30357" class="LineNr">30357 </span> 0/imm32/no-rm32 -<span id="L30358" class="LineNr">30358 </span> 0/imm32/no-r32 -<span id="L30359" class="LineNr">30359 </span> 0/imm32/no-imm32 -<span id="L30360" class="LineNr">30360 </span> 0/imm32/no-imm8 -<span id="L30361" class="LineNr">30361 </span> 0/imm32/no-disp32 -<span id="L30362" class="LineNr">30362 </span> 0/imm32/no-xm32 -<span id="L30363" class="LineNr">30363 </span> 0/imm32/no-x32 -<span id="L30364" class="LineNr">30364 </span> 0x11/imm32/alloc-id:fake -<span id="L30365" class="LineNr">30365 </span> <a href='mu.subx.html#L30366'>_Primitive-loop-if-addr<</a>/imm32/next -<span id="L30366" class="LineNr">30366 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30367" class="LineNr">30367 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30350" class="LineNr">30350 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/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#L32495'>_string_f3_0f_10_copy</a>/imm32/subx-name +<span id="L30353" class="LineNr">30353 </span> 0/imm32/no-rm32 +<span id="L30354" class="LineNr">30354 </span> 0/imm32/no-r32 +<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> 1/imm32/xm32-is-first-inout +<span id="L30359" class="LineNr">30359 </span> 3/imm32/x32-is-first-output +<span id="L30360" class="LineNr">30360 </span> 0x11/imm32/alloc-id:fake +<span id="L30361" class="LineNr">30361 </span> <a href='mu.subx.html#L30363'>_Primitive-address-of-xmem</a>/imm32/next +<span id="L30362" class="LineNr">30362 </span><span class="subxH1Comment"># - floating-point-address</span> +<span id="L30363" class="LineNr">30363 </span><span class="subxMinorFunction">_Primitive-address-of-xmem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30364" class="LineNr">30364 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30365" class="LineNr">30365 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> +<span id="L30366" class="LineNr">30366 </span> 0x11/imm32/alloc-id:fake +<span id="L30367" class="LineNr">30367 </span> <a href='mu.subx.html#L31943'>_string-address</a>/imm32/name <span id="L30368" class="LineNr">30368 </span> 0x11/imm32/alloc-id:fake -<span id="L30369" class="LineNr">30369 </span> <a href='mu.subx.html#L31471'>_string-loop-if-addr<</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> 0/imm32/no-outputs -<span id="L30373" class="LineNr">30373 </span> 0/imm32/no-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#L31653'>_string_0f_82_jump_loop</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-loop-if-addr>=</a>/imm32/next -<span id="L30385" class="LineNr">30385 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30386" class="LineNr">30386 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30369" class="LineNr">30369 </span> <span class="SpecialChar"><a href='mu.subx.html#L33061'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L30370" class="LineNr">30370 </span> 0x11/imm32/alloc-id:fake +<span id="L30371" class="LineNr">30371 </span> <span class="SpecialChar"><a href='mu.subx.html#L32882'>Single-addr-var-in-some-register</a></span>/imm32/outputs +<span id="L30372" class="LineNr">30372 </span> 0x11/imm32/alloc-id:fake +<span id="L30373" class="LineNr">30373 </span> <a href='mu.subx.html#L32680'>_string_8d_copy_address</a>/imm32/subx-name +<span id="L30374" class="LineNr">30374 </span> 1/imm32/rm32-is-first-inout +<span id="L30375" class="LineNr">30375 </span> 3/imm32/r32-is-first-output +<span id="L30376" class="LineNr">30376 </span> 0/imm32/no-imm32 +<span id="L30377" class="LineNr">30377 </span> 0/imm32/no-imm8 +<span id="L30378" class="LineNr">30378 </span> 0/imm32/no-disp32 +<span id="L30379" class="LineNr">30379 </span> 0/imm32/no-xm32 +<span id="L30380" class="LineNr">30380 </span> 0/imm32/no-x32 +<span id="L30381" class="LineNr">30381 </span> 0x11/imm32/alloc-id:fake +<span id="L30382" class="LineNr">30382 </span> <a href='mu.subx.html#L30384'>_Primitive-add-xreg-to-xreg</a>/imm32/next +<span id="L30383" class="LineNr">30383 </span><span class="subxH1Comment"># - floating-point add</span> +<span id="L30384" class="LineNr">30384 </span><span class="subxMinorFunction">_Primitive-add-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30385" class="LineNr">30385 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30386" class="LineNr">30386 </span> <span class="subxComment"># var1/xreg <- add var2/xreg => f3 0f 58/add var1/xm32 var2/x32</span> <span id="L30387" class="LineNr">30387 </span> 0x11/imm32/alloc-id:fake -<span id="L30388" class="LineNr">30388 </span> <a href='mu.subx.html#L31486'>_string-loop-if-addr>=</a>/imm32/name -<span id="L30389" class="LineNr">30389 </span> 0/imm32/no-inouts -<span id="L30390" class="LineNr">30390 </span> 0/imm32/no-inouts -<span id="L30391" class="LineNr">30391 </span> 0/imm32/no-outputs -<span id="L30392" class="LineNr">30392 </span> 0/imm32/no-outputs +<span id="L30388" class="LineNr">30388 </span> <a href='mu.subx.html#L31938'>_string-add</a>/imm32/name +<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#L33079'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L30391" class="LineNr">30391 </span> 0x11/imm32/alloc-id:fake +<span id="L30392" class="LineNr">30392 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L30393" class="LineNr">30393 </span> 0x11/imm32/alloc-id:fake -<span id="L30394" class="LineNr">30394 </span> <a href='mu.subx.html#L31668'>_string_0f_83_jump_loop</a>/imm32/subx-name +<span id="L30394" class="LineNr">30394 </span> <a href='mu.subx.html#L32450'>_string_f3_0f_58_add</a>/imm32/subx-name <span id="L30395" class="LineNr">30395 </span> 0/imm32/no-rm32 <span id="L30396" class="LineNr">30396 </span> 0/imm32/no-r32 <span id="L30397" class="LineNr">30397 </span> 0/imm32/no-imm32 <span id="L30398" class="LineNr">30398 </span> 0/imm32/no-imm8 <span id="L30399" class="LineNr">30399 </span> 0/imm32/no-disp32 -<span id="L30400" class="LineNr">30400 </span> 0/imm32/no-xm32 -<span id="L30401" class="LineNr">30401 </span> 0/imm32/no-x32 +<span id="L30400" class="LineNr">30400 </span> 1/imm32/xm32-is-first-inout +<span id="L30401" class="LineNr">30401 </span> 3/imm32/x32-is-first-output <span id="L30402" class="LineNr">30402 </span> 0x11/imm32/alloc-id:fake -<span id="L30403" class="LineNr">30403 </span> <a href='mu.subx.html#L30404'>_Primitive-loop-if-=</a>/imm32/next -<span id="L30404" class="LineNr">30404 </span><span class="subxMinorFunction">_Primitive-loop-if-=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30403" class="LineNr">30403 </span> <a href='mu.subx.html#L30404'>_Primitive-add-mem-to-xreg</a>/imm32/next +<span id="L30404" class="LineNr">30404 </span><span class="subxMinorFunction">_Primitive-add-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> <span id="L30405" class="LineNr">30405 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30406" class="LineNr">30406 </span> 0x11/imm32/alloc-id:fake -<span id="L30407" class="LineNr">30407 </span> <a href='mu.subx.html#L31451'>_string-loop-if-=</a>/imm32/name -<span id="L30408" class="LineNr">30408 </span> 0/imm32/no-inouts -<span id="L30409" class="LineNr">30409 </span> 0/imm32/no-inouts -<span id="L30410" class="LineNr">30410 </span> 0/imm32/no-outputs -<span id="L30411" class="LineNr">30411 </span> 0/imm32/no-outputs -<span id="L30412" class="LineNr">30412 </span> 0x11/imm32/alloc-id:fake -<span id="L30413" class="LineNr">30413 </span> <a href='mu.subx.html#L31683'>_string_0f_84_jump_loop</a>/imm32/subx-name -<span id="L30414" class="LineNr">30414 </span> 0/imm32/no-rm32 -<span id="L30415" class="LineNr">30415 </span> 0/imm32/no-r32 -<span id="L30416" class="LineNr">30416 </span> 0/imm32/no-imm32 -<span id="L30417" class="LineNr">30417 </span> 0/imm32/no-imm8 -<span id="L30418" class="LineNr">30418 </span> 0/imm32/no-disp32 -<span id="L30419" class="LineNr">30419 </span> 0/imm32/no-xm32 -<span id="L30420" class="LineNr">30420 </span> 0/imm32/no-x32 -<span id="L30421" class="LineNr">30421 </span> 0x11/imm32/alloc-id:fake -<span id="L30422" class="LineNr">30422 </span> <a href='mu.subx.html#L30423'>_Primitive-loop-if-!=</a>/imm32/next -<span id="L30423" class="LineNr">30423 </span><span class="subxMinorFunction">_Primitive-loop-if-!=</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> 0x11/imm32/alloc-id:fake -<span id="L30426" class="LineNr">30426 </span> <a href='mu.subx.html#L31466'>_string-loop-if-!=</a>/imm32/name -<span id="L30427" class="LineNr">30427 </span> 0/imm32/no-inouts -<span id="L30428" class="LineNr">30428 </span> 0/imm32/no-inouts -<span id="L30429" class="LineNr">30429 </span> 0/imm32/no-outputs -<span id="L30430" class="LineNr">30430 </span> 0/imm32/no-outputs -<span id="L30431" class="LineNr">30431 </span> 0x11/imm32/alloc-id:fake -<span id="L30432" class="LineNr">30432 </span> <a href='mu.subx.html#L31698'>_string_0f_85_jump_loop</a>/imm32/subx-name -<span id="L30433" class="LineNr">30433 </span> 0/imm32/no-rm32 -<span id="L30434" class="LineNr">30434 </span> 0/imm32/no-r32 -<span id="L30435" class="LineNr">30435 </span> 0/imm32/no-imm32 -<span id="L30436" class="LineNr">30436 </span> 0/imm32/no-imm8 -<span id="L30437" class="LineNr">30437 </span> 0/imm32/no-disp32 -<span id="L30438" class="LineNr">30438 </span> 0/imm32/no-xm32 -<span id="L30439" class="LineNr">30439 </span> 0/imm32/no-x32 -<span id="L30440" class="LineNr">30440 </span> 0x11/imm32/alloc-id:fake -<span id="L30441" class="LineNr">30441 </span> <a href='mu.subx.html#L30442'>_Primitive-loop-if-addr<=</a>/imm32/next -<span id="L30442" class="LineNr">30442 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30443" class="LineNr">30443 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30444" class="LineNr">30444 </span> 0x11/imm32/alloc-id:fake -<span id="L30445" class="LineNr">30445 </span> <a href='mu.subx.html#L31476'>_string-loop-if-addr<=</a>/imm32/name -<span id="L30446" class="LineNr">30446 </span> 0/imm32/no-inouts -<span id="L30447" class="LineNr">30447 </span> 0/imm32/no-inouts -<span id="L30448" class="LineNr">30448 </span> 0/imm32/no-outputs -<span id="L30449" class="LineNr">30449 </span> 0/imm32/no-outputs +<span id="L30406" class="LineNr">30406 </span> <span class="subxComment"># var1/xreg <- add var2 => f3 0f 58/add var2/xm32 var1/x32</span> +<span id="L30407" class="LineNr">30407 </span> 0x11/imm32/alloc-id:fake +<span id="L30408" class="LineNr">30408 </span> <a href='mu.subx.html#L31938'>_string-add</a>/imm32/name +<span id="L30409" class="LineNr">30409 </span> 0x11/imm32/alloc-id:fake +<span id="L30410" class="LineNr">30410 </span> <span class="SpecialChar"><a href='mu.subx.html#L33061'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L30411" class="LineNr">30411 </span> 0x11/imm32/alloc-id:fake +<span id="L30412" class="LineNr">30412 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30413" class="LineNr">30413 </span> 0x11/imm32/alloc-id:fake +<span id="L30414" class="LineNr">30414 </span> <a href='mu.subx.html#L32450'>_string_f3_0f_58_add</a>/imm32/subx-name +<span id="L30415" class="LineNr">30415 </span> 0/imm32/no-rm32 +<span id="L30416" class="LineNr">30416 </span> 0/imm32/no-r32 +<span id="L30417" class="LineNr">30417 </span> 0/imm32/no-imm32 +<span id="L30418" class="LineNr">30418 </span> 0/imm32/no-imm8 +<span id="L30419" class="LineNr">30419 </span> 0/imm32/no-disp32 +<span id="L30420" class="LineNr">30420 </span> 1/imm32/xm32-is-first-inout +<span id="L30421" class="LineNr">30421 </span> 3/imm32/x32-is-first-output +<span id="L30422" class="LineNr">30422 </span> 0x11/imm32/alloc-id:fake +<span id="L30423" class="LineNr">30423 </span> <a href='mu.subx.html#L30425'>_Primitive-subtract-xreg-from-xreg</a>/imm32/next +<span id="L30424" class="LineNr">30424 </span><span class="subxH1Comment"># - floating-point subtract</span> +<span id="L30425" class="LineNr">30425 </span><span class="subxMinorFunction">_Primitive-subtract-xreg-from-xreg</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"># var1/xreg <- subtract var2/xreg => f3 0f 5c/subtract var1/xm32 var2/x32</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#L32213'>_string-subtract</a>/imm32/name +<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#L33079'>Single-float-var-in-some-register</a></span>/imm32/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#L33079'>Single-float-var-in-some-register</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#L32455'>_string_f3_0f_5c_subtract</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> 1/imm32/xm32-is-first-inout +<span id="L30442" class="LineNr">30442 </span> 3/imm32/x32-is-first-output +<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-subtract-mem-from-xreg</a>/imm32/next +<span id="L30445" class="LineNr">30445 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-xreg</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"># var1/xreg <- subtract var2 => f3 0f 5c/subtract var2/xm32 var1/x32</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#L32213'>_string-subtract</a>/imm32/name <span id="L30450" class="LineNr">30450 </span> 0x11/imm32/alloc-id:fake -<span id="L30451" class="LineNr">30451 </span> <a href='mu.subx.html#L31713'>_string_0f_86_jump_loop</a>/imm32/subx-name -<span id="L30452" class="LineNr">30452 </span> 0/imm32/no-rm32 -<span id="L30453" class="LineNr">30453 </span> 0/imm32/no-r32 -<span id="L30454" class="LineNr">30454 </span> 0/imm32/no-imm32 -<span id="L30455" class="LineNr">30455 </span> 0/imm32/no-imm8 -<span id="L30456" class="LineNr">30456 </span> 0/imm32/no-disp32 -<span id="L30457" class="LineNr">30457 </span> 0/imm32/no-xm32 -<span id="L30458" class="LineNr">30458 </span> 0/imm32/no-x32 -<span id="L30459" class="LineNr">30459 </span> 0x11/imm32/alloc-id:fake -<span id="L30460" class="LineNr">30460 </span> <a href='mu.subx.html#L30461'>_Primitive-loop-if-addr></a>/imm32/next -<span id="L30461" class="LineNr">30461 </span><span class="subxMinorFunction">_Primitive-loop-if-addr></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30462" class="LineNr">30462 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30451" class="LineNr">30451 </span> <span class="SpecialChar"><a href='mu.subx.html#L33061'>Single-float-var-in-mem</a></span>/imm32/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#L33079'>Single-float-var-in-some-register</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#L32455'>_string_f3_0f_5c_subtract</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> 1/imm32/xm32-is-first-inout +<span id="L30462" class="LineNr">30462 </span> 3/imm32/x32-is-first-output <span id="L30463" class="LineNr">30463 </span> 0x11/imm32/alloc-id:fake -<span id="L30464" class="LineNr">30464 </span> <a href='mu.subx.html#L31481'>_string-loop-if-addr></a>/imm32/name -<span id="L30465" class="LineNr">30465 </span> 0/imm32/no-inouts -<span id="L30466" class="LineNr">30466 </span> 0/imm32/no-inouts -<span id="L30467" class="LineNr">30467 </span> 0/imm32/no-outputs -<span id="L30468" class="LineNr">30468 </span> 0/imm32/no-outputs +<span id="L30464" class="LineNr">30464 </span> <a href='mu.subx.html#L30466'>_Primitive-multiply-xreg-by-xreg</a>/imm32/next +<span id="L30465" class="LineNr">30465 </span><span class="subxH1Comment"># - floating-point multiply</span> +<span id="L30466" class="LineNr">30466 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30467" class="LineNr">30467 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30468" class="LineNr">30468 </span> <span class="subxComment"># var1/xreg <- multiply var2 => f3 0f 59/multiply var2/xm32 var1/x32</span> <span id="L30469" class="LineNr">30469 </span> 0x11/imm32/alloc-id:fake -<span id="L30470" class="LineNr">30470 </span> <a href='mu.subx.html#L31728'>_string_0f_87_jump_loop</a>/imm32/subx-name -<span id="L30471" class="LineNr">30471 </span> 0/imm32/no-rm32 -<span id="L30472" class="LineNr">30472 </span> 0/imm32/no-r32 -<span id="L30473" class="LineNr">30473 </span> 0/imm32/no-imm32 -<span id="L30474" class="LineNr">30474 </span> 0/imm32/no-imm8 -<span id="L30475" class="LineNr">30475 </span> 0/imm32/no-disp32 -<span id="L30476" class="LineNr">30476 </span> 0/imm32/no-xm32 -<span id="L30477" class="LineNr">30477 </span> 0/imm32/no-x32 -<span id="L30478" class="LineNr">30478 </span> 0x11/imm32/alloc-id:fake -<span id="L30479" class="LineNr">30479 </span> <a href='mu.subx.html#L30480'>_Primitive-loop-if-<</a>/imm32/next -<span id="L30480" class="LineNr">30480 </span><span class="subxMinorFunction">_Primitive-loop-if-<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30481" class="LineNr">30481 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30482" class="LineNr">30482 </span> 0x11/imm32/alloc-id:fake -<span id="L30483" class="LineNr">30483 </span> <a href='mu.subx.html#L31441'>_string-loop-if-<</a>/imm32/name -<span id="L30484" class="LineNr">30484 </span> 0/imm32/no-inouts -<span id="L30485" class="LineNr">30485 </span> 0/imm32/no-inouts -<span id="L30486" class="LineNr">30486 </span> 0/imm32/no-outputs -<span id="L30487" class="LineNr">30487 </span> 0/imm32/no-outputs -<span id="L30488" class="LineNr">30488 </span> 0x11/imm32/alloc-id:fake -<span id="L30489" class="LineNr">30489 </span> <a href='mu.subx.html#L31743'>_string_0f_8c_jump_loop</a>/imm32/subx-name -<span id="L30490" class="LineNr">30490 </span> 0/imm32/no-rm32 -<span id="L30491" class="LineNr">30491 </span> 0/imm32/no-r32 -<span id="L30492" class="LineNr">30492 </span> 0/imm32/no-imm32 -<span id="L30493" class="LineNr">30493 </span> 0/imm32/no-imm8 -<span id="L30494" class="LineNr">30494 </span> 0/imm32/no-disp32 -<span id="L30495" class="LineNr">30495 </span> 0/imm32/no-xm32 -<span id="L30496" class="LineNr">30496 </span> 0/imm32/no-x32 -<span id="L30497" class="LineNr">30497 </span> 0x11/imm32/alloc-id:fake -<span id="L30498" class="LineNr">30498 </span> <a href='mu.subx.html#L30499'>_Primitive-loop-if->=</a>/imm32/next -<span id="L30499" class="LineNr">30499 </span><span class="subxMinorFunction">_Primitive-loop-if->=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30500" class="LineNr">30500 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30501" class="LineNr">30501 </span> 0x11/imm32/alloc-id:fake -<span id="L30502" class="LineNr">30502 </span> <a href='mu.subx.html#L31461'>_string-loop-if->=</a>/imm32/name -<span id="L30503" class="LineNr">30503 </span> 0/imm32/no-inouts -<span id="L30504" class="LineNr">30504 </span> 0/imm32/no-inouts -<span id="L30505" class="LineNr">30505 </span> 0/imm32/no-outputs -<span id="L30506" class="LineNr">30506 </span> 0/imm32/no-outputs -<span id="L30507" class="LineNr">30507 </span> 0x11/imm32/alloc-id:fake -<span id="L30508" class="LineNr">30508 </span> <a href='mu.subx.html#L31758'>_string_0f_8d_jump_loop</a>/imm32/subx-name -<span id="L30509" class="LineNr">30509 </span> 0/imm32/no-rm32 -<span id="L30510" class="LineNr">30510 </span> 0/imm32/no-r32 -<span id="L30511" class="LineNr">30511 </span> 0/imm32/no-imm32 -<span id="L30512" class="LineNr">30512 </span> 0/imm32/no-imm8 -<span id="L30513" class="LineNr">30513 </span> 0/imm32/no-disp32 -<span id="L30514" class="LineNr">30514 </span> 0/imm32/no-xm32 -<span id="L30515" class="LineNr">30515 </span> 0/imm32/no-x32 +<span id="L30470" class="LineNr">30470 </span> <a href='mu.subx.html#L32148'>_string-multiply</a>/imm32/name +<span id="L30471" class="LineNr">30471 </span> 0x11/imm32/alloc-id:fake +<span id="L30472" class="LineNr">30472 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L30473" class="LineNr">30473 </span> 0x11/imm32/alloc-id:fake +<span id="L30474" class="LineNr">30474 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30475" class="LineNr">30475 </span> 0x11/imm32/alloc-id:fake +<span id="L30476" class="LineNr">30476 </span> <a href='mu.subx.html#L32460'>_string_f3_0f_59_multiply</a>/imm32/subx-name +<span id="L30477" class="LineNr">30477 </span> 0/imm32/no-rm32 +<span id="L30478" class="LineNr">30478 </span> 0/imm32/no-r32 +<span id="L30479" class="LineNr">30479 </span> 0/imm32/no-imm32 +<span id="L30480" class="LineNr">30480 </span> 0/imm32/no-imm8 +<span id="L30481" class="LineNr">30481 </span> 0/imm32/no-disp32 +<span id="L30482" class="LineNr">30482 </span> 1/imm32/xm32-is-first-inout +<span id="L30483" class="LineNr">30483 </span> 3/imm32/x32-is-first-output +<span id="L30484" class="LineNr">30484 </span> 0x11/imm32/alloc-id:fake +<span id="L30485" class="LineNr">30485 </span> <a href='mu.subx.html#L30486'>_Primitive-multiply-xreg-by-mem</a>/imm32/next +<span id="L30486" class="LineNr">30486 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30487" class="LineNr">30487 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30488" class="LineNr">30488 </span> <span class="subxComment"># var1/xreg <- multiply var2 => 53 0f 59/multiply var2/xm32 var1/x32</span> +<span id="L30489" class="LineNr">30489 </span> 0x11/imm32/alloc-id:fake +<span id="L30490" class="LineNr">30490 </span> <a href='mu.subx.html#L32148'>_string-multiply</a>/imm32/name +<span id="L30491" class="LineNr">30491 </span> 0x11/imm32/alloc-id:fake +<span id="L30492" class="LineNr">30492 </span> <span class="SpecialChar"><a href='mu.subx.html#L33061'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L30493" class="LineNr">30493 </span> 0x11/imm32/alloc-id:fake +<span id="L30494" class="LineNr">30494 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30495" class="LineNr">30495 </span> 0x11/imm32/alloc-id:fake +<span id="L30496" class="LineNr">30496 </span> <a href='mu.subx.html#L32460'>_string_f3_0f_59_multiply</a>/imm32/subx-name +<span id="L30497" class="LineNr">30497 </span> 0/imm32/no-rm32 +<span id="L30498" class="LineNr">30498 </span> 0/imm32/no-r32 +<span id="L30499" class="LineNr">30499 </span> 0/imm32/no-imm32 +<span id="L30500" class="LineNr">30500 </span> 0/imm32/no-imm8 +<span id="L30501" class="LineNr">30501 </span> 0/imm32/no-disp32 +<span id="L30502" class="LineNr">30502 </span> 1/imm32/xm32-is-first-inout +<span id="L30503" class="LineNr">30503 </span> 3/imm32/x32-is-first-output +<span id="L30504" class="LineNr">30504 </span> 0x11/imm32/alloc-id:fake +<span id="L30505" class="LineNr">30505 </span> <a href='mu.subx.html#L30507'>_Primitive-divide-xreg-by-xreg</a>/imm32/next +<span id="L30506" class="LineNr">30506 </span><span class="subxH1Comment"># - floating-point divide</span> +<span id="L30507" class="LineNr">30507 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30508" class="LineNr">30508 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30509" class="LineNr">30509 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> +<span id="L30510" class="LineNr">30510 </span> 0x11/imm32/alloc-id:fake +<span id="L30511" class="LineNr">30511 </span> <a href='mu.subx.html#L32168'>_string-divide</a>/imm32/name +<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#L33079'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L30514" class="LineNr">30514 </span> 0x11/imm32/alloc-id:fake +<span id="L30515" class="LineNr">30515 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L30516" class="LineNr">30516 </span> 0x11/imm32/alloc-id:fake -<span id="L30517" class="LineNr">30517 </span> <a href='mu.subx.html#L30518'>_Primitive-loop-if-<=</a>/imm32/next -<span id="L30518" class="LineNr">30518 </span><span class="subxMinorFunction">_Primitive-loop-if-<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30519" class="LineNr">30519 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30520" class="LineNr">30520 </span> 0x11/imm32/alloc-id:fake -<span id="L30521" class="LineNr">30521 </span> <a href='mu.subx.html#L31446'>_string-loop-if-<=</a>/imm32/name -<span id="L30522" class="LineNr">30522 </span> 0/imm32/no-inouts -<span id="L30523" class="LineNr">30523 </span> 0/imm32/no-inouts -<span id="L30524" class="LineNr">30524 </span> 0/imm32/no-outputs -<span id="L30525" class="LineNr">30525 </span> 0/imm32/no-outputs -<span id="L30526" class="LineNr">30526 </span> 0x11/imm32/alloc-id:fake -<span id="L30527" class="LineNr">30527 </span> <a href='mu.subx.html#L31773'>_string_0f_8e_jump_loop</a>/imm32/subx-name -<span id="L30528" class="LineNr">30528 </span> 0/imm32/no-rm32 -<span id="L30529" class="LineNr">30529 </span> 0/imm32/no-r32 -<span id="L30530" class="LineNr">30530 </span> 0/imm32/no-imm32 -<span id="L30531" class="LineNr">30531 </span> 0/imm32/no-imm8 -<span id="L30532" class="LineNr">30532 </span> 0/imm32/no-disp32 -<span id="L30533" class="LineNr">30533 </span> 0/imm32/no-xm32 -<span id="L30534" class="LineNr">30534 </span> 0/imm32/no-x32 -<span id="L30535" class="LineNr">30535 </span> 0x11/imm32/alloc-id:fake -<span id="L30536" class="LineNr">30536 </span> <a href='mu.subx.html#L30537'>_Primitive-loop-if-></a>/imm32/next -<span id="L30537" class="LineNr">30537 </span><span class="subxMinorFunction">_Primitive-loop-if-></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30538" class="LineNr">30538 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30539" class="LineNr">30539 </span> 0x11/imm32/alloc-id:fake -<span id="L30540" class="LineNr">30540 </span> <a href='mu.subx.html#L31456'>_string-loop-if-></a>/imm32/name -<span id="L30541" class="LineNr">30541 </span> 0/imm32/no-inouts -<span id="L30542" class="LineNr">30542 </span> 0/imm32/no-inouts -<span id="L30543" class="LineNr">30543 </span> 0/imm32/no-outputs -<span id="L30544" class="LineNr">30544 </span> 0/imm32/no-outputs +<span id="L30517" class="LineNr">30517 </span> <a href='mu.subx.html#L32465'>_string_f3_0f_5e_divide</a>/imm32/subx-name +<span id="L30518" class="LineNr">30518 </span> 0/imm32/no-rm32 +<span id="L30519" class="LineNr">30519 </span> 0/imm32/no-r32 +<span id="L30520" class="LineNr">30520 </span> 0/imm32/no-imm32 +<span id="L30521" class="LineNr">30521 </span> 0/imm32/no-imm8 +<span id="L30522" class="LineNr">30522 </span> 0/imm32/no-disp32 +<span id="L30523" class="LineNr">30523 </span> 1/imm32/xm32-is-first-inout +<span id="L30524" class="LineNr">30524 </span> 3/imm32/x32-is-first-output +<span id="L30525" class="LineNr">30525 </span> 0x11/imm32/alloc-id:fake +<span id="L30526" class="LineNr">30526 </span> <a href='mu.subx.html#L30527'>_Primitive-divide-xreg-by-mem</a>/imm32/next +<span id="L30527" class="LineNr">30527 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30528" class="LineNr">30528 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30529" class="LineNr">30529 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> +<span id="L30530" class="LineNr">30530 </span> 0x11/imm32/alloc-id:fake +<span id="L30531" class="LineNr">30531 </span> <a href='mu.subx.html#L32168'>_string-divide</a>/imm32/name +<span id="L30532" class="LineNr">30532 </span> 0x11/imm32/alloc-id:fake +<span id="L30533" class="LineNr">30533 </span> <span class="SpecialChar"><a href='mu.subx.html#L33061'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L30534" class="LineNr">30534 </span> 0x11/imm32/alloc-id:fake +<span id="L30535" class="LineNr">30535 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30536" class="LineNr">30536 </span> 0x11/imm32/alloc-id:fake +<span id="L30537" class="LineNr">30537 </span> <a href='mu.subx.html#L32465'>_string_f3_0f_5e_divide</a>/imm32/subx-name +<span id="L30538" class="LineNr">30538 </span> 0/imm32/no-rm32 +<span id="L30539" class="LineNr">30539 </span> 0/imm32/no-r32 +<span id="L30540" class="LineNr">30540 </span> 0/imm32/no-imm32 +<span id="L30541" class="LineNr">30541 </span> 0/imm32/no-imm8 +<span id="L30542" class="LineNr">30542 </span> 0/imm32/no-disp32 +<span id="L30543" class="LineNr">30543 </span> 1/imm32/xm32-is-first-inout +<span id="L30544" class="LineNr">30544 </span> 3/imm32/x32-is-first-output <span id="L30545" class="LineNr">30545 </span> 0x11/imm32/alloc-id:fake -<span id="L30546" class="LineNr">30546 </span> <a href='mu.subx.html#L31788'>_string_0f_8f_jump_loop</a>/imm32/subx-name -<span id="L30547" class="LineNr">30547 </span> 0/imm32/no-rm32 -<span id="L30548" class="LineNr">30548 </span> 0/imm32/no-r32 -<span id="L30549" class="LineNr">30549 </span> 0/imm32/no-imm32 -<span id="L30550" class="LineNr">30550 </span> 0/imm32/no-imm8 -<span id="L30551" class="LineNr">30551 </span> 0/imm32/no-disp32 -<span id="L30552" class="LineNr">30552 </span> 0/imm32/no-xm32 -<span id="L30553" class="LineNr">30553 </span> 0/imm32/no-x32 -<span id="L30554" class="LineNr">30554 </span> 0x11/imm32/alloc-id:fake -<span id="L30555" class="LineNr">30555 </span> <a href='mu.subx.html#L30556'>_Primitive-loop</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> -<span id="L30556" class="LineNr">30556 </span><span class="subxMinorFunction">_Primitive-loop</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30557" class="LineNr">30557 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30558" class="LineNr">30558 </span> 0x11/imm32/alloc-id:fake -<span id="L30559" class="LineNr">30559 </span> <a href='mu.subx.html#L31436'>_string-loop</a>/imm32/name -<span id="L30560" class="LineNr">30560 </span> 0/imm32/no-inouts -<span id="L30561" class="LineNr">30561 </span> 0/imm32/no-inouts -<span id="L30562" class="LineNr">30562 </span> 0/imm32/no-outputs -<span id="L30563" class="LineNr">30563 </span> 0/imm32/no-outputs -<span id="L30564" class="LineNr">30564 </span> 0x11/imm32/alloc-id:fake -<span id="L30565" class="LineNr">30565 </span> <a href='mu.subx.html#L32093'>_string_e9_jump_loop</a>/imm32/subx-name -<span id="L30566" class="LineNr">30566 </span> 0/imm32/no-rm32 -<span id="L30567" class="LineNr">30567 </span> 0/imm32/no-r32 -<span id="L30568" class="LineNr">30568 </span> 0/imm32/no-imm32 -<span id="L30569" class="LineNr">30569 </span> 0/imm32/no-imm8 -<span id="L30570" class="LineNr">30570 </span> 0/imm32/no-disp32 -<span id="L30571" class="LineNr">30571 </span> 0/imm32/no-xm32 -<span id="L30572" class="LineNr">30572 </span> 0/imm32/no-x32 +<span id="L30546" class="LineNr">30546 </span> <a href='mu.subx.html#L30548'>_Primitive-max-xreg-with-xreg</a>/imm32/next +<span id="L30547" class="LineNr">30547 </span><span class="subxH1Comment"># - floating-point maximum</span> +<span id="L30548" class="LineNr">30548 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30549" class="LineNr">30549 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30550" class="LineNr">30550 </span> <span class="subxComment"># var1/xreg <- max var2 => f3 0f 5f/max var2/xm32 var1/x32</span> +<span id="L30551" class="LineNr">30551 </span> 0x11/imm32/alloc-id:fake +<span id="L30552" class="LineNr">30552 </span> <a href='mu.subx.html#L32173'>_string-max</a>/imm32/name +<span id="L30553" class="LineNr">30553 </span> 0x11/imm32/alloc-id:fake +<span id="L30554" class="LineNr">30554 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L30555" class="LineNr">30555 </span> 0x11/imm32/alloc-id:fake +<span id="L30556" class="LineNr">30556 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30557" class="LineNr">30557 </span> 0x11/imm32/alloc-id:fake +<span id="L30558" class="LineNr">30558 </span> <a href='mu.subx.html#L32490'>_string_f3_0f_5f_max</a>/imm32/subx-name +<span id="L30559" class="LineNr">30559 </span> 0/imm32/no-rm32 +<span id="L30560" class="LineNr">30560 </span> 0/imm32/no-r32 +<span id="L30561" class="LineNr">30561 </span> 0/imm32/no-imm32 +<span id="L30562" class="LineNr">30562 </span> 0/imm32/no-imm8 +<span id="L30563" class="LineNr">30563 </span> 0/imm32/no-disp32 +<span id="L30564" class="LineNr">30564 </span> 1/imm32/xm32-is-first-inout +<span id="L30565" class="LineNr">30565 </span> 3/imm32/x32-is-first-output +<span id="L30566" class="LineNr">30566 </span> 0x11/imm32/alloc-id:fake +<span id="L30567" class="LineNr">30567 </span> <a href='mu.subx.html#L30568'>_Primitive-max-xreg-with-mem</a>/imm32/next +<span id="L30568" class="LineNr">30568 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30569" class="LineNr">30569 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30570" class="LineNr">30570 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5f/max var2/xm32 var1/x32</span> +<span id="L30571" class="LineNr">30571 </span> 0x11/imm32/alloc-id:fake +<span id="L30572" class="LineNr">30572 </span> <a href='mu.subx.html#L32173'>_string-max</a>/imm32/name <span id="L30573" class="LineNr">30573 </span> 0x11/imm32/alloc-id:fake -<span id="L30574" class="LineNr">30574 </span> <a href='mu.subx.html#L30576'>_Primitive-break-if-addr<-named</a>/imm32/next -<span id="L30575" class="LineNr">30575 </span><span class="subxH1Comment"># - branches to named blocks</span> -<span id="L30576" class="LineNr">30576 </span><span class="subxMinorFunction">_Primitive-break-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30577" class="LineNr">30577 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30578" class="LineNr">30578 </span> 0x11/imm32/alloc-id:fake -<span id="L30579" class="LineNr">30579 </span> <a href='mu.subx.html#L31361'>_string-break-if-addr<</a>/imm32/name -<span id="L30580" class="LineNr">30580 </span> 0x11/imm32/alloc-id:fake -<span id="L30581" class="LineNr">30581 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30582" class="LineNr">30582 </span> 0/imm32/no-outputs -<span id="L30583" class="LineNr">30583 </span> 0/imm32/no-outputs -<span id="L30584" class="LineNr">30584 </span> 0x11/imm32/alloc-id:fake -<span id="L30585" class="LineNr">30585 </span> <a href='mu.subx.html#L31643'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L30586" class="LineNr">30586 </span> 0/imm32/no-rm32 -<span id="L30587" class="LineNr">30587 </span> 0/imm32/no-r32 -<span id="L30588" class="LineNr">30588 </span> 0/imm32/no-imm32 -<span id="L30589" class="LineNr">30589 </span> 0/imm32/no-imm8 -<span id="L30590" class="LineNr">30590 </span> 1/imm32/disp32-is-first-inout -<span id="L30591" class="LineNr">30591 </span> 0/imm32/no-xm32 -<span id="L30592" class="LineNr">30592 </span> 0/imm32/no-x32 -<span id="L30593" class="LineNr">30593 </span> 0x11/imm32/alloc-id:fake -<span id="L30594" class="LineNr">30594 </span> <a href='mu.subx.html#L30595'>_Primitive-break-if-addr>=-named</a>/imm32/next -<span id="L30595" class="LineNr">30595 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30596" class="LineNr">30596 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30597" class="LineNr">30597 </span> 0x11/imm32/alloc-id:fake -<span id="L30598" class="LineNr">30598 </span> <a href='mu.subx.html#L31376'>_string-break-if-addr>=</a>/imm32/name -<span id="L30599" class="LineNr">30599 </span> 0x11/imm32/alloc-id:fake -<span id="L30600" class="LineNr">30600 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30601" class="LineNr">30601 </span> 0/imm32/no-outputs -<span id="L30602" class="LineNr">30602 </span> 0/imm32/no-outputs -<span id="L30603" class="LineNr">30603 </span> 0x11/imm32/alloc-id:fake -<span id="L30604" class="LineNr">30604 </span> <a href='mu.subx.html#L31658'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L30605" class="LineNr">30605 </span> 0/imm32/no-rm32 -<span id="L30606" class="LineNr">30606 </span> 0/imm32/no-r32 -<span id="L30607" class="LineNr">30607 </span> 0/imm32/no-imm32 -<span id="L30608" class="LineNr">30608 </span> 0/imm32/no-imm8 -<span id="L30609" class="LineNr">30609 </span> 1/imm32/disp32-is-first-inout -<span id="L30610" class="LineNr">30610 </span> 0/imm32/no-xm32 -<span id="L30611" class="LineNr">30611 </span> 0/imm32/no-x32 +<span id="L30574" class="LineNr">30574 </span> <span class="SpecialChar"><a href='mu.subx.html#L33061'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L30575" class="LineNr">30575 </span> 0x11/imm32/alloc-id:fake +<span id="L30576" class="LineNr">30576 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30577" class="LineNr">30577 </span> 0x11/imm32/alloc-id:fake +<span id="L30578" class="LineNr">30578 </span> <a href='mu.subx.html#L32490'>_string_f3_0f_5f_max</a>/imm32/subx-name +<span id="L30579" class="LineNr">30579 </span> 0/imm32/no-rm32 +<span id="L30580" class="LineNr">30580 </span> 0/imm32/no-r32 +<span id="L30581" class="LineNr">30581 </span> 0/imm32/no-imm32 +<span id="L30582" class="LineNr">30582 </span> 0/imm32/no-imm8 +<span id="L30583" class="LineNr">30583 </span> 0/imm32/no-disp32 +<span id="L30584" class="LineNr">30584 </span> 1/imm32/xm32-is-first-inout +<span id="L30585" class="LineNr">30585 </span> 3/imm32/x32-is-first-output +<span id="L30586" class="LineNr">30586 </span> 0x11/imm32/alloc-id:fake +<span id="L30587" class="LineNr">30587 </span> <a href='mu.subx.html#L30589'>_Primitive-min-xreg-with-xreg</a>/imm32/next +<span id="L30588" class="LineNr">30588 </span><span class="subxH1Comment"># - floating-point minimum</span> +<span id="L30589" class="LineNr">30589 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30590" class="LineNr">30590 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30591" class="LineNr">30591 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> +<span id="L30592" class="LineNr">30592 </span> 0x11/imm32/alloc-id:fake +<span id="L30593" class="LineNr">30593 </span> <a href='mu.subx.html#L32178'>_string-min</a>/imm32/name +<span id="L30594" class="LineNr">30594 </span> 0x11/imm32/alloc-id:fake +<span id="L30595" class="LineNr">30595 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L30596" class="LineNr">30596 </span> 0x11/imm32/alloc-id:fake +<span id="L30597" class="LineNr">30597 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30598" class="LineNr">30598 </span> 0x11/imm32/alloc-id:fake +<span id="L30599" class="LineNr">30599 </span> <a href='mu.subx.html#L32485'>_string_f3_0f_5d_min</a>/imm32/subx-name +<span id="L30600" class="LineNr">30600 </span> 0/imm32/no-rm32 +<span id="L30601" class="LineNr">30601 </span> 0/imm32/no-r32 +<span id="L30602" class="LineNr">30602 </span> 0/imm32/no-imm32 +<span id="L30603" class="LineNr">30603 </span> 0/imm32/no-imm8 +<span id="L30604" class="LineNr">30604 </span> 0/imm32/no-disp32 +<span id="L30605" class="LineNr">30605 </span> 1/imm32/xm32-is-first-inout +<span id="L30606" class="LineNr">30606 </span> 3/imm32/x32-is-first-output +<span id="L30607" class="LineNr">30607 </span> 0x11/imm32/alloc-id:fake +<span id="L30608" class="LineNr">30608 </span> <a href='mu.subx.html#L30609'>_Primitive-min-xreg-with-mem</a>/imm32/next +<span id="L30609" class="LineNr">30609 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30610" class="LineNr">30610 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30611" class="LineNr">30611 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> <span id="L30612" class="LineNr">30612 </span> 0x11/imm32/alloc-id:fake -<span id="L30613" class="LineNr">30613 </span> <a href='mu.subx.html#L30614'>_Primitive-break-if-=-named</a>/imm32/next -<span id="L30614" class="LineNr">30614 </span><span class="subxMinorFunction">_Primitive-break-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30615" class="LineNr">30615 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30613" class="LineNr">30613 </span> <a href='mu.subx.html#L32178'>_string-min</a>/imm32/name +<span id="L30614" class="LineNr">30614 </span> 0x11/imm32/alloc-id:fake +<span id="L30615" class="LineNr">30615 </span> <span class="SpecialChar"><a href='mu.subx.html#L33061'>Single-float-var-in-mem</a></span>/imm32/inouts <span id="L30616" class="LineNr">30616 </span> 0x11/imm32/alloc-id:fake -<span id="L30617" class="LineNr">30617 </span> <a href='mu.subx.html#L31341'>_string-break-if-=</a>/imm32/name +<span id="L30617" class="LineNr">30617 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs <span id="L30618" class="LineNr">30618 </span> 0x11/imm32/alloc-id:fake -<span id="L30619" class="LineNr">30619 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30620" class="LineNr">30620 </span> 0/imm32/no-outputs -<span id="L30621" class="LineNr">30621 </span> 0/imm32/no-outputs -<span id="L30622" class="LineNr">30622 </span> 0x11/imm32/alloc-id:fake -<span id="L30623" class="LineNr">30623 </span> <a href='mu.subx.html#L31673'>_string_0f_84_jump_label</a>/imm32/subx-name -<span id="L30624" class="LineNr">30624 </span> 0/imm32/no-rm32 -<span id="L30625" class="LineNr">30625 </span> 0/imm32/no-r32 -<span id="L30626" class="LineNr">30626 </span> 0/imm32/no-imm32 -<span id="L30627" class="LineNr">30627 </span> 0/imm32/no-imm8 -<span id="L30628" class="LineNr">30628 </span> 1/imm32/disp32-is-first-inout -<span id="L30629" class="LineNr">30629 </span> 0/imm32/no-xm32 -<span id="L30630" class="LineNr">30630 </span> 0/imm32/no-x32 -<span id="L30631" class="LineNr">30631 </span> 0x11/imm32/alloc-id:fake -<span id="L30632" class="LineNr">30632 </span> <a href='mu.subx.html#L30633'>_Primitive-break-if-!=-named</a>/imm32/next -<span id="L30633" class="LineNr">30633 </span><span class="subxMinorFunction">_Primitive-break-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30634" class="LineNr">30634 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30619" class="LineNr">30619 </span> <a href='mu.subx.html#L32485'>_string_f3_0f_5d_min</a>/imm32/subx-name +<span id="L30620" class="LineNr">30620 </span> 0/imm32/no-rm32 +<span id="L30621" class="LineNr">30621 </span> 0/imm32/no-r32 +<span id="L30622" class="LineNr">30622 </span> 0/imm32/no-imm32 +<span id="L30623" class="LineNr">30623 </span> 0/imm32/no-imm8 +<span id="L30624" class="LineNr">30624 </span> 0/imm32/no-disp32 +<span id="L30625" class="LineNr">30625 </span> 1/imm32/xm32-is-first-inout +<span id="L30626" class="LineNr">30626 </span> 3/imm32/x32-is-first-output +<span id="L30627" class="LineNr">30627 </span> 0x11/imm32/alloc-id:fake +<span id="L30628" class="LineNr">30628 </span> <a href='mu.subx.html#L30630'>_Primitive-reciprocal-xreg-to-xreg</a>/imm32/next +<span id="L30629" class="LineNr">30629 </span><span class="subxH1Comment"># - floating-point reciprocal</span> +<span id="L30630" class="LineNr">30630 </span><span class="subxMinorFunction">_Primitive-reciprocal-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30631" class="LineNr">30631 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30632" class="LineNr">30632 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> +<span id="L30633" class="LineNr">30633 </span> 0x11/imm32/alloc-id:fake +<span id="L30634" class="LineNr">30634 </span> <a href='mu.subx.html#L32183'>_string-reciprocal</a>/imm32/name <span id="L30635" class="LineNr">30635 </span> 0x11/imm32/alloc-id:fake -<span id="L30636" class="LineNr">30636 </span> <a href='mu.subx.html#L31356'>_string-break-if-!=</a>/imm32/name +<span id="L30636" class="LineNr">30636 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/inouts <span id="L30637" class="LineNr">30637 </span> 0x11/imm32/alloc-id:fake -<span id="L30638" class="LineNr">30638 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30639" class="LineNr">30639 </span> 0/imm32/no-outputs -<span id="L30640" class="LineNr">30640 </span> 0/imm32/no-outputs -<span id="L30641" class="LineNr">30641 </span> 0x11/imm32/alloc-id:fake -<span id="L30642" class="LineNr">30642 </span> <a href='mu.subx.html#L31688'>_string_0f_85_jump_label</a>/imm32/subx-name -<span id="L30643" class="LineNr">30643 </span> 0/imm32/no-rm32 -<span id="L30644" class="LineNr">30644 </span> 0/imm32/no-r32 -<span id="L30645" class="LineNr">30645 </span> 0/imm32/no-imm32 -<span id="L30646" class="LineNr">30646 </span> 0/imm32/no-imm8 -<span id="L30647" class="LineNr">30647 </span> 1/imm32/disp32-is-first-inout -<span id="L30648" class="LineNr">30648 </span> 0/imm32/no-xm32 -<span id="L30649" class="LineNr">30649 </span> 0/imm32/no-x32 -<span id="L30650" class="LineNr">30650 </span> 0x11/imm32/alloc-id:fake -<span id="L30651" class="LineNr">30651 </span> <a href='mu.subx.html#L30652'>_Primitive-break-if-addr<=-named</a>/imm32/next -<span id="L30652" class="LineNr">30652 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30653" class="LineNr">30653 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30654" class="LineNr">30654 </span> 0x11/imm32/alloc-id:fake -<span id="L30655" class="LineNr">30655 </span> <a href='mu.subx.html#L31366'>_string-break-if-addr<=</a>/imm32/name -<span id="L30656" class="LineNr">30656 </span> 0x11/imm32/alloc-id:fake -<span id="L30657" class="LineNr">30657 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30658" class="LineNr">30658 </span> 0/imm32/no-outputs -<span id="L30659" class="LineNr">30659 </span> 0/imm32/no-outputs -<span id="L30660" class="LineNr">30660 </span> 0x11/imm32/alloc-id:fake -<span id="L30661" class="LineNr">30661 </span> <a href='mu.subx.html#L31703'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L30662" class="LineNr">30662 </span> 0/imm32/no-rm32 -<span id="L30663" class="LineNr">30663 </span> 0/imm32/no-r32 -<span id="L30664" class="LineNr">30664 </span> 0/imm32/no-imm32 -<span id="L30665" class="LineNr">30665 </span> 0/imm32/no-imm8 -<span id="L30666" class="LineNr">30666 </span> 1/imm32/disp32-is-first-inout -<span id="L30667" class="LineNr">30667 </span> 0/imm32/no-xm32 -<span id="L30668" class="LineNr">30668 </span> 0/imm32/no-x32 -<span id="L30669" class="LineNr">30669 </span> 0x11/imm32/alloc-id:fake -<span id="L30670" class="LineNr">30670 </span> <a href='mu.subx.html#L30671'>_Primitive-break-if-addr>-named</a>/imm32/next -<span id="L30671" class="LineNr">30671 </span><span class="subxMinorFunction">_Primitive-break-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30638" class="LineNr">30638 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30639" class="LineNr">30639 </span> 0x11/imm32/alloc-id:fake +<span id="L30640" class="LineNr">30640 </span> <a href='mu.subx.html#L32470'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name +<span id="L30641" class="LineNr">30641 </span> 0/imm32/no-rm32 +<span id="L30642" class="LineNr">30642 </span> 0/imm32/no-r32 +<span id="L30643" class="LineNr">30643 </span> 0/imm32/no-imm32 +<span id="L30644" class="LineNr">30644 </span> 0/imm32/no-imm8 +<span id="L30645" class="LineNr">30645 </span> 0/imm32/no-disp32 +<span id="L30646" class="LineNr">30646 </span> 1/imm32/xm32-is-first-inout +<span id="L30647" class="LineNr">30647 </span> 3/imm32/x32-is-first-output +<span id="L30648" class="LineNr">30648 </span> 0x11/imm32/alloc-id:fake +<span id="L30649" class="LineNr">30649 </span> <a href='mu.subx.html#L30650'>_Primitive-reciprocal-mem-to-xreg</a>/imm32/next +<span id="L30650" class="LineNr">30650 </span><span class="subxMinorFunction">_Primitive-reciprocal-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30651" class="LineNr">30651 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30652" class="LineNr">30652 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> +<span id="L30653" class="LineNr">30653 </span> 0x11/imm32/alloc-id:fake +<span id="L30654" class="LineNr">30654 </span> <a href='mu.subx.html#L32183'>_string-reciprocal</a>/imm32/name +<span id="L30655" class="LineNr">30655 </span> 0x11/imm32/alloc-id:fake +<span id="L30656" class="LineNr">30656 </span> <span class="SpecialChar"><a href='mu.subx.html#L33061'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L30657" class="LineNr">30657 </span> 0x11/imm32/alloc-id:fake +<span id="L30658" class="LineNr">30658 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30659" class="LineNr">30659 </span> 0x11/imm32/alloc-id:fake +<span id="L30660" class="LineNr">30660 </span> <a href='mu.subx.html#L32470'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name +<span id="L30661" class="LineNr">30661 </span> 0/imm32/no-rm32 +<span id="L30662" class="LineNr">30662 </span> 0/imm32/no-r32 +<span id="L30663" class="LineNr">30663 </span> 0/imm32/no-imm32 +<span id="L30664" class="LineNr">30664 </span> 0/imm32/no-imm8 +<span id="L30665" class="LineNr">30665 </span> 0/imm32/no-disp32 +<span id="L30666" class="LineNr">30666 </span> 1/imm32/xm32-is-first-inout +<span id="L30667" class="LineNr">30667 </span> 3/imm32/x32-is-first-output +<span id="L30668" class="LineNr">30668 </span> 0x11/imm32/alloc-id:fake +<span id="L30669" class="LineNr">30669 </span> <a href='mu.subx.html#L30671'>_Primitive-square-root-xreg-to-xreg</a>/imm32/next +<span id="L30670" class="LineNr">30670 </span><span class="subxH1Comment"># - floating-point square root</span> +<span id="L30671" class="LineNr">30671 </span><span class="subxMinorFunction">_Primitive-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> <span id="L30672" class="LineNr">30672 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30673" class="LineNr">30673 </span> 0x11/imm32/alloc-id:fake -<span id="L30674" class="LineNr">30674 </span> <a href='mu.subx.html#L31371'>_string-break-if-addr></a>/imm32/name -<span id="L30675" class="LineNr">30675 </span> 0x11/imm32/alloc-id:fake -<span id="L30676" class="LineNr">30676 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30677" class="LineNr">30677 </span> 0/imm32/no-outputs -<span id="L30678" class="LineNr">30678 </span> 0/imm32/no-outputs -<span id="L30679" class="LineNr">30679 </span> 0x11/imm32/alloc-id:fake -<span id="L30680" class="LineNr">30680 </span> <a href='mu.subx.html#L31718'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L30681" class="LineNr">30681 </span> 0/imm32/no-rm32 -<span id="L30682" class="LineNr">30682 </span> 0/imm32/no-r32 -<span id="L30683" class="LineNr">30683 </span> 0/imm32/no-imm32 -<span id="L30684" class="LineNr">30684 </span> 0/imm32/no-imm8 -<span id="L30685" class="LineNr">30685 </span> 1/imm32/disp32-is-first-inout -<span id="L30686" class="LineNr">30686 </span> 0/imm32/no-xm32 -<span id="L30687" class="LineNr">30687 </span> 0/imm32/no-x32 -<span id="L30688" class="LineNr">30688 </span> 0x11/imm32/alloc-id:fake -<span id="L30689" class="LineNr">30689 </span> <a href='mu.subx.html#L30690'>_Primitive-break-if-<-named</a>/imm32/next -<span id="L30690" class="LineNr">30690 </span><span class="subxMinorFunction">_Primitive-break-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30691" class="LineNr">30691 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30692" class="LineNr">30692 </span> 0x11/imm32/alloc-id:fake -<span id="L30693" class="LineNr">30693 </span> <a href='mu.subx.html#L31331'>_string-break-if-<</a>/imm32/name +<span id="L30673" class="LineNr">30673 </span> <span class="subxComment"># var1/xreg <- square-root var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> +<span id="L30674" class="LineNr">30674 </span> 0x11/imm32/alloc-id:fake +<span id="L30675" class="LineNr">30675 </span> <a href='mu.subx.html#L32188'>_string-square-root</a>/imm32/name +<span id="L30676" class="LineNr">30676 </span> 0x11/imm32/alloc-id:fake +<span id="L30677" class="LineNr">30677 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L30678" class="LineNr">30678 </span> 0x11/imm32/alloc-id:fake +<span id="L30679" class="LineNr">30679 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30680" class="LineNr">30680 </span> 0x11/imm32/alloc-id:fake +<span id="L30681" class="LineNr">30681 </span> <a href='mu.subx.html#L32475'>_string_f3_0f_51_square_root</a>/imm32/subx-name +<span id="L30682" class="LineNr">30682 </span> 0/imm32/no-rm32 +<span id="L30683" class="LineNr">30683 </span> 0/imm32/no-r32 +<span id="L30684" class="LineNr">30684 </span> 0/imm32/no-imm32 +<span id="L30685" class="LineNr">30685 </span> 0/imm32/no-imm8 +<span id="L30686" class="LineNr">30686 </span> 0/imm32/no-disp32 +<span id="L30687" class="LineNr">30687 </span> 1/imm32/xm32-is-first-inout +<span id="L30688" class="LineNr">30688 </span> 3/imm32/x32-is-first-output +<span id="L30689" class="LineNr">30689 </span> 0x11/imm32/alloc-id:fake +<span id="L30690" class="LineNr">30690 </span> <a href='mu.subx.html#L30691'>_Primitive-square-root-mem-to-xreg</a>/imm32/next +<span id="L30691" class="LineNr">30691 </span><span class="subxMinorFunction">_Primitive-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30692" class="LineNr">30692 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30693" class="LineNr">30693 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> <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#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30696" class="LineNr">30696 </span> 0/imm32/no-outputs -<span id="L30697" class="LineNr">30697 </span> 0/imm32/no-outputs +<span id="L30695" class="LineNr">30695 </span> <a href='mu.subx.html#L32188'>_string-square-root</a>/imm32/name +<span id="L30696" class="LineNr">30696 </span> 0x11/imm32/alloc-id:fake +<span id="L30697" class="LineNr">30697 </span> <span class="SpecialChar"><a href='mu.subx.html#L33061'>Single-float-var-in-mem</a></span>/imm32/inouts <span id="L30698" class="LineNr">30698 </span> 0x11/imm32/alloc-id:fake -<span id="L30699" class="LineNr">30699 </span> <a href='mu.subx.html#L31733'>_string_0f_8c_jump_label</a>/imm32/subx-name -<span id="L30700" class="LineNr">30700 </span> 0/imm32/no-rm32 -<span id="L30701" class="LineNr">30701 </span> 0/imm32/no-r32 -<span id="L30702" class="LineNr">30702 </span> 0/imm32/no-imm32 -<span id="L30703" class="LineNr">30703 </span> 0/imm32/no-imm8 -<span id="L30704" class="LineNr">30704 </span> 1/imm32/disp32-is-first-inout -<span id="L30705" class="LineNr">30705 </span> 0/imm32/no-xm32 -<span id="L30706" class="LineNr">30706 </span> 0/imm32/no-x32 -<span id="L30707" class="LineNr">30707 </span> 0x11/imm32/alloc-id:fake -<span id="L30708" class="LineNr">30708 </span> <a href='mu.subx.html#L30709'>_Primitive-break-if->=-named</a>/imm32/next -<span id="L30709" class="LineNr">30709 </span><span class="subxMinorFunction">_Primitive-break-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30710" class="LineNr">30710 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30711" class="LineNr">30711 </span> 0x11/imm32/alloc-id:fake -<span id="L30712" class="LineNr">30712 </span> <a href='mu.subx.html#L31351'>_string-break-if->=</a>/imm32/name -<span id="L30713" class="LineNr">30713 </span> 0x11/imm32/alloc-id:fake -<span id="L30714" class="LineNr">30714 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30715" class="LineNr">30715 </span> 0/imm32/no-outputs -<span id="L30716" class="LineNr">30716 </span> 0/imm32/no-outputs +<span id="L30699" class="LineNr">30699 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30700" class="LineNr">30700 </span> 0x11/imm32/alloc-id:fake +<span id="L30701" class="LineNr">30701 </span> <a href='mu.subx.html#L32475'>_string_f3_0f_51_square_root</a>/imm32/subx-name +<span id="L30702" class="LineNr">30702 </span> 0/imm32/no-rm32 +<span id="L30703" class="LineNr">30703 </span> 0/imm32/no-r32 +<span id="L30704" class="LineNr">30704 </span> 0/imm32/no-imm32 +<span id="L30705" class="LineNr">30705 </span> 0/imm32/no-imm8 +<span id="L30706" class="LineNr">30706 </span> 0/imm32/no-disp32 +<span id="L30707" class="LineNr">30707 </span> 1/imm32/xm32-is-first-inout +<span id="L30708" class="LineNr">30708 </span> 3/imm32/x32-is-first-output +<span id="L30709" class="LineNr">30709 </span> 0x11/imm32/alloc-id:fake +<span id="L30710" class="LineNr">30710 </span> <a href='mu.subx.html#L30712'>_Primitive-inverse-square-root-xreg-to-xreg</a>/imm32/next +<span id="L30711" class="LineNr">30711 </span><span class="subxH1Comment"># - floating-point inverse square root 1/sqrt(x)</span> +<span id="L30712" class="LineNr">30712 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30713" class="LineNr">30713 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30714" class="LineNr">30714 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> +<span id="L30715" class="LineNr">30715 </span> 0x11/imm32/alloc-id:fake +<span id="L30716" class="LineNr">30716 </span> <a href='mu.subx.html#L32193'>_string-inverse-square-root</a>/imm32/name <span id="L30717" class="LineNr">30717 </span> 0x11/imm32/alloc-id:fake -<span id="L30718" class="LineNr">30718 </span> <a href='mu.subx.html#L31748'>_string_0f_8d_jump_label</a>/imm32/subx-name -<span id="L30719" class="LineNr">30719 </span> 0/imm32/no-rm32 -<span id="L30720" class="LineNr">30720 </span> 0/imm32/no-r32 -<span id="L30721" class="LineNr">30721 </span> 0/imm32/no-imm32 -<span id="L30722" class="LineNr">30722 </span> 0/imm32/no-imm8 -<span id="L30723" class="LineNr">30723 </span> 1/imm32/disp32-is-first-inout -<span id="L30724" class="LineNr">30724 </span> 0/imm32/no-xm32 -<span id="L30725" class="LineNr">30725 </span> 0/imm32/no-x32 -<span id="L30726" class="LineNr">30726 </span> 0x11/imm32/alloc-id:fake -<span id="L30727" class="LineNr">30727 </span> <a href='mu.subx.html#L30728'>_Primitive-break-if-<=-named</a>/imm32/next -<span id="L30728" class="LineNr">30728 </span><span class="subxMinorFunction">_Primitive-break-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30729" class="LineNr">30729 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30718" class="LineNr">30718 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L30719" class="LineNr">30719 </span> 0x11/imm32/alloc-id:fake +<span id="L30720" class="LineNr">30720 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30721" class="LineNr">30721 </span> 0x11/imm32/alloc-id:fake +<span id="L30722" class="LineNr">30722 </span> <a href='mu.subx.html#L32480'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name +<span id="L30723" class="LineNr">30723 </span> 0/imm32/no-rm32 +<span id="L30724" class="LineNr">30724 </span> 0/imm32/no-r32 +<span id="L30725" class="LineNr">30725 </span> 0/imm32/no-imm32 +<span id="L30726" class="LineNr">30726 </span> 0/imm32/no-imm8 +<span id="L30727" class="LineNr">30727 </span> 0/imm32/no-disp32 +<span id="L30728" class="LineNr">30728 </span> 1/imm32/xm32-is-first-inout +<span id="L30729" class="LineNr">30729 </span> 3/imm32/x32-is-first-output <span id="L30730" class="LineNr">30730 </span> 0x11/imm32/alloc-id:fake -<span id="L30731" class="LineNr">30731 </span> <a href='mu.subx.html#L31336'>_string-break-if-<=</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#L32406'>Single-lit-var</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#L31763'>_string_0f_8e_jump_label</a>/imm32/subx-name -<span id="L30738" class="LineNr">30738 </span> 0/imm32/no-rm32 -<span id="L30739" class="LineNr">30739 </span> 0/imm32/no-r32 -<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> 1/imm32/disp32-is-first-inout -<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-break-if->-named</a>/imm32/next -<span id="L30747" class="LineNr">30747 </span><span class="subxMinorFunction">_Primitive-break-if->-named</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> 0x11/imm32/alloc-id:fake -<span id="L30750" class="LineNr">30750 </span> <a href='mu.subx.html#L31346'>_string-break-if-></a>/imm32/name -<span id="L30751" class="LineNr">30751 </span> 0x11/imm32/alloc-id:fake -<span id="L30752" class="LineNr">30752 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30753" class="LineNr">30753 </span> 0/imm32/no-outputs -<span id="L30754" class="LineNr">30754 </span> 0/imm32/no-outputs -<span id="L30755" class="LineNr">30755 </span> 0x11/imm32/alloc-id:fake -<span id="L30756" class="LineNr">30756 </span> <a href='mu.subx.html#L31778'>_string_0f_8f_jump_label</a>/imm32/subx-name -<span id="L30757" class="LineNr">30757 </span> 0/imm32/no-rm32 -<span id="L30758" class="LineNr">30758 </span> 0/imm32/no-r32 -<span id="L30759" class="LineNr">30759 </span> 0/imm32/no-imm32 -<span id="L30760" class="LineNr">30760 </span> 0/imm32/no-imm8 -<span id="L30761" class="LineNr">30761 </span> 1/imm32/disp32-is-first-inout -<span id="L30762" class="LineNr">30762 </span> 0/imm32/no-xm32 -<span id="L30763" class="LineNr">30763 </span> 0/imm32/no-x32 -<span id="L30764" class="LineNr">30764 </span> 0x11/imm32/alloc-id:fake -<span id="L30765" class="LineNr">30765 </span> <a href='mu.subx.html#L30766'>_Primitive-break-named</a>/imm32/next -<span id="L30766" class="LineNr">30766 </span><span class="subxMinorFunction">_Primitive-break-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30767" class="LineNr">30767 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30768" class="LineNr">30768 </span> 0x11/imm32/alloc-id:fake -<span id="L30769" class="LineNr">30769 </span> <a href='mu.subx.html#L31326'>_string-break</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#L32406'>Single-lit-var</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#L32083'>_string_e9_jump_label</a>/imm32/subx-name -<span id="L30776" class="LineNr">30776 </span> 0/imm32/no-rm32 -<span id="L30777" class="LineNr">30777 </span> 0/imm32/no-r32 -<span id="L30778" class="LineNr">30778 </span> 0/imm32/no-imm32 -<span id="L30779" class="LineNr">30779 </span> 0/imm32/no-imm8 -<span id="L30780" class="LineNr">30780 </span> 1/imm32/disp32-is-first-inout -<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#L30785'>_Primitive-loop-if-addr<-named</a>/imm32/next -<span id="L30785" class="LineNr">30785 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30786" class="LineNr">30786 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30787" class="LineNr">30787 </span> 0x11/imm32/alloc-id:fake -<span id="L30788" class="LineNr">30788 </span> <a href='mu.subx.html#L31471'>_string-loop-if-addr<</a>/imm32/name -<span id="L30789" class="LineNr">30789 </span> 0x11/imm32/alloc-id:fake -<span id="L30790" class="LineNr">30790 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30791" class="LineNr">30791 </span> 0/imm32/no-outputs -<span id="L30792" class="LineNr">30792 </span> 0/imm32/no-outputs -<span id="L30793" class="LineNr">30793 </span> 0x11/imm32/alloc-id:fake -<span id="L30794" class="LineNr">30794 </span> <a href='mu.subx.html#L31643'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L30795" class="LineNr">30795 </span> 0/imm32/no-rm32 -<span id="L30796" class="LineNr">30796 </span> 0/imm32/no-r32 -<span id="L30797" class="LineNr">30797 </span> 0/imm32/no-imm32 -<span id="L30798" class="LineNr">30798 </span> 0/imm32/no-imm8 -<span id="L30799" class="LineNr">30799 </span> 1/imm32/disp32-is-first-inout -<span id="L30800" class="LineNr">30800 </span> 0/imm32/no-xm32 -<span id="L30801" class="LineNr">30801 </span> 0/imm32/no-x32 +<span id="L30731" class="LineNr">30731 </span> <a href='mu.subx.html#L30732'>_Primitive-inverse-square-root-mem-to-xreg</a>/imm32/next +<span id="L30732" class="LineNr">30732 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30733" class="LineNr">30733 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30734" class="LineNr">30734 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> +<span id="L30735" class="LineNr">30735 </span> 0x11/imm32/alloc-id:fake +<span id="L30736" class="LineNr">30736 </span> <a href='mu.subx.html#L32193'>_string-inverse-square-root</a>/imm32/name +<span id="L30737" class="LineNr">30737 </span> 0x11/imm32/alloc-id:fake +<span id="L30738" class="LineNr">30738 </span> <span class="SpecialChar"><a href='mu.subx.html#L33061'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L30739" class="LineNr">30739 </span> 0x11/imm32/alloc-id:fake +<span id="L30740" class="LineNr">30740 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L30741" class="LineNr">30741 </span> 0x11/imm32/alloc-id:fake +<span id="L30742" class="LineNr">30742 </span> <a href='mu.subx.html#L32480'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name +<span id="L30743" class="LineNr">30743 </span> 0/imm32/no-rm32 +<span id="L30744" class="LineNr">30744 </span> 0/imm32/no-r32 +<span id="L30745" class="LineNr">30745 </span> 0/imm32/no-imm32 +<span id="L30746" class="LineNr">30746 </span> 0/imm32/no-imm8 +<span id="L30747" class="LineNr">30747 </span> 0/imm32/no-disp32 +<span id="L30748" class="LineNr">30748 </span> 1/imm32/xm32-is-first-inout +<span id="L30749" class="LineNr">30749 </span> 3/imm32/x32-is-first-output +<span id="L30750" class="LineNr">30750 </span> 0x11/imm32/alloc-id:fake +<span id="L30751" class="LineNr">30751 </span> <a href='mu.subx.html#L30753'>_Primitive-compare-xreg-with-xreg</a>/imm32/next +<span id="L30752" class="LineNr">30752 </span><span class="subxH1Comment"># - floating-point compare</span> +<span id="L30753" class="LineNr">30753 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30754" class="LineNr">30754 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30755" class="LineNr">30755 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 0f 2f/compare var2/x32 var1/xm32</span> +<span id="L30756" class="LineNr">30756 </span> 0x11/imm32/alloc-id:fake +<span id="L30757" class="LineNr">30757 </span> <a href='mu.subx.html#L32038'>_string-compare</a>/imm32/name +<span id="L30758" class="LineNr">30758 </span> 0x11/imm32/alloc-id:fake +<span id="L30759" class="LineNr">30759 </span> <span class="SpecialChar"><a href='mu.subx.html#L32854'>Two-float-args-in-regs</a></span>/imm32/inouts +<span id="L30760" class="LineNr">30760 </span> 0/imm32/no-outputs +<span id="L30761" class="LineNr">30761 </span> 0/imm32/no-outputs +<span id="L30762" class="LineNr">30762 </span> 0x11/imm32/alloc-id:fake +<span id="L30763" class="LineNr">30763 </span> <a href='mu.subx.html#L32505'>_string_0f_2f_compare</a>/imm32/subx-name +<span id="L30764" class="LineNr">30764 </span> 0/imm32/no-rm32 +<span id="L30765" class="LineNr">30765 </span> 0/imm32/no-r32 +<span id="L30766" class="LineNr">30766 </span> 0/imm32/no-imm32 +<span id="L30767" class="LineNr">30767 </span> 0/imm32/no-imm8 +<span id="L30768" class="LineNr">30768 </span> 0/imm32/no-disp32 +<span id="L30769" class="LineNr">30769 </span> 1/imm32/xm32-is-first-inout +<span id="L30770" class="LineNr">30770 </span> 2/imm32/x32-is-second-inout +<span id="L30771" class="LineNr">30771 </span> 0x11/imm32/alloc-id:fake +<span id="L30772" class="LineNr">30772 </span> <a href='mu.subx.html#L30773'>_Primitive-compare-xreg-with-mem</a>/imm32/next +<span id="L30773" class="LineNr">30773 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30774" class="LineNr">30774 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30775" class="LineNr">30775 </span> <span class="subxComment"># compare var1/xreg var2 => 0f 2f/compare var1/x32 var2/xm32</span> +<span id="L30776" class="LineNr">30776 </span> 0x11/imm32/alloc-id:fake +<span id="L30777" class="LineNr">30777 </span> <a href='mu.subx.html#L32038'>_string-compare</a>/imm32/name +<span id="L30778" class="LineNr">30778 </span> 0x11/imm32/alloc-id:fake +<span id="L30779" class="LineNr">30779 </span> <span class="SpecialChar"><a href='mu.subx.html#L32861'>Two-args-float-reg-float-stack</a></span>/imm32/inouts +<span id="L30780" class="LineNr">30780 </span> 0/imm32/no-outputs +<span id="L30781" class="LineNr">30781 </span> 0/imm32/no-outputs +<span id="L30782" class="LineNr">30782 </span> 0x11/imm32/alloc-id:fake +<span id="L30783" class="LineNr">30783 </span> <a href='mu.subx.html#L32505'>_string_0f_2f_compare</a>/imm32/subx-name +<span id="L30784" class="LineNr">30784 </span> 0/imm32/no-rm32 +<span id="L30785" class="LineNr">30785 </span> 0/imm32/no-r32 +<span id="L30786" class="LineNr">30786 </span> 0/imm32/no-imm32 +<span id="L30787" class="LineNr">30787 </span> 0/imm32/no-imm8 +<span id="L30788" class="LineNr">30788 </span> 0/imm32/no-disp32 +<span id="L30789" class="LineNr">30789 </span> 2/imm32/xm32-is-second-inout +<span id="L30790" class="LineNr">30790 </span> 1/imm32/x32-is-first-inout +<span id="L30791" class="LineNr">30791 </span> 0x11/imm32/alloc-id:fake +<span id="L30792" class="LineNr">30792 </span> <a href='mu.subx.html#L30794'>_Primitive-break-if-addr<</a>/imm32/next +<span id="L30793" class="LineNr">30793 </span><span class="subxH1Comment"># - branches</span> +<span id="L30794" class="LineNr">30794 </span><span class="subxMinorFunction">_Primitive-break-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30795" class="LineNr">30795 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30796" class="LineNr">30796 </span> 0x11/imm32/alloc-id:fake +<span id="L30797" class="LineNr">30797 </span> <a href='mu.subx.html#L31998'>_string-break-if-addr<</a>/imm32/name +<span id="L30798" class="LineNr">30798 </span> 0/imm32/no-inouts +<span id="L30799" class="LineNr">30799 </span> 0/imm32/no-inouts +<span id="L30800" class="LineNr">30800 </span> 0/imm32/no-outputs +<span id="L30801" class="LineNr">30801 </span> 0/imm32/no-outputs <span id="L30802" class="LineNr">30802 </span> 0x11/imm32/alloc-id:fake -<span id="L30803" class="LineNr">30803 </span> <a href='mu.subx.html#L30804'>_Primitive-loop-if-addr>=-named</a>/imm32/next -<span id="L30804" class="LineNr">30804 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30805" class="LineNr">30805 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30806" class="LineNr">30806 </span> 0x11/imm32/alloc-id:fake -<span id="L30807" class="LineNr">30807 </span> <a href='mu.subx.html#L31486'>_string-loop-if-addr>=</a>/imm32/name -<span id="L30808" class="LineNr">30808 </span> 0x11/imm32/alloc-id:fake -<span id="L30809" class="LineNr">30809 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30810" class="LineNr">30810 </span> 0/imm32/no-outputs -<span id="L30811" class="LineNr">30811 </span> 0/imm32/no-outputs -<span id="L30812" class="LineNr">30812 </span> 0x11/imm32/alloc-id:fake -<span id="L30813" class="LineNr">30813 </span> <a href='mu.subx.html#L31658'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L30814" class="LineNr">30814 </span> 0/imm32/no-rm32 -<span id="L30815" class="LineNr">30815 </span> 0/imm32/no-r32 -<span id="L30816" class="LineNr">30816 </span> 0/imm32/no-imm32 -<span id="L30817" class="LineNr">30817 </span> 0/imm32/no-imm8 -<span id="L30818" class="LineNr">30818 </span> 1/imm32/disp32-is-first-inout -<span id="L30819" class="LineNr">30819 </span> 0/imm32/no-xm32 -<span id="L30820" class="LineNr">30820 </span> 0/imm32/no-x32 +<span id="L30803" class="LineNr">30803 </span> <a href='mu.subx.html#L32285'>_string_0f_82_jump_break</a>/imm32/subx-name +<span id="L30804" class="LineNr">30804 </span> 0/imm32/no-rm32 +<span id="L30805" class="LineNr">30805 </span> 0/imm32/no-r32 +<span id="L30806" class="LineNr">30806 </span> 0/imm32/no-imm32 +<span id="L30807" class="LineNr">30807 </span> 0/imm32/no-imm8 +<span id="L30808" class="LineNr">30808 </span> 0/imm32/no-disp32 +<span id="L30809" class="LineNr">30809 </span> 0/imm32/no-xm32 +<span id="L30810" class="LineNr">30810 </span> 0/imm32/no-x32 +<span id="L30811" class="LineNr">30811 </span> 0x11/imm32/alloc-id:fake +<span id="L30812" class="LineNr">30812 </span> <a href='mu.subx.html#L30813'>_Primitive-break-if-addr>=</a>/imm32/next +<span id="L30813" class="LineNr">30813 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30814" class="LineNr">30814 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30815" class="LineNr">30815 </span> 0x11/imm32/alloc-id:fake +<span id="L30816" class="LineNr">30816 </span> <a href='mu.subx.html#L32013'>_string-break-if-addr>=</a>/imm32/name +<span id="L30817" class="LineNr">30817 </span> 0/imm32/no-inouts +<span id="L30818" class="LineNr">30818 </span> 0/imm32/no-inouts +<span id="L30819" class="LineNr">30819 </span> 0/imm32/no-outputs +<span id="L30820" class="LineNr">30820 </span> 0/imm32/no-outputs <span id="L30821" class="LineNr">30821 </span> 0x11/imm32/alloc-id:fake -<span id="L30822" class="LineNr">30822 </span> <a href='mu.subx.html#L30823'>_Primitive-loop-if-=-named</a>/imm32/next -<span id="L30823" class="LineNr">30823 </span><span class="subxMinorFunction">_Primitive-loop-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30824" class="LineNr">30824 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30825" class="LineNr">30825 </span> 0x11/imm32/alloc-id:fake -<span id="L30826" class="LineNr">30826 </span> <a href='mu.subx.html#L31451'>_string-loop-if-=</a>/imm32/name -<span id="L30827" class="LineNr">30827 </span> 0x11/imm32/alloc-id:fake -<span id="L30828" class="LineNr">30828 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30829" class="LineNr">30829 </span> 0/imm32/no-outputs -<span id="L30830" class="LineNr">30830 </span> 0/imm32/no-outputs -<span id="L30831" class="LineNr">30831 </span> 0x11/imm32/alloc-id:fake -<span id="L30832" class="LineNr">30832 </span> <a href='mu.subx.html#L31673'>_string_0f_84_jump_label</a>/imm32/subx-name -<span id="L30833" class="LineNr">30833 </span> 0/imm32/no-rm32 -<span id="L30834" class="LineNr">30834 </span> 0/imm32/no-r32 -<span id="L30835" class="LineNr">30835 </span> 0/imm32/no-imm32 -<span id="L30836" class="LineNr">30836 </span> 0/imm32/no-imm8 -<span id="L30837" class="LineNr">30837 </span> 1/imm32/disp32-is-first-inout -<span id="L30838" class="LineNr">30838 </span> 0/imm32/no-xm32 -<span id="L30839" class="LineNr">30839 </span> 0/imm32/no-x32 +<span id="L30822" class="LineNr">30822 </span> <a href='mu.subx.html#L32300'>_string_0f_83_jump_break</a>/imm32/subx-name +<span id="L30823" class="LineNr">30823 </span> 0/imm32/no-rm32 +<span id="L30824" class="LineNr">30824 </span> 0/imm32/no-r32 +<span id="L30825" class="LineNr">30825 </span> 0/imm32/no-imm32 +<span id="L30826" class="LineNr">30826 </span> 0/imm32/no-imm8 +<span id="L30827" class="LineNr">30827 </span> 0/imm32/no-disp32 +<span id="L30828" class="LineNr">30828 </span> 0/imm32/no-xm32 +<span id="L30829" class="LineNr">30829 </span> 0/imm32/no-x32 +<span id="L30830" class="LineNr">30830 </span> 0x11/imm32/alloc-id:fake +<span id="L30831" class="LineNr">30831 </span> <a href='mu.subx.html#L30832'>_Primitive-break-if-=</a>/imm32/next +<span id="L30832" class="LineNr">30832 </span><span class="subxMinorFunction">_Primitive-break-if-=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30833" class="LineNr">30833 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30834" class="LineNr">30834 </span> 0x11/imm32/alloc-id:fake +<span id="L30835" class="LineNr">30835 </span> <a href='mu.subx.html#L31978'>_string-break-if-=</a>/imm32/name +<span id="L30836" class="LineNr">30836 </span> 0/imm32/no-inouts +<span id="L30837" class="LineNr">30837 </span> 0/imm32/no-inouts +<span id="L30838" class="LineNr">30838 </span> 0/imm32/no-outputs +<span id="L30839" class="LineNr">30839 </span> 0/imm32/no-outputs <span id="L30840" class="LineNr">30840 </span> 0x11/imm32/alloc-id:fake -<span id="L30841" class="LineNr">30841 </span> <a href='mu.subx.html#L30842'>_Primitive-loop-if-!=-named</a>/imm32/next -<span id="L30842" class="LineNr">30842 </span><span class="subxMinorFunction">_Primitive-loop-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30843" class="LineNr">30843 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30844" class="LineNr">30844 </span> 0x11/imm32/alloc-id:fake -<span id="L30845" class="LineNr">30845 </span> <a href='mu.subx.html#L31466'>_string-loop-if-!=</a>/imm32/name -<span id="L30846" class="LineNr">30846 </span> 0x11/imm32/alloc-id:fake -<span id="L30847" class="LineNr">30847 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30848" class="LineNr">30848 </span> 0/imm32/no-outputs -<span id="L30849" class="LineNr">30849 </span> 0/imm32/no-outputs -<span id="L30850" class="LineNr">30850 </span> 0x11/imm32/alloc-id:fake -<span id="L30851" class="LineNr">30851 </span> <a href='mu.subx.html#L31688'>_string_0f_85_jump_label</a>/imm32/subx-name -<span id="L30852" class="LineNr">30852 </span> 0/imm32/no-rm32 -<span id="L30853" class="LineNr">30853 </span> 0/imm32/no-r32 -<span id="L30854" class="LineNr">30854 </span> 0/imm32/no-imm32 -<span id="L30855" class="LineNr">30855 </span> 0/imm32/no-imm8 -<span id="L30856" class="LineNr">30856 </span> 1/imm32/disp32-is-first-inout -<span id="L30857" class="LineNr">30857 </span> 0/imm32/no-xm32 -<span id="L30858" class="LineNr">30858 </span> 0/imm32/no-x32 +<span id="L30841" class="LineNr">30841 </span> <a href='mu.subx.html#L32315'>_string_0f_84_jump_break</a>/imm32/subx-name +<span id="L30842" class="LineNr">30842 </span> 0/imm32/no-rm32 +<span id="L30843" class="LineNr">30843 </span> 0/imm32/no-r32 +<span id="L30844" class="LineNr">30844 </span> 0/imm32/no-imm32 +<span id="L30845" class="LineNr">30845 </span> 0/imm32/no-imm8 +<span id="L30846" class="LineNr">30846 </span> 0/imm32/no-disp32 +<span id="L30847" class="LineNr">30847 </span> 0/imm32/no-xm32 +<span id="L30848" class="LineNr">30848 </span> 0/imm32/no-x32 +<span id="L30849" class="LineNr">30849 </span> 0x11/imm32/alloc-id:fake +<span id="L30850" class="LineNr">30850 </span> <a href='mu.subx.html#L30851'>_Primitive-break-if-!=</a>/imm32/next +<span id="L30851" class="LineNr">30851 </span><span class="subxMinorFunction">_Primitive-break-if-!=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30852" class="LineNr">30852 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30853" class="LineNr">30853 </span> 0x11/imm32/alloc-id:fake +<span id="L30854" class="LineNr">30854 </span> <a href='mu.subx.html#L31993'>_string-break-if-!=</a>/imm32/name +<span id="L30855" class="LineNr">30855 </span> 0/imm32/no-inouts +<span id="L30856" class="LineNr">30856 </span> 0/imm32/no-inouts +<span id="L30857" class="LineNr">30857 </span> 0/imm32/no-outputs +<span id="L30858" class="LineNr">30858 </span> 0/imm32/no-outputs <span id="L30859" class="LineNr">30859 </span> 0x11/imm32/alloc-id:fake -<span id="L30860" class="LineNr">30860 </span> <a href='mu.subx.html#L30861'>_Primitive-loop-if-addr<=-named</a>/imm32/next -<span id="L30861" class="LineNr">30861 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30862" class="LineNr">30862 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30863" class="LineNr">30863 </span> 0x11/imm32/alloc-id:fake -<span id="L30864" class="LineNr">30864 </span> <a href='mu.subx.html#L31476'>_string-loop-if-addr<=</a>/imm32/name -<span id="L30865" class="LineNr">30865 </span> 0x11/imm32/alloc-id:fake -<span id="L30866" class="LineNr">30866 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30867" class="LineNr">30867 </span> 0/imm32/no-outputs -<span id="L30868" class="LineNr">30868 </span> 0/imm32/no-outputs -<span id="L30869" class="LineNr">30869 </span> 0x11/imm32/alloc-id:fake -<span id="L30870" class="LineNr">30870 </span> <a href='mu.subx.html#L31703'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L30871" class="LineNr">30871 </span> 0/imm32/no-rm32 -<span id="L30872" class="LineNr">30872 </span> 0/imm32/no-r32 -<span id="L30873" class="LineNr">30873 </span> 0/imm32/no-imm32 -<span id="L30874" class="LineNr">30874 </span> 0/imm32/no-imm8 -<span id="L30875" class="LineNr">30875 </span> 1/imm32/disp32-is-first-inout -<span id="L30876" class="LineNr">30876 </span> 0/imm32/no-xm32 -<span id="L30877" class="LineNr">30877 </span> 0/imm32/no-x32 +<span id="L30860" class="LineNr">30860 </span> <a href='mu.subx.html#L32330'>_string_0f_85_jump_break</a>/imm32/subx-name +<span id="L30861" class="LineNr">30861 </span> 0/imm32/no-rm32 +<span id="L30862" class="LineNr">30862 </span> 0/imm32/no-r32 +<span id="L30863" class="LineNr">30863 </span> 0/imm32/no-imm32 +<span id="L30864" class="LineNr">30864 </span> 0/imm32/no-imm8 +<span id="L30865" class="LineNr">30865 </span> 0/imm32/no-disp32 +<span id="L30866" class="LineNr">30866 </span> 0/imm32/no-xm32 +<span id="L30867" class="LineNr">30867 </span> 0/imm32/no-x32 +<span id="L30868" class="LineNr">30868 </span> 0x11/imm32/alloc-id:fake +<span id="L30869" class="LineNr">30869 </span> <a href='mu.subx.html#L30870'>_Primitive-break-if-addr<=</a>/imm32/next +<span id="L30870" class="LineNr">30870 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30871" class="LineNr">30871 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30872" class="LineNr">30872 </span> 0x11/imm32/alloc-id:fake +<span id="L30873" class="LineNr">30873 </span> <a href='mu.subx.html#L32003'>_string-break-if-addr<=</a>/imm32/name +<span id="L30874" class="LineNr">30874 </span> 0/imm32/no-inouts +<span id="L30875" class="LineNr">30875 </span> 0/imm32/no-inouts +<span id="L30876" class="LineNr">30876 </span> 0/imm32/no-outputs +<span id="L30877" class="LineNr">30877 </span> 0/imm32/no-outputs <span id="L30878" class="LineNr">30878 </span> 0x11/imm32/alloc-id:fake -<span id="L30879" class="LineNr">30879 </span> <a href='mu.subx.html#L30880'>_Primitive-loop-if-addr>-named</a>/imm32/next -<span id="L30880" class="LineNr">30880 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30881" class="LineNr">30881 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30882" class="LineNr">30882 </span> 0x11/imm32/alloc-id:fake -<span id="L30883" class="LineNr">30883 </span> <a href='mu.subx.html#L31481'>_string-loop-if-addr></a>/imm32/name -<span id="L30884" class="LineNr">30884 </span> 0x11/imm32/alloc-id:fake -<span id="L30885" class="LineNr">30885 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30886" class="LineNr">30886 </span> 0/imm32/no-outputs -<span id="L30887" class="LineNr">30887 </span> 0/imm32/no-outputs -<span id="L30888" class="LineNr">30888 </span> 0x11/imm32/alloc-id:fake -<span id="L30889" class="LineNr">30889 </span> <a href='mu.subx.html#L31718'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L30890" class="LineNr">30890 </span> 0/imm32/no-rm32 -<span id="L30891" class="LineNr">30891 </span> 0/imm32/no-r32 -<span id="L30892" class="LineNr">30892 </span> 0/imm32/no-imm32 -<span id="L30893" class="LineNr">30893 </span> 0/imm32/no-imm8 -<span id="L30894" class="LineNr">30894 </span> 1/imm32/disp32-is-first-inout -<span id="L30895" class="LineNr">30895 </span> 0/imm32/no-xm32 -<span id="L30896" class="LineNr">30896 </span> 0/imm32/no-x32 +<span id="L30879" class="LineNr">30879 </span> <a href='mu.subx.html#L32345'>_string_0f_86_jump_break</a>/imm32/subx-name +<span id="L30880" class="LineNr">30880 </span> 0/imm32/no-rm32 +<span id="L30881" class="LineNr">30881 </span> 0/imm32/no-r32 +<span id="L30882" class="LineNr">30882 </span> 0/imm32/no-imm32 +<span id="L30883" class="LineNr">30883 </span> 0/imm32/no-imm8 +<span id="L30884" class="LineNr">30884 </span> 0/imm32/no-disp32 +<span id="L30885" class="LineNr">30885 </span> 0/imm32/no-xm32 +<span id="L30886" class="LineNr">30886 </span> 0/imm32/no-x32 +<span id="L30887" class="LineNr">30887 </span> 0x11/imm32/alloc-id:fake +<span id="L30888" class="LineNr">30888 </span> <a href='mu.subx.html#L30889'>_Primitive-break-if-addr></a>/imm32/next +<span id="L30889" class="LineNr">30889 </span><span class="subxMinorFunction">_Primitive-break-if-addr></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30890" class="LineNr">30890 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30891" class="LineNr">30891 </span> 0x11/imm32/alloc-id:fake +<span id="L30892" class="LineNr">30892 </span> <a href='mu.subx.html#L32008'>_string-break-if-addr></a>/imm32/name +<span id="L30893" class="LineNr">30893 </span> 0/imm32/no-inouts +<span id="L30894" class="LineNr">30894 </span> 0/imm32/no-inouts +<span id="L30895" class="LineNr">30895 </span> 0/imm32/no-outputs +<span id="L30896" class="LineNr">30896 </span> 0/imm32/no-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#L30899'>_Primitive-loop-if-<-named</a>/imm32/next -<span id="L30899" class="LineNr">30899 </span><span class="subxMinorFunction">_Primitive-loop-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30900" class="LineNr">30900 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30901" class="LineNr">30901 </span> 0x11/imm32/alloc-id:fake -<span id="L30902" class="LineNr">30902 </span> <a href='mu.subx.html#L31441'>_string-loop-if-<</a>/imm32/name -<span id="L30903" class="LineNr">30903 </span> 0x11/imm32/alloc-id:fake -<span id="L30904" class="LineNr">30904 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30905" class="LineNr">30905 </span> 0/imm32/no-outputs -<span id="L30906" class="LineNr">30906 </span> 0/imm32/no-outputs -<span id="L30907" class="LineNr">30907 </span> 0x11/imm32/alloc-id:fake -<span id="L30908" class="LineNr">30908 </span> <a href='mu.subx.html#L31733'>_string_0f_8c_jump_label</a>/imm32/subx-name -<span id="L30909" class="LineNr">30909 </span> 0/imm32/no-rm32 -<span id="L30910" class="LineNr">30910 </span> 0/imm32/no-r32 -<span id="L30911" class="LineNr">30911 </span> 0/imm32/no-imm32 -<span id="L30912" class="LineNr">30912 </span> 0/imm32/no-imm8 -<span id="L30913" class="LineNr">30913 </span> 1/imm32/disp32-is-first-inout -<span id="L30914" class="LineNr">30914 </span> 0/imm32/no-xm32 -<span id="L30915" class="LineNr">30915 </span> 0/imm32/no-x32 +<span id="L30898" class="LineNr">30898 </span> <a href='mu.subx.html#L32360'>_string_0f_87_jump_break</a>/imm32/subx-name +<span id="L30899" class="LineNr">30899 </span> 0/imm32/no-rm32 +<span id="L30900" class="LineNr">30900 </span> 0/imm32/no-r32 +<span id="L30901" class="LineNr">30901 </span> 0/imm32/no-imm32 +<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-break-if-<</a>/imm32/next +<span id="L30908" class="LineNr">30908 </span><span class="subxMinorFunction">_Primitive-break-if-<</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> 0x11/imm32/alloc-id:fake +<span id="L30911" class="LineNr">30911 </span> <a href='mu.subx.html#L31968'>_string-break-if-<</a>/imm32/name +<span id="L30912" class="LineNr">30912 </span> 0/imm32/no-inouts +<span id="L30913" class="LineNr">30913 </span> 0/imm32/no-inouts +<span id="L30914" class="LineNr">30914 </span> 0/imm32/no-outputs +<span id="L30915" class="LineNr">30915 </span> 0/imm32/no-outputs <span id="L30916" class="LineNr">30916 </span> 0x11/imm32/alloc-id:fake -<span id="L30917" class="LineNr">30917 </span> <a href='mu.subx.html#L30918'>_Primitive-loop-if->=-named</a>/imm32/next -<span id="L30918" class="LineNr">30918 </span><span class="subxMinorFunction">_Primitive-loop-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30919" class="LineNr">30919 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30920" class="LineNr">30920 </span> 0x11/imm32/alloc-id:fake -<span id="L30921" class="LineNr">30921 </span> <a href='mu.subx.html#L31461'>_string-loop-if->=</a>/imm32/name -<span id="L30922" class="LineNr">30922 </span> 0x11/imm32/alloc-id:fake -<span id="L30923" class="LineNr">30923 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30924" class="LineNr">30924 </span> 0/imm32/no-outputs -<span id="L30925" class="LineNr">30925 </span> 0/imm32/no-outputs -<span id="L30926" class="LineNr">30926 </span> 0x11/imm32/alloc-id:fake -<span id="L30927" class="LineNr">30927 </span> <a href='mu.subx.html#L31748'>_string_0f_8d_jump_label</a>/imm32/subx-name -<span id="L30928" class="LineNr">30928 </span> 0/imm32/no-rm32 -<span id="L30929" class="LineNr">30929 </span> 0/imm32/no-r32 -<span id="L30930" class="LineNr">30930 </span> 0/imm32/no-imm32 -<span id="L30931" class="LineNr">30931 </span> 0/imm32/no-imm8 -<span id="L30932" class="LineNr">30932 </span> 1/imm32/disp32-is-first-inout -<span id="L30933" class="LineNr">30933 </span> 0/imm32/no-xm32 -<span id="L30934" class="LineNr">30934 </span> 0/imm32/no-x32 +<span id="L30917" class="LineNr">30917 </span> <a href='mu.subx.html#L32375'>_string_0f_8c_jump_break</a>/imm32/subx-name +<span id="L30918" class="LineNr">30918 </span> 0/imm32/no-rm32 +<span id="L30919" class="LineNr">30919 </span> 0/imm32/no-r32 +<span id="L30920" class="LineNr">30920 </span> 0/imm32/no-imm32 +<span id="L30921" class="LineNr">30921 </span> 0/imm32/no-imm8 +<span id="L30922" class="LineNr">30922 </span> 0/imm32/no-disp32 +<span id="L30923" class="LineNr">30923 </span> 0/imm32/no-xm32 +<span id="L30924" class="LineNr">30924 </span> 0/imm32/no-x32 +<span id="L30925" class="LineNr">30925 </span> 0x11/imm32/alloc-id:fake +<span id="L30926" class="LineNr">30926 </span> <a href='mu.subx.html#L30927'>_Primitive-break-if->=</a>/imm32/next +<span id="L30927" class="LineNr">30927 </span><span class="subxMinorFunction">_Primitive-break-if->=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30928" class="LineNr">30928 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30929" class="LineNr">30929 </span> 0x11/imm32/alloc-id:fake +<span id="L30930" class="LineNr">30930 </span> <a href='mu.subx.html#L31988'>_string-break-if->=</a>/imm32/name +<span id="L30931" class="LineNr">30931 </span> 0/imm32/no-inouts +<span id="L30932" class="LineNr">30932 </span> 0/imm32/no-inouts +<span id="L30933" class="LineNr">30933 </span> 0/imm32/no-outputs +<span id="L30934" class="LineNr">30934 </span> 0/imm32/no-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#L30937'>_Primitive-loop-if-<=-named</a>/imm32/next -<span id="L30937" class="LineNr">30937 </span><span class="subxMinorFunction">_Primitive-loop-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30938" class="LineNr">30938 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30939" class="LineNr">30939 </span> 0x11/imm32/alloc-id:fake -<span id="L30940" class="LineNr">30940 </span> <a href='mu.subx.html#L31446'>_string-loop-if-<=</a>/imm32/name -<span id="L30941" class="LineNr">30941 </span> 0x11/imm32/alloc-id:fake -<span id="L30942" class="LineNr">30942 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30943" class="LineNr">30943 </span> 0/imm32/no-outputs -<span id="L30944" class="LineNr">30944 </span> 0/imm32/no-outputs -<span id="L30945" class="LineNr">30945 </span> 0x11/imm32/alloc-id:fake -<span id="L30946" class="LineNr">30946 </span> <a href='mu.subx.html#L31763'>_string_0f_8e_jump_label</a>/imm32/subx-name -<span id="L30947" class="LineNr">30947 </span> 0/imm32/no-rm32 -<span id="L30948" class="LineNr">30948 </span> 0/imm32/no-r32 -<span id="L30949" class="LineNr">30949 </span> 0/imm32/no-imm32 -<span id="L30950" class="LineNr">30950 </span> 0/imm32/no-imm8 -<span id="L30951" class="LineNr">30951 </span> 1/imm32/disp32-is-first-inout -<span id="L30952" class="LineNr">30952 </span> 0/imm32/no-xm32 -<span id="L30953" class="LineNr">30953 </span> 0/imm32/no-x32 +<span id="L30936" class="LineNr">30936 </span> <a href='mu.subx.html#L32390'>_string_0f_8d_jump_break</a>/imm32/subx-name +<span id="L30937" class="LineNr">30937 </span> 0/imm32/no-rm32 +<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> 0/imm32/no-imm8 +<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-break-if-<=</a>/imm32/next +<span id="L30946" class="LineNr">30946 </span><span class="subxMinorFunction">_Primitive-break-if-<=</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> 0x11/imm32/alloc-id:fake +<span id="L30949" class="LineNr">30949 </span> <a href='mu.subx.html#L31973'>_string-break-if-<=</a>/imm32/name +<span id="L30950" class="LineNr">30950 </span> 0/imm32/no-inouts +<span id="L30951" class="LineNr">30951 </span> 0/imm32/no-inouts +<span id="L30952" class="LineNr">30952 </span> 0/imm32/no-outputs +<span id="L30953" class="LineNr">30953 </span> 0/imm32/no-outputs <span id="L30954" class="LineNr">30954 </span> 0x11/imm32/alloc-id:fake -<span id="L30955" class="LineNr">30955 </span> <a href='mu.subx.html#L30956'>_Primitive-loop-if->-named</a>/imm32/next -<span id="L30956" class="LineNr">30956 </span><span class="subxMinorFunction">_Primitive-loop-if->-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30957" class="LineNr">30957 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30958" class="LineNr">30958 </span> 0x11/imm32/alloc-id:fake -<span id="L30959" class="LineNr">30959 </span> <a href='mu.subx.html#L31456'>_string-loop-if-></a>/imm32/name -<span id="L30960" class="LineNr">30960 </span> 0x11/imm32/alloc-id:fake -<span id="L30961" class="LineNr">30961 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30962" class="LineNr">30962 </span> 0/imm32/no-outputs -<span id="L30963" class="LineNr">30963 </span> 0/imm32/no-outputs -<span id="L30964" class="LineNr">30964 </span> 0x11/imm32/alloc-id:fake -<span id="L30965" class="LineNr">30965 </span> <a href='mu.subx.html#L31778'>_string_0f_8f_jump_label</a>/imm32/subx-name -<span id="L30966" class="LineNr">30966 </span> 0/imm32/no-rm32 -<span id="L30967" class="LineNr">30967 </span> 0/imm32/no-r32 -<span id="L30968" class="LineNr">30968 </span> 0/imm32/no-imm32 -<span id="L30969" class="LineNr">30969 </span> 0/imm32/no-imm8 -<span id="L30970" class="LineNr">30970 </span> 1/imm32/disp32-is-first-inout -<span id="L30971" class="LineNr">30971 </span> 0/imm32/no-xm32 -<span id="L30972" class="LineNr">30972 </span> 0/imm32/no-x32 +<span id="L30955" class="LineNr">30955 </span> <a href='mu.subx.html#L32405'>_string_0f_8e_jump_break</a>/imm32/subx-name +<span id="L30956" class="LineNr">30956 </span> 0/imm32/no-rm32 +<span id="L30957" class="LineNr">30957 </span> 0/imm32/no-r32 +<span id="L30958" class="LineNr">30958 </span> 0/imm32/no-imm32 +<span id="L30959" class="LineNr">30959 </span> 0/imm32/no-imm8 +<span id="L30960" class="LineNr">30960 </span> 0/imm32/no-disp32 +<span id="L30961" class="LineNr">30961 </span> 0/imm32/no-xm32 +<span id="L30962" class="LineNr">30962 </span> 0/imm32/no-x32 +<span id="L30963" class="LineNr">30963 </span> 0x11/imm32/alloc-id:fake +<span id="L30964" class="LineNr">30964 </span> <a href='mu.subx.html#L30965'>_Primitive-break-if-></a>/imm32/next +<span id="L30965" class="LineNr">30965 </span><span class="subxMinorFunction">_Primitive-break-if-></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30966" class="LineNr">30966 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30967" class="LineNr">30967 </span> 0x11/imm32/alloc-id:fake +<span id="L30968" class="LineNr">30968 </span> <a href='mu.subx.html#L31983'>_string-break-if-></a>/imm32/name +<span id="L30969" class="LineNr">30969 </span> 0/imm32/no-inouts +<span id="L30970" class="LineNr">30970 </span> 0/imm32/no-inouts +<span id="L30971" class="LineNr">30971 </span> 0/imm32/no-outputs +<span id="L30972" class="LineNr">30972 </span> 0/imm32/no-outputs <span id="L30973" class="LineNr">30973 </span> 0x11/imm32/alloc-id:fake -<span id="L30974" class="LineNr">30974 </span> <a href='mu.subx.html#L30975'>_Primitive-loop-named</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> -<span id="L30975" class="LineNr">30975 </span><span class="subxMinorFunction">_Primitive-loop-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30976" class="LineNr">30976 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30977" class="LineNr">30977 </span> 0x11/imm32/alloc-id:fake -<span id="L30978" class="LineNr">30978 </span> <a href='mu.subx.html#L31436'>_string-loop</a>/imm32/name -<span id="L30979" class="LineNr">30979 </span> 0x11/imm32/alloc-id:fake -<span id="L30980" class="LineNr">30980 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L30981" class="LineNr">30981 </span> 0/imm32/no-outputs -<span id="L30982" class="LineNr">30982 </span> 0/imm32/no-outputs -<span id="L30983" class="LineNr">30983 </span> 0x11/imm32/alloc-id:fake -<span id="L30984" class="LineNr">30984 </span> <a href='mu.subx.html#L32083'>_string_e9_jump_label</a>/imm32/subx-name -<span id="L30985" class="LineNr">30985 </span> 0/imm32/no-rm32 -<span id="L30986" class="LineNr">30986 </span> 0/imm32/no-r32 -<span id="L30987" class="LineNr">30987 </span> 0/imm32/no-imm32 -<span id="L30988" class="LineNr">30988 </span> 0/imm32/no-imm8 -<span id="L30989" class="LineNr">30989 </span> 1/imm32/disp32-is-first-inout -<span id="L30990" class="LineNr">30990 </span> 0/imm32/no-xm32 -<span id="L30991" class="LineNr">30991 </span> 0/imm32/no-x32 +<span id="L30974" class="LineNr">30974 </span> <a href='mu.subx.html#L32420'>_string_0f_8f_jump_break</a>/imm32/subx-name +<span id="L30975" class="LineNr">30975 </span> 0/imm32/no-rm32 +<span id="L30976" class="LineNr">30976 </span> 0/imm32/no-r32 +<span id="L30977" class="LineNr">30977 </span> 0/imm32/no-imm32 +<span id="L30978" class="LineNr">30978 </span> 0/imm32/no-imm8 +<span id="L30979" class="LineNr">30979 </span> 0/imm32/no-disp32 +<span id="L30980" class="LineNr">30980 </span> 0/imm32/no-xm32 +<span id="L30981" class="LineNr">30981 </span> 0/imm32/no-x32 +<span id="L30982" class="LineNr">30982 </span> 0x11/imm32/alloc-id:fake +<span id="L30983" class="LineNr">30983 </span> <a href='mu.subx.html#L30984'>_Primitive-break</a>/imm32/next +<span id="L30984" class="LineNr">30984 </span><span class="subxMinorFunction">_Primitive-break</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30985" class="LineNr">30985 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30986" class="LineNr">30986 </span> 0x11/imm32/alloc-id:fake +<span id="L30987" class="LineNr">30987 </span> <a href='mu.subx.html#L31963'>_string-break</a>/imm32/name +<span id="L30988" class="LineNr">30988 </span> 0/imm32/no-inouts +<span id="L30989" class="LineNr">30989 </span> 0/imm32/no-inouts +<span id="L30990" class="LineNr">30990 </span> 0/imm32/no-outputs +<span id="L30991" class="LineNr">30991 </span> 0/imm32/no-outputs <span id="L30992" class="LineNr">30992 </span> 0x11/imm32/alloc-id:fake -<span id="L30993" class="LineNr">30993 </span> <a href='mu.subx.html#L30995'>_Primitive-break-if-float<</a>/imm32/next -<span id="L30994" class="LineNr">30994 </span><span class="subxH1Comment"># - branches based on floating-point comparisons</span> -<span id="L30995" class="LineNr">30995 </span><span class="subxMinorFunction">_Primitive-break-if-float<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30996" class="LineNr">30996 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30997" class="LineNr">30997 </span> 0x11/imm32/alloc-id:fake -<span id="L30998" class="LineNr">30998 </span> <a href='mu.subx.html#L31381'>_string-break-if-float<</a>/imm32/name -<span id="L30999" class="LineNr">30999 </span> 0/imm32/no-inouts -<span id="L31000" class="LineNr">31000 </span> 0/imm32/no-inouts -<span id="L31001" class="LineNr">31001 </span> 0/imm32/no-outputs -<span id="L31002" class="LineNr">31002 </span> 0/imm32/no-outputs -<span id="L31003" class="LineNr">31003 </span> 0x11/imm32/alloc-id:fake -<span id="L31004" class="LineNr">31004 </span> <a href='mu.subx.html#L31648'>_string_0f_82_jump_break</a>/imm32/subx-name -<span id="L31005" class="LineNr">31005 </span> 0/imm32/no-rm32 -<span id="L31006" class="LineNr">31006 </span> 0/imm32/no-r32 -<span id="L31007" class="LineNr">31007 </span> 0/imm32/no-imm32 -<span id="L31008" class="LineNr">31008 </span> 0/imm32/no-imm8 -<span id="L31009" class="LineNr">31009 </span> 0/imm32/no-disp32 -<span id="L31010" class="LineNr">31010 </span> 0/imm32/no-xm32 -<span id="L31011" class="LineNr">31011 </span> 0/imm32/no-x32 -<span id="L31012" class="LineNr">31012 </span> 0x11/imm32/alloc-id:fake -<span id="L31013" class="LineNr">31013 </span> <a href='mu.subx.html#L31014'>_Primitive-break-if-float>=</a>/imm32/next -<span id="L31014" class="LineNr">31014 </span><span class="subxMinorFunction">_Primitive-break-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31015" class="LineNr">31015 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31016" class="LineNr">31016 </span> 0x11/imm32/alloc-id:fake -<span id="L31017" class="LineNr">31017 </span> <a href='mu.subx.html#L31396'>_string-break-if-float>=</a>/imm32/name -<span id="L31018" class="LineNr">31018 </span> 0/imm32/no-inouts -<span id="L31019" class="LineNr">31019 </span> 0/imm32/no-inouts -<span id="L31020" class="LineNr">31020 </span> 0/imm32/no-outputs -<span id="L31021" class="LineNr">31021 </span> 0/imm32/no-outputs -<span id="L31022" class="LineNr">31022 </span> 0x11/imm32/alloc-id:fake -<span id="L31023" class="LineNr">31023 </span> <a href='mu.subx.html#L31663'>_string_0f_83_jump_break</a>/imm32/subx-name -<span id="L31024" class="LineNr">31024 </span> 0/imm32/no-rm32 -<span id="L31025" class="LineNr">31025 </span> 0/imm32/no-r32 -<span id="L31026" class="LineNr">31026 </span> 0/imm32/no-imm32 -<span id="L31027" class="LineNr">31027 </span> 0/imm32/no-imm8 -<span id="L31028" class="LineNr">31028 </span> 0/imm32/no-disp32 -<span id="L31029" class="LineNr">31029 </span> 0/imm32/no-xm32 -<span id="L31030" class="LineNr">31030 </span> 0/imm32/no-x32 -<span id="L31031" class="LineNr">31031 </span> 0x11/imm32/alloc-id:fake -<span id="L31032" class="LineNr">31032 </span> <a href='mu.subx.html#L31033'>_Primitive-break-if-float<=</a>/imm32/next -<span id="L31033" class="LineNr">31033 </span><span class="subxMinorFunction">_Primitive-break-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31034" class="LineNr">31034 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31035" class="LineNr">31035 </span> 0x11/imm32/alloc-id:fake -<span id="L31036" class="LineNr">31036 </span> <a href='mu.subx.html#L31386'>_string-break-if-float<=</a>/imm32/name -<span id="L31037" class="LineNr">31037 </span> 0/imm32/no-inouts -<span id="L31038" class="LineNr">31038 </span> 0/imm32/no-inouts -<span id="L31039" class="LineNr">31039 </span> 0/imm32/no-outputs -<span id="L31040" class="LineNr">31040 </span> 0/imm32/no-outputs -<span id="L31041" class="LineNr">31041 </span> 0x11/imm32/alloc-id:fake -<span id="L31042" class="LineNr">31042 </span> <a href='mu.subx.html#L31708'>_string_0f_86_jump_break</a>/imm32/subx-name -<span id="L31043" class="LineNr">31043 </span> 0/imm32/no-rm32 -<span id="L31044" class="LineNr">31044 </span> 0/imm32/no-r32 -<span id="L31045" class="LineNr">31045 </span> 0/imm32/no-imm32 -<span id="L31046" class="LineNr">31046 </span> 0/imm32/no-imm8 -<span id="L31047" class="LineNr">31047 </span> 0/imm32/no-disp32 -<span id="L31048" class="LineNr">31048 </span> 0/imm32/no-xm32 -<span id="L31049" class="LineNr">31049 </span> 0/imm32/no-x32 -<span id="L31050" class="LineNr">31050 </span> 0x11/imm32/alloc-id:fake -<span id="L31051" class="LineNr">31051 </span> <a href='mu.subx.html#L31052'>_Primitive-break-if-float></a>/imm32/next -<span id="L31052" class="LineNr">31052 </span><span class="subxMinorFunction">_Primitive-break-if-float></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31053" class="LineNr">31053 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31054" class="LineNr">31054 </span> 0x11/imm32/alloc-id:fake -<span id="L31055" class="LineNr">31055 </span> <a href='mu.subx.html#L31391'>_string-break-if-float></a>/imm32/name -<span id="L31056" class="LineNr">31056 </span> 0/imm32/no-inouts -<span id="L31057" class="LineNr">31057 </span> 0/imm32/no-inouts -<span id="L31058" class="LineNr">31058 </span> 0/imm32/no-outputs -<span id="L31059" class="LineNr">31059 </span> 0/imm32/no-outputs -<span id="L31060" class="LineNr">31060 </span> 0x11/imm32/alloc-id:fake -<span id="L31061" class="LineNr">31061 </span> <a href='mu.subx.html#L31723'>_string_0f_87_jump_break</a>/imm32/subx-name -<span id="L31062" class="LineNr">31062 </span> 0/imm32/no-rm32 -<span id="L31063" class="LineNr">31063 </span> 0/imm32/no-r32 -<span id="L31064" class="LineNr">31064 </span> 0/imm32/no-imm32 -<span id="L31065" class="LineNr">31065 </span> 0/imm32/no-imm8 -<span id="L31066" class="LineNr">31066 </span> 0/imm32/no-disp32 -<span id="L31067" class="LineNr">31067 </span> 0/imm32/no-xm32 -<span id="L31068" class="LineNr">31068 </span> 0/imm32/no-x32 -<span id="L31069" class="LineNr">31069 </span> 0x11/imm32/alloc-id:fake -<span id="L31070" class="LineNr">31070 </span> <a href='mu.subx.html#L31071'>_Primitive-loop-if-float<</a>/imm32/next -<span id="L31071" class="LineNr">31071 </span><span class="subxMinorFunction">_Primitive-loop-if-float<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31072" class="LineNr">31072 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31073" class="LineNr">31073 </span> 0x11/imm32/alloc-id:fake -<span id="L31074" class="LineNr">31074 </span> <a href='mu.subx.html#L31491'>_string-loop-if-float<</a>/imm32/name -<span id="L31075" class="LineNr">31075 </span> 0/imm32/no-inouts -<span id="L31076" class="LineNr">31076 </span> 0/imm32/no-inouts -<span id="L31077" class="LineNr">31077 </span> 0/imm32/no-outputs -<span id="L31078" class="LineNr">31078 </span> 0/imm32/no-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#L31653'>_string_0f_82_jump_loop</a>/imm32/subx-name -<span id="L31081" class="LineNr">31081 </span> 0/imm32/no-rm32 -<span id="L31082" class="LineNr">31082 </span> 0/imm32/no-r32 -<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-loop-if-float>=</a>/imm32/next -<span id="L31090" class="LineNr">31090 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=</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> 0x11/imm32/alloc-id:fake -<span id="L31093" class="LineNr">31093 </span> <a href='mu.subx.html#L31506'>_string-loop-if-float>=</a>/imm32/name -<span id="L31094" class="LineNr">31094 </span> 0/imm32/no-inouts -<span id="L31095" class="LineNr">31095 </span> 0/imm32/no-inouts -<span id="L31096" class="LineNr">31096 </span> 0/imm32/no-outputs -<span id="L31097" class="LineNr">31097 </span> 0/imm32/no-outputs -<span id="L31098" class="LineNr">31098 </span> 0x11/imm32/alloc-id:fake -<span id="L31099" class="LineNr">31099 </span> <a href='mu.subx.html#L31668'>_string_0f_83_jump_loop</a>/imm32/subx-name -<span id="L31100" class="LineNr">31100 </span> 0/imm32/no-rm32 -<span id="L31101" class="LineNr">31101 </span> 0/imm32/no-r32 -<span id="L31102" class="LineNr">31102 </span> 0/imm32/no-imm32 -<span id="L31103" class="LineNr">31103 </span> 0/imm32/no-imm8 -<span id="L31104" class="LineNr">31104 </span> 0/imm32/no-disp32 -<span id="L31105" class="LineNr">31105 </span> 0/imm32/no-xm32 -<span id="L31106" class="LineNr">31106 </span> 0/imm32/no-x32 -<span id="L31107" class="LineNr">31107 </span> 0x11/imm32/alloc-id:fake -<span id="L31108" class="LineNr">31108 </span> <a href='mu.subx.html#L31109'>_Primitive-loop-if-float<=</a>/imm32/next -<span id="L31109" class="LineNr">31109 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31110" class="LineNr">31110 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31111" class="LineNr">31111 </span> 0x11/imm32/alloc-id:fake -<span id="L31112" class="LineNr">31112 </span> <a href='mu.subx.html#L31496'>_string-loop-if-float<=</a>/imm32/name -<span id="L31113" class="LineNr">31113 </span> 0/imm32/no-inouts -<span id="L31114" class="LineNr">31114 </span> 0/imm32/no-inouts -<span id="L31115" class="LineNr">31115 </span> 0/imm32/no-outputs -<span id="L31116" class="LineNr">31116 </span> 0/imm32/no-outputs -<span id="L31117" class="LineNr">31117 </span> 0x11/imm32/alloc-id:fake -<span id="L31118" class="LineNr">31118 </span> <a href='mu.subx.html#L31713'>_string_0f_86_jump_loop</a>/imm32/subx-name -<span id="L31119" class="LineNr">31119 </span> 0/imm32/no-rm32 -<span id="L31120" class="LineNr">31120 </span> 0/imm32/no-r32 -<span id="L31121" class="LineNr">31121 </span> 0/imm32/no-imm32 -<span id="L31122" class="LineNr">31122 </span> 0/imm32/no-imm8 -<span id="L31123" class="LineNr">31123 </span> 0/imm32/no-disp32 -<span id="L31124" class="LineNr">31124 </span> 0/imm32/no-xm32 -<span id="L31125" class="LineNr">31125 </span> 0/imm32/no-x32 -<span id="L31126" class="LineNr">31126 </span> 0x11/imm32/alloc-id:fake -<span id="L31127" class="LineNr">31127 </span> <a href='mu.subx.html#L31128'>_Primitive-loop-if-float></a>/imm32/next -<span id="L31128" class="LineNr">31128 </span><span class="subxMinorFunction">_Primitive-loop-if-float></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31129" class="LineNr">31129 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31130" class="LineNr">31130 </span> 0x11/imm32/alloc-id:fake -<span id="L31131" class="LineNr">31131 </span> <a href='mu.subx.html#L31501'>_string-loop-if-float></a>/imm32/name -<span id="L31132" class="LineNr">31132 </span> 0/imm32/no-inouts -<span id="L31133" class="LineNr">31133 </span> 0/imm32/no-inouts -<span id="L31134" class="LineNr">31134 </span> 0/imm32/no-outputs -<span id="L31135" class="LineNr">31135 </span> 0/imm32/no-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#L31728'>_string_0f_87_jump_loop</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> 0/imm32/no-imm32 -<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-break-if-float<-named</a>/imm32/next -<span id="L31147" class="LineNr">31147 </span><span class="subxMinorFunction">_Primitive-break-if-float<-named</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> 0x11/imm32/alloc-id:fake -<span id="L31150" class="LineNr">31150 </span> <a href='mu.subx.html#L31381'>_string-break-if-float<</a>/imm32/name -<span id="L31151" class="LineNr">31151 </span> 0x11/imm32/alloc-id:fake -<span id="L31152" class="LineNr">31152 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L31153" class="LineNr">31153 </span> 0/imm32/no-outputs -<span id="L31154" class="LineNr">31154 </span> 0/imm32/no-outputs -<span id="L31155" class="LineNr">31155 </span> 0x11/imm32/alloc-id:fake -<span id="L31156" class="LineNr">31156 </span> <a href='mu.subx.html#L31643'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L31157" class="LineNr">31157 </span> 0/imm32/no-rm32 -<span id="L31158" class="LineNr">31158 </span> 0/imm32/no-r32 -<span id="L31159" class="LineNr">31159 </span> 0/imm32/no-imm32 -<span id="L31160" class="LineNr">31160 </span> 0/imm32/no-imm8 -<span id="L31161" class="LineNr">31161 </span> 1/imm32/disp32-is-first-inout -<span id="L31162" class="LineNr">31162 </span> 0/imm32/no-xm32 -<span id="L31163" class="LineNr">31163 </span> 0/imm32/no-x32 -<span id="L31164" class="LineNr">31164 </span> 0x11/imm32/alloc-id:fake -<span id="L31165" class="LineNr">31165 </span> <a href='mu.subx.html#L31166'>_Primitive-break-if-float>=-named</a>/imm32/next -<span id="L31166" class="LineNr">31166 </span><span class="subxMinorFunction">_Primitive-break-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31167" class="LineNr">31167 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31168" class="LineNr">31168 </span> 0x11/imm32/alloc-id:fake -<span id="L31169" class="LineNr">31169 </span> <a href='mu.subx.html#L31396'>_string-break-if-float>=</a>/imm32/name -<span id="L31170" class="LineNr">31170 </span> 0x11/imm32/alloc-id:fake -<span id="L31171" class="LineNr">31171 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L31172" class="LineNr">31172 </span> 0/imm32/no-outputs -<span id="L31173" class="LineNr">31173 </span> 0/imm32/no-outputs -<span id="L31174" class="LineNr">31174 </span> 0x11/imm32/alloc-id:fake -<span id="L31175" class="LineNr">31175 </span> <a href='mu.subx.html#L31658'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L31176" class="LineNr">31176 </span> 0/imm32/no-rm32 -<span id="L31177" class="LineNr">31177 </span> 0/imm32/no-r32 -<span id="L31178" class="LineNr">31178 </span> 0/imm32/no-imm32 -<span id="L31179" class="LineNr">31179 </span> 0/imm32/no-imm8 -<span id="L31180" class="LineNr">31180 </span> 1/imm32/disp32-is-first-inout -<span id="L31181" class="LineNr">31181 </span> 0/imm32/no-xm32 -<span id="L31182" class="LineNr">31182 </span> 0/imm32/no-x32 -<span id="L31183" class="LineNr">31183 </span> 0x11/imm32/alloc-id:fake -<span id="L31184" class="LineNr">31184 </span> <a href='mu.subx.html#L31185'>_Primitive-break-if-float<=-named</a>/imm32/next -<span id="L31185" class="LineNr">31185 </span><span class="subxMinorFunction">_Primitive-break-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31186" class="LineNr">31186 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31187" class="LineNr">31187 </span> 0x11/imm32/alloc-id:fake -<span id="L31188" class="LineNr">31188 </span> <a href='mu.subx.html#L31386'>_string-break-if-float<=</a>/imm32/name -<span id="L31189" class="LineNr">31189 </span> 0x11/imm32/alloc-id:fake -<span id="L31190" class="LineNr">31190 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L31191" class="LineNr">31191 </span> 0/imm32/no-outputs -<span id="L31192" class="LineNr">31192 </span> 0/imm32/no-outputs -<span id="L31193" class="LineNr">31193 </span> 0x11/imm32/alloc-id:fake -<span id="L31194" class="LineNr">31194 </span> <a href='mu.subx.html#L31703'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L31195" class="LineNr">31195 </span> 0/imm32/no-rm32 -<span id="L31196" class="LineNr">31196 </span> 0/imm32/no-r32 -<span id="L31197" class="LineNr">31197 </span> 0/imm32/no-imm32 -<span id="L31198" class="LineNr">31198 </span> 0/imm32/no-imm8 -<span id="L31199" class="LineNr">31199 </span> 1/imm32/disp32-is-first-inout -<span id="L31200" class="LineNr">31200 </span> 0/imm32/no-xm32 -<span id="L31201" class="LineNr">31201 </span> 0/imm32/no-x32 -<span id="L31202" class="LineNr">31202 </span> 0x11/imm32/alloc-id:fake -<span id="L31203" class="LineNr">31203 </span> <a href='mu.subx.html#L31204'>_Primitive-break-if-float>-named</a>/imm32/next -<span id="L31204" class="LineNr">31204 </span><span class="subxMinorFunction">_Primitive-break-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31205" class="LineNr">31205 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31206" class="LineNr">31206 </span> 0x11/imm32/alloc-id:fake -<span id="L31207" class="LineNr">31207 </span> <a href='mu.subx.html#L31391'>_string-break-if-float></a>/imm32/name -<span id="L31208" class="LineNr">31208 </span> 0x11/imm32/alloc-id:fake -<span id="L31209" class="LineNr">31209 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L31210" class="LineNr">31210 </span> 0/imm32/no-outputs -<span id="L31211" class="LineNr">31211 </span> 0/imm32/no-outputs -<span id="L31212" class="LineNr">31212 </span> 0x11/imm32/alloc-id:fake -<span id="L31213" class="LineNr">31213 </span> <a href='mu.subx.html#L31718'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L31214" class="LineNr">31214 </span> 0/imm32/no-rm32 -<span id="L31215" class="LineNr">31215 </span> 0/imm32/no-r32 -<span id="L31216" class="LineNr">31216 </span> 0/imm32/no-imm32 -<span id="L31217" class="LineNr">31217 </span> 0/imm32/no-imm8 -<span id="L31218" class="LineNr">31218 </span> 1/imm32/disp32-is-first-inout -<span id="L31219" class="LineNr">31219 </span> 0/imm32/no-xm32 -<span id="L31220" class="LineNr">31220 </span> 0/imm32/no-x32 +<span id="L30993" class="LineNr">30993 </span> <a href='mu.subx.html#L32725'>_string_e9_jump_break</a>/imm32/subx-name +<span id="L30994" class="LineNr">30994 </span> 0/imm32/no-rm32 +<span id="L30995" class="LineNr">30995 </span> 0/imm32/no-r32 +<span id="L30996" class="LineNr">30996 </span> 0/imm32/no-imm32 +<span id="L30997" class="LineNr">30997 </span> 0/imm32/no-imm8 +<span id="L30998" class="LineNr">30998 </span> 0/imm32/no-disp32 +<span id="L30999" class="LineNr">30999 </span> 0/imm32/no-xm32 +<span id="L31000" class="LineNr">31000 </span> 0/imm32/no-x32 +<span id="L31001" class="LineNr">31001 </span> 0x11/imm32/alloc-id:fake +<span id="L31002" class="LineNr">31002 </span> <a href='mu.subx.html#L31003'>_Primitive-loop-if-addr<</a>/imm32/next +<span id="L31003" class="LineNr">31003 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31004" class="LineNr">31004 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31005" class="LineNr">31005 </span> 0x11/imm32/alloc-id:fake +<span id="L31006" class="LineNr">31006 </span> <a href='mu.subx.html#L32108'>_string-loop-if-addr<</a>/imm32/name +<span id="L31007" class="LineNr">31007 </span> 0/imm32/no-inouts +<span id="L31008" class="LineNr">31008 </span> 0/imm32/no-inouts +<span id="L31009" class="LineNr">31009 </span> 0/imm32/no-outputs +<span id="L31010" class="LineNr">31010 </span> 0/imm32/no-outputs +<span id="L31011" class="LineNr">31011 </span> 0x11/imm32/alloc-id:fake +<span id="L31012" class="LineNr">31012 </span> <a href='mu.subx.html#L32290'>_string_0f_82_jump_loop</a>/imm32/subx-name +<span id="L31013" class="LineNr">31013 </span> 0/imm32/no-rm32 +<span id="L31014" class="LineNr">31014 </span> 0/imm32/no-r32 +<span id="L31015" class="LineNr">31015 </span> 0/imm32/no-imm32 +<span id="L31016" class="LineNr">31016 </span> 0/imm32/no-imm8 +<span id="L31017" class="LineNr">31017 </span> 0/imm32/no-disp32 +<span id="L31018" class="LineNr">31018 </span> 0/imm32/no-xm32 +<span id="L31019" class="LineNr">31019 </span> 0/imm32/no-x32 +<span id="L31020" class="LineNr">31020 </span> 0x11/imm32/alloc-id:fake +<span id="L31021" class="LineNr">31021 </span> <a href='mu.subx.html#L31022'>_Primitive-loop-if-addr>=</a>/imm32/next +<span id="L31022" class="LineNr">31022 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31023" class="LineNr">31023 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31024" class="LineNr">31024 </span> 0x11/imm32/alloc-id:fake +<span id="L31025" class="LineNr">31025 </span> <a href='mu.subx.html#L32123'>_string-loop-if-addr>=</a>/imm32/name +<span id="L31026" class="LineNr">31026 </span> 0/imm32/no-inouts +<span id="L31027" class="LineNr">31027 </span> 0/imm32/no-inouts +<span id="L31028" class="LineNr">31028 </span> 0/imm32/no-outputs +<span id="L31029" class="LineNr">31029 </span> 0/imm32/no-outputs +<span id="L31030" class="LineNr">31030 </span> 0x11/imm32/alloc-id:fake +<span id="L31031" class="LineNr">31031 </span> <a href='mu.subx.html#L32305'>_string_0f_83_jump_loop</a>/imm32/subx-name +<span id="L31032" class="LineNr">31032 </span> 0/imm32/no-rm32 +<span id="L31033" class="LineNr">31033 </span> 0/imm32/no-r32 +<span id="L31034" class="LineNr">31034 </span> 0/imm32/no-imm32 +<span id="L31035" class="LineNr">31035 </span> 0/imm32/no-imm8 +<span id="L31036" class="LineNr">31036 </span> 0/imm32/no-disp32 +<span id="L31037" class="LineNr">31037 </span> 0/imm32/no-xm32 +<span id="L31038" class="LineNr">31038 </span> 0/imm32/no-x32 +<span id="L31039" class="LineNr">31039 </span> 0x11/imm32/alloc-id:fake +<span id="L31040" class="LineNr">31040 </span> <a href='mu.subx.html#L31041'>_Primitive-loop-if-=</a>/imm32/next +<span id="L31041" class="LineNr">31041 </span><span class="subxMinorFunction">_Primitive-loop-if-=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31042" class="LineNr">31042 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31043" class="LineNr">31043 </span> 0x11/imm32/alloc-id:fake +<span id="L31044" class="LineNr">31044 </span> <a href='mu.subx.html#L32088'>_string-loop-if-=</a>/imm32/name +<span id="L31045" class="LineNr">31045 </span> 0/imm32/no-inouts +<span id="L31046" class="LineNr">31046 </span> 0/imm32/no-inouts +<span id="L31047" class="LineNr">31047 </span> 0/imm32/no-outputs +<span id="L31048" class="LineNr">31048 </span> 0/imm32/no-outputs +<span id="L31049" class="LineNr">31049 </span> 0x11/imm32/alloc-id:fake +<span id="L31050" class="LineNr">31050 </span> <a href='mu.subx.html#L32320'>_string_0f_84_jump_loop</a>/imm32/subx-name +<span id="L31051" class="LineNr">31051 </span> 0/imm32/no-rm32 +<span id="L31052" class="LineNr">31052 </span> 0/imm32/no-r32 +<span id="L31053" class="LineNr">31053 </span> 0/imm32/no-imm32 +<span id="L31054" class="LineNr">31054 </span> 0/imm32/no-imm8 +<span id="L31055" class="LineNr">31055 </span> 0/imm32/no-disp32 +<span id="L31056" class="LineNr">31056 </span> 0/imm32/no-xm32 +<span id="L31057" class="LineNr">31057 </span> 0/imm32/no-x32 +<span id="L31058" class="LineNr">31058 </span> 0x11/imm32/alloc-id:fake +<span id="L31059" class="LineNr">31059 </span> <a href='mu.subx.html#L31060'>_Primitive-loop-if-!=</a>/imm32/next +<span id="L31060" class="LineNr">31060 </span><span class="subxMinorFunction">_Primitive-loop-if-!=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31061" class="LineNr">31061 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31062" class="LineNr">31062 </span> 0x11/imm32/alloc-id:fake +<span id="L31063" class="LineNr">31063 </span> <a href='mu.subx.html#L32103'>_string-loop-if-!=</a>/imm32/name +<span id="L31064" class="LineNr">31064 </span> 0/imm32/no-inouts +<span id="L31065" class="LineNr">31065 </span> 0/imm32/no-inouts +<span id="L31066" class="LineNr">31066 </span> 0/imm32/no-outputs +<span id="L31067" class="LineNr">31067 </span> 0/imm32/no-outputs +<span id="L31068" class="LineNr">31068 </span> 0x11/imm32/alloc-id:fake +<span id="L31069" class="LineNr">31069 </span> <a href='mu.subx.html#L32335'>_string_0f_85_jump_loop</a>/imm32/subx-name +<span id="L31070" class="LineNr">31070 </span> 0/imm32/no-rm32 +<span id="L31071" class="LineNr">31071 </span> 0/imm32/no-r32 +<span id="L31072" class="LineNr">31072 </span> 0/imm32/no-imm32 +<span id="L31073" class="LineNr">31073 </span> 0/imm32/no-imm8 +<span id="L31074" class="LineNr">31074 </span> 0/imm32/no-disp32 +<span id="L31075" class="LineNr">31075 </span> 0/imm32/no-xm32 +<span id="L31076" class="LineNr">31076 </span> 0/imm32/no-x32 +<span id="L31077" class="LineNr">31077 </span> 0x11/imm32/alloc-id:fake +<span id="L31078" class="LineNr">31078 </span> <a href='mu.subx.html#L31079'>_Primitive-loop-if-addr<=</a>/imm32/next +<span id="L31079" class="LineNr">31079 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31080" class="LineNr">31080 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31081" class="LineNr">31081 </span> 0x11/imm32/alloc-id:fake +<span id="L31082" class="LineNr">31082 </span> <a href='mu.subx.html#L32113'>_string-loop-if-addr<=</a>/imm32/name +<span id="L31083" class="LineNr">31083 </span> 0/imm32/no-inouts +<span id="L31084" class="LineNr">31084 </span> 0/imm32/no-inouts +<span id="L31085" class="LineNr">31085 </span> 0/imm32/no-outputs +<span id="L31086" class="LineNr">31086 </span> 0/imm32/no-outputs +<span id="L31087" class="LineNr">31087 </span> 0x11/imm32/alloc-id:fake +<span id="L31088" class="LineNr">31088 </span> <a href='mu.subx.html#L32350'>_string_0f_86_jump_loop</a>/imm32/subx-name +<span id="L31089" class="LineNr">31089 </span> 0/imm32/no-rm32 +<span id="L31090" class="LineNr">31090 </span> 0/imm32/no-r32 +<span id="L31091" class="LineNr">31091 </span> 0/imm32/no-imm32 +<span id="L31092" class="LineNr">31092 </span> 0/imm32/no-imm8 +<span id="L31093" class="LineNr">31093 </span> 0/imm32/no-disp32 +<span id="L31094" class="LineNr">31094 </span> 0/imm32/no-xm32 +<span id="L31095" class="LineNr">31095 </span> 0/imm32/no-x32 +<span id="L31096" class="LineNr">31096 </span> 0x11/imm32/alloc-id:fake +<span id="L31097" class="LineNr">31097 </span> <a href='mu.subx.html#L31098'>_Primitive-loop-if-addr></a>/imm32/next +<span id="L31098" class="LineNr">31098 </span><span class="subxMinorFunction">_Primitive-loop-if-addr></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31099" class="LineNr">31099 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31100" class="LineNr">31100 </span> 0x11/imm32/alloc-id:fake +<span id="L31101" class="LineNr">31101 </span> <a href='mu.subx.html#L32118'>_string-loop-if-addr></a>/imm32/name +<span id="L31102" class="LineNr">31102 </span> 0/imm32/no-inouts +<span id="L31103" class="LineNr">31103 </span> 0/imm32/no-inouts +<span id="L31104" class="LineNr">31104 </span> 0/imm32/no-outputs +<span id="L31105" class="LineNr">31105 </span> 0/imm32/no-outputs +<span id="L31106" class="LineNr">31106 </span> 0x11/imm32/alloc-id:fake +<span id="L31107" class="LineNr">31107 </span> <a href='mu.subx.html#L32365'>_string_0f_87_jump_loop</a>/imm32/subx-name +<span id="L31108" class="LineNr">31108 </span> 0/imm32/no-rm32 +<span id="L31109" class="LineNr">31109 </span> 0/imm32/no-r32 +<span id="L31110" class="LineNr">31110 </span> 0/imm32/no-imm32 +<span id="L31111" class="LineNr">31111 </span> 0/imm32/no-imm8 +<span id="L31112" class="LineNr">31112 </span> 0/imm32/no-disp32 +<span id="L31113" class="LineNr">31113 </span> 0/imm32/no-xm32 +<span id="L31114" class="LineNr">31114 </span> 0/imm32/no-x32 +<span id="L31115" class="LineNr">31115 </span> 0x11/imm32/alloc-id:fake +<span id="L31116" class="LineNr">31116 </span> <a href='mu.subx.html#L31117'>_Primitive-loop-if-<</a>/imm32/next +<span id="L31117" class="LineNr">31117 </span><span class="subxMinorFunction">_Primitive-loop-if-<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31118" class="LineNr">31118 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31119" class="LineNr">31119 </span> 0x11/imm32/alloc-id:fake +<span id="L31120" class="LineNr">31120 </span> <a href='mu.subx.html#L32078'>_string-loop-if-<</a>/imm32/name +<span id="L31121" class="LineNr">31121 </span> 0/imm32/no-inouts +<span id="L31122" class="LineNr">31122 </span> 0/imm32/no-inouts +<span id="L31123" class="LineNr">31123 </span> 0/imm32/no-outputs +<span id="L31124" class="LineNr">31124 </span> 0/imm32/no-outputs +<span id="L31125" class="LineNr">31125 </span> 0x11/imm32/alloc-id:fake +<span id="L31126" class="LineNr">31126 </span> <a href='mu.subx.html#L32380'>_string_0f_8c_jump_loop</a>/imm32/subx-name +<span id="L31127" class="LineNr">31127 </span> 0/imm32/no-rm32 +<span id="L31128" class="LineNr">31128 </span> 0/imm32/no-r32 +<span id="L31129" class="LineNr">31129 </span> 0/imm32/no-imm32 +<span id="L31130" class="LineNr">31130 </span> 0/imm32/no-imm8 +<span id="L31131" class="LineNr">31131 </span> 0/imm32/no-disp32 +<span id="L31132" class="LineNr">31132 </span> 0/imm32/no-xm32 +<span id="L31133" class="LineNr">31133 </span> 0/imm32/no-x32 +<span id="L31134" class="LineNr">31134 </span> 0x11/imm32/alloc-id:fake +<span id="L31135" class="LineNr">31135 </span> <a href='mu.subx.html#L31136'>_Primitive-loop-if->=</a>/imm32/next +<span id="L31136" class="LineNr">31136 </span><span class="subxMinorFunction">_Primitive-loop-if->=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31137" class="LineNr">31137 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31138" class="LineNr">31138 </span> 0x11/imm32/alloc-id:fake +<span id="L31139" class="LineNr">31139 </span> <a href='mu.subx.html#L32098'>_string-loop-if->=</a>/imm32/name +<span id="L31140" class="LineNr">31140 </span> 0/imm32/no-inouts +<span id="L31141" class="LineNr">31141 </span> 0/imm32/no-inouts +<span id="L31142" class="LineNr">31142 </span> 0/imm32/no-outputs +<span id="L31143" class="LineNr">31143 </span> 0/imm32/no-outputs +<span id="L31144" class="LineNr">31144 </span> 0x11/imm32/alloc-id:fake +<span id="L31145" class="LineNr">31145 </span> <a href='mu.subx.html#L32395'>_string_0f_8d_jump_loop</a>/imm32/subx-name +<span id="L31146" class="LineNr">31146 </span> 0/imm32/no-rm32 +<span id="L31147" class="LineNr">31147 </span> 0/imm32/no-r32 +<span id="L31148" class="LineNr">31148 </span> 0/imm32/no-imm32 +<span id="L31149" class="LineNr">31149 </span> 0/imm32/no-imm8 +<span id="L31150" class="LineNr">31150 </span> 0/imm32/no-disp32 +<span id="L31151" class="LineNr">31151 </span> 0/imm32/no-xm32 +<span id="L31152" class="LineNr">31152 </span> 0/imm32/no-x32 +<span id="L31153" class="LineNr">31153 </span> 0x11/imm32/alloc-id:fake +<span id="L31154" class="LineNr">31154 </span> <a href='mu.subx.html#L31155'>_Primitive-loop-if-<=</a>/imm32/next +<span id="L31155" class="LineNr">31155 </span><span class="subxMinorFunction">_Primitive-loop-if-<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31156" class="LineNr">31156 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31157" class="LineNr">31157 </span> 0x11/imm32/alloc-id:fake +<span id="L31158" class="LineNr">31158 </span> <a href='mu.subx.html#L32083'>_string-loop-if-<=</a>/imm32/name +<span id="L31159" class="LineNr">31159 </span> 0/imm32/no-inouts +<span id="L31160" class="LineNr">31160 </span> 0/imm32/no-inouts +<span id="L31161" class="LineNr">31161 </span> 0/imm32/no-outputs +<span id="L31162" class="LineNr">31162 </span> 0/imm32/no-outputs +<span id="L31163" class="LineNr">31163 </span> 0x11/imm32/alloc-id:fake +<span id="L31164" class="LineNr">31164 </span> <a href='mu.subx.html#L32410'>_string_0f_8e_jump_loop</a>/imm32/subx-name +<span id="L31165" class="LineNr">31165 </span> 0/imm32/no-rm32 +<span id="L31166" class="LineNr">31166 </span> 0/imm32/no-r32 +<span id="L31167" class="LineNr">31167 </span> 0/imm32/no-imm32 +<span id="L31168" class="LineNr">31168 </span> 0/imm32/no-imm8 +<span id="L31169" class="LineNr">31169 </span> 0/imm32/no-disp32 +<span id="L31170" class="LineNr">31170 </span> 0/imm32/no-xm32 +<span id="L31171" class="LineNr">31171 </span> 0/imm32/no-x32 +<span id="L31172" class="LineNr">31172 </span> 0x11/imm32/alloc-id:fake +<span id="L31173" class="LineNr">31173 </span> <a href='mu.subx.html#L31174'>_Primitive-loop-if-></a>/imm32/next +<span id="L31174" class="LineNr">31174 </span><span class="subxMinorFunction">_Primitive-loop-if-></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31175" class="LineNr">31175 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31176" class="LineNr">31176 </span> 0x11/imm32/alloc-id:fake +<span id="L31177" class="LineNr">31177 </span> <a href='mu.subx.html#L32093'>_string-loop-if-></a>/imm32/name +<span id="L31178" class="LineNr">31178 </span> 0/imm32/no-inouts +<span id="L31179" class="LineNr">31179 </span> 0/imm32/no-inouts +<span id="L31180" class="LineNr">31180 </span> 0/imm32/no-outputs +<span id="L31181" class="LineNr">31181 </span> 0/imm32/no-outputs +<span id="L31182" class="LineNr">31182 </span> 0x11/imm32/alloc-id:fake +<span id="L31183" class="LineNr">31183 </span> <a href='mu.subx.html#L32425'>_string_0f_8f_jump_loop</a>/imm32/subx-name +<span id="L31184" class="LineNr">31184 </span> 0/imm32/no-rm32 +<span id="L31185" class="LineNr">31185 </span> 0/imm32/no-r32 +<span id="L31186" class="LineNr">31186 </span> 0/imm32/no-imm32 +<span id="L31187" class="LineNr">31187 </span> 0/imm32/no-imm8 +<span id="L31188" class="LineNr">31188 </span> 0/imm32/no-disp32 +<span id="L31189" class="LineNr">31189 </span> 0/imm32/no-xm32 +<span id="L31190" class="LineNr">31190 </span> 0/imm32/no-x32 +<span id="L31191" class="LineNr">31191 </span> 0x11/imm32/alloc-id:fake +<span id="L31192" class="LineNr">31192 </span> <a href='mu.subx.html#L31193'>_Primitive-loop</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> +<span id="L31193" class="LineNr">31193 </span><span class="subxMinorFunction">_Primitive-loop</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31194" class="LineNr">31194 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31195" class="LineNr">31195 </span> 0x11/imm32/alloc-id:fake +<span id="L31196" class="LineNr">31196 </span> <a href='mu.subx.html#L32073'>_string-loop</a>/imm32/name +<span id="L31197" class="LineNr">31197 </span> 0/imm32/no-inouts +<span id="L31198" class="LineNr">31198 </span> 0/imm32/no-inouts +<span id="L31199" class="LineNr">31199 </span> 0/imm32/no-outputs +<span id="L31200" class="LineNr">31200 </span> 0/imm32/no-outputs +<span id="L31201" class="LineNr">31201 </span> 0x11/imm32/alloc-id:fake +<span id="L31202" class="LineNr">31202 </span> <a href='mu.subx.html#L32730'>_string_e9_jump_loop</a>/imm32/subx-name +<span id="L31203" class="LineNr">31203 </span> 0/imm32/no-rm32 +<span id="L31204" class="LineNr">31204 </span> 0/imm32/no-r32 +<span id="L31205" class="LineNr">31205 </span> 0/imm32/no-imm32 +<span id="L31206" class="LineNr">31206 </span> 0/imm32/no-imm8 +<span id="L31207" class="LineNr">31207 </span> 0/imm32/no-disp32 +<span id="L31208" class="LineNr">31208 </span> 0/imm32/no-xm32 +<span id="L31209" class="LineNr">31209 </span> 0/imm32/no-x32 +<span id="L31210" class="LineNr">31210 </span> 0x11/imm32/alloc-id:fake +<span id="L31211" class="LineNr">31211 </span> <a href='mu.subx.html#L31213'>_Primitive-break-if-addr<-named</a>/imm32/next +<span id="L31212" class="LineNr">31212 </span><span class="subxH1Comment"># - branches to named blocks</span> +<span id="L31213" class="LineNr">31213 </span><span class="subxMinorFunction">_Primitive-break-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31214" class="LineNr">31214 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31215" class="LineNr">31215 </span> 0x11/imm32/alloc-id:fake +<span id="L31216" class="LineNr">31216 </span> <a href='mu.subx.html#L31998'>_string-break-if-addr<</a>/imm32/name +<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#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31219" class="LineNr">31219 </span> 0/imm32/no-outputs +<span id="L31220" class="LineNr">31220 </span> 0/imm32/no-outputs <span id="L31221" class="LineNr">31221 </span> 0x11/imm32/alloc-id:fake -<span id="L31222" class="LineNr">31222 </span> <a href='mu.subx.html#L31223'>_Primitive-loop-if-float<-named</a>/imm32/next -<span id="L31223" class="LineNr">31223 </span><span class="subxMinorFunction">_Primitive-loop-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31224" class="LineNr">31224 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31225" class="LineNr">31225 </span> 0x11/imm32/alloc-id:fake -<span id="L31226" class="LineNr">31226 </span> <a href='mu.subx.html#L31491'>_string-loop-if-float<</a>/imm32/name -<span id="L31227" class="LineNr">31227 </span> 0x11/imm32/alloc-id:fake -<span id="L31228" class="LineNr">31228 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L31229" class="LineNr">31229 </span> 0/imm32/no-outputs -<span id="L31230" class="LineNr">31230 </span> 0/imm32/no-outputs -<span id="L31231" class="LineNr">31231 </span> 0x11/imm32/alloc-id:fake -<span id="L31232" class="LineNr">31232 </span> <a href='mu.subx.html#L31643'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L31233" class="LineNr">31233 </span> 0/imm32/no-rm32 -<span id="L31234" class="LineNr">31234 </span> 0/imm32/no-r32 -<span id="L31235" class="LineNr">31235 </span> 0/imm32/no-imm32 -<span id="L31236" class="LineNr">31236 </span> 0/imm32/no-imm8 -<span id="L31237" class="LineNr">31237 </span> 1/imm32/disp32-is-first-inout -<span id="L31238" class="LineNr">31238 </span> 0/imm32/no-xm32 -<span id="L31239" class="LineNr">31239 </span> 0/imm32/no-x32 +<span id="L31222" class="LineNr">31222 </span> <a href='mu.subx.html#L32280'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L31223" class="LineNr">31223 </span> 0/imm32/no-rm32 +<span id="L31224" class="LineNr">31224 </span> 0/imm32/no-r32 +<span id="L31225" class="LineNr">31225 </span> 0/imm32/no-imm32 +<span id="L31226" class="LineNr">31226 </span> 0/imm32/no-imm8 +<span id="L31227" class="LineNr">31227 </span> 1/imm32/disp32-is-first-inout +<span id="L31228" class="LineNr">31228 </span> 0/imm32/no-xm32 +<span id="L31229" class="LineNr">31229 </span> 0/imm32/no-x32 +<span id="L31230" class="LineNr">31230 </span> 0x11/imm32/alloc-id:fake +<span id="L31231" class="LineNr">31231 </span> <a href='mu.subx.html#L31232'>_Primitive-break-if-addr>=-named</a>/imm32/next +<span id="L31232" class="LineNr">31232 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31233" class="LineNr">31233 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31234" class="LineNr">31234 </span> 0x11/imm32/alloc-id:fake +<span id="L31235" class="LineNr">31235 </span> <a href='mu.subx.html#L32013'>_string-break-if-addr>=</a>/imm32/name +<span id="L31236" class="LineNr">31236 </span> 0x11/imm32/alloc-id:fake +<span id="L31237" class="LineNr">31237 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31238" class="LineNr">31238 </span> 0/imm32/no-outputs +<span id="L31239" class="LineNr">31239 </span> 0/imm32/no-outputs <span id="L31240" class="LineNr">31240 </span> 0x11/imm32/alloc-id:fake -<span id="L31241" class="LineNr">31241 </span> <a href='mu.subx.html#L31242'>_Primitive-loop-if-float>=-named</a>/imm32/next -<span id="L31242" class="LineNr">31242 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31243" class="LineNr">31243 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31244" class="LineNr">31244 </span> 0x11/imm32/alloc-id:fake -<span id="L31245" class="LineNr">31245 </span> <a href='mu.subx.html#L31506'>_string-loop-if-float>=</a>/imm32/name -<span id="L31246" class="LineNr">31246 </span> 0x11/imm32/alloc-id:fake -<span id="L31247" class="LineNr">31247 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L31248" class="LineNr">31248 </span> 0/imm32/no-outputs -<span id="L31249" class="LineNr">31249 </span> 0/imm32/no-outputs -<span id="L31250" class="LineNr">31250 </span> 0x11/imm32/alloc-id:fake -<span id="L31251" class="LineNr">31251 </span> <a href='mu.subx.html#L31658'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L31252" class="LineNr">31252 </span> 0/imm32/no-rm32 -<span id="L31253" class="LineNr">31253 </span> 0/imm32/no-r32 -<span id="L31254" class="LineNr">31254 </span> 0/imm32/no-imm32 -<span id="L31255" class="LineNr">31255 </span> 0/imm32/no-imm8 -<span id="L31256" class="LineNr">31256 </span> 1/imm32/disp32-is-first-inout -<span id="L31257" class="LineNr">31257 </span> 0/imm32/no-xm32 -<span id="L31258" class="LineNr">31258 </span> 0/imm32/no-x32 +<span id="L31241" class="LineNr">31241 </span> <a href='mu.subx.html#L32295'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L31242" class="LineNr">31242 </span> 0/imm32/no-rm32 +<span id="L31243" class="LineNr">31243 </span> 0/imm32/no-r32 +<span id="L31244" class="LineNr">31244 </span> 0/imm32/no-imm32 +<span id="L31245" class="LineNr">31245 </span> 0/imm32/no-imm8 +<span id="L31246" class="LineNr">31246 </span> 1/imm32/disp32-is-first-inout +<span id="L31247" class="LineNr">31247 </span> 0/imm32/no-xm32 +<span id="L31248" class="LineNr">31248 </span> 0/imm32/no-x32 +<span id="L31249" class="LineNr">31249 </span> 0x11/imm32/alloc-id:fake +<span id="L31250" class="LineNr">31250 </span> <a href='mu.subx.html#L31251'>_Primitive-break-if-=-named</a>/imm32/next +<span id="L31251" class="LineNr">31251 </span><span class="subxMinorFunction">_Primitive-break-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31252" class="LineNr">31252 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31253" class="LineNr">31253 </span> 0x11/imm32/alloc-id:fake +<span id="L31254" class="LineNr">31254 </span> <a href='mu.subx.html#L31978'>_string-break-if-=</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#L33043'>Single-lit-var</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#L31261'>_Primitive-loop-if-float<=-named</a>/imm32/next -<span id="L31261" class="LineNr">31261 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31262" class="LineNr">31262 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31263" class="LineNr">31263 </span> 0x11/imm32/alloc-id:fake -<span id="L31264" class="LineNr">31264 </span> <a href='mu.subx.html#L31496'>_string-loop-if-float<=</a>/imm32/name -<span id="L31265" class="LineNr">31265 </span> 0x11/imm32/alloc-id:fake -<span id="L31266" class="LineNr">31266 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L31267" class="LineNr">31267 </span> 0/imm32/no-outputs -<span id="L31268" class="LineNr">31268 </span> 0/imm32/no-outputs -<span id="L31269" class="LineNr">31269 </span> 0x11/imm32/alloc-id:fake -<span id="L31270" class="LineNr">31270 </span> <a href='mu.subx.html#L31703'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L31271" class="LineNr">31271 </span> 0/imm32/no-rm32 -<span id="L31272" class="LineNr">31272 </span> 0/imm32/no-r32 -<span id="L31273" class="LineNr">31273 </span> 0/imm32/no-imm32 -<span id="L31274" class="LineNr">31274 </span> 0/imm32/no-imm8 -<span id="L31275" class="LineNr">31275 </span> 1/imm32/disp32-is-first-inout -<span id="L31276" class="LineNr">31276 </span> 0/imm32/no-xm32 -<span id="L31277" class="LineNr">31277 </span> 0/imm32/no-x32 +<span id="L31260" class="LineNr">31260 </span> <a href='mu.subx.html#L32310'>_string_0f_84_jump_label</a>/imm32/subx-name +<span id="L31261" class="LineNr">31261 </span> 0/imm32/no-rm32 +<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> 0/imm32/no-imm8 +<span id="L31265" class="LineNr">31265 </span> 1/imm32/disp32-is-first-inout +<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-break-if-!=-named</a>/imm32/next +<span id="L31270" class="LineNr">31270 </span><span class="subxMinorFunction">_Primitive-break-if-!=-named</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> 0x11/imm32/alloc-id:fake +<span id="L31273" class="LineNr">31273 </span> <a href='mu.subx.html#L31993'>_string-break-if-!=</a>/imm32/name +<span id="L31274" class="LineNr">31274 </span> 0x11/imm32/alloc-id:fake +<span id="L31275" class="LineNr">31275 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31276" class="LineNr">31276 </span> 0/imm32/no-outputs +<span id="L31277" class="LineNr">31277 </span> 0/imm32/no-outputs <span id="L31278" class="LineNr">31278 </span> 0x11/imm32/alloc-id:fake -<span id="L31279" class="LineNr">31279 </span> <a href='mu.subx.html#L31280'>_Primitive-loop-if-float>-named</a>/imm32/next -<span id="L31280" class="LineNr">31280 </span><span class="subxMinorFunction">_Primitive-loop-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31281" class="LineNr">31281 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31282" class="LineNr">31282 </span> 0x11/imm32/alloc-id:fake -<span id="L31283" class="LineNr">31283 </span> <a href='mu.subx.html#L31501'>_string-loop-if-float></a>/imm32/name -<span id="L31284" class="LineNr">31284 </span> 0x11/imm32/alloc-id:fake -<span id="L31285" class="LineNr">31285 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/inouts -<span id="L31286" class="LineNr">31286 </span> 0/imm32/no-outputs -<span id="L31287" class="LineNr">31287 </span> 0/imm32/no-outputs -<span id="L31288" class="LineNr">31288 </span> 0x11/imm32/alloc-id:fake -<span id="L31289" class="LineNr">31289 </span> <a href='mu.subx.html#L31718'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L31290" class="LineNr">31290 </span> 0/imm32/no-rm32 -<span id="L31291" class="LineNr">31291 </span> 0/imm32/no-r32 -<span id="L31292" class="LineNr">31292 </span> 0/imm32/no-imm32 -<span id="L31293" class="LineNr">31293 </span> 0/imm32/no-imm8 -<span id="L31294" class="LineNr">31294 </span> 1/imm32/disp32-is-first-inout -<span id="L31295" class="LineNr">31295 </span> 0/imm32/no-xm32 -<span id="L31296" class="LineNr">31296 </span> 0/imm32/no-x32 -<span id="L31297" class="LineNr">31297 </span> 0/imm32/next -<span id="L31298" class="LineNr">31298 </span> 0/imm32/next -<span id="L31299" class="LineNr">31299 </span> -<span id="L31300" class="LineNr">31300 </span><span class="subxComment"># string literals for Mu instructions</span> -<span id="L31301" class="LineNr">31301 </span><span class="subxMinorFunction">_string-add</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31302" class="LineNr">31302 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31303" class="LineNr">31303 </span> <span class="subxComment"># "add"</span> -<span id="L31304" class="LineNr">31304 </span> 0x3/imm32/size -<span id="L31305" class="LineNr">31305 </span> 0x61/a 0x64/d 0x64/d -<span id="L31306" class="LineNr">31306 </span><span class="subxMinorFunction">_string-address</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31307" class="LineNr">31307 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31308" class="LineNr">31308 </span> <span class="subxComment"># "address"</span> -<span id="L31309" class="LineNr">31309 </span> 0x7/imm32/size -<span id="L31310" class="LineNr">31310 </span> 0x61/a 0x64/d 0x64/d 0x72/r 0x65/e 0x73/s 0x73/s -<span id="L31311" class="LineNr">31311 </span><span class="subxMinorFunction">_string-add-to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31312" class="LineNr">31312 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31313" class="LineNr">31313 </span> <span class="subxComment"># "add-to"</span> -<span id="L31314" class="LineNr">31314 </span> 0x6/imm32/size -<span id="L31315" class="LineNr">31315 </span> 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o -<span id="L31316" class="LineNr">31316 </span><span class="subxMinorFunction">_string-and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31317" class="LineNr">31317 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31318" class="LineNr">31318 </span> <span class="subxComment"># "and"</span> -<span id="L31319" class="LineNr">31319 </span> 0x3/imm32/size -<span id="L31320" class="LineNr">31320 </span> 0x61/a 0x6e/n 0x64/d -<span id="L31321" class="LineNr">31321 </span><span class="subxMinorFunction">_string-and-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31322" class="LineNr">31322 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31323" class="LineNr">31323 </span> <span class="subxComment"># "and-with"</span> -<span id="L31324" class="LineNr">31324 </span> 0x8/imm32/size -<span id="L31325" class="LineNr">31325 </span> 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L31326" class="LineNr">31326 </span><span class="subxMinorFunction">_string-break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31327" class="LineNr">31327 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31328" class="LineNr">31328 </span> <span class="subxComment"># "break"</span> -<span id="L31329" class="LineNr">31329 </span> 0x5/imm32/size -<span id="L31330" class="LineNr">31330 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k -<span id="L31331" class="LineNr">31331 </span><span class="subxMinorFunction">_string-break-if-<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31332" class="LineNr">31332 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31333" class="LineNr">31333 </span> <span class="subxComment"># "break-if-<"</span> -<span id="L31334" class="LineNr">31334 </span> 0xa/imm32/size -<span id="L31335" class="LineNr">31335 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< -<span id="L31336" class="LineNr">31336 </span><span class="subxMinorFunction">_string-break-if-<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31337" class="LineNr">31337 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31338" class="LineNr">31338 </span> <span class="subxComment"># "break-if-<="</span> -<span id="L31339" class="LineNr">31339 </span> 0xb/imm32/size -<span id="L31340" class="LineNr">31340 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= -<span id="L31341" class="LineNr">31341 </span><span class="subxMinorFunction">_string-break-if-=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31342" class="LineNr">31342 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31343" class="LineNr">31343 </span> <span class="subxComment"># "break-if-="</span> -<span id="L31344" class="LineNr">31344 </span> 0xa/imm32/size -<span id="L31345" class="LineNr">31345 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= -<span id="L31346" class="LineNr">31346 </span><span class="subxMinorFunction">_string-break-if-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31279" class="LineNr">31279 </span> <a href='mu.subx.html#L32325'>_string_0f_85_jump_label</a>/imm32/subx-name +<span id="L31280" class="LineNr">31280 </span> 0/imm32/no-rm32 +<span id="L31281" class="LineNr">31281 </span> 0/imm32/no-r32 +<span id="L31282" class="LineNr">31282 </span> 0/imm32/no-imm32 +<span id="L31283" class="LineNr">31283 </span> 0/imm32/no-imm8 +<span id="L31284" class="LineNr">31284 </span> 1/imm32/disp32-is-first-inout +<span id="L31285" class="LineNr">31285 </span> 0/imm32/no-xm32 +<span id="L31286" class="LineNr">31286 </span> 0/imm32/no-x32 +<span id="L31287" class="LineNr">31287 </span> 0x11/imm32/alloc-id:fake +<span id="L31288" class="LineNr">31288 </span> <a href='mu.subx.html#L31289'>_Primitive-break-if-addr<=-named</a>/imm32/next +<span id="L31289" class="LineNr">31289 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31290" class="LineNr">31290 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31291" class="LineNr">31291 </span> 0x11/imm32/alloc-id:fake +<span id="L31292" class="LineNr">31292 </span> <a href='mu.subx.html#L32003'>_string-break-if-addr<=</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#L33043'>Single-lit-var</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#L32340'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L31299" class="LineNr">31299 </span> 0/imm32/no-rm32 +<span id="L31300" class="LineNr">31300 </span> 0/imm32/no-r32 +<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> 1/imm32/disp32-is-first-inout +<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#L31308'>_Primitive-break-if-addr>-named</a>/imm32/next +<span id="L31308" class="LineNr">31308 </span><span class="subxMinorFunction">_Primitive-break-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31309" class="LineNr">31309 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31310" class="LineNr">31310 </span> 0x11/imm32/alloc-id:fake +<span id="L31311" class="LineNr">31311 </span> <a href='mu.subx.html#L32008'>_string-break-if-addr></a>/imm32/name +<span id="L31312" class="LineNr">31312 </span> 0x11/imm32/alloc-id:fake +<span id="L31313" class="LineNr">31313 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31314" class="LineNr">31314 </span> 0/imm32/no-outputs +<span id="L31315" class="LineNr">31315 </span> 0/imm32/no-outputs +<span id="L31316" class="LineNr">31316 </span> 0x11/imm32/alloc-id:fake +<span id="L31317" class="LineNr">31317 </span> <a href='mu.subx.html#L32355'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L31318" class="LineNr">31318 </span> 0/imm32/no-rm32 +<span id="L31319" class="LineNr">31319 </span> 0/imm32/no-r32 +<span id="L31320" class="LineNr">31320 </span> 0/imm32/no-imm32 +<span id="L31321" class="LineNr">31321 </span> 0/imm32/no-imm8 +<span id="L31322" class="LineNr">31322 </span> 1/imm32/disp32-is-first-inout +<span id="L31323" class="LineNr">31323 </span> 0/imm32/no-xm32 +<span id="L31324" class="LineNr">31324 </span> 0/imm32/no-x32 +<span id="L31325" class="LineNr">31325 </span> 0x11/imm32/alloc-id:fake +<span id="L31326" class="LineNr">31326 </span> <a href='mu.subx.html#L31327'>_Primitive-break-if-<-named</a>/imm32/next +<span id="L31327" class="LineNr">31327 </span><span class="subxMinorFunction">_Primitive-break-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31328" class="LineNr">31328 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31329" class="LineNr">31329 </span> 0x11/imm32/alloc-id:fake +<span id="L31330" class="LineNr">31330 </span> <a href='mu.subx.html#L31968'>_string-break-if-<</a>/imm32/name +<span id="L31331" class="LineNr">31331 </span> 0x11/imm32/alloc-id:fake +<span id="L31332" class="LineNr">31332 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31333" class="LineNr">31333 </span> 0/imm32/no-outputs +<span id="L31334" class="LineNr">31334 </span> 0/imm32/no-outputs +<span id="L31335" class="LineNr">31335 </span> 0x11/imm32/alloc-id:fake +<span id="L31336" class="LineNr">31336 </span> <a href='mu.subx.html#L32370'>_string_0f_8c_jump_label</a>/imm32/subx-name +<span id="L31337" class="LineNr">31337 </span> 0/imm32/no-rm32 +<span id="L31338" class="LineNr">31338 </span> 0/imm32/no-r32 +<span id="L31339" class="LineNr">31339 </span> 0/imm32/no-imm32 +<span id="L31340" class="LineNr">31340 </span> 0/imm32/no-imm8 +<span id="L31341" class="LineNr">31341 </span> 1/imm32/disp32-is-first-inout +<span id="L31342" class="LineNr">31342 </span> 0/imm32/no-xm32 +<span id="L31343" class="LineNr">31343 </span> 0/imm32/no-x32 +<span id="L31344" class="LineNr">31344 </span> 0x11/imm32/alloc-id:fake +<span id="L31345" class="LineNr">31345 </span> <a href='mu.subx.html#L31346'>_Primitive-break-if->=-named</a>/imm32/next +<span id="L31346" class="LineNr">31346 </span><span class="subxMinorFunction">_Primitive-break-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> <span id="L31347" class="LineNr">31347 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31348" class="LineNr">31348 </span> <span class="subxComment"># "break-if->"</span> -<span id="L31349" class="LineNr">31349 </span> 0xa/imm32/size -<span id="L31350" class="LineNr">31350 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> -<span id="L31351" class="LineNr">31351 </span><span class="subxMinorFunction">_string-break-if->=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31352" class="LineNr">31352 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31353" class="LineNr">31353 </span> <span class="subxComment"># "break-if->="</span> -<span id="L31354" class="LineNr">31354 </span> 0xb/imm32/size -<span id="L31355" class="LineNr">31355 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= -<span id="L31356" class="LineNr">31356 </span><span class="subxMinorFunction">_string-break-if-!=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31357" class="LineNr">31357 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31358" class="LineNr">31358 </span> <span class="subxComment"># "break-if-!="</span> -<span id="L31359" class="LineNr">31359 </span> 0xb/imm32/size -<span id="L31360" class="LineNr">31360 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= -<span id="L31361" class="LineNr">31361 </span><span class="subxMinorFunction">_string-break-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31362" class="LineNr">31362 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31363" class="LineNr">31363 </span> <span class="subxComment"># "break-if-addr<"</span> -<span id="L31364" class="LineNr">31364 </span> 0xe/imm32/size -<span id="L31365" class="LineNr">31365 </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="L31366" class="LineNr">31366 </span><span class="subxMinorFunction">_string-break-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31367" class="LineNr">31367 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31368" class="LineNr">31368 </span> <span class="subxComment"># "break-if-addr<="</span> -<span id="L31369" class="LineNr">31369 </span> 0xf/imm32/size -<span id="L31370" class="LineNr">31370 </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="L31371" class="LineNr">31371 </span><span class="subxMinorFunction">_string-break-if-addr></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31372" class="LineNr">31372 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31373" class="LineNr">31373 </span> <span class="subxComment"># "break-if-addr>"</span> -<span id="L31374" class="LineNr">31374 </span> 0xe/imm32/size -<span id="L31375" class="LineNr">31375 </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="L31376" class="LineNr">31376 </span><span class="subxMinorFunction">_string-break-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31377" class="LineNr">31377 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31378" class="LineNr">31378 </span> <span class="subxComment"># "break-if-addr>="</span> -<span id="L31379" class="LineNr">31379 </span> 0xf/imm32/size -<span id="L31380" class="LineNr">31380 </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="L31381" class="LineNr">31381 </span><span class="subxMinorFunction">_string-break-if-float<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31382" class="LineNr">31382 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31383" class="LineNr">31383 </span> <span class="subxComment"># "break-if-float<"</span> -<span id="L31384" class="LineNr">31384 </span> 0xf/imm32/size -<span id="L31385" class="LineNr">31385 </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="L31386" class="LineNr">31386 </span><span class="subxMinorFunction">_string-break-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31387" class="LineNr">31387 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31388" class="LineNr">31388 </span> <span class="subxComment"># "break-if-float<="</span> -<span id="L31389" class="LineNr">31389 </span> 0x10/imm32/size -<span id="L31390" class="LineNr">31390 </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="L31391" class="LineNr">31391 </span><span class="subxMinorFunction">_string-break-if-float></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31392" class="LineNr">31392 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31393" class="LineNr">31393 </span> <span class="subxComment"># "break-if-float>"</span> -<span id="L31394" class="LineNr">31394 </span> 0xf/imm32/size -<span id="L31395" class="LineNr">31395 </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="L31396" class="LineNr">31396 </span><span class="subxMinorFunction">_string-break-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31397" class="LineNr">31397 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31398" class="LineNr">31398 </span> <span class="subxComment"># "break-if-float>="</span> -<span id="L31399" class="LineNr">31399 </span> 0x10/imm32/size -<span id="L31400" class="LineNr">31400 </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="L31401" class="LineNr">31401 </span><span class="subxMinorFunction">_string-compare</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31402" class="LineNr">31402 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31403" class="LineNr">31403 </span> <span class="subxComment"># "compare"</span> -<span id="L31404" class="LineNr">31404 </span> 0x7/imm32/size -<span id="L31405" class="LineNr">31405 </span> 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e -<span id="L31406" class="LineNr">31406 </span><span class="subxMinorFunction">_string-copy</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31407" class="LineNr">31407 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31408" class="LineNr">31408 </span> <span class="subxComment"># "copy"</span> -<span id="L31409" class="LineNr">31409 </span> 0x4/imm32/size -<span id="L31410" class="LineNr">31410 </span> 0x63/c 0x6f/o 0x70/p 0x79/y -<span id="L31411" class="LineNr">31411 </span><span class="subxMinorFunction">_string-copy-to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31412" class="LineNr">31412 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31413" class="LineNr">31413 </span> <span class="subxComment"># "copy-to"</span> -<span id="L31414" class="LineNr">31414 </span> 0x7/imm32/size -<span id="L31415" class="LineNr">31415 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o -<span id="L31416" class="LineNr">31416 </span><span class="subxMinorFunction">_string-copy-byte</span>: -<span id="L31417" class="LineNr">31417 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31418" class="LineNr">31418 </span> <span class="subxComment"># "copy-byte"</span> -<span id="L31419" class="LineNr">31419 </span> 0x9/imm32/size -<span id="L31420" class="LineNr">31420 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/- 0x62/b 0x79/y 0x74/t 0x65/e -<span id="L31421" class="LineNr">31421 </span><span class="subxMinorFunction">_string-copy-byte-to</span>: -<span id="L31422" class="LineNr">31422 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31423" class="LineNr">31423 </span> <span class="subxComment"># "copy-byte-to"</span> -<span id="L31424" class="LineNr">31424 </span> 0xc/imm32/size -<span id="L31425" class="LineNr">31425 </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="L31426" class="LineNr">31426 </span><span class="subxMinorFunction">_string-decrement</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31427" class="LineNr">31427 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31428" class="LineNr">31428 </span> <span class="subxComment"># "decrement"</span> -<span id="L31429" class="LineNr">31429 </span> 0x9/imm32/size -<span id="L31430" class="LineNr">31430 </span> 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t -<span id="L31431" class="LineNr">31431 </span><span class="subxMinorFunction">_string-increment</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31432" class="LineNr">31432 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31433" class="LineNr">31433 </span> <span class="subxComment"># "increment"</span> -<span id="L31434" class="LineNr">31434 </span> 0x9/imm32/size -<span id="L31435" class="LineNr">31435 </span> 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t -<span id="L31436" class="LineNr">31436 </span><span class="subxMinorFunction">_string-loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31437" class="LineNr">31437 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31438" class="LineNr">31438 </span> <span class="subxComment"># "loop"</span> -<span id="L31439" class="LineNr">31439 </span> 0x4/imm32/size -<span id="L31440" class="LineNr">31440 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p -<span id="L31441" class="LineNr">31441 </span><span class="subxMinorFunction">_string-loop-if-<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31348" class="LineNr">31348 </span> 0x11/imm32/alloc-id:fake +<span id="L31349" class="LineNr">31349 </span> <a href='mu.subx.html#L31988'>_string-break-if->=</a>/imm32/name +<span id="L31350" class="LineNr">31350 </span> 0x11/imm32/alloc-id:fake +<span id="L31351" class="LineNr">31351 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31352" class="LineNr">31352 </span> 0/imm32/no-outputs +<span id="L31353" class="LineNr">31353 </span> 0/imm32/no-outputs +<span id="L31354" class="LineNr">31354 </span> 0x11/imm32/alloc-id:fake +<span id="L31355" class="LineNr">31355 </span> <a href='mu.subx.html#L32385'>_string_0f_8d_jump_label</a>/imm32/subx-name +<span id="L31356" class="LineNr">31356 </span> 0/imm32/no-rm32 +<span id="L31357" class="LineNr">31357 </span> 0/imm32/no-r32 +<span id="L31358" class="LineNr">31358 </span> 0/imm32/no-imm32 +<span id="L31359" class="LineNr">31359 </span> 0/imm32/no-imm8 +<span id="L31360" class="LineNr">31360 </span> 1/imm32/disp32-is-first-inout +<span id="L31361" class="LineNr">31361 </span> 0/imm32/no-xm32 +<span id="L31362" class="LineNr">31362 </span> 0/imm32/no-x32 +<span id="L31363" class="LineNr">31363 </span> 0x11/imm32/alloc-id:fake +<span id="L31364" class="LineNr">31364 </span> <a href='mu.subx.html#L31365'>_Primitive-break-if-<=-named</a>/imm32/next +<span id="L31365" class="LineNr">31365 </span><span class="subxMinorFunction">_Primitive-break-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31366" class="LineNr">31366 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31367" class="LineNr">31367 </span> 0x11/imm32/alloc-id:fake +<span id="L31368" class="LineNr">31368 </span> <a href='mu.subx.html#L31973'>_string-break-if-<=</a>/imm32/name +<span id="L31369" class="LineNr">31369 </span> 0x11/imm32/alloc-id:fake +<span id="L31370" class="LineNr">31370 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31371" class="LineNr">31371 </span> 0/imm32/no-outputs +<span id="L31372" class="LineNr">31372 </span> 0/imm32/no-outputs +<span id="L31373" class="LineNr">31373 </span> 0x11/imm32/alloc-id:fake +<span id="L31374" class="LineNr">31374 </span> <a href='mu.subx.html#L32400'>_string_0f_8e_jump_label</a>/imm32/subx-name +<span id="L31375" class="LineNr">31375 </span> 0/imm32/no-rm32 +<span id="L31376" class="LineNr">31376 </span> 0/imm32/no-r32 +<span id="L31377" class="LineNr">31377 </span> 0/imm32/no-imm32 +<span id="L31378" class="LineNr">31378 </span> 0/imm32/no-imm8 +<span id="L31379" class="LineNr">31379 </span> 1/imm32/disp32-is-first-inout +<span id="L31380" class="LineNr">31380 </span> 0/imm32/no-xm32 +<span id="L31381" class="LineNr">31381 </span> 0/imm32/no-x32 +<span id="L31382" class="LineNr">31382 </span> 0x11/imm32/alloc-id:fake +<span id="L31383" class="LineNr">31383 </span> <a href='mu.subx.html#L31384'>_Primitive-break-if->-named</a>/imm32/next +<span id="L31384" class="LineNr">31384 </span><span class="subxMinorFunction">_Primitive-break-if->-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31385" class="LineNr">31385 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31386" class="LineNr">31386 </span> 0x11/imm32/alloc-id:fake +<span id="L31387" class="LineNr">31387 </span> <a href='mu.subx.html#L31983'>_string-break-if-></a>/imm32/name +<span id="L31388" class="LineNr">31388 </span> 0x11/imm32/alloc-id:fake +<span id="L31389" class="LineNr">31389 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31390" class="LineNr">31390 </span> 0/imm32/no-outputs +<span id="L31391" class="LineNr">31391 </span> 0/imm32/no-outputs +<span id="L31392" class="LineNr">31392 </span> 0x11/imm32/alloc-id:fake +<span id="L31393" class="LineNr">31393 </span> <a href='mu.subx.html#L32415'>_string_0f_8f_jump_label</a>/imm32/subx-name +<span id="L31394" class="LineNr">31394 </span> 0/imm32/no-rm32 +<span id="L31395" class="LineNr">31395 </span> 0/imm32/no-r32 +<span id="L31396" class="LineNr">31396 </span> 0/imm32/no-imm32 +<span id="L31397" class="LineNr">31397 </span> 0/imm32/no-imm8 +<span id="L31398" class="LineNr">31398 </span> 1/imm32/disp32-is-first-inout +<span id="L31399" class="LineNr">31399 </span> 0/imm32/no-xm32 +<span id="L31400" class="LineNr">31400 </span> 0/imm32/no-x32 +<span id="L31401" class="LineNr">31401 </span> 0x11/imm32/alloc-id:fake +<span id="L31402" class="LineNr">31402 </span> <a href='mu.subx.html#L31403'>_Primitive-break-named</a>/imm32/next +<span id="L31403" class="LineNr">31403 </span><span class="subxMinorFunction">_Primitive-break-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31404" class="LineNr">31404 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31405" class="LineNr">31405 </span> 0x11/imm32/alloc-id:fake +<span id="L31406" class="LineNr">31406 </span> <a href='mu.subx.html#L31963'>_string-break</a>/imm32/name +<span id="L31407" class="LineNr">31407 </span> 0x11/imm32/alloc-id:fake +<span id="L31408" class="LineNr">31408 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31409" class="LineNr">31409 </span> 0/imm32/no-outputs +<span id="L31410" class="LineNr">31410 </span> 0/imm32/no-outputs +<span id="L31411" class="LineNr">31411 </span> 0x11/imm32/alloc-id:fake +<span id="L31412" class="LineNr">31412 </span> <a href='mu.subx.html#L32720'>_string_e9_jump_label</a>/imm32/subx-name +<span id="L31413" class="LineNr">31413 </span> 0/imm32/no-rm32 +<span id="L31414" class="LineNr">31414 </span> 0/imm32/no-r32 +<span id="L31415" class="LineNr">31415 </span> 0/imm32/no-imm32 +<span id="L31416" class="LineNr">31416 </span> 0/imm32/no-imm8 +<span id="L31417" class="LineNr">31417 </span> 1/imm32/disp32-is-first-inout +<span id="L31418" class="LineNr">31418 </span> 0/imm32/no-xm32 +<span id="L31419" class="LineNr">31419 </span> 0/imm32/no-x32 +<span id="L31420" class="LineNr">31420 </span> 0x11/imm32/alloc-id:fake +<span id="L31421" class="LineNr">31421 </span> <a href='mu.subx.html#L31422'>_Primitive-loop-if-addr<-named</a>/imm32/next +<span id="L31422" class="LineNr">31422 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31423" class="LineNr">31423 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31424" class="LineNr">31424 </span> 0x11/imm32/alloc-id:fake +<span id="L31425" class="LineNr">31425 </span> <a href='mu.subx.html#L32108'>_string-loop-if-addr<</a>/imm32/name +<span id="L31426" class="LineNr">31426 </span> 0x11/imm32/alloc-id:fake +<span id="L31427" class="LineNr">31427 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31428" class="LineNr">31428 </span> 0/imm32/no-outputs +<span id="L31429" class="LineNr">31429 </span> 0/imm32/no-outputs +<span id="L31430" class="LineNr">31430 </span> 0x11/imm32/alloc-id:fake +<span id="L31431" class="LineNr">31431 </span> <a href='mu.subx.html#L32280'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L31432" class="LineNr">31432 </span> 0/imm32/no-rm32 +<span id="L31433" class="LineNr">31433 </span> 0/imm32/no-r32 +<span id="L31434" class="LineNr">31434 </span> 0/imm32/no-imm32 +<span id="L31435" class="LineNr">31435 </span> 0/imm32/no-imm8 +<span id="L31436" class="LineNr">31436 </span> 1/imm32/disp32-is-first-inout +<span id="L31437" class="LineNr">31437 </span> 0/imm32/no-xm32 +<span id="L31438" class="LineNr">31438 </span> 0/imm32/no-x32 +<span id="L31439" class="LineNr">31439 </span> 0x11/imm32/alloc-id:fake +<span id="L31440" class="LineNr">31440 </span> <a href='mu.subx.html#L31441'>_Primitive-loop-if-addr>=-named</a>/imm32/next +<span id="L31441" class="LineNr">31441 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> <span id="L31442" class="LineNr">31442 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31443" class="LineNr">31443 </span> <span class="subxComment"># "loop-if-<"</span> -<span id="L31444" class="LineNr">31444 </span> 0x9/imm32/size -<span id="L31445" class="LineNr">31445 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< -<span id="L31446" class="LineNr">31446 </span><span class="subxMinorFunction">_string-loop-if-<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31447" class="LineNr">31447 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31448" class="LineNr">31448 </span> <span class="subxComment"># "loop-if-<="</span> -<span id="L31449" class="LineNr">31449 </span> 0xa/imm32/size -<span id="L31450" class="LineNr">31450 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= -<span id="L31451" class="LineNr">31451 </span><span class="subxMinorFunction">_string-loop-if-=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31452" class="LineNr">31452 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31453" class="LineNr">31453 </span> <span class="subxComment"># "loop-if-="</span> -<span id="L31454" class="LineNr">31454 </span> 0x9/imm32/size -<span id="L31455" class="LineNr">31455 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= -<span id="L31456" class="LineNr">31456 </span><span class="subxMinorFunction">_string-loop-if-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31457" class="LineNr">31457 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31458" class="LineNr">31458 </span> <span class="subxComment"># "loop-if->"</span> -<span id="L31459" class="LineNr">31459 </span> 0x9/imm32/size -<span id="L31460" class="LineNr">31460 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> -<span id="L31461" class="LineNr">31461 </span><span class="subxMinorFunction">_string-loop-if->=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31462" class="LineNr">31462 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31463" class="LineNr">31463 </span> <span class="subxComment"># "loop-if->="</span> -<span id="L31464" class="LineNr">31464 </span> 0xa/imm32/size -<span id="L31465" class="LineNr">31465 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= -<span id="L31466" class="LineNr">31466 </span><span class="subxMinorFunction">_string-loop-if-!=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31467" class="LineNr">31467 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31468" class="LineNr">31468 </span> <span class="subxComment"># "loop-if-!="</span> -<span id="L31469" class="LineNr">31469 </span> 0xa/imm32/size -<span id="L31470" class="LineNr">31470 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= -<span id="L31471" class="LineNr">31471 </span><span class="subxMinorFunction">_string-loop-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31472" class="LineNr">31472 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31473" class="LineNr">31473 </span> <span class="subxComment"># "loop-if-addr<"</span> -<span id="L31474" class="LineNr">31474 </span> 0xd/imm32/size -<span id="L31475" class="LineNr">31475 </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="L31476" class="LineNr">31476 </span><span class="subxMinorFunction">_string-loop-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31477" class="LineNr">31477 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31478" class="LineNr">31478 </span> <span class="subxComment"># "loop-if-addr<="</span> -<span id="L31479" class="LineNr">31479 </span> 0xe/imm32/size -<span id="L31480" class="LineNr">31480 </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="L31481" class="LineNr">31481 </span><span class="subxMinorFunction">_string-loop-if-addr></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31482" class="LineNr">31482 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31483" class="LineNr">31483 </span> <span class="subxComment"># "loop-if-addr>"</span> -<span id="L31484" class="LineNr">31484 </span> 0xd/imm32/size -<span id="L31485" class="LineNr">31485 </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="L31486" class="LineNr">31486 </span><span class="subxMinorFunction">_string-loop-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31487" class="LineNr">31487 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31488" class="LineNr">31488 </span> <span class="subxComment"># "loop-if-addr>="</span> -<span id="L31489" class="LineNr">31489 </span> 0xe/imm32/size -<span id="L31490" class="LineNr">31490 </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="L31491" class="LineNr">31491 </span><span class="subxMinorFunction">_string-loop-if-float<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31492" class="LineNr">31492 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31493" class="LineNr">31493 </span> <span class="subxComment"># "loop-if-float<"</span> -<span id="L31494" class="LineNr">31494 </span> 0xe/imm32/size -<span id="L31495" class="LineNr">31495 </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="L31496" class="LineNr">31496 </span><span class="subxMinorFunction">_string-loop-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31497" class="LineNr">31497 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31498" class="LineNr">31498 </span> <span class="subxComment"># "loop-if-float<="</span> -<span id="L31499" class="LineNr">31499 </span> 0xf/imm32/size -<span id="L31500" class="LineNr">31500 </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="L31501" class="LineNr">31501 </span><span class="subxMinorFunction">_string-loop-if-float></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31502" class="LineNr">31502 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31503" class="LineNr">31503 </span> <span class="subxComment"># "loop-if-float>"</span> -<span id="L31504" class="LineNr">31504 </span> 0xe/imm32/size -<span id="L31505" class="LineNr">31505 </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="L31506" class="LineNr">31506 </span><span class="subxMinorFunction">_string-loop-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31507" class="LineNr">31507 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31508" class="LineNr">31508 </span> <span class="subxComment"># "loop-if-float>="</span> -<span id="L31509" class="LineNr">31509 </span> 0xf/imm32/size -<span id="L31510" class="LineNr">31510 </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="L31511" class="LineNr">31511 </span><span class="subxMinorFunction">_string-multiply</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31512" class="LineNr">31512 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31513" class="LineNr">31513 </span> <span class="subxComment"># "multiply"</span> -<span id="L31514" class="LineNr">31514 </span> 0x8/imm32/size -<span id="L31515" class="LineNr">31515 </span> 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y -<span id="L31516" class="LineNr">31516 </span><span class="subxMinorFunction">_string-convert</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31517" class="LineNr">31517 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31518" class="LineNr">31518 </span> <span class="subxComment"># "convert"</span> -<span id="L31519" class="LineNr">31519 </span> 0x7/imm32/size -<span id="L31520" class="LineNr">31520 </span> 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t -<span id="L31521" class="LineNr">31521 </span><span class="subxMinorFunction">_string-truncate</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31522" class="LineNr">31522 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31523" class="LineNr">31523 </span> <span class="subxComment"># "truncate"</span> -<span id="L31524" class="LineNr">31524 </span> 0x8/imm32/size -<span id="L31525" class="LineNr">31525 </span> 0x74/t 0x72/r 0x75/u 0x6e/n 0x63/c 0x61/a 0x74/t 0x65/e -<span id="L31526" class="LineNr">31526 </span><span class="subxMinorFunction">_string-reinterpret</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31527" class="LineNr">31527 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31528" class="LineNr">31528 </span> <span class="subxComment"># "reinterpret"</span> -<span id="L31529" class="LineNr">31529 </span> 0xb/imm32/size -<span id="L31530" class="LineNr">31530 </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="L31531" class="LineNr">31531 </span><span class="subxMinorFunction">_string-divide</span>: -<span id="L31532" class="LineNr">31532 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31533" class="LineNr">31533 </span> <span class="subxComment"># "divide"</span> -<span id="L31534" class="LineNr">31534 </span> 0x6/imm32/size -<span id="L31535" class="LineNr">31535 </span> 0x64/d 0x69/i 0x76/v 0x69/i 0x64/d 0x65/e -<span id="L31536" class="LineNr">31536 </span><span class="subxMinorFunction">_string-max</span>: +<span id="L31443" class="LineNr">31443 </span> 0x11/imm32/alloc-id:fake +<span id="L31444" class="LineNr">31444 </span> <a href='mu.subx.html#L32123'>_string-loop-if-addr>=</a>/imm32/name +<span id="L31445" class="LineNr">31445 </span> 0x11/imm32/alloc-id:fake +<span id="L31446" class="LineNr">31446 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31447" class="LineNr">31447 </span> 0/imm32/no-outputs +<span id="L31448" class="LineNr">31448 </span> 0/imm32/no-outputs +<span id="L31449" class="LineNr">31449 </span> 0x11/imm32/alloc-id:fake +<span id="L31450" class="LineNr">31450 </span> <a href='mu.subx.html#L32295'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L31451" class="LineNr">31451 </span> 0/imm32/no-rm32 +<span id="L31452" class="LineNr">31452 </span> 0/imm32/no-r32 +<span id="L31453" class="LineNr">31453 </span> 0/imm32/no-imm32 +<span id="L31454" class="LineNr">31454 </span> 0/imm32/no-imm8 +<span id="L31455" class="LineNr">31455 </span> 1/imm32/disp32-is-first-inout +<span id="L31456" class="LineNr">31456 </span> 0/imm32/no-xm32 +<span id="L31457" class="LineNr">31457 </span> 0/imm32/no-x32 +<span id="L31458" class="LineNr">31458 </span> 0x11/imm32/alloc-id:fake +<span id="L31459" class="LineNr">31459 </span> <a href='mu.subx.html#L31460'>_Primitive-loop-if-=-named</a>/imm32/next +<span id="L31460" class="LineNr">31460 </span><span class="subxMinorFunction">_Primitive-loop-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31461" class="LineNr">31461 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31462" class="LineNr">31462 </span> 0x11/imm32/alloc-id:fake +<span id="L31463" class="LineNr">31463 </span> <a href='mu.subx.html#L32088'>_string-loop-if-=</a>/imm32/name +<span id="L31464" class="LineNr">31464 </span> 0x11/imm32/alloc-id:fake +<span id="L31465" class="LineNr">31465 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31466" class="LineNr">31466 </span> 0/imm32/no-outputs +<span id="L31467" class="LineNr">31467 </span> 0/imm32/no-outputs +<span id="L31468" class="LineNr">31468 </span> 0x11/imm32/alloc-id:fake +<span id="L31469" class="LineNr">31469 </span> <a href='mu.subx.html#L32310'>_string_0f_84_jump_label</a>/imm32/subx-name +<span id="L31470" class="LineNr">31470 </span> 0/imm32/no-rm32 +<span id="L31471" class="LineNr">31471 </span> 0/imm32/no-r32 +<span id="L31472" class="LineNr">31472 </span> 0/imm32/no-imm32 +<span id="L31473" class="LineNr">31473 </span> 0/imm32/no-imm8 +<span id="L31474" class="LineNr">31474 </span> 1/imm32/disp32-is-first-inout +<span id="L31475" class="LineNr">31475 </span> 0/imm32/no-xm32 +<span id="L31476" class="LineNr">31476 </span> 0/imm32/no-x32 +<span id="L31477" class="LineNr">31477 </span> 0x11/imm32/alloc-id:fake +<span id="L31478" class="LineNr">31478 </span> <a href='mu.subx.html#L31479'>_Primitive-loop-if-!=-named</a>/imm32/next +<span id="L31479" class="LineNr">31479 </span><span class="subxMinorFunction">_Primitive-loop-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31480" class="LineNr">31480 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31481" class="LineNr">31481 </span> 0x11/imm32/alloc-id:fake +<span id="L31482" class="LineNr">31482 </span> <a href='mu.subx.html#L32103'>_string-loop-if-!=</a>/imm32/name +<span id="L31483" class="LineNr">31483 </span> 0x11/imm32/alloc-id:fake +<span id="L31484" class="LineNr">31484 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31485" class="LineNr">31485 </span> 0/imm32/no-outputs +<span id="L31486" class="LineNr">31486 </span> 0/imm32/no-outputs +<span id="L31487" class="LineNr">31487 </span> 0x11/imm32/alloc-id:fake +<span id="L31488" class="LineNr">31488 </span> <a href='mu.subx.html#L32325'>_string_0f_85_jump_label</a>/imm32/subx-name +<span id="L31489" class="LineNr">31489 </span> 0/imm32/no-rm32 +<span id="L31490" class="LineNr">31490 </span> 0/imm32/no-r32 +<span id="L31491" class="LineNr">31491 </span> 0/imm32/no-imm32 +<span id="L31492" class="LineNr">31492 </span> 0/imm32/no-imm8 +<span id="L31493" class="LineNr">31493 </span> 1/imm32/disp32-is-first-inout +<span id="L31494" class="LineNr">31494 </span> 0/imm32/no-xm32 +<span id="L31495" class="LineNr">31495 </span> 0/imm32/no-x32 +<span id="L31496" class="LineNr">31496 </span> 0x11/imm32/alloc-id:fake +<span id="L31497" class="LineNr">31497 </span> <a href='mu.subx.html#L31498'>_Primitive-loop-if-addr<=-named</a>/imm32/next +<span id="L31498" class="LineNr">31498 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31499" class="LineNr">31499 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31500" class="LineNr">31500 </span> 0x11/imm32/alloc-id:fake +<span id="L31501" class="LineNr">31501 </span> <a href='mu.subx.html#L32113'>_string-loop-if-addr<=</a>/imm32/name +<span id="L31502" class="LineNr">31502 </span> 0x11/imm32/alloc-id:fake +<span id="L31503" class="LineNr">31503 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31504" class="LineNr">31504 </span> 0/imm32/no-outputs +<span id="L31505" class="LineNr">31505 </span> 0/imm32/no-outputs +<span id="L31506" class="LineNr">31506 </span> 0x11/imm32/alloc-id:fake +<span id="L31507" class="LineNr">31507 </span> <a href='mu.subx.html#L32340'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L31508" class="LineNr">31508 </span> 0/imm32/no-rm32 +<span id="L31509" class="LineNr">31509 </span> 0/imm32/no-r32 +<span id="L31510" class="LineNr">31510 </span> 0/imm32/no-imm32 +<span id="L31511" class="LineNr">31511 </span> 0/imm32/no-imm8 +<span id="L31512" class="LineNr">31512 </span> 1/imm32/disp32-is-first-inout +<span id="L31513" class="LineNr">31513 </span> 0/imm32/no-xm32 +<span id="L31514" class="LineNr">31514 </span> 0/imm32/no-x32 +<span id="L31515" class="LineNr">31515 </span> 0x11/imm32/alloc-id:fake +<span id="L31516" class="LineNr">31516 </span> <a href='mu.subx.html#L31517'>_Primitive-loop-if-addr>-named</a>/imm32/next +<span id="L31517" class="LineNr">31517 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31518" class="LineNr">31518 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31519" class="LineNr">31519 </span> 0x11/imm32/alloc-id:fake +<span id="L31520" class="LineNr">31520 </span> <a href='mu.subx.html#L32118'>_string-loop-if-addr></a>/imm32/name +<span id="L31521" class="LineNr">31521 </span> 0x11/imm32/alloc-id:fake +<span id="L31522" class="LineNr">31522 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31523" class="LineNr">31523 </span> 0/imm32/no-outputs +<span id="L31524" class="LineNr">31524 </span> 0/imm32/no-outputs +<span id="L31525" class="LineNr">31525 </span> 0x11/imm32/alloc-id:fake +<span id="L31526" class="LineNr">31526 </span> <a href='mu.subx.html#L32355'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L31527" class="LineNr">31527 </span> 0/imm32/no-rm32 +<span id="L31528" class="LineNr">31528 </span> 0/imm32/no-r32 +<span id="L31529" class="LineNr">31529 </span> 0/imm32/no-imm32 +<span id="L31530" class="LineNr">31530 </span> 0/imm32/no-imm8 +<span id="L31531" class="LineNr">31531 </span> 1/imm32/disp32-is-first-inout +<span id="L31532" class="LineNr">31532 </span> 0/imm32/no-xm32 +<span id="L31533" class="LineNr">31533 </span> 0/imm32/no-x32 +<span id="L31534" class="LineNr">31534 </span> 0x11/imm32/alloc-id:fake +<span id="L31535" class="LineNr">31535 </span> <a href='mu.subx.html#L31536'>_Primitive-loop-if-<-named</a>/imm32/next +<span id="L31536" class="LineNr">31536 </span><span class="subxMinorFunction">_Primitive-loop-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> <span id="L31537" class="LineNr">31537 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31538" class="LineNr">31538 </span> <span class="subxComment"># "max"</span> -<span id="L31539" class="LineNr">31539 </span> 0x3/imm32/size -<span id="L31540" class="LineNr">31540 </span> 0x6d/m 0x61/a 0x78/x -<span id="L31541" class="LineNr">31541 </span><span class="subxMinorFunction">_string-min</span>: -<span id="L31542" class="LineNr">31542 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31543" class="LineNr">31543 </span> <span class="subxComment"># "min"</span> -<span id="L31544" class="LineNr">31544 </span> 0x3/imm32/size -<span id="L31545" class="LineNr">31545 </span> 0x6d/m 0x69/i 0x6e/n -<span id="L31546" class="LineNr">31546 </span><span class="subxMinorFunction">_string-reciprocal</span>: -<span id="L31547" class="LineNr">31547 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31548" class="LineNr">31548 </span> <span class="subxComment"># "reciprocal"</span> -<span id="L31549" class="LineNr">31549 </span> 0xa/imm32/size -<span id="L31550" class="LineNr">31550 </span> 0x72/r 0x65/e 0x63/c 0x69/i 0x70/p 0x72/r 0x6f/o 0x63/c 0x61/a 0x6c/l -<span id="L31551" class="LineNr">31551 </span><span class="subxMinorFunction">_string-square-root</span>: -<span id="L31552" class="LineNr">31552 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31553" class="LineNr">31553 </span> <span class="subxComment"># "square-root"</span> -<span id="L31554" class="LineNr">31554 </span> 0xb/imm32/size -<span id="L31555" class="LineNr">31555 </span> 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/- 0x72/r 0x6f/o 0x6f/o 0x74/t -<span id="L31556" class="LineNr">31556 </span><span class="subxMinorFunction">_string-inverse-square-root</span>: -<span id="L31557" class="LineNr">31557 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31558" class="LineNr">31558 </span> <span class="subxComment"># "inverse-square-root"</span> -<span id="L31559" class="LineNr">31559 </span> 0x13/imm32/size -<span id="L31560" class="LineNr">31560 </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="L31561" class="LineNr">31561 </span><span class="subxMinorFunction">_string-negate</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31562" class="LineNr">31562 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31563" class="LineNr">31563 </span> <span class="subxComment"># "negate"</span> -<span id="L31564" class="LineNr">31564 </span> 0x6/imm32/size -<span id="L31565" class="LineNr">31565 </span> 0x6e/n 0x65/e 0x67/g 0x61/a 0x74/t 0x65/e -<span id="L31566" class="LineNr">31566 </span><span class="subxMinorFunction">_string-or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31567" class="LineNr">31567 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31568" class="LineNr">31568 </span> <span class="subxComment"># "or"</span> -<span id="L31569" class="LineNr">31569 </span> 0x2/imm32/size -<span id="L31570" class="LineNr">31570 </span> 0x6f/o 0x72/r -<span id="L31571" class="LineNr">31571 </span><span class="subxMinorFunction">_string-or-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31572" class="LineNr">31572 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31573" class="LineNr">31573 </span> <span class="subxComment"># "or-with"</span> -<span id="L31574" class="LineNr">31574 </span> 0x7/imm32/size -<span id="L31575" class="LineNr">31575 </span> 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L31576" class="LineNr">31576 </span><span class="subxMinorFunction">_string-subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31577" class="LineNr">31577 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31578" class="LineNr">31578 </span> <span class="subxComment"># "subtract"</span> -<span id="L31579" class="LineNr">31579 </span> 0x8/imm32/size -<span id="L31580" class="LineNr">31580 </span> 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t -<span id="L31581" class="LineNr">31581 </span><span class="subxMinorFunction">_string-subtract-from</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31582" class="LineNr">31582 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31583" class="LineNr">31583 </span> <span class="subxComment"># "subtract-from"</span> -<span id="L31584" class="LineNr">31584 </span> 0xd/imm32/size -<span id="L31585" class="LineNr">31585 </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="L31586" class="LineNr">31586 </span><span class="subxMinorFunction">_string-xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31587" class="LineNr">31587 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31588" class="LineNr">31588 </span> <span class="subxComment"># "xor"</span> -<span id="L31589" class="LineNr">31589 </span> 0x3/imm32/size -<span id="L31590" class="LineNr">31590 </span> 0x78/x 0x6f/o 0x72/r -<span id="L31591" class="LineNr">31591 </span><span class="subxMinorFunction">_string-xor-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31592" class="LineNr">31592 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31593" class="LineNr">31593 </span> <span class="subxComment"># "xor-with"</span> -<span id="L31594" class="LineNr">31594 </span> 0x8/imm32/size -<span id="L31595" class="LineNr">31595 </span> 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L31596" class="LineNr">31596 </span><span class="subxMinorFunction">_string-shift-left</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31597" class="LineNr">31597 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31598" class="LineNr">31598 </span> <span class="subxComment"># "shift-left"</span> -<span id="L31599" class="LineNr">31599 </span> 0xa/imm32/size -<span id="L31600" class="LineNr">31600 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x6c/l 0x65/e 0x66/f 0x74/t -<span id="L31601" class="LineNr">31601 </span><span class="subxMinorFunction">_string-shift-right</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31602" class="LineNr">31602 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31603" class="LineNr">31603 </span> <span class="subxComment"># "shift-right"</span> -<span id="L31604" class="LineNr">31604 </span> 0xb/imm32/size -<span id="L31605" class="LineNr">31605 </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="L31606" class="LineNr">31606 </span><span class="subxMinorFunction">_string-shift-right-signed</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31607" class="LineNr">31607 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31608" class="LineNr">31608 </span> <span class="subxComment"># "shift-right-signed"</span> -<span id="L31609" class="LineNr">31609 </span> 0x12/imm32/size -<span id="L31610" class="LineNr">31610 </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="L31611" class="LineNr">31611 </span> -<span id="L31612" class="LineNr">31612 </span><span class="subxComment"># string literals for SubX instructions</span> -<span id="L31613" class="LineNr">31613 </span><span class="subxMinorFunction">_string_01_add_to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31614" class="LineNr">31614 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31615" class="LineNr">31615 </span> <span class="subxComment"># "01/add-to"</span> -<span id="L31616" class="LineNr">31616 </span> 0x9/imm32/size -<span id="L31617" class="LineNr">31617 </span> 0x30/0 0x31/1 0x2f/slash 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o -<span id="L31618" class="LineNr">31618 </span><span class="subxMinorFunction">_string_03_add</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31619" class="LineNr">31619 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31620" class="LineNr">31620 </span> <span class="subxComment"># "03/add"</span> -<span id="L31621" class="LineNr">31621 </span> 0x6/imm32/size -<span id="L31622" class="LineNr">31622 </span> 0x30/0 0x33/3 0x2f/slash 0x61/a 0x64/d 0x64/d -<span id="L31623" class="LineNr">31623 </span><span class="subxMinorFunction">_string_05_add_to_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31624" class="LineNr">31624 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31625" class="LineNr">31625 </span> <span class="subxComment"># "05/add-to-eax"</span> -<span id="L31626" class="LineNr">31626 </span> 0xd/imm32/size -<span id="L31627" class="LineNr">31627 </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="L31628" class="LineNr">31628 </span><span class="subxMinorFunction">_string_09_or_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31629" class="LineNr">31629 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31630" class="LineNr">31630 </span> <span class="subxComment"># "09/or-with"</span> -<span id="L31631" class="LineNr">31631 </span> 0xa/imm32/size -<span id="L31632" class="LineNr">31632 </span> 0x30/0 0x39/9 0x2f/slash 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L31633" class="LineNr">31633 </span><span class="subxMinorFunction">_string_0b_or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31634" class="LineNr">31634 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31635" class="LineNr">31635 </span> <span class="subxComment"># "0b/or"</span> -<span id="L31636" class="LineNr">31636 </span> 0x5/imm32/size -<span id="L31637" class="LineNr">31637 </span> 0x30/0 0x62/b 0x2f/slash 0x6f/o 0x72/r -<span id="L31638" class="LineNr">31638 </span><span class="subxMinorFunction">_string_0d_or_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31639" class="LineNr">31639 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31640" class="LineNr">31640 </span> <span class="subxComment"># "0d/or-with-eax"</span> -<span id="L31641" class="LineNr">31641 </span> 0xe/imm32/size -<span id="L31642" class="LineNr">31642 </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="L31643" class="LineNr">31643 </span><span class="subxMinorFunction">_string_0f_82_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31644" class="LineNr">31644 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31645" class="LineNr">31645 </span> <span class="subxComment"># "0f 82/jump-if-addr<"</span> -<span id="L31646" class="LineNr">31646 </span> 0x13/imm32/size -<span id="L31647" class="LineNr">31647 </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="L31648" class="LineNr">31648 </span><span class="subxMinorFunction">_string_0f_82_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31649" class="LineNr">31649 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31650" class="LineNr">31650 </span> <span class="subxComment"># "0f 82/jump-if-addr< break/disp32"</span> -<span id="L31651" class="LineNr">31651 </span> 0x20/imm32/size -<span id="L31652" class="LineNr">31652 </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="L31653" class="LineNr">31653 </span><span class="subxMinorFunction">_string_0f_82_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31654" class="LineNr">31654 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31655" class="LineNr">31655 </span> <span class="subxComment"># "0f 82/jump-if-addr< loop/disp32"</span> -<span id="L31656" class="LineNr">31656 </span> 0x1f/imm32/size -<span id="L31657" class="LineNr">31657 </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="L31658" class="LineNr">31658 </span><span class="subxMinorFunction">_string_0f_83_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31659" class="LineNr">31659 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31660" class="LineNr">31660 </span> <span class="subxComment"># "0f 83/jump-if-addr>="</span> -<span id="L31661" class="LineNr">31661 </span> 0x14/imm32/size -<span id="L31662" class="LineNr">31662 </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="L31663" class="LineNr">31663 </span><span class="subxMinorFunction">_string_0f_83_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31664" class="LineNr">31664 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31665" class="LineNr">31665 </span> <span class="subxComment"># "0f 83/jump-if-addr>= break/disp32"</span> -<span id="L31666" class="LineNr">31666 </span> 0x21/imm32/size -<span id="L31667" class="LineNr">31667 </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="L31668" class="LineNr">31668 </span><span class="subxMinorFunction">_string_0f_83_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31669" class="LineNr">31669 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31670" class="LineNr">31670 </span> <span class="subxComment"># "0f 83/jump-if-addr>= loop/disp32"</span> -<span id="L31671" class="LineNr">31671 </span> 0x20/imm32/size -<span id="L31672" class="LineNr">31672 </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="L31673" class="LineNr">31673 </span><span class="subxMinorFunction">_string_0f_84_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31674" class="LineNr">31674 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31675" class="LineNr">31675 </span> <span class="subxComment"># "0f 84/jump-if-="</span> -<span id="L31676" class="LineNr">31676 </span> 0xf/imm32/size -<span id="L31677" class="LineNr">31677 </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="L31678" class="LineNr">31678 </span><span class="subxMinorFunction">_string_0f_84_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31679" class="LineNr">31679 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31680" class="LineNr">31680 </span> <span class="subxComment"># "0f 84/jump-if-= break/disp32"</span> -<span id="L31681" class="LineNr">31681 </span> 0x1c/imm32/size -<span id="L31682" class="LineNr">31682 </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="L31683" class="LineNr">31683 </span><span class="subxMinorFunction">_string_0f_84_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31684" class="LineNr">31684 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31685" class="LineNr">31685 </span> <span class="subxComment"># "0f 84/jump-if-= loop/disp32"</span> -<span id="L31686" class="LineNr">31686 </span> 0x1b/imm32/size -<span id="L31687" class="LineNr">31687 </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="L31688" class="LineNr">31688 </span><span class="subxMinorFunction">_string_0f_85_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31689" class="LineNr">31689 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31690" class="LineNr">31690 </span> <span class="subxComment"># "0f 85/jump-if-!="</span> -<span id="L31691" class="LineNr">31691 </span> 0x10/imm32/size -<span id="L31692" class="LineNr">31692 </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="L31693" class="LineNr">31693 </span><span class="subxMinorFunction">_string_0f_85_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31694" class="LineNr">31694 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31695" class="LineNr">31695 </span> <span class="subxComment"># "0f 85/jump-if-!= break/disp32"</span> -<span id="L31696" class="LineNr">31696 </span> 0x1d/imm32/size -<span id="L31697" class="LineNr">31697 </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="L31698" class="LineNr">31698 </span><span class="subxMinorFunction">_string_0f_85_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31699" class="LineNr">31699 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31700" class="LineNr">31700 </span> <span class="subxComment"># "0f 85/jump-if-!= loop/disp32"</span> -<span id="L31701" class="LineNr">31701 </span> 0x1c/imm32/size -<span id="L31702" class="LineNr">31702 </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="L31703" class="LineNr">31703 </span><span class="subxMinorFunction">_string_0f_86_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31704" class="LineNr">31704 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31705" class="LineNr">31705 </span> <span class="subxComment"># "0f 86/jump-if-addr<="</span> -<span id="L31706" class="LineNr">31706 </span> 0x14/imm32/size -<span id="L31707" class="LineNr">31707 </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="L31708" class="LineNr">31708 </span><span class="subxMinorFunction">_string_0f_86_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31538" class="LineNr">31538 </span> 0x11/imm32/alloc-id:fake +<span id="L31539" class="LineNr">31539 </span> <a href='mu.subx.html#L32078'>_string-loop-if-<</a>/imm32/name +<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#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31542" class="LineNr">31542 </span> 0/imm32/no-outputs +<span id="L31543" class="LineNr">31543 </span> 0/imm32/no-outputs +<span id="L31544" class="LineNr">31544 </span> 0x11/imm32/alloc-id:fake +<span id="L31545" class="LineNr">31545 </span> <a href='mu.subx.html#L32370'>_string_0f_8c_jump_label</a>/imm32/subx-name +<span id="L31546" class="LineNr">31546 </span> 0/imm32/no-rm32 +<span id="L31547" class="LineNr">31547 </span> 0/imm32/no-r32 +<span id="L31548" class="LineNr">31548 </span> 0/imm32/no-imm32 +<span id="L31549" class="LineNr">31549 </span> 0/imm32/no-imm8 +<span id="L31550" class="LineNr">31550 </span> 1/imm32/disp32-is-first-inout +<span id="L31551" class="LineNr">31551 </span> 0/imm32/no-xm32 +<span id="L31552" class="LineNr">31552 </span> 0/imm32/no-x32 +<span id="L31553" class="LineNr">31553 </span> 0x11/imm32/alloc-id:fake +<span id="L31554" class="LineNr">31554 </span> <a href='mu.subx.html#L31555'>_Primitive-loop-if->=-named</a>/imm32/next +<span id="L31555" class="LineNr">31555 </span><span class="subxMinorFunction">_Primitive-loop-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31556" class="LineNr">31556 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31557" class="LineNr">31557 </span> 0x11/imm32/alloc-id:fake +<span id="L31558" class="LineNr">31558 </span> <a href='mu.subx.html#L32098'>_string-loop-if->=</a>/imm32/name +<span id="L31559" class="LineNr">31559 </span> 0x11/imm32/alloc-id:fake +<span id="L31560" class="LineNr">31560 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31561" class="LineNr">31561 </span> 0/imm32/no-outputs +<span id="L31562" class="LineNr">31562 </span> 0/imm32/no-outputs +<span id="L31563" class="LineNr">31563 </span> 0x11/imm32/alloc-id:fake +<span id="L31564" class="LineNr">31564 </span> <a href='mu.subx.html#L32385'>_string_0f_8d_jump_label</a>/imm32/subx-name +<span id="L31565" class="LineNr">31565 </span> 0/imm32/no-rm32 +<span id="L31566" class="LineNr">31566 </span> 0/imm32/no-r32 +<span id="L31567" class="LineNr">31567 </span> 0/imm32/no-imm32 +<span id="L31568" class="LineNr">31568 </span> 0/imm32/no-imm8 +<span id="L31569" class="LineNr">31569 </span> 1/imm32/disp32-is-first-inout +<span id="L31570" class="LineNr">31570 </span> 0/imm32/no-xm32 +<span id="L31571" class="LineNr">31571 </span> 0/imm32/no-x32 +<span id="L31572" class="LineNr">31572 </span> 0x11/imm32/alloc-id:fake +<span id="L31573" class="LineNr">31573 </span> <a href='mu.subx.html#L31574'>_Primitive-loop-if-<=-named</a>/imm32/next +<span id="L31574" class="LineNr">31574 </span><span class="subxMinorFunction">_Primitive-loop-if-<=-named</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> 0x11/imm32/alloc-id:fake +<span id="L31577" class="LineNr">31577 </span> <a href='mu.subx.html#L32083'>_string-loop-if-<=</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#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31580" class="LineNr">31580 </span> 0/imm32/no-outputs +<span id="L31581" class="LineNr">31581 </span> 0/imm32/no-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#L32400'>_string_0f_8e_jump_label</a>/imm32/subx-name +<span id="L31584" class="LineNr">31584 </span> 0/imm32/no-rm32 +<span id="L31585" class="LineNr">31585 </span> 0/imm32/no-r32 +<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> 1/imm32/disp32-is-first-inout +<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#L31593'>_Primitive-loop-if->-named</a>/imm32/next +<span id="L31593" class="LineNr">31593 </span><span class="subxMinorFunction">_Primitive-loop-if->-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31594" class="LineNr">31594 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31595" class="LineNr">31595 </span> 0x11/imm32/alloc-id:fake +<span id="L31596" class="LineNr">31596 </span> <a href='mu.subx.html#L32093'>_string-loop-if-></a>/imm32/name +<span id="L31597" class="LineNr">31597 </span> 0x11/imm32/alloc-id:fake +<span id="L31598" class="LineNr">31598 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31599" class="LineNr">31599 </span> 0/imm32/no-outputs +<span id="L31600" class="LineNr">31600 </span> 0/imm32/no-outputs +<span id="L31601" class="LineNr">31601 </span> 0x11/imm32/alloc-id:fake +<span id="L31602" class="LineNr">31602 </span> <a href='mu.subx.html#L32415'>_string_0f_8f_jump_label</a>/imm32/subx-name +<span id="L31603" class="LineNr">31603 </span> 0/imm32/no-rm32 +<span id="L31604" class="LineNr">31604 </span> 0/imm32/no-r32 +<span id="L31605" class="LineNr">31605 </span> 0/imm32/no-imm32 +<span id="L31606" class="LineNr">31606 </span> 0/imm32/no-imm8 +<span id="L31607" class="LineNr">31607 </span> 1/imm32/disp32-is-first-inout +<span id="L31608" class="LineNr">31608 </span> 0/imm32/no-xm32 +<span id="L31609" class="LineNr">31609 </span> 0/imm32/no-x32 +<span id="L31610" class="LineNr">31610 </span> 0x11/imm32/alloc-id:fake +<span id="L31611" class="LineNr">31611 </span> <a href='mu.subx.html#L31612'>_Primitive-loop-named</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> +<span id="L31612" class="LineNr">31612 </span><span class="subxMinorFunction">_Primitive-loop-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31613" class="LineNr">31613 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31614" class="LineNr">31614 </span> 0x11/imm32/alloc-id:fake +<span id="L31615" class="LineNr">31615 </span> <a href='mu.subx.html#L32073'>_string-loop</a>/imm32/name +<span id="L31616" class="LineNr">31616 </span> 0x11/imm32/alloc-id:fake +<span id="L31617" class="LineNr">31617 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31618" class="LineNr">31618 </span> 0/imm32/no-outputs +<span id="L31619" class="LineNr">31619 </span> 0/imm32/no-outputs +<span id="L31620" class="LineNr">31620 </span> 0x11/imm32/alloc-id:fake +<span id="L31621" class="LineNr">31621 </span> <a href='mu.subx.html#L32720'>_string_e9_jump_label</a>/imm32/subx-name +<span id="L31622" class="LineNr">31622 </span> 0/imm32/no-rm32 +<span id="L31623" class="LineNr">31623 </span> 0/imm32/no-r32 +<span id="L31624" class="LineNr">31624 </span> 0/imm32/no-imm32 +<span id="L31625" class="LineNr">31625 </span> 0/imm32/no-imm8 +<span id="L31626" class="LineNr">31626 </span> 1/imm32/disp32-is-first-inout +<span id="L31627" class="LineNr">31627 </span> 0/imm32/no-xm32 +<span id="L31628" class="LineNr">31628 </span> 0/imm32/no-x32 +<span id="L31629" class="LineNr">31629 </span> 0x11/imm32/alloc-id:fake +<span id="L31630" class="LineNr">31630 </span> <a href='mu.subx.html#L31632'>_Primitive-break-if-float<</a>/imm32/next +<span id="L31631" class="LineNr">31631 </span><span class="subxH1Comment"># - branches based on floating-point comparisons</span> +<span id="L31632" class="LineNr">31632 </span><span class="subxMinorFunction">_Primitive-break-if-float<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31633" class="LineNr">31633 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31634" class="LineNr">31634 </span> 0x11/imm32/alloc-id:fake +<span id="L31635" class="LineNr">31635 </span> <a href='mu.subx.html#L32018'>_string-break-if-float<</a>/imm32/name +<span id="L31636" class="LineNr">31636 </span> 0/imm32/no-inouts +<span id="L31637" class="LineNr">31637 </span> 0/imm32/no-inouts +<span id="L31638" class="LineNr">31638 </span> 0/imm32/no-outputs +<span id="L31639" class="LineNr">31639 </span> 0/imm32/no-outputs +<span id="L31640" class="LineNr">31640 </span> 0x11/imm32/alloc-id:fake +<span id="L31641" class="LineNr">31641 </span> <a href='mu.subx.html#L32285'>_string_0f_82_jump_break</a>/imm32/subx-name +<span id="L31642" class="LineNr">31642 </span> 0/imm32/no-rm32 +<span id="L31643" class="LineNr">31643 </span> 0/imm32/no-r32 +<span id="L31644" class="LineNr">31644 </span> 0/imm32/no-imm32 +<span id="L31645" class="LineNr">31645 </span> 0/imm32/no-imm8 +<span id="L31646" class="LineNr">31646 </span> 0/imm32/no-disp32 +<span id="L31647" class="LineNr">31647 </span> 0/imm32/no-xm32 +<span id="L31648" class="LineNr">31648 </span> 0/imm32/no-x32 +<span id="L31649" class="LineNr">31649 </span> 0x11/imm32/alloc-id:fake +<span id="L31650" class="LineNr">31650 </span> <a href='mu.subx.html#L31651'>_Primitive-break-if-float>=</a>/imm32/next +<span id="L31651" class="LineNr">31651 </span><span class="subxMinorFunction">_Primitive-break-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31652" class="LineNr">31652 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31653" class="LineNr">31653 </span> 0x11/imm32/alloc-id:fake +<span id="L31654" class="LineNr">31654 </span> <a href='mu.subx.html#L32033'>_string-break-if-float>=</a>/imm32/name +<span id="L31655" class="LineNr">31655 </span> 0/imm32/no-inouts +<span id="L31656" class="LineNr">31656 </span> 0/imm32/no-inouts +<span id="L31657" class="LineNr">31657 </span> 0/imm32/no-outputs +<span id="L31658" class="LineNr">31658 </span> 0/imm32/no-outputs +<span id="L31659" class="LineNr">31659 </span> 0x11/imm32/alloc-id:fake +<span id="L31660" class="LineNr">31660 </span> <a href='mu.subx.html#L32300'>_string_0f_83_jump_break</a>/imm32/subx-name +<span id="L31661" class="LineNr">31661 </span> 0/imm32/no-rm32 +<span id="L31662" class="LineNr">31662 </span> 0/imm32/no-r32 +<span id="L31663" class="LineNr">31663 </span> 0/imm32/no-imm32 +<span id="L31664" class="LineNr">31664 </span> 0/imm32/no-imm8 +<span id="L31665" class="LineNr">31665 </span> 0/imm32/no-disp32 +<span id="L31666" class="LineNr">31666 </span> 0/imm32/no-xm32 +<span id="L31667" class="LineNr">31667 </span> 0/imm32/no-x32 +<span id="L31668" class="LineNr">31668 </span> 0x11/imm32/alloc-id:fake +<span id="L31669" class="LineNr">31669 </span> <a href='mu.subx.html#L31670'>_Primitive-break-if-float<=</a>/imm32/next +<span id="L31670" class="LineNr">31670 </span><span class="subxMinorFunction">_Primitive-break-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31671" class="LineNr">31671 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31672" class="LineNr">31672 </span> 0x11/imm32/alloc-id:fake +<span id="L31673" class="LineNr">31673 </span> <a href='mu.subx.html#L32023'>_string-break-if-float<=</a>/imm32/name +<span id="L31674" class="LineNr">31674 </span> 0/imm32/no-inouts +<span id="L31675" class="LineNr">31675 </span> 0/imm32/no-inouts +<span id="L31676" class="LineNr">31676 </span> 0/imm32/no-outputs +<span id="L31677" class="LineNr">31677 </span> 0/imm32/no-outputs +<span id="L31678" class="LineNr">31678 </span> 0x11/imm32/alloc-id:fake +<span id="L31679" class="LineNr">31679 </span> <a href='mu.subx.html#L32345'>_string_0f_86_jump_break</a>/imm32/subx-name +<span id="L31680" class="LineNr">31680 </span> 0/imm32/no-rm32 +<span id="L31681" class="LineNr">31681 </span> 0/imm32/no-r32 +<span id="L31682" class="LineNr">31682 </span> 0/imm32/no-imm32 +<span id="L31683" class="LineNr">31683 </span> 0/imm32/no-imm8 +<span id="L31684" class="LineNr">31684 </span> 0/imm32/no-disp32 +<span id="L31685" class="LineNr">31685 </span> 0/imm32/no-xm32 +<span id="L31686" class="LineNr">31686 </span> 0/imm32/no-x32 +<span id="L31687" class="LineNr">31687 </span> 0x11/imm32/alloc-id:fake +<span id="L31688" class="LineNr">31688 </span> <a href='mu.subx.html#L31689'>_Primitive-break-if-float></a>/imm32/next +<span id="L31689" class="LineNr">31689 </span><span class="subxMinorFunction">_Primitive-break-if-float></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31690" class="LineNr">31690 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31691" class="LineNr">31691 </span> 0x11/imm32/alloc-id:fake +<span id="L31692" class="LineNr">31692 </span> <a href='mu.subx.html#L32028'>_string-break-if-float></a>/imm32/name +<span id="L31693" class="LineNr">31693 </span> 0/imm32/no-inouts +<span id="L31694" class="LineNr">31694 </span> 0/imm32/no-inouts +<span id="L31695" class="LineNr">31695 </span> 0/imm32/no-outputs +<span id="L31696" class="LineNr">31696 </span> 0/imm32/no-outputs +<span id="L31697" class="LineNr">31697 </span> 0x11/imm32/alloc-id:fake +<span id="L31698" class="LineNr">31698 </span> <a href='mu.subx.html#L32360'>_string_0f_87_jump_break</a>/imm32/subx-name +<span id="L31699" class="LineNr">31699 </span> 0/imm32/no-rm32 +<span id="L31700" class="LineNr">31700 </span> 0/imm32/no-r32 +<span id="L31701" class="LineNr">31701 </span> 0/imm32/no-imm32 +<span id="L31702" class="LineNr">31702 </span> 0/imm32/no-imm8 +<span id="L31703" class="LineNr">31703 </span> 0/imm32/no-disp32 +<span id="L31704" class="LineNr">31704 </span> 0/imm32/no-xm32 +<span id="L31705" class="LineNr">31705 </span> 0/imm32/no-x32 +<span id="L31706" class="LineNr">31706 </span> 0x11/imm32/alloc-id:fake +<span id="L31707" class="LineNr">31707 </span> <a href='mu.subx.html#L31708'>_Primitive-loop-if-float<</a>/imm32/next +<span id="L31708" class="LineNr">31708 </span><span class="subxMinorFunction">_Primitive-loop-if-float<</span>: <span class="subxComment"># (payload primitive)</span> <span id="L31709" class="LineNr">31709 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31710" class="LineNr">31710 </span> <span class="subxComment"># "0f 86/jump-if-addr<= break/disp32"</span> -<span id="L31711" class="LineNr">31711 </span> 0x21/imm32/size -<span id="L31712" class="LineNr">31712 </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="L31713" class="LineNr">31713 </span><span class="subxMinorFunction">_string_0f_86_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31714" class="LineNr">31714 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31715" class="LineNr">31715 </span> <span class="subxComment"># "0f 86/jump-if-addr<= loop/disp32"</span> -<span id="L31716" class="LineNr">31716 </span> 0x20/imm32/size -<span id="L31717" class="LineNr">31717 </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="L31718" class="LineNr">31718 </span><span class="subxMinorFunction">_string_0f_87_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31719" class="LineNr">31719 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31720" class="LineNr">31720 </span> <span class="subxComment"># "0f 87/jump-if-addr>"</span> -<span id="L31721" class="LineNr">31721 </span> 0x13/imm32/size -<span id="L31722" class="LineNr">31722 </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="L31723" class="LineNr">31723 </span><span class="subxMinorFunction">_string_0f_87_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31724" class="LineNr">31724 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31725" class="LineNr">31725 </span> <span class="subxComment"># "0f 87/jump-if-addr> break/disp32"</span> -<span id="L31726" class="LineNr">31726 </span> 0x20/imm32/size -<span id="L31727" class="LineNr">31727 </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="L31728" class="LineNr">31728 </span><span class="subxMinorFunction">_string_0f_87_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31729" class="LineNr">31729 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31730" class="LineNr">31730 </span> <span class="subxComment"># "0f 87/jump-if-addr> loop/disp32"</span> -<span id="L31731" class="LineNr">31731 </span> 0x1f/imm32/size -<span id="L31732" class="LineNr">31732 </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="L31733" class="LineNr">31733 </span><span class="subxMinorFunction">_string_0f_8c_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31734" class="LineNr">31734 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31735" class="LineNr">31735 </span> <span class="subxComment"># "0f 8c/jump-if-<"</span> -<span id="L31736" class="LineNr">31736 </span> 0xf/imm32/size -<span id="L31737" class="LineNr">31737 </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="L31738" class="LineNr">31738 </span><span class="subxMinorFunction">_string_0f_8c_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31739" class="LineNr">31739 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31740" class="LineNr">31740 </span> <span class="subxComment"># "0f 8c/jump-if-< break/disp32"</span> -<span id="L31741" class="LineNr">31741 </span> 0x1c/imm32/size -<span id="L31742" class="LineNr">31742 </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="L31743" class="LineNr">31743 </span><span class="subxMinorFunction">_string_0f_8c_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31744" class="LineNr">31744 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31745" class="LineNr">31745 </span> <span class="subxComment"># "0f 8c/jump-if-< loop/disp32"</span> -<span id="L31746" class="LineNr">31746 </span> 0x1b/imm32/size -<span id="L31747" class="LineNr">31747 </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="L31748" class="LineNr">31748 </span><span class="subxMinorFunction">_string_0f_8d_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31749" class="LineNr">31749 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31750" class="LineNr">31750 </span> <span class="subxComment"># "0f 8d/jump-if->="</span> -<span id="L31751" class="LineNr">31751 </span> 0x10/imm32/size -<span id="L31752" class="LineNr">31752 </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="L31753" class="LineNr">31753 </span><span class="subxMinorFunction">_string_0f_8d_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31754" class="LineNr">31754 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31755" class="LineNr">31755 </span> <span class="subxComment"># "0f 8d/jump-if->= break/disp32"</span> -<span id="L31756" class="LineNr">31756 </span> 0x1d/imm32/size -<span id="L31757" class="LineNr">31757 </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="L31758" class="LineNr">31758 </span><span class="subxMinorFunction">_string_0f_8d_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31759" class="LineNr">31759 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31760" class="LineNr">31760 </span> <span class="subxComment"># "0f 8d/jump-if->= loop/disp32"</span> -<span id="L31761" class="LineNr">31761 </span> 0x1c/imm32/size -<span id="L31762" class="LineNr">31762 </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="L31763" class="LineNr">31763 </span><span class="subxMinorFunction">_string_0f_8e_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31764" class="LineNr">31764 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31765" class="LineNr">31765 </span> <span class="subxComment"># "0f 8e/jump-if-<="</span> -<span id="L31766" class="LineNr">31766 </span> 0x10/imm32/size -<span id="L31767" class="LineNr">31767 </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="L31768" class="LineNr">31768 </span><span class="subxMinorFunction">_string_0f_8e_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31769" class="LineNr">31769 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31770" class="LineNr">31770 </span> <span class="subxComment"># "0f 8e/jump-if-<= break/disp32"</span> -<span id="L31771" class="LineNr">31771 </span> 0x1d/imm32/size -<span id="L31772" class="LineNr">31772 </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="L31773" class="LineNr">31773 </span><span class="subxMinorFunction">_string_0f_8e_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31774" class="LineNr">31774 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31775" class="LineNr">31775 </span> <span class="subxComment"># "0f 8e/jump-if-<= loop/disp32"</span> -<span id="L31776" class="LineNr">31776 </span> 0x1c/imm32/size -<span id="L31777" class="LineNr">31777 </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="L31778" class="LineNr">31778 </span><span class="subxMinorFunction">_string_0f_8f_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31779" class="LineNr">31779 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31780" class="LineNr">31780 </span> <span class="subxComment"># "0f 8f/jump-if->"</span> -<span id="L31781" class="LineNr">31781 </span> 0xf/imm32/size -<span id="L31782" class="LineNr">31782 </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="L31783" class="LineNr">31783 </span><span class="subxMinorFunction">_string_0f_8f_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31784" class="LineNr">31784 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31785" class="LineNr">31785 </span> <span class="subxComment"># "0f 8f/jump-if-> break/disp32"</span> -<span id="L31786" class="LineNr">31786 </span> 0x1c/imm32/size -<span id="L31787" class="LineNr">31787 </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="L31788" class="LineNr">31788 </span><span class="subxMinorFunction">_string_0f_8f_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31789" class="LineNr">31789 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31790" class="LineNr">31790 </span> <span class="subxComment"># "0f 8f/jump-if-> loop/disp32"</span> -<span id="L31791" class="LineNr">31791 </span> 0x1b/imm32/size -<span id="L31792" class="LineNr">31792 </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="L31793" class="LineNr">31793 </span><span class="subxMinorFunction">_string_0f_af_multiply</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31794" class="LineNr">31794 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31795" class="LineNr">31795 </span> <span class="subxComment"># "0f af/multiply"</span> -<span id="L31796" class="LineNr">31796 </span> 0xe/imm32/size -<span id="L31797" class="LineNr">31797 </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="L31798" class="LineNr">31798 </span><span class="subxMinorFunction">_string_f3_0f_2a_convert_to_float</span>: -<span id="L31799" class="LineNr">31799 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31800" class="LineNr">31800 </span> <span class="subxComment"># "f3 0f 2a/convert-to-float"</span> -<span id="L31801" class="LineNr">31801 </span> 0x19/imm32/size -<span id="L31802" class="LineNr">31802 </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="L31803" class="LineNr">31803 </span><span class="subxMinorFunction">_string_f3_0f_2d_convert_to_int</span>: +<span id="L31710" class="LineNr">31710 </span> 0x11/imm32/alloc-id:fake +<span id="L31711" class="LineNr">31711 </span> <a href='mu.subx.html#L32128'>_string-loop-if-float<</a>/imm32/name +<span id="L31712" class="LineNr">31712 </span> 0/imm32/no-inouts +<span id="L31713" class="LineNr">31713 </span> 0/imm32/no-inouts +<span id="L31714" class="LineNr">31714 </span> 0/imm32/no-outputs +<span id="L31715" class="LineNr">31715 </span> 0/imm32/no-outputs +<span id="L31716" class="LineNr">31716 </span> 0x11/imm32/alloc-id:fake +<span id="L31717" class="LineNr">31717 </span> <a href='mu.subx.html#L32290'>_string_0f_82_jump_loop</a>/imm32/subx-name +<span id="L31718" class="LineNr">31718 </span> 0/imm32/no-rm32 +<span id="L31719" class="LineNr">31719 </span> 0/imm32/no-r32 +<span id="L31720" class="LineNr">31720 </span> 0/imm32/no-imm32 +<span id="L31721" class="LineNr">31721 </span> 0/imm32/no-imm8 +<span id="L31722" class="LineNr">31722 </span> 0/imm32/no-disp32 +<span id="L31723" class="LineNr">31723 </span> 0/imm32/no-xm32 +<span id="L31724" class="LineNr">31724 </span> 0/imm32/no-x32 +<span id="L31725" class="LineNr">31725 </span> 0x11/imm32/alloc-id:fake +<span id="L31726" class="LineNr">31726 </span> <a href='mu.subx.html#L31727'>_Primitive-loop-if-float>=</a>/imm32/next +<span id="L31727" class="LineNr">31727 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31728" class="LineNr">31728 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31729" class="LineNr">31729 </span> 0x11/imm32/alloc-id:fake +<span id="L31730" class="LineNr">31730 </span> <a href='mu.subx.html#L32143'>_string-loop-if-float>=</a>/imm32/name +<span id="L31731" class="LineNr">31731 </span> 0/imm32/no-inouts +<span id="L31732" class="LineNr">31732 </span> 0/imm32/no-inouts +<span id="L31733" class="LineNr">31733 </span> 0/imm32/no-outputs +<span id="L31734" class="LineNr">31734 </span> 0/imm32/no-outputs +<span id="L31735" class="LineNr">31735 </span> 0x11/imm32/alloc-id:fake +<span id="L31736" class="LineNr">31736 </span> <a href='mu.subx.html#L32305'>_string_0f_83_jump_loop</a>/imm32/subx-name +<span id="L31737" class="LineNr">31737 </span> 0/imm32/no-rm32 +<span id="L31738" class="LineNr">31738 </span> 0/imm32/no-r32 +<span id="L31739" class="LineNr">31739 </span> 0/imm32/no-imm32 +<span id="L31740" class="LineNr">31740 </span> 0/imm32/no-imm8 +<span id="L31741" class="LineNr">31741 </span> 0/imm32/no-disp32 +<span id="L31742" class="LineNr">31742 </span> 0/imm32/no-xm32 +<span id="L31743" class="LineNr">31743 </span> 0/imm32/no-x32 +<span id="L31744" class="LineNr">31744 </span> 0x11/imm32/alloc-id:fake +<span id="L31745" class="LineNr">31745 </span> <a href='mu.subx.html#L31746'>_Primitive-loop-if-float<=</a>/imm32/next +<span id="L31746" class="LineNr">31746 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31747" class="LineNr">31747 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31748" class="LineNr">31748 </span> 0x11/imm32/alloc-id:fake +<span id="L31749" class="LineNr">31749 </span> <a href='mu.subx.html#L32133'>_string-loop-if-float<=</a>/imm32/name +<span id="L31750" class="LineNr">31750 </span> 0/imm32/no-inouts +<span id="L31751" class="LineNr">31751 </span> 0/imm32/no-inouts +<span id="L31752" class="LineNr">31752 </span> 0/imm32/no-outputs +<span id="L31753" class="LineNr">31753 </span> 0/imm32/no-outputs +<span id="L31754" class="LineNr">31754 </span> 0x11/imm32/alloc-id:fake +<span id="L31755" class="LineNr">31755 </span> <a href='mu.subx.html#L32350'>_string_0f_86_jump_loop</a>/imm32/subx-name +<span id="L31756" class="LineNr">31756 </span> 0/imm32/no-rm32 +<span id="L31757" class="LineNr">31757 </span> 0/imm32/no-r32 +<span id="L31758" class="LineNr">31758 </span> 0/imm32/no-imm32 +<span id="L31759" class="LineNr">31759 </span> 0/imm32/no-imm8 +<span id="L31760" class="LineNr">31760 </span> 0/imm32/no-disp32 +<span id="L31761" class="LineNr">31761 </span> 0/imm32/no-xm32 +<span id="L31762" class="LineNr">31762 </span> 0/imm32/no-x32 +<span id="L31763" class="LineNr">31763 </span> 0x11/imm32/alloc-id:fake +<span id="L31764" class="LineNr">31764 </span> <a href='mu.subx.html#L31765'>_Primitive-loop-if-float></a>/imm32/next +<span id="L31765" class="LineNr">31765 </span><span class="subxMinorFunction">_Primitive-loop-if-float></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31766" class="LineNr">31766 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31767" class="LineNr">31767 </span> 0x11/imm32/alloc-id:fake +<span id="L31768" class="LineNr">31768 </span> <a href='mu.subx.html#L32138'>_string-loop-if-float></a>/imm32/name +<span id="L31769" class="LineNr">31769 </span> 0/imm32/no-inouts +<span id="L31770" class="LineNr">31770 </span> 0/imm32/no-inouts +<span id="L31771" class="LineNr">31771 </span> 0/imm32/no-outputs +<span id="L31772" class="LineNr">31772 </span> 0/imm32/no-outputs +<span id="L31773" class="LineNr">31773 </span> 0x11/imm32/alloc-id:fake +<span id="L31774" class="LineNr">31774 </span> <a href='mu.subx.html#L32365'>_string_0f_87_jump_loop</a>/imm32/subx-name +<span id="L31775" class="LineNr">31775 </span> 0/imm32/no-rm32 +<span id="L31776" class="LineNr">31776 </span> 0/imm32/no-r32 +<span id="L31777" class="LineNr">31777 </span> 0/imm32/no-imm32 +<span id="L31778" class="LineNr">31778 </span> 0/imm32/no-imm8 +<span id="L31779" class="LineNr">31779 </span> 0/imm32/no-disp32 +<span id="L31780" class="LineNr">31780 </span> 0/imm32/no-xm32 +<span id="L31781" class="LineNr">31781 </span> 0/imm32/no-x32 +<span id="L31782" class="LineNr">31782 </span> 0x11/imm32/alloc-id:fake +<span id="L31783" class="LineNr">31783 </span> <a href='mu.subx.html#L31784'>_Primitive-break-if-float<-named</a>/imm32/next +<span id="L31784" class="LineNr">31784 </span><span class="subxMinorFunction">_Primitive-break-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31785" class="LineNr">31785 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31786" class="LineNr">31786 </span> 0x11/imm32/alloc-id:fake +<span id="L31787" class="LineNr">31787 </span> <a href='mu.subx.html#L32018'>_string-break-if-float<</a>/imm32/name +<span id="L31788" class="LineNr">31788 </span> 0x11/imm32/alloc-id:fake +<span id="L31789" class="LineNr">31789 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31790" class="LineNr">31790 </span> 0/imm32/no-outputs +<span id="L31791" class="LineNr">31791 </span> 0/imm32/no-outputs +<span id="L31792" class="LineNr">31792 </span> 0x11/imm32/alloc-id:fake +<span id="L31793" class="LineNr">31793 </span> <a href='mu.subx.html#L32280'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L31794" class="LineNr">31794 </span> 0/imm32/no-rm32 +<span id="L31795" class="LineNr">31795 </span> 0/imm32/no-r32 +<span id="L31796" class="LineNr">31796 </span> 0/imm32/no-imm32 +<span id="L31797" class="LineNr">31797 </span> 0/imm32/no-imm8 +<span id="L31798" class="LineNr">31798 </span> 1/imm32/disp32-is-first-inout +<span id="L31799" class="LineNr">31799 </span> 0/imm32/no-xm32 +<span id="L31800" class="LineNr">31800 </span> 0/imm32/no-x32 +<span id="L31801" class="LineNr">31801 </span> 0x11/imm32/alloc-id:fake +<span id="L31802" class="LineNr">31802 </span> <a href='mu.subx.html#L31803'>_Primitive-break-if-float>=-named</a>/imm32/next +<span id="L31803" class="LineNr">31803 </span><span class="subxMinorFunction">_Primitive-break-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> <span id="L31804" class="LineNr">31804 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31805" class="LineNr">31805 </span> <span class="subxComment"># "f3 0f 2d/convert-to-int"</span> -<span id="L31806" class="LineNr">31806 </span> 0x17/imm32/size -<span id="L31807" class="LineNr">31807 </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="L31808" class="LineNr">31808 </span><span class="subxMinorFunction">_string_f3_0f_2c_truncate_to_int</span>: -<span id="L31809" class="LineNr">31809 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31810" class="LineNr">31810 </span> <span class="subxComment"># "f3 0f 2c/truncate-to-int"</span> -<span id="L31811" class="LineNr">31811 </span> 0x18/imm32/size -<span id="L31812" class="LineNr">31812 </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="L31813" class="LineNr">31813 </span><span class="subxMinorFunction">_string_f3_0f_58_add</span>: -<span id="L31814" class="LineNr">31814 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31815" class="LineNr">31815 </span> <span class="subxComment"># "f3 0f 58/add"</span> -<span id="L31816" class="LineNr">31816 </span> 0xc/imm32/size -<span id="L31817" class="LineNr">31817 </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="L31818" class="LineNr">31818 </span><span class="subxMinorFunction">_string_f3_0f_5c_subtract</span>: -<span id="L31819" class="LineNr">31819 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31820" class="LineNr">31820 </span> <span class="subxComment"># "f3 0f 5c/subtract"</span> -<span id="L31821" class="LineNr">31821 </span> 0x11/imm32/size -<span id="L31822" class="LineNr">31822 </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="L31823" class="LineNr">31823 </span><span class="subxMinorFunction">_string_f3_0f_59_multiply</span>: -<span id="L31824" class="LineNr">31824 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31825" class="LineNr">31825 </span> <span class="subxComment"># "f3 0f 59/multiply"</span> -<span id="L31826" class="LineNr">31826 </span> 0x11/imm32/size -<span id="L31827" class="LineNr">31827 </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="L31828" class="LineNr">31828 </span><span class="subxMinorFunction">_string_f3_0f_5e_divide</span>: -<span id="L31829" class="LineNr">31829 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31830" class="LineNr">31830 </span> <span class="subxComment"># "f3 0f 5e/divide"</span> -<span id="L31831" class="LineNr">31831 </span> 0xf/imm32/size -<span id="L31832" class="LineNr">31832 </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="L31833" class="LineNr">31833 </span><span class="subxMinorFunction">_string_f3_0f_53_reciprocal</span>: -<span id="L31834" class="LineNr">31834 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31835" class="LineNr">31835 </span> <span class="subxComment"># "f3 0f 53/reciprocal"</span> -<span id="L31836" class="LineNr">31836 </span> 0x13/imm32/size -<span id="L31837" class="LineNr">31837 </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="L31838" class="LineNr">31838 </span><span class="subxMinorFunction">_string_f3_0f_51_square_root</span>: -<span id="L31839" class="LineNr">31839 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31840" class="LineNr">31840 </span> <span class="subxComment"># "f3 0f 51/square-root"</span> -<span id="L31841" class="LineNr">31841 </span> 0x14/imm32/size -<span id="L31842" class="LineNr">31842 </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="L31843" class="LineNr">31843 </span><span class="subxMinorFunction">_string_f3_0f_52_inverse_square_root</span>: -<span id="L31844" class="LineNr">31844 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31845" class="LineNr">31845 </span> <span class="subxComment"># "f3 0f 52/inverse-square-root"</span> -<span id="L31846" class="LineNr">31846 </span> 0x1c/imm32/size -<span id="L31847" class="LineNr">31847 </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="L31848" class="LineNr">31848 </span><span class="subxMinorFunction">_string_f3_0f_5d_min</span>: -<span id="L31849" class="LineNr">31849 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31850" class="LineNr">31850 </span> <span class="subxComment"># "f3 0f 5d/min"</span> -<span id="L31851" class="LineNr">31851 </span> 0xc/imm32/size -<span id="L31852" class="LineNr">31852 </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="L31853" class="LineNr">31853 </span><span class="subxMinorFunction">_string_f3_0f_5f_max</span>: -<span id="L31854" class="LineNr">31854 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31855" class="LineNr">31855 </span> <span class="subxComment"># "f3 0f 5f/max"</span> -<span id="L31856" class="LineNr">31856 </span> 0xc/imm32/size -<span id="L31857" class="LineNr">31857 </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="L31858" class="LineNr">31858 </span><span class="subxMinorFunction">_string_f3_0f_10_copy</span>: -<span id="L31859" class="LineNr">31859 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31860" class="LineNr">31860 </span> <span class="subxComment"># "f3 0f 10/copy"</span> -<span id="L31861" class="LineNr">31861 </span> 0xd/imm32/size -<span id="L31862" class="LineNr">31862 </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="L31863" class="LineNr">31863 </span><span class="subxMinorFunction">_string_f3_0f_11_copy</span>: -<span id="L31864" class="LineNr">31864 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31865" class="LineNr">31865 </span> <span class="subxComment"># "f3 0f 11/copy"</span> -<span id="L31866" class="LineNr">31866 </span> 0xd/imm32/size -<span id="L31867" class="LineNr">31867 </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="L31868" class="LineNr">31868 </span><span class="subxMinorFunction">_string_0f_2f_compare</span>: -<span id="L31869" class="LineNr">31869 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31870" class="LineNr">31870 </span> <span class="subxComment"># "0f 2f/compare"</span> -<span id="L31871" class="LineNr">31871 </span> 0xd/imm32/size -<span id="L31872" class="LineNr">31872 </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="L31873" class="LineNr">31873 </span><span class="subxMinorFunction">_string_21_and_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31874" class="LineNr">31874 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31875" class="LineNr">31875 </span> <span class="subxComment"># "21/and-with"</span> -<span id="L31876" class="LineNr">31876 </span> 0xb/imm32/size -<span id="L31877" class="LineNr">31877 </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="L31878" class="LineNr">31878 </span><span class="subxMinorFunction">_string_23_and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31879" class="LineNr">31879 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31880" class="LineNr">31880 </span> <span class="subxComment"># "23/and"</span> -<span id="L31881" class="LineNr">31881 </span> 0x6/imm32/size -<span id="L31882" class="LineNr">31882 </span> 0x32/2 0x33/3 0x2f/slash 0x61/a 0x6e/n 0x64/d -<span id="L31883" class="LineNr">31883 </span><span class="subxMinorFunction">_string_25_and_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31884" class="LineNr">31884 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31885" class="LineNr">31885 </span> <span class="subxComment"># "25/and-with-eax"</span> -<span id="L31886" class="LineNr">31886 </span> 0xf/imm32/size -<span id="L31887" class="LineNr">31887 </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="L31888" class="LineNr">31888 </span><span class="subxMinorFunction">_string_29_subtract_from</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31889" class="LineNr">31889 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31890" class="LineNr">31890 </span> <span class="subxComment"># "29/subtract-from"</span> -<span id="L31891" class="LineNr">31891 </span> 0x10/imm32/size -<span id="L31892" class="LineNr">31892 </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="L31893" class="LineNr">31893 </span><span class="subxMinorFunction">_string_2b_subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31894" class="LineNr">31894 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31895" class="LineNr">31895 </span> <span class="subxComment"># "2b/subtract"</span> -<span id="L31896" class="LineNr">31896 </span> 0xb/imm32/size -<span id="L31897" class="LineNr">31897 </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="L31898" class="LineNr">31898 </span><span class="subxMinorFunction">_string_2d_subtract_from_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31805" class="LineNr">31805 </span> 0x11/imm32/alloc-id:fake +<span id="L31806" class="LineNr">31806 </span> <a href='mu.subx.html#L32033'>_string-break-if-float>=</a>/imm32/name +<span id="L31807" class="LineNr">31807 </span> 0x11/imm32/alloc-id:fake +<span id="L31808" class="LineNr">31808 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31809" class="LineNr">31809 </span> 0/imm32/no-outputs +<span id="L31810" class="LineNr">31810 </span> 0/imm32/no-outputs +<span id="L31811" class="LineNr">31811 </span> 0x11/imm32/alloc-id:fake +<span id="L31812" class="LineNr">31812 </span> <a href='mu.subx.html#L32295'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L31813" class="LineNr">31813 </span> 0/imm32/no-rm32 +<span id="L31814" class="LineNr">31814 </span> 0/imm32/no-r32 +<span id="L31815" class="LineNr">31815 </span> 0/imm32/no-imm32 +<span id="L31816" class="LineNr">31816 </span> 0/imm32/no-imm8 +<span id="L31817" class="LineNr">31817 </span> 1/imm32/disp32-is-first-inout +<span id="L31818" class="LineNr">31818 </span> 0/imm32/no-xm32 +<span id="L31819" class="LineNr">31819 </span> 0/imm32/no-x32 +<span id="L31820" class="LineNr">31820 </span> 0x11/imm32/alloc-id:fake +<span id="L31821" class="LineNr">31821 </span> <a href='mu.subx.html#L31822'>_Primitive-break-if-float<=-named</a>/imm32/next +<span id="L31822" class="LineNr">31822 </span><span class="subxMinorFunction">_Primitive-break-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31823" class="LineNr">31823 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31824" class="LineNr">31824 </span> 0x11/imm32/alloc-id:fake +<span id="L31825" class="LineNr">31825 </span> <a href='mu.subx.html#L32023'>_string-break-if-float<=</a>/imm32/name +<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#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31828" class="LineNr">31828 </span> 0/imm32/no-outputs +<span id="L31829" class="LineNr">31829 </span> 0/imm32/no-outputs +<span id="L31830" class="LineNr">31830 </span> 0x11/imm32/alloc-id:fake +<span id="L31831" class="LineNr">31831 </span> <a href='mu.subx.html#L32340'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L31832" class="LineNr">31832 </span> 0/imm32/no-rm32 +<span id="L31833" class="LineNr">31833 </span> 0/imm32/no-r32 +<span id="L31834" class="LineNr">31834 </span> 0/imm32/no-imm32 +<span id="L31835" class="LineNr">31835 </span> 0/imm32/no-imm8 +<span id="L31836" class="LineNr">31836 </span> 1/imm32/disp32-is-first-inout +<span id="L31837" class="LineNr">31837 </span> 0/imm32/no-xm32 +<span id="L31838" class="LineNr">31838 </span> 0/imm32/no-x32 +<span id="L31839" class="LineNr">31839 </span> 0x11/imm32/alloc-id:fake +<span id="L31840" class="LineNr">31840 </span> <a href='mu.subx.html#L31841'>_Primitive-break-if-float>-named</a>/imm32/next +<span id="L31841" class="LineNr">31841 </span><span class="subxMinorFunction">_Primitive-break-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31842" class="LineNr">31842 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31843" class="LineNr">31843 </span> 0x11/imm32/alloc-id:fake +<span id="L31844" class="LineNr">31844 </span> <a href='mu.subx.html#L32028'>_string-break-if-float></a>/imm32/name +<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#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31847" class="LineNr">31847 </span> 0/imm32/no-outputs +<span id="L31848" class="LineNr">31848 </span> 0/imm32/no-outputs +<span id="L31849" class="LineNr">31849 </span> 0x11/imm32/alloc-id:fake +<span id="L31850" class="LineNr">31850 </span> <a href='mu.subx.html#L32355'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L31851" class="LineNr">31851 </span> 0/imm32/no-rm32 +<span id="L31852" class="LineNr">31852 </span> 0/imm32/no-r32 +<span id="L31853" class="LineNr">31853 </span> 0/imm32/no-imm32 +<span id="L31854" class="LineNr">31854 </span> 0/imm32/no-imm8 +<span id="L31855" class="LineNr">31855 </span> 1/imm32/disp32-is-first-inout +<span id="L31856" class="LineNr">31856 </span> 0/imm32/no-xm32 +<span id="L31857" class="LineNr">31857 </span> 0/imm32/no-x32 +<span id="L31858" class="LineNr">31858 </span> 0x11/imm32/alloc-id:fake +<span id="L31859" class="LineNr">31859 </span> <a href='mu.subx.html#L31860'>_Primitive-loop-if-float<-named</a>/imm32/next +<span id="L31860" class="LineNr">31860 </span><span class="subxMinorFunction">_Primitive-loop-if-float<-named</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> 0x11/imm32/alloc-id:fake +<span id="L31863" class="LineNr">31863 </span> <a href='mu.subx.html#L32128'>_string-loop-if-float<</a>/imm32/name +<span id="L31864" class="LineNr">31864 </span> 0x11/imm32/alloc-id:fake +<span id="L31865" class="LineNr">31865 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31866" class="LineNr">31866 </span> 0/imm32/no-outputs +<span id="L31867" class="LineNr">31867 </span> 0/imm32/no-outputs +<span id="L31868" class="LineNr">31868 </span> 0x11/imm32/alloc-id:fake +<span id="L31869" class="LineNr">31869 </span> <a href='mu.subx.html#L32280'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L31870" class="LineNr">31870 </span> 0/imm32/no-rm32 +<span id="L31871" class="LineNr">31871 </span> 0/imm32/no-r32 +<span id="L31872" class="LineNr">31872 </span> 0/imm32/no-imm32 +<span id="L31873" class="LineNr">31873 </span> 0/imm32/no-imm8 +<span id="L31874" class="LineNr">31874 </span> 1/imm32/disp32-is-first-inout +<span id="L31875" class="LineNr">31875 </span> 0/imm32/no-xm32 +<span id="L31876" class="LineNr">31876 </span> 0/imm32/no-x32 +<span id="L31877" class="LineNr">31877 </span> 0x11/imm32/alloc-id:fake +<span id="L31878" class="LineNr">31878 </span> <a href='mu.subx.html#L31879'>_Primitive-loop-if-float>=-named</a>/imm32/next +<span id="L31879" class="LineNr">31879 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31880" class="LineNr">31880 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31881" class="LineNr">31881 </span> 0x11/imm32/alloc-id:fake +<span id="L31882" class="LineNr">31882 </span> <a href='mu.subx.html#L32143'>_string-loop-if-float>=</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#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31885" class="LineNr">31885 </span> 0/imm32/no-outputs +<span id="L31886" class="LineNr">31886 </span> 0/imm32/no-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#L32295'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L31889" class="LineNr">31889 </span> 0/imm32/no-rm32 +<span id="L31890" class="LineNr">31890 </span> 0/imm32/no-r32 +<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> 1/imm32/disp32-is-first-inout +<span id="L31894" class="LineNr">31894 </span> 0/imm32/no-xm32 +<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-loop-if-float<=-named</a>/imm32/next +<span id="L31898" class="LineNr">31898 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=-named</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"># "2d/subtract-from-eax"</span> -<span id="L31901" class="LineNr">31901 </span> 0x14/imm32/size -<span id="L31902" class="LineNr">31902 </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="L31903" class="LineNr">31903 </span><span class="subxMinorFunction">_string_31_xor_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31904" class="LineNr">31904 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31905" class="LineNr">31905 </span> <span class="subxComment"># "31/xor-with"</span> -<span id="L31906" class="LineNr">31906 </span> 0xb/imm32/size -<span id="L31907" class="LineNr">31907 </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="L31908" class="LineNr">31908 </span><span class="subxMinorFunction">_string_33_xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31909" class="LineNr">31909 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31910" class="LineNr">31910 </span> <span class="subxComment"># "33/xor"</span> -<span id="L31911" class="LineNr">31911 </span> 0x6/imm32/size -<span id="L31912" class="LineNr">31912 </span> 0x33/3 0x33/3 0x2f/slash 0x78/x 0x6f/o 0x72/r -<span id="L31913" class="LineNr">31913 </span><span class="subxMinorFunction">_string_35_xor_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31914" class="LineNr">31914 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31915" class="LineNr">31915 </span> <span class="subxComment"># "35/xor-with-eax"</span> -<span id="L31916" class="LineNr">31916 </span> 0xf/imm32/size -<span id="L31917" class="LineNr">31917 </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="L31918" class="LineNr">31918 </span><span class="subxMinorFunction">_string_39_compare-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31919" class="LineNr">31919 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31920" class="LineNr">31920 </span> <span class="subxComment"># "39/compare->"</span> -<span id="L31921" class="LineNr">31921 </span> 0xc/imm32/size -<span id="L31922" class="LineNr">31922 </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="L31923" class="LineNr">31923 </span><span class="subxMinorFunction">_string_3b_compare<-</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31924" class="LineNr">31924 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31925" class="LineNr">31925 </span> <span class="subxComment"># "3b/compare<-"</span> -<span id="L31926" class="LineNr">31926 </span> 0xc/imm32/size -<span id="L31927" class="LineNr">31927 </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="L31928" class="LineNr">31928 </span><span class="subxMinorFunction">_string_3d_compare_eax_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31929" class="LineNr">31929 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31930" class="LineNr">31930 </span> <span class="subxComment"># "3d/compare-eax-with"</span> -<span id="L31931" class="LineNr">31931 </span> 0x13/imm32/size -<span id="L31932" class="LineNr">31932 </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="L31933" class="LineNr">31933 </span><span class="subxMinorFunction">_string_40_increment_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L31934" class="LineNr">31934 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31935" class="LineNr">31935 </span> <span class="subxComment"># "40/increment-eax"</span> -<span id="L31936" class="LineNr">31936 </span> 0x10/imm32/size -<span id="L31937" class="LineNr">31937 </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="L31938" class="LineNr">31938 </span><span class="subxMinorFunction">_string_41_increment_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31900" class="LineNr">31900 </span> 0x11/imm32/alloc-id:fake +<span id="L31901" class="LineNr">31901 </span> <a href='mu.subx.html#L32133'>_string-loop-if-float<=</a>/imm32/name +<span id="L31902" class="LineNr">31902 </span> 0x11/imm32/alloc-id:fake +<span id="L31903" class="LineNr">31903 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31904" class="LineNr">31904 </span> 0/imm32/no-outputs +<span id="L31905" class="LineNr">31905 </span> 0/imm32/no-outputs +<span id="L31906" class="LineNr">31906 </span> 0x11/imm32/alloc-id:fake +<span id="L31907" class="LineNr">31907 </span> <a href='mu.subx.html#L32340'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L31908" class="LineNr">31908 </span> 0/imm32/no-rm32 +<span id="L31909" class="LineNr">31909 </span> 0/imm32/no-r32 +<span id="L31910" class="LineNr">31910 </span> 0/imm32/no-imm32 +<span id="L31911" class="LineNr">31911 </span> 0/imm32/no-imm8 +<span id="L31912" class="LineNr">31912 </span> 1/imm32/disp32-is-first-inout +<span id="L31913" class="LineNr">31913 </span> 0/imm32/no-xm32 +<span id="L31914" class="LineNr">31914 </span> 0/imm32/no-x32 +<span id="L31915" class="LineNr">31915 </span> 0x11/imm32/alloc-id:fake +<span id="L31916" class="LineNr">31916 </span> <a href='mu.subx.html#L31917'>_Primitive-loop-if-float>-named</a>/imm32/next +<span id="L31917" class="LineNr">31917 </span><span class="subxMinorFunction">_Primitive-loop-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31918" class="LineNr">31918 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31919" class="LineNr">31919 </span> 0x11/imm32/alloc-id:fake +<span id="L31920" class="LineNr">31920 </span> <a href='mu.subx.html#L32138'>_string-loop-if-float></a>/imm32/name +<span id="L31921" class="LineNr">31921 </span> 0x11/imm32/alloc-id:fake +<span id="L31922" class="LineNr">31922 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/inouts +<span id="L31923" class="LineNr">31923 </span> 0/imm32/no-outputs +<span id="L31924" class="LineNr">31924 </span> 0/imm32/no-outputs +<span id="L31925" class="LineNr">31925 </span> 0x11/imm32/alloc-id:fake +<span id="L31926" class="LineNr">31926 </span> <a href='mu.subx.html#L32355'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L31927" class="LineNr">31927 </span> 0/imm32/no-rm32 +<span id="L31928" class="LineNr">31928 </span> 0/imm32/no-r32 +<span id="L31929" class="LineNr">31929 </span> 0/imm32/no-imm32 +<span id="L31930" class="LineNr">31930 </span> 0/imm32/no-imm8 +<span id="L31931" class="LineNr">31931 </span> 1/imm32/disp32-is-first-inout +<span id="L31932" class="LineNr">31932 </span> 0/imm32/no-xm32 +<span id="L31933" class="LineNr">31933 </span> 0/imm32/no-x32 +<span id="L31934" class="LineNr">31934 </span> 0/imm32/next +<span id="L31935" class="LineNr">31935 </span> 0/imm32/next +<span id="L31936" class="LineNr">31936 </span> +<span id="L31937" class="LineNr">31937 </span><span class="subxComment"># string literals for Mu instructions</span> +<span id="L31938" class="LineNr">31938 </span><span class="subxMinorFunction">_string-add</span>: <span class="subxComment"># (payload array byte)</span> <span id="L31939" class="LineNr">31939 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31940" class="LineNr">31940 </span> <span class="subxComment"># "41/increment-ecx"</span> -<span id="L31941" class="LineNr">31941 </span> 0x10/imm32/size -<span id="L31942" class="LineNr">31942 </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="L31943" class="LineNr">31943 </span><span class="subxMinorFunction">_string_42_increment_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31940" class="LineNr">31940 </span> <span class="subxComment"># "add"</span> +<span id="L31941" class="LineNr">31941 </span> 0x3/imm32/size +<span id="L31942" class="LineNr">31942 </span> 0x61/a 0x64/d 0x64/d +<span id="L31943" class="LineNr">31943 </span><span class="subxMinorFunction">_string-address</span>: <span class="subxComment"># (payload array byte)</span> <span id="L31944" class="LineNr">31944 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31945" class="LineNr">31945 </span> <span class="subxComment"># "42/increment-edx"</span> -<span id="L31946" class="LineNr">31946 </span> 0x10/imm32/size -<span id="L31947" class="LineNr">31947 </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="L31948" class="LineNr">31948 </span><span class="subxMinorFunction">_string_43_increment_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31945" class="LineNr">31945 </span> <span class="subxComment"># "address"</span> +<span id="L31946" class="LineNr">31946 </span> 0x7/imm32/size +<span id="L31947" class="LineNr">31947 </span> 0x61/a 0x64/d 0x64/d 0x72/r 0x65/e 0x73/s 0x73/s +<span id="L31948" class="LineNr">31948 </span><span class="subxMinorFunction">_string-add-to</span>: <span class="subxComment"># (payload array byte)</span> <span id="L31949" class="LineNr">31949 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31950" class="LineNr">31950 </span> <span class="subxComment"># "43/increment-ebx"</span> -<span id="L31951" class="LineNr">31951 </span> 0x10/imm32/size -<span id="L31952" class="LineNr">31952 </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="L31953" class="LineNr">31953 </span><span class="subxMinorFunction">_string_46_increment_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31950" class="LineNr">31950 </span> <span class="subxComment"># "add-to"</span> +<span id="L31951" class="LineNr">31951 </span> 0x6/imm32/size +<span id="L31952" class="LineNr">31952 </span> 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o +<span id="L31953" class="LineNr">31953 </span><span class="subxMinorFunction">_string-and</span>: <span class="subxComment"># (payload array byte)</span> <span id="L31954" class="LineNr">31954 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31955" class="LineNr">31955 </span> <span class="subxComment"># "46/increment-esi"</span> -<span id="L31956" class="LineNr">31956 </span> 0x10/imm32/size -<span id="L31957" class="LineNr">31957 </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="L31958" class="LineNr">31958 </span><span class="subxMinorFunction">_string_47_increment_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31955" class="LineNr">31955 </span> <span class="subxComment"># "and"</span> +<span id="L31956" class="LineNr">31956 </span> 0x3/imm32/size +<span id="L31957" class="LineNr">31957 </span> 0x61/a 0x6e/n 0x64/d +<span id="L31958" class="LineNr">31958 </span><span class="subxMinorFunction">_string-and-with</span>: <span class="subxComment"># (payload array byte)</span> <span id="L31959" class="LineNr">31959 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31960" class="LineNr">31960 </span> <span class="subxComment"># "47/increment-edi"</span> -<span id="L31961" class="LineNr">31961 </span> 0x10/imm32/size -<span id="L31962" class="LineNr">31962 </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="L31963" class="LineNr">31963 </span><span class="subxMinorFunction">_string_48_decrement_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31960" class="LineNr">31960 </span> <span class="subxComment"># "and-with"</span> +<span id="L31961" class="LineNr">31961 </span> 0x8/imm32/size +<span id="L31962" class="LineNr">31962 </span> 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L31963" class="LineNr">31963 </span><span class="subxMinorFunction">_string-break</span>: <span class="subxComment"># (payload array byte)</span> <span id="L31964" class="LineNr">31964 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31965" class="LineNr">31965 </span> <span class="subxComment"># "48/decrement-eax"</span> -<span id="L31966" class="LineNr">31966 </span> 0x10/imm32/size -<span id="L31967" class="LineNr">31967 </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="L31968" class="LineNr">31968 </span><span class="subxMinorFunction">_string_49_decrement_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31965" class="LineNr">31965 </span> <span class="subxComment"># "break"</span> +<span id="L31966" class="LineNr">31966 </span> 0x5/imm32/size +<span id="L31967" class="LineNr">31967 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k +<span id="L31968" class="LineNr">31968 </span><span class="subxMinorFunction">_string-break-if-<</span>: <span class="subxComment"># (payload array byte)</span> <span id="L31969" class="LineNr">31969 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31970" class="LineNr">31970 </span> <span class="subxComment"># "49/decrement-ecx"</span> -<span id="L31971" class="LineNr">31971 </span> 0x10/imm32/size -<span id="L31972" class="LineNr">31972 </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="L31973" class="LineNr">31973 </span><span class="subxMinorFunction">_string_4a_decrement_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31970" class="LineNr">31970 </span> <span class="subxComment"># "break-if-<"</span> +<span id="L31971" class="LineNr">31971 </span> 0xa/imm32/size +<span id="L31972" class="LineNr">31972 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< +<span id="L31973" class="LineNr">31973 </span><span class="subxMinorFunction">_string-break-if-<=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L31974" class="LineNr">31974 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31975" class="LineNr">31975 </span> <span class="subxComment"># "4a/decrement-edx"</span> -<span id="L31976" class="LineNr">31976 </span> 0x10/imm32/size -<span id="L31977" class="LineNr">31977 </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="L31978" class="LineNr">31978 </span><span class="subxMinorFunction">_string_4b_decrement_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31975" class="LineNr">31975 </span> <span class="subxComment"># "break-if-<="</span> +<span id="L31976" class="LineNr">31976 </span> 0xb/imm32/size +<span id="L31977" class="LineNr">31977 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= +<span id="L31978" class="LineNr">31978 </span><span class="subxMinorFunction">_string-break-if-=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L31979" class="LineNr">31979 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31980" class="LineNr">31980 </span> <span class="subxComment"># "4b/decrement-ebx"</span> -<span id="L31981" class="LineNr">31981 </span> 0x10/imm32/size -<span id="L31982" class="LineNr">31982 </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="L31983" class="LineNr">31983 </span><span class="subxMinorFunction">_string_4e_decrement_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31980" class="LineNr">31980 </span> <span class="subxComment"># "break-if-="</span> +<span id="L31981" class="LineNr">31981 </span> 0xa/imm32/size +<span id="L31982" class="LineNr">31982 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= +<span id="L31983" class="LineNr">31983 </span><span class="subxMinorFunction">_string-break-if-></span>: <span class="subxComment"># (payload array byte)</span> <span id="L31984" class="LineNr">31984 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31985" class="LineNr">31985 </span> <span class="subxComment"># "4e/decrement-esi"</span> -<span id="L31986" class="LineNr">31986 </span> 0x10/imm32/size -<span id="L31987" class="LineNr">31987 </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="L31988" class="LineNr">31988 </span><span class="subxMinorFunction">_string_4f_decrement_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31985" class="LineNr">31985 </span> <span class="subxComment"># "break-if->"</span> +<span id="L31986" class="LineNr">31986 </span> 0xa/imm32/size +<span id="L31987" class="LineNr">31987 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> +<span id="L31988" class="LineNr">31988 </span><span class="subxMinorFunction">_string-break-if->=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L31989" class="LineNr">31989 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31990" class="LineNr">31990 </span> <span class="subxComment"># "4f/decrement-edi"</span> -<span id="L31991" class="LineNr">31991 </span> 0x10/imm32/size -<span id="L31992" class="LineNr">31992 </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="L31993" class="LineNr">31993 </span><span class="subxMinorFunction">_string_81_subop_add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31990" class="LineNr">31990 </span> <span class="subxComment"># "break-if->="</span> +<span id="L31991" class="LineNr">31991 </span> 0xb/imm32/size +<span id="L31992" class="LineNr">31992 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= +<span id="L31993" class="LineNr">31993 </span><span class="subxMinorFunction">_string-break-if-!=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L31994" class="LineNr">31994 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31995" class="LineNr">31995 </span> <span class="subxComment"># "81 0/subop/add"</span> -<span id="L31996" class="LineNr">31996 </span> 0xe/imm32/size -<span id="L31997" class="LineNr">31997 </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="L31998" class="LineNr">31998 </span><span class="subxMinorFunction">_string_81_subop_or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L31995" class="LineNr">31995 </span> <span class="subxComment"># "break-if-!="</span> +<span id="L31996" class="LineNr">31996 </span> 0xb/imm32/size +<span id="L31997" class="LineNr">31997 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= +<span id="L31998" class="LineNr">31998 </span><span class="subxMinorFunction">_string-break-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> <span id="L31999" class="LineNr">31999 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32000" class="LineNr">32000 </span> <span class="subxComment"># "81 1/subop/or"</span> -<span id="L32001" class="LineNr">32001 </span> 0xd/imm32/size -<span id="L32002" class="LineNr">32002 </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="L32003" class="LineNr">32003 </span><span class="subxMinorFunction">_string_81_subop_and</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32000" class="LineNr">32000 </span> <span class="subxComment"># "break-if-addr<"</span> +<span id="L32001" class="LineNr">32001 </span> 0xe/imm32/size +<span id="L32002" class="LineNr">32002 </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="L32003" class="LineNr">32003 </span><span class="subxMinorFunction">_string-break-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32004" class="LineNr">32004 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32005" class="LineNr">32005 </span> <span class="subxComment"># "81 4/subop/and"</span> -<span id="L32006" class="LineNr">32006 </span> 0xe/imm32/size -<span id="L32007" class="LineNr">32007 </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="L32008" class="LineNr">32008 </span><span class="subxMinorFunction">_string_81_subop_subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32005" class="LineNr">32005 </span> <span class="subxComment"># "break-if-addr<="</span> +<span id="L32006" class="LineNr">32006 </span> 0xf/imm32/size +<span id="L32007" class="LineNr">32007 </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="L32008" class="LineNr">32008 </span><span class="subxMinorFunction">_string-break-if-addr></span>: <span class="subxComment"># (payload array byte)</span> <span id="L32009" class="LineNr">32009 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32010" class="LineNr">32010 </span> <span class="subxComment"># "81 5/subop/subtract"</span> -<span id="L32011" class="LineNr">32011 </span> 0x13/imm32/size -<span id="L32012" class="LineNr">32012 </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="L32013" class="LineNr">32013 </span><span class="subxMinorFunction">_string_81_subop_xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32010" class="LineNr">32010 </span> <span class="subxComment"># "break-if-addr>"</span> +<span id="L32011" class="LineNr">32011 </span> 0xe/imm32/size +<span id="L32012" class="LineNr">32012 </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="L32013" class="LineNr">32013 </span><span class="subxMinorFunction">_string-break-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32014" class="LineNr">32014 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32015" class="LineNr">32015 </span> <span class="subxComment"># "81 6/subop/xor"</span> -<span id="L32016" class="LineNr">32016 </span> 0xe/imm32/size -<span id="L32017" class="LineNr">32017 </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="L32018" class="LineNr">32018 </span><span class="subxMinorFunction">_string_81_subop_compare</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32015" class="LineNr">32015 </span> <span class="subxComment"># "break-if-addr>="</span> +<span id="L32016" class="LineNr">32016 </span> 0xf/imm32/size +<span id="L32017" class="LineNr">32017 </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="L32018" class="LineNr">32018 </span><span class="subxMinorFunction">_string-break-if-float<</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32019" class="LineNr">32019 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32020" class="LineNr">32020 </span> <span class="subxComment"># "81 7/subop/compare"</span> -<span id="L32021" class="LineNr">32021 </span> 0x12/imm32/size -<span id="L32022" class="LineNr">32022 </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="L32023" class="LineNr">32023 </span><span class="subxMinorFunction">_string_89_<-</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32020" class="LineNr">32020 </span> <span class="subxComment"># "break-if-float<"</span> +<span id="L32021" class="LineNr">32021 </span> 0xf/imm32/size +<span id="L32022" class="LineNr">32022 </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="L32023" class="LineNr">32023 </span><span class="subxMinorFunction">_string-break-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32024" class="LineNr">32024 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32025" class="LineNr">32025 </span> <span class="subxComment"># "89/<-"</span> -<span id="L32026" class="LineNr">32026 </span> 0x5/imm32/size -<span id="L32027" class="LineNr">32027 </span> 0x38/8 0x39/9 0x2f/slash 0x3c/< 0x2d/dash -<span id="L32028" class="LineNr">32028 </span><span class="subxMinorFunction">_string_8b_-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32025" class="LineNr">32025 </span> <span class="subxComment"># "break-if-float<="</span> +<span id="L32026" class="LineNr">32026 </span> 0x10/imm32/size +<span id="L32027" class="LineNr">32027 </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="L32028" class="LineNr">32028 </span><span class="subxMinorFunction">_string-break-if-float></span>: <span class="subxComment"># (payload array byte)</span> <span id="L32029" class="LineNr">32029 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32030" class="LineNr">32030 </span> <span class="subxComment"># "8b/->"</span> -<span id="L32031" class="LineNr">32031 </span> 0x5/imm32/size -<span id="L32032" class="LineNr">32032 </span> 0x38/8 0x62/b 0x2f/slash 0x2d/dash 0x3e/> -<span id="L32033" class="LineNr">32033 </span><span class="subxMinorFunction">_string_8a_copy_byte</span>: +<span id="L32030" class="LineNr">32030 </span> <span class="subxComment"># "break-if-float>"</span> +<span id="L32031" class="LineNr">32031 </span> 0xf/imm32/size +<span id="L32032" class="LineNr">32032 </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="L32033" class="LineNr">32033 </span><span class="subxMinorFunction">_string-break-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32034" class="LineNr">32034 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32035" class="LineNr">32035 </span> <span class="subxComment"># "8a/byte->"</span> -<span id="L32036" class="LineNr">32036 </span> 0x9/imm32/size -<span id="L32037" class="LineNr">32037 </span> 0x38/8 0x61/a 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/- 0x3e/> -<span id="L32038" class="LineNr">32038 </span><span class="subxMinorFunction">_string_88_copy_byte</span>: +<span id="L32035" class="LineNr">32035 </span> <span class="subxComment"># "break-if-float>="</span> +<span id="L32036" class="LineNr">32036 </span> 0x10/imm32/size +<span id="L32037" class="LineNr">32037 </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="L32038" class="LineNr">32038 </span><span class="subxMinorFunction">_string-compare</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32039" class="LineNr">32039 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32040" class="LineNr">32040 </span> <span class="subxComment"># "88/byte<-"</span> -<span id="L32041" class="LineNr">32041 </span> 0x9/imm32/size -<span id="L32042" class="LineNr">32042 </span> 0x38/8 0x38/8 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x3c/< 0x2d/- -<span id="L32043" class="LineNr">32043 </span><span class="subxMinorFunction">_string_8d_copy_address</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32040" class="LineNr">32040 </span> <span class="subxComment"># "compare"</span> +<span id="L32041" class="LineNr">32041 </span> 0x7/imm32/size +<span id="L32042" class="LineNr">32042 </span> 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e +<span id="L32043" class="LineNr">32043 </span><span class="subxMinorFunction">_string-copy</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32044" class="LineNr">32044 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32045" class="LineNr">32045 </span> <span class="subxComment"># "8d/copy-address"</span> -<span id="L32046" class="LineNr">32046 </span> 0xf/imm32/size -<span id="L32047" class="LineNr">32047 </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="L32048" class="LineNr">32048 </span><span class="subxMinorFunction">_string_b8_copy_to_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32045" class="LineNr">32045 </span> <span class="subxComment"># "copy"</span> +<span id="L32046" class="LineNr">32046 </span> 0x4/imm32/size +<span id="L32047" class="LineNr">32047 </span> 0x63/c 0x6f/o 0x70/p 0x79/y +<span id="L32048" class="LineNr">32048 </span><span class="subxMinorFunction">_string-copy-to</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32049" class="LineNr">32049 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32050" class="LineNr">32050 </span> <span class="subxComment"># "b8/copy-to-eax"</span> -<span id="L32051" class="LineNr">32051 </span> 0xe/imm32/size -<span id="L32052" class="LineNr">32052 </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="L32053" class="LineNr">32053 </span><span class="subxMinorFunction">_string_b9_copy_to_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32050" class="LineNr">32050 </span> <span class="subxComment"># "copy-to"</span> +<span id="L32051" class="LineNr">32051 </span> 0x7/imm32/size +<span id="L32052" class="LineNr">32052 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o +<span id="L32053" class="LineNr">32053 </span><span class="subxMinorFunction">_string-copy-byte</span>: <span id="L32054" class="LineNr">32054 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32055" class="LineNr">32055 </span> <span class="subxComment"># "b9/copy-to-ecx"</span> -<span id="L32056" class="LineNr">32056 </span> 0xe/imm32/size -<span id="L32057" class="LineNr">32057 </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="L32058" class="LineNr">32058 </span><span class="subxMinorFunction">_string_ba_copy_to_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32055" class="LineNr">32055 </span> <span class="subxComment"># "copy-byte"</span> +<span id="L32056" class="LineNr">32056 </span> 0x9/imm32/size +<span id="L32057" class="LineNr">32057 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/- 0x62/b 0x79/y 0x74/t 0x65/e +<span id="L32058" class="LineNr">32058 </span><span class="subxMinorFunction">_string-copy-byte-to</span>: <span id="L32059" class="LineNr">32059 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32060" class="LineNr">32060 </span> <span class="subxComment"># "ba/copy-to-edx"</span> -<span id="L32061" class="LineNr">32061 </span> 0xe/imm32/size -<span id="L32062" class="LineNr">32062 </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="L32063" class="LineNr">32063 </span><span class="subxMinorFunction">_string_bb_copy_to_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32060" class="LineNr">32060 </span> <span class="subxComment"># "copy-byte-to"</span> +<span id="L32061" class="LineNr">32061 </span> 0xc/imm32/size +<span id="L32062" class="LineNr">32062 </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="L32063" class="LineNr">32063 </span><span class="subxMinorFunction">_string-decrement</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32064" class="LineNr">32064 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32065" class="LineNr">32065 </span> <span class="subxComment"># "bb/copy-to-ebx"</span> -<span id="L32066" class="LineNr">32066 </span> 0xe/imm32/size -<span id="L32067" class="LineNr">32067 </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="L32068" class="LineNr">32068 </span><span class="subxMinorFunction">_string_be_copy_to_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32065" class="LineNr">32065 </span> <span class="subxComment"># "decrement"</span> +<span id="L32066" class="LineNr">32066 </span> 0x9/imm32/size +<span id="L32067" class="LineNr">32067 </span> 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t +<span id="L32068" class="LineNr">32068 </span><span class="subxMinorFunction">_string-increment</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32069" class="LineNr">32069 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32070" class="LineNr">32070 </span> <span class="subxComment"># "be/copy-to-esi"</span> -<span id="L32071" class="LineNr">32071 </span> 0xe/imm32/size -<span id="L32072" class="LineNr">32072 </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="L32073" class="LineNr">32073 </span><span class="subxMinorFunction">_string_bf_copy_to_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32070" class="LineNr">32070 </span> <span class="subxComment"># "increment"</span> +<span id="L32071" class="LineNr">32071 </span> 0x9/imm32/size +<span id="L32072" class="LineNr">32072 </span> 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t +<span id="L32073" class="LineNr">32073 </span><span class="subxMinorFunction">_string-loop</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32074" class="LineNr">32074 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32075" class="LineNr">32075 </span> <span class="subxComment"># "bf/copy-to-edi"</span> -<span id="L32076" class="LineNr">32076 </span> 0xe/imm32/size -<span id="L32077" class="LineNr">32077 </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="L32078" class="LineNr">32078 </span><span class="subxMinorFunction">_string_c7_subop_copy</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32075" class="LineNr">32075 </span> <span class="subxComment"># "loop"</span> +<span id="L32076" class="LineNr">32076 </span> 0x4/imm32/size +<span id="L32077" class="LineNr">32077 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p +<span id="L32078" class="LineNr">32078 </span><span class="subxMinorFunction">_string-loop-if-<</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32079" class="LineNr">32079 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32080" class="LineNr">32080 </span> <span class="subxComment"># "c7 0/subop/copy"</span> -<span id="L32081" class="LineNr">32081 </span> 0xf/imm32/size -<span id="L32082" class="LineNr">32082 </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="L32083" class="LineNr">32083 </span><span class="subxMinorFunction">_string_e9_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32080" class="LineNr">32080 </span> <span class="subxComment"># "loop-if-<"</span> +<span id="L32081" class="LineNr">32081 </span> 0x9/imm32/size +<span id="L32082" class="LineNr">32082 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< +<span id="L32083" class="LineNr">32083 </span><span class="subxMinorFunction">_string-loop-if-<=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32084" class="LineNr">32084 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32085" class="LineNr">32085 </span> <span class="subxComment"># "e9/jump"</span> -<span id="L32086" class="LineNr">32086 </span> 0x7/imm32/size -<span id="L32087" class="LineNr">32087 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p -<span id="L32088" class="LineNr">32088 </span><span class="subxMinorFunction">_string_e9_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32085" class="LineNr">32085 </span> <span class="subxComment"># "loop-if-<="</span> +<span id="L32086" class="LineNr">32086 </span> 0xa/imm32/size +<span id="L32087" class="LineNr">32087 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= +<span id="L32088" class="LineNr">32088 </span><span class="subxMinorFunction">_string-loop-if-=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32089" class="LineNr">32089 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32090" class="LineNr">32090 </span> <span class="subxComment"># "e9/jump break/disp32"</span> -<span id="L32091" class="LineNr">32091 </span> 0x14/imm32/size -<span id="L32092" class="LineNr">32092 </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="L32093" class="LineNr">32093 </span><span class="subxMinorFunction">_string_e9_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32090" class="LineNr">32090 </span> <span class="subxComment"># "loop-if-="</span> +<span id="L32091" class="LineNr">32091 </span> 0x9/imm32/size +<span id="L32092" class="LineNr">32092 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= +<span id="L32093" class="LineNr">32093 </span><span class="subxMinorFunction">_string-loop-if-></span>: <span class="subxComment"># (payload array byte)</span> <span id="L32094" class="LineNr">32094 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32095" class="LineNr">32095 </span> <span class="subxComment"># "e9/jump loop/disp32"</span> -<span id="L32096" class="LineNr">32096 </span> 0x13/imm32/size -<span id="L32097" class="LineNr">32097 </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="L32098" class="LineNr">32098 </span><span class="subxMinorFunction">_string_f7_subop_negate</span>: +<span id="L32095" class="LineNr">32095 </span> <span class="subxComment"># "loop-if->"</span> +<span id="L32096" class="LineNr">32096 </span> 0x9/imm32/size +<span id="L32097" class="LineNr">32097 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> +<span id="L32098" class="LineNr">32098 </span><span class="subxMinorFunction">_string-loop-if->=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32099" class="LineNr">32099 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32100" class="LineNr">32100 </span> <span class="subxComment"># "f7 3/subop/negate"</span> -<span id="L32101" class="LineNr">32101 </span> 0x11/imm32/size -<span id="L32102" class="LineNr">32102 </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="L32103" class="LineNr">32103 </span><span class="subxMinorFunction">_string_ff_subop_increment</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32100" class="LineNr">32100 </span> <span class="subxComment"># "loop-if->="</span> +<span id="L32101" class="LineNr">32101 </span> 0xa/imm32/size +<span id="L32102" class="LineNr">32102 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= +<span id="L32103" class="LineNr">32103 </span><span class="subxMinorFunction">_string-loop-if-!=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32104" class="LineNr">32104 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32105" class="LineNr">32105 </span> <span class="subxComment"># "ff 0/subop/increment"</span> -<span id="L32106" class="LineNr">32106 </span> 0x14/imm32/size -<span id="L32107" class="LineNr">32107 </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="L32108" class="LineNr">32108 </span><span class="subxMinorFunction">_string_ff_subop_decrement</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32105" class="LineNr">32105 </span> <span class="subxComment"># "loop-if-!="</span> +<span id="L32106" class="LineNr">32106 </span> 0xa/imm32/size +<span id="L32107" class="LineNr">32107 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= +<span id="L32108" class="LineNr">32108 </span><span class="subxMinorFunction">_string-loop-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32109" class="LineNr">32109 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32110" class="LineNr">32110 </span> <span class="subxComment"># "ff 1/subop/decrement"</span> -<span id="L32111" class="LineNr">32111 </span> 0x14/imm32/size -<span id="L32112" class="LineNr">32112 </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="L32113" class="LineNr">32113 </span><span class="subxMinorFunction">_string_c1_subop_shift_left</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32110" class="LineNr">32110 </span> <span class="subxComment"># "loop-if-addr<"</span> +<span id="L32111" class="LineNr">32111 </span> 0xd/imm32/size +<span id="L32112" class="LineNr">32112 </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="L32113" class="LineNr">32113 </span><span class="subxMinorFunction">_string-loop-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32114" class="LineNr">32114 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32115" class="LineNr">32115 </span> <span class="subxComment"># "c1/shift 4/subop/left"</span> -<span id="L32116" class="LineNr">32116 </span> 0x15/imm32/size -<span id="L32117" class="LineNr">32117 </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="L32118" class="LineNr">32118 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_padding_zeroes</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32115" class="LineNr">32115 </span> <span class="subxComment"># "loop-if-addr<="</span> +<span id="L32116" class="LineNr">32116 </span> 0xe/imm32/size +<span id="L32117" class="LineNr">32117 </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="L32118" class="LineNr">32118 </span><span class="subxMinorFunction">_string-loop-if-addr></span>: <span class="subxComment"># (payload array byte)</span> <span id="L32119" class="LineNr">32119 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32120" class="LineNr">32120 </span> <span class="subxComment"># "c1/shift 5/subop/right-padding-zeroes"</span> -<span id="L32121" class="LineNr">32121 </span> 0x25/imm32/size -<span id="L32122" class="LineNr">32122 </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="L32123" class="LineNr">32123 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_preserving_sign</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32120" class="LineNr">32120 </span> <span class="subxComment"># "loop-if-addr>"</span> +<span id="L32121" class="LineNr">32121 </span> 0xd/imm32/size +<span id="L32122" class="LineNr">32122 </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="L32123" class="LineNr">32123 </span><span class="subxMinorFunction">_string-loop-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32124" class="LineNr">32124 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32125" class="LineNr">32125 </span> <span class="subxComment"># "c1/shift 7/subop/right-preserving-sign"</span> -<span id="L32126" class="LineNr">32126 </span> 0x26/imm32/size -<span id="L32127" class="LineNr">32127 </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="L32128" class="LineNr">32128 </span> -<span id="L32129" class="LineNr">32129 </span><span class="SpecialChar">Single-int-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32130" class="LineNr">32130 </span> 0x11/imm32/alloc-id:fake:payload -<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#L32136'>Int-var-in-mem</a></span>/imm32 -<span id="L32133" class="LineNr">32133 </span> 0/imm32/next -<span id="L32134" class="LineNr">32134 </span> 0/imm32/next -<span id="L32135" class="LineNr">32135 </span> -<span id="L32136" class="LineNr">32136 </span><span class="SpecialChar">Int-var-in-mem</span>: <span class="subxComment"># (payload var)</span> -<span id="L32137" class="LineNr">32137 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32138" class="LineNr">32138 </span> 0/imm32/name -<span id="L32139" class="LineNr">32139 </span> 0/imm32/name -<span id="L32140" class="LineNr">32140 </span> 0x11/imm32/alloc-id:fake -<span id="L32141" class="LineNr">32141 </span> <span class="SpecialChar"><a href='mu.subx.html#L32460'>Type-int</a></span>/imm32 -<span id="L32142" class="LineNr">32142 </span> 1/imm32/some-block-depth -<span id="L32143" class="LineNr">32143 </span> 1/imm32/some-stack-offset -<span id="L32144" class="LineNr">32144 </span> 0/imm32/no-register -<span id="L32145" class="LineNr">32145 </span> 0/imm32/no-register -<span id="L32146" class="LineNr">32146 </span> -<span id="L32147" class="LineNr">32147 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L32148" class="LineNr">32148 </span><span class="SpecialChar">Single-byte-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32125" class="LineNr">32125 </span> <span class="subxComment"># "loop-if-addr>="</span> +<span id="L32126" class="LineNr">32126 </span> 0xe/imm32/size +<span id="L32127" class="LineNr">32127 </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="L32128" class="LineNr">32128 </span><span class="subxMinorFunction">_string-loop-if-float<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32129" class="LineNr">32129 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32130" class="LineNr">32130 </span> <span class="subxComment"># "loop-if-float<"</span> +<span id="L32131" class="LineNr">32131 </span> 0xe/imm32/size +<span id="L32132" class="LineNr">32132 </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="L32133" class="LineNr">32133 </span><span class="subxMinorFunction">_string-loop-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32134" class="LineNr">32134 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32135" class="LineNr">32135 </span> <span class="subxComment"># "loop-if-float<="</span> +<span id="L32136" class="LineNr">32136 </span> 0xf/imm32/size +<span id="L32137" class="LineNr">32137 </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="L32138" class="LineNr">32138 </span><span class="subxMinorFunction">_string-loop-if-float></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32139" class="LineNr">32139 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32140" class="LineNr">32140 </span> <span class="subxComment"># "loop-if-float>"</span> +<span id="L32141" class="LineNr">32141 </span> 0xe/imm32/size +<span id="L32142" class="LineNr">32142 </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="L32143" class="LineNr">32143 </span><span class="subxMinorFunction">_string-loop-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32144" class="LineNr">32144 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32145" class="LineNr">32145 </span> <span class="subxComment"># "loop-if-float>="</span> +<span id="L32146" class="LineNr">32146 </span> 0xf/imm32/size +<span id="L32147" class="LineNr">32147 </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="L32148" class="LineNr">32148 </span><span class="subxMinorFunction">_string-multiply</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32149" class="LineNr">32149 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32150" class="LineNr">32150 </span> 0x11/imm32/alloc-id:fake -<span id="L32151" class="LineNr">32151 </span> <span class="SpecialChar"><a href='mu.subx.html#L32156'>Byte-var-in-mem</a></span>/imm32 -<span id="L32152" class="LineNr">32152 </span> 0/imm32/next -<span id="L32153" class="LineNr">32153 </span> 0/imm32/next -<span id="L32154" class="LineNr">32154 </span> -<span id="L32155" class="LineNr">32155 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L32156" class="LineNr">32156 </span><span class="SpecialChar">Byte-var-in-mem</span>: <span class="subxComment"># (payload var)</span> -<span id="L32157" class="LineNr">32157 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32158" class="LineNr">32158 </span> 0/imm32/name -<span id="L32159" class="LineNr">32159 </span> 0/imm32/name -<span id="L32160" class="LineNr">32160 </span> 0x11/imm32/alloc-id:fake -<span id="L32161" class="LineNr">32161 </span> <span class="SpecialChar"><a href='mu.subx.html#L32484'>Type-byte</a></span>/imm32 -<span id="L32162" class="LineNr">32162 </span> 1/imm32/some-block-depth -<span id="L32163" class="LineNr">32163 </span> 1/imm32/some-stack-offset -<span id="L32164" class="LineNr">32164 </span> 0/imm32/no-register -<span id="L32165" class="LineNr">32165 </span> 0/imm32/no-register -<span id="L32166" class="LineNr">32166 </span> -<span id="L32167" class="LineNr">32167 </span><span class="SpecialChar">Two-args-int-stack-int-reg</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32168" class="LineNr">32168 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32169" class="LineNr">32169 </span> 0x11/imm32/alloc-id:fake -<span id="L32170" class="LineNr">32170 </span> <span class="SpecialChar"><a href='mu.subx.html#L32136'>Int-var-in-mem</a></span>/imm32 -<span id="L32171" class="LineNr">32171 </span> 0x11/imm32/alloc-id:fake -<span id="L32172" class="LineNr">32172 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/next -<span id="L32173" class="LineNr">32173 </span> -<span id="L32174" class="LineNr">32174 </span><span class="SpecialChar">Two-int-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32175" class="LineNr">32175 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32176" class="LineNr">32176 </span> 0x11/imm32/alloc-id:fake -<span id="L32177" class="LineNr">32177 </span> <span class="SpecialChar"><a href='mu.subx.html#L32259'>Int-var-in-some-register</a></span>/imm32 -<span id="L32178" class="LineNr">32178 </span> 0x11/imm32/alloc-id:fake -<span id="L32179" class="LineNr">32179 </span> <span class="SpecialChar"><a href='mu.subx.html#L32238'>Single-int-var-in-some-register</a></span>/imm32/next -<span id="L32180" class="LineNr">32180 </span> -<span id="L32181" class="LineNr">32181 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L32182" class="LineNr">32182 </span><span class="SpecialChar">Two-args-byte-stack-byte-reg</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32183" class="LineNr">32183 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32184" class="LineNr">32184 </span> 0x11/imm32/alloc-id:fake -<span id="L32185" class="LineNr">32185 </span> <span class="SpecialChar"><a href='mu.subx.html#L32156'>Byte-var-in-mem</a></span>/imm32 -<span id="L32186" class="LineNr">32186 </span> 0x11/imm32/alloc-id:fake -<span id="L32187" class="LineNr">32187 </span> <span class="SpecialChar"><a href='mu.subx.html#L32252'>Single-byte-var-in-some-register</a></span>/imm32/next -<span id="L32188" class="LineNr">32188 </span> -<span id="L32189" class="LineNr">32189 </span><span class="SpecialChar">Two-args-int-reg-int-stack</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32190" class="LineNr">32190 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32191" class="LineNr">32191 </span> 0x11/imm32/alloc-id:fake -<span id="L32192" class="LineNr">32192 </span> <span class="SpecialChar"><a href='mu.subx.html#L32259'>Int-var-in-some-register</a></span>/imm32 -<span id="L32193" class="LineNr">32193 </span> 0x11/imm32/alloc-id:fake -<span id="L32194" class="LineNr">32194 </span> <span class="SpecialChar"><a href='mu.subx.html#L32129'>Single-int-var-in-mem</a></span>/imm32/next -<span id="L32195" class="LineNr">32195 </span> -<span id="L32196" class="LineNr">32196 </span><span class="SpecialChar">Two-args-int-eax-int-literal</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32197" class="LineNr">32197 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32198" class="LineNr">32198 </span> 0x11/imm32/alloc-id:fake -<span id="L32199" class="LineNr">32199 </span> <span class="SpecialChar"><a href='mu.subx.html#L32305'>Int-var-in-eax</a></span>/imm32 -<span id="L32200" class="LineNr">32200 </span> 0x11/imm32/alloc-id:fake -<span id="L32201" class="LineNr">32201 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/next -<span id="L32202" class="LineNr">32202 </span> -<span id="L32203" class="LineNr">32203 </span><span class="SpecialChar">Int-var-and-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32150" class="LineNr">32150 </span> <span class="subxComment"># "multiply"</span> +<span id="L32151" class="LineNr">32151 </span> 0x8/imm32/size +<span id="L32152" class="LineNr">32152 </span> 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y +<span id="L32153" class="LineNr">32153 </span><span class="subxMinorFunction">_string-convert</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32154" class="LineNr">32154 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32155" class="LineNr">32155 </span> <span class="subxComment"># "convert"</span> +<span id="L32156" class="LineNr">32156 </span> 0x7/imm32/size +<span id="L32157" class="LineNr">32157 </span> 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t +<span id="L32158" class="LineNr">32158 </span><span class="subxMinorFunction">_string-truncate</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32159" class="LineNr">32159 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32160" class="LineNr">32160 </span> <span class="subxComment"># "truncate"</span> +<span id="L32161" class="LineNr">32161 </span> 0x8/imm32/size +<span id="L32162" class="LineNr">32162 </span> 0x74/t 0x72/r 0x75/u 0x6e/n 0x63/c 0x61/a 0x74/t 0x65/e +<span id="L32163" class="LineNr">32163 </span><span class="subxMinorFunction">_string-reinterpret</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32164" class="LineNr">32164 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32165" class="LineNr">32165 </span> <span class="subxComment"># "reinterpret"</span> +<span id="L32166" class="LineNr">32166 </span> 0xb/imm32/size +<span id="L32167" class="LineNr">32167 </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="L32168" class="LineNr">32168 </span><span class="subxMinorFunction">_string-divide</span>: +<span id="L32169" class="LineNr">32169 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32170" class="LineNr">32170 </span> <span class="subxComment"># "divide"</span> +<span id="L32171" class="LineNr">32171 </span> 0x6/imm32/size +<span id="L32172" class="LineNr">32172 </span> 0x64/d 0x69/i 0x76/v 0x69/i 0x64/d 0x65/e +<span id="L32173" class="LineNr">32173 </span><span class="subxMinorFunction">_string-max</span>: +<span id="L32174" class="LineNr">32174 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32175" class="LineNr">32175 </span> <span class="subxComment"># "max"</span> +<span id="L32176" class="LineNr">32176 </span> 0x3/imm32/size +<span id="L32177" class="LineNr">32177 </span> 0x6d/m 0x61/a 0x78/x +<span id="L32178" class="LineNr">32178 </span><span class="subxMinorFunction">_string-min</span>: +<span id="L32179" class="LineNr">32179 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32180" class="LineNr">32180 </span> <span class="subxComment"># "min"</span> +<span id="L32181" class="LineNr">32181 </span> 0x3/imm32/size +<span id="L32182" class="LineNr">32182 </span> 0x6d/m 0x69/i 0x6e/n +<span id="L32183" class="LineNr">32183 </span><span class="subxMinorFunction">_string-reciprocal</span>: +<span id="L32184" class="LineNr">32184 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32185" class="LineNr">32185 </span> <span class="subxComment"># "reciprocal"</span> +<span id="L32186" class="LineNr">32186 </span> 0xa/imm32/size +<span id="L32187" class="LineNr">32187 </span> 0x72/r 0x65/e 0x63/c 0x69/i 0x70/p 0x72/r 0x6f/o 0x63/c 0x61/a 0x6c/l +<span id="L32188" class="LineNr">32188 </span><span class="subxMinorFunction">_string-square-root</span>: +<span id="L32189" class="LineNr">32189 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32190" class="LineNr">32190 </span> <span class="subxComment"># "square-root"</span> +<span id="L32191" class="LineNr">32191 </span> 0xb/imm32/size +<span id="L32192" class="LineNr">32192 </span> 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/- 0x72/r 0x6f/o 0x6f/o 0x74/t +<span id="L32193" class="LineNr">32193 </span><span class="subxMinorFunction">_string-inverse-square-root</span>: +<span id="L32194" class="LineNr">32194 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32195" class="LineNr">32195 </span> <span class="subxComment"># "inverse-square-root"</span> +<span id="L32196" class="LineNr">32196 </span> 0x13/imm32/size +<span id="L32197" class="LineNr">32197 </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="L32198" class="LineNr">32198 </span><span class="subxMinorFunction">_string-negate</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32199" class="LineNr">32199 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32200" class="LineNr">32200 </span> <span class="subxComment"># "negate"</span> +<span id="L32201" class="LineNr">32201 </span> 0x6/imm32/size +<span id="L32202" class="LineNr">32202 </span> 0x6e/n 0x65/e 0x67/g 0x61/a 0x74/t 0x65/e +<span id="L32203" class="LineNr">32203 </span><span class="subxMinorFunction">_string-or</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32204" class="LineNr">32204 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32205" class="LineNr">32205 </span> 0x11/imm32/alloc-id:fake -<span id="L32206" class="LineNr">32206 </span> <span class="SpecialChar"><a href='mu.subx.html#L32136'>Int-var-in-mem</a></span>/imm32 -<span id="L32207" class="LineNr">32207 </span> 0x11/imm32/alloc-id:fake -<span id="L32208" class="LineNr">32208 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/next -<span id="L32209" class="LineNr">32209 </span> -<span id="L32210" class="LineNr">32210 </span><span class="SpecialChar">Int-var-in-register-and-literal</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32211" class="LineNr">32211 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32212" class="LineNr">32212 </span> 0x11/imm32/alloc-id:fake -<span id="L32213" class="LineNr">32213 </span> <span class="SpecialChar"><a href='mu.subx.html#L32259'>Int-var-in-some-register</a></span>/imm32 -<span id="L32214" class="LineNr">32214 </span> 0x11/imm32/alloc-id:fake -<span id="L32215" class="LineNr">32215 </span> <span class="SpecialChar"><a href='mu.subx.html#L32406'>Single-lit-var</a></span>/imm32/next -<span id="L32216" class="LineNr">32216 </span> -<span id="L32217" class="LineNr">32217 </span><span class="SpecialChar">Two-float-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32218" class="LineNr">32218 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32219" class="LineNr">32219 </span> 0x11/imm32/alloc-id:fake -<span id="L32220" class="LineNr">32220 </span> <span class="SpecialChar"><a href='mu.subx.html#L32449'>Float-var-in-some-register</a></span>/imm32 -<span id="L32221" class="LineNr">32221 </span> 0x11/imm32/alloc-id:fake -<span id="L32222" class="LineNr">32222 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/next -<span id="L32223" class="LineNr">32223 </span> -<span id="L32224" class="LineNr">32224 </span><span class="SpecialChar">Two-args-float-reg-float-stack</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32225" class="LineNr">32225 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32226" class="LineNr">32226 </span> 0x11/imm32/alloc-id:fake -<span id="L32227" class="LineNr">32227 </span> <span class="SpecialChar"><a href='mu.subx.html#L32449'>Float-var-in-some-register</a></span>/imm32 -<span id="L32228" class="LineNr">32228 </span> 0x11/imm32/alloc-id:fake -<span id="L32229" class="LineNr">32229 </span> <span class="SpecialChar"><a href='mu.subx.html#L32424'>Single-float-var-in-mem</a></span>/imm32/next -<span id="L32230" class="LineNr">32230 </span> -<span id="L32231" class="LineNr">32231 </span><span class="SpecialChar">Two-args-float-stack-float-reg</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32232" class="LineNr">32232 </span> 0x11/imm32/alloc-id:fake:payload -<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#L32431'>Float-var-in-mem</a></span>/imm32 -<span id="L32235" class="LineNr">32235 </span> 0x11/imm32/alloc-id:fake -<span id="L32236" class="LineNr">32236 </span> <span class="SpecialChar"><a href='mu.subx.html#L32442'>Single-float-var-in-some-register</a></span>/imm32/next -<span id="L32237" class="LineNr">32237 </span> -<span id="L32238" class="LineNr">32238 </span><span class="SpecialChar">Single-int-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32205" class="LineNr">32205 </span> <span class="subxComment"># "or"</span> +<span id="L32206" class="LineNr">32206 </span> 0x2/imm32/size +<span id="L32207" class="LineNr">32207 </span> 0x6f/o 0x72/r +<span id="L32208" class="LineNr">32208 </span><span class="subxMinorFunction">_string-or-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32209" class="LineNr">32209 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32210" class="LineNr">32210 </span> <span class="subxComment"># "or-with"</span> +<span id="L32211" class="LineNr">32211 </span> 0x7/imm32/size +<span id="L32212" class="LineNr">32212 </span> 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L32213" class="LineNr">32213 </span><span class="subxMinorFunction">_string-subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32214" class="LineNr">32214 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32215" class="LineNr">32215 </span> <span class="subxComment"># "subtract"</span> +<span id="L32216" class="LineNr">32216 </span> 0x8/imm32/size +<span id="L32217" class="LineNr">32217 </span> 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t +<span id="L32218" class="LineNr">32218 </span><span class="subxMinorFunction">_string-subtract-from</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32219" class="LineNr">32219 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32220" class="LineNr">32220 </span> <span class="subxComment"># "subtract-from"</span> +<span id="L32221" class="LineNr">32221 </span> 0xd/imm32/size +<span id="L32222" class="LineNr">32222 </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="L32223" class="LineNr">32223 </span><span class="subxMinorFunction">_string-xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32224" class="LineNr">32224 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32225" class="LineNr">32225 </span> <span class="subxComment"># "xor"</span> +<span id="L32226" class="LineNr">32226 </span> 0x3/imm32/size +<span id="L32227" class="LineNr">32227 </span> 0x78/x 0x6f/o 0x72/r +<span id="L32228" class="LineNr">32228 </span><span class="subxMinorFunction">_string-xor-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32229" class="LineNr">32229 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32230" class="LineNr">32230 </span> <span class="subxComment"># "xor-with"</span> +<span id="L32231" class="LineNr">32231 </span> 0x8/imm32/size +<span id="L32232" class="LineNr">32232 </span> 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L32233" class="LineNr">32233 </span><span class="subxMinorFunction">_string-shift-left</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32234" class="LineNr">32234 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32235" class="LineNr">32235 </span> <span class="subxComment"># "shift-left"</span> +<span id="L32236" class="LineNr">32236 </span> 0xa/imm32/size +<span id="L32237" class="LineNr">32237 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x6c/l 0x65/e 0x66/f 0x74/t +<span id="L32238" class="LineNr">32238 </span><span class="subxMinorFunction">_string-shift-right</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32239" class="LineNr">32239 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32240" class="LineNr">32240 </span> 0x11/imm32/alloc-id:fake -<span id="L32241" class="LineNr">32241 </span> <span class="SpecialChar"><a href='mu.subx.html#L32259'>Int-var-in-some-register</a></span>/imm32 -<span id="L32242" class="LineNr">32242 </span> 0/imm32/next -<span id="L32243" class="LineNr">32243 </span> 0/imm32/next -<span id="L32244" class="LineNr">32244 </span> -<span id="L32245" class="LineNr">32245 </span><span class="SpecialChar">Single-addr-var-in-some-register</span>: <span class="subxComment"># (payload list var)</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> <span class="SpecialChar"><a href='mu.subx.html#L32276'>Addr-var-in-some-register</a></span>/imm32 -<span id="L32249" class="LineNr">32249 </span> 0/imm32/next -<span id="L32250" class="LineNr">32250 </span> 0/imm32/next -<span id="L32251" class="LineNr">32251 </span> -<span id="L32252" class="LineNr">32252 </span><span class="SpecialChar">Single-byte-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32253" class="LineNr">32253 </span> 0x11/imm32/alloc-id:fake:payload -<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#L32287'>Byte-var-in-some-register</a></span>/imm32 -<span id="L32256" class="LineNr">32256 </span> 0/imm32/next -<span id="L32257" class="LineNr">32257 </span> 0/imm32/next -<span id="L32258" class="LineNr">32258 </span> -<span id="L32259" class="LineNr">32259 </span><span class="SpecialChar">Int-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L32260" class="LineNr">32260 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32261" class="LineNr">32261 </span> 0/imm32/name -<span id="L32262" class="LineNr">32262 </span> 0/imm32/name -<span id="L32263" class="LineNr">32263 </span> 0x11/imm32/alloc-id:fake -<span id="L32264" class="LineNr">32264 </span> <span class="SpecialChar"><a href='mu.subx.html#L32460'>Type-int</a></span>/imm32 -<span id="L32265" class="LineNr">32265 </span> 1/imm32/some-block-depth -<span id="L32266" class="LineNr">32266 </span> 0/imm32/no-stack-offset -<span id="L32267" class="LineNr">32267 </span> 0x11/imm32/alloc-id:fake -<span id="L32268" class="LineNr">32268 </span> <span class="SpecialChar"><a href='mu.subx.html#L32270'>Any-register</a></span>/imm32 -<span id="L32269" class="LineNr">32269 </span> -<span id="L32270" class="LineNr">32270 </span><span class="SpecialChar">Any-register</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32240" class="LineNr">32240 </span> <span class="subxComment"># "shift-right"</span> +<span id="L32241" class="LineNr">32241 </span> 0xb/imm32/size +<span id="L32242" class="LineNr">32242 </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="L32243" class="LineNr">32243 </span><span class="subxMinorFunction">_string-shift-right-signed</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32244" class="LineNr">32244 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32245" class="LineNr">32245 </span> <span class="subxComment"># "shift-right-signed"</span> +<span id="L32246" class="LineNr">32246 </span> 0x12/imm32/size +<span id="L32247" class="LineNr">32247 </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="L32248" class="LineNr">32248 </span> +<span id="L32249" class="LineNr">32249 </span><span class="subxComment"># string literals for SubX instructions</span> +<span id="L32250" class="LineNr">32250 </span><span class="subxMinorFunction">_string_01_add_to</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32251" class="LineNr">32251 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32252" class="LineNr">32252 </span> <span class="subxComment"># "01/add-to"</span> +<span id="L32253" class="LineNr">32253 </span> 0x9/imm32/size +<span id="L32254" class="LineNr">32254 </span> 0x30/0 0x31/1 0x2f/slash 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o +<span id="L32255" class="LineNr">32255 </span><span class="subxMinorFunction">_string_03_add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32256" class="LineNr">32256 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32257" class="LineNr">32257 </span> <span class="subxComment"># "03/add"</span> +<span id="L32258" class="LineNr">32258 </span> 0x6/imm32/size +<span id="L32259" class="LineNr">32259 </span> 0x30/0 0x33/3 0x2f/slash 0x61/a 0x64/d 0x64/d +<span id="L32260" class="LineNr">32260 </span><span class="subxMinorFunction">_string_05_add_to_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32261" class="LineNr">32261 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32262" class="LineNr">32262 </span> <span class="subxComment"># "05/add-to-eax"</span> +<span id="L32263" class="LineNr">32263 </span> 0xd/imm32/size +<span id="L32264" class="LineNr">32264 </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="L32265" class="LineNr">32265 </span><span class="subxMinorFunction">_string_09_or_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32266" class="LineNr">32266 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32267" class="LineNr">32267 </span> <span class="subxComment"># "09/or-with"</span> +<span id="L32268" class="LineNr">32268 </span> 0xa/imm32/size +<span id="L32269" class="LineNr">32269 </span> 0x30/0 0x39/9 0x2f/slash 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L32270" class="LineNr">32270 </span><span class="subxMinorFunction">_string_0b_or</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32271" class="LineNr">32271 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32272" class="LineNr">32272 </span> 1/imm32/size -<span id="L32273" class="LineNr">32273 </span> <span class="subxComment"># data</span> -<span id="L32274" class="LineNr">32274 </span> 2a/asterisk -<span id="L32275" class="LineNr">32275 </span> -<span id="L32276" class="LineNr">32276 </span><span class="SpecialChar">Addr-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L32277" class="LineNr">32277 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32278" class="LineNr">32278 </span> 0/imm32/name -<span id="L32279" class="LineNr">32279 </span> 0/imm32/name -<span id="L32280" class="LineNr">32280 </span> 0x11/imm32/alloc-id:fake -<span id="L32281" class="LineNr">32281 </span> <span class="SpecialChar"><a href='mu.subx.html#L32476'>Type-addr</a></span>/imm32 -<span id="L32282" class="LineNr">32282 </span> 1/imm32/some-block-depth -<span id="L32283" class="LineNr">32283 </span> 0/imm32/no-stack-offset -<span id="L32284" class="LineNr">32284 </span> 0x11/imm32/alloc-id:fake -<span id="L32285" class="LineNr">32285 </span> <span class="SpecialChar"><a href='mu.subx.html#L32270'>Any-register</a></span>/imm32 -<span id="L32286" class="LineNr">32286 </span> -<span id="L32287" class="LineNr">32287 </span><span class="SpecialChar">Byte-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L32288" class="LineNr">32288 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32289" class="LineNr">32289 </span> 0/imm32/name -<span id="L32290" class="LineNr">32290 </span> 0/imm32/name -<span id="L32291" class="LineNr">32291 </span> 0x11/imm32/alloc-id:fake -<span id="L32292" class="LineNr">32292 </span> <span class="SpecialChar"><a href='mu.subx.html#L32484'>Type-byte</a></span>/imm32 -<span id="L32293" class="LineNr">32293 </span> 1/imm32/some-block-depth -<span id="L32294" class="LineNr">32294 </span> 0/imm32/no-stack-offset -<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#L32270'>Any-register</a></span>/imm32 -<span id="L32297" class="LineNr">32297 </span> -<span id="L32298" class="LineNr">32298 </span><span class="SpecialChar">Single-int-var-in-eax</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32299" class="LineNr">32299 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32300" class="LineNr">32300 </span> 0x11/imm32/alloc-id:fake -<span id="L32301" class="LineNr">32301 </span> <span class="SpecialChar"><a href='mu.subx.html#L32305'>Int-var-in-eax</a></span>/imm32 -<span id="L32302" class="LineNr">32302 </span> 0/imm32/next -<span id="L32303" class="LineNr">32303 </span> 0/imm32/next -<span id="L32304" class="LineNr">32304 </span> -<span id="L32305" class="LineNr">32305 </span><span class="SpecialChar">Int-var-in-eax</span>: +<span id="L32272" class="LineNr">32272 </span> <span class="subxComment"># "0b/or"</span> +<span id="L32273" class="LineNr">32273 </span> 0x5/imm32/size +<span id="L32274" class="LineNr">32274 </span> 0x30/0 0x62/b 0x2f/slash 0x6f/o 0x72/r +<span id="L32275" class="LineNr">32275 </span><span class="subxMinorFunction">_string_0d_or_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32276" class="LineNr">32276 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32277" class="LineNr">32277 </span> <span class="subxComment"># "0d/or-with-eax"</span> +<span id="L32278" class="LineNr">32278 </span> 0xe/imm32/size +<span id="L32279" class="LineNr">32279 </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="L32280" class="LineNr">32280 </span><span class="subxMinorFunction">_string_0f_82_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32281" class="LineNr">32281 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32282" class="LineNr">32282 </span> <span class="subxComment"># "0f 82/jump-if-addr<"</span> +<span id="L32283" class="LineNr">32283 </span> 0x13/imm32/size +<span id="L32284" class="LineNr">32284 </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="L32285" class="LineNr">32285 </span><span class="subxMinorFunction">_string_0f_82_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32286" class="LineNr">32286 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32287" class="LineNr">32287 </span> <span class="subxComment"># "0f 82/jump-if-addr< break/disp32"</span> +<span id="L32288" class="LineNr">32288 </span> 0x20/imm32/size +<span id="L32289" class="LineNr">32289 </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="L32290" class="LineNr">32290 </span><span class="subxMinorFunction">_string_0f_82_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32291" class="LineNr">32291 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32292" class="LineNr">32292 </span> <span class="subxComment"># "0f 82/jump-if-addr< loop/disp32"</span> +<span id="L32293" class="LineNr">32293 </span> 0x1f/imm32/size +<span id="L32294" class="LineNr">32294 </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="L32295" class="LineNr">32295 </span><span class="subxMinorFunction">_string_0f_83_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32296" class="LineNr">32296 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32297" class="LineNr">32297 </span> <span class="subxComment"># "0f 83/jump-if-addr>="</span> +<span id="L32298" class="LineNr">32298 </span> 0x14/imm32/size +<span id="L32299" class="LineNr">32299 </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="L32300" class="LineNr">32300 </span><span class="subxMinorFunction">_string_0f_83_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32301" class="LineNr">32301 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32302" class="LineNr">32302 </span> <span class="subxComment"># "0f 83/jump-if-addr>= break/disp32"</span> +<span id="L32303" class="LineNr">32303 </span> 0x21/imm32/size +<span id="L32304" class="LineNr">32304 </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="L32305" class="LineNr">32305 </span><span class="subxMinorFunction">_string_0f_83_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32306" class="LineNr">32306 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32307" class="LineNr">32307 </span> 0/imm32/name -<span id="L32308" class="LineNr">32308 </span> 0/imm32/name -<span id="L32309" class="LineNr">32309 </span> 0x11/imm32/alloc-id:fake -<span id="L32310" class="LineNr">32310 </span> <span class="SpecialChar"><a href='mu.subx.html#L32460'>Type-int</a></span>/imm32 -<span id="L32311" class="LineNr">32311 </span> 1/imm32/some-block-depth -<span id="L32312" class="LineNr">32312 </span> 0/imm32/no-stack-offset -<span id="L32313" class="LineNr">32313 </span> 0x11/imm32/alloc-id:fake -<span id="L32314" class="LineNr">32314 </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="L32315" class="LineNr">32315 </span> -<span id="L32316" class="LineNr">32316 </span><span class="SpecialChar">Single-int-var-in-ecx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32317" class="LineNr">32317 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32318" class="LineNr">32318 </span> 0x11/imm32/alloc-id:fake -<span id="L32319" class="LineNr">32319 </span> <span class="SpecialChar"><a href='mu.subx.html#L32323'>Int-var-in-ecx</a></span>/imm32 -<span id="L32320" class="LineNr">32320 </span> 0/imm32/next -<span id="L32321" class="LineNr">32321 </span> 0/imm32/next -<span id="L32322" class="LineNr">32322 </span> -<span id="L32323" class="LineNr">32323 </span><span class="SpecialChar">Int-var-in-ecx</span>: -<span id="L32324" class="LineNr">32324 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32325" class="LineNr">32325 </span> 0/imm32/name -<span id="L32326" class="LineNr">32326 </span> 0/imm32/name -<span id="L32327" class="LineNr">32327 </span> 0x11/imm32/alloc-id:fake -<span id="L32328" class="LineNr">32328 </span> <span class="SpecialChar"><a href='mu.subx.html#L32460'>Type-int</a></span>/imm32 -<span id="L32329" class="LineNr">32329 </span> 1/imm32/some-block-depth -<span id="L32330" class="LineNr">32330 </span> 0/imm32/no-stack-offset -<span id="L32331" class="LineNr">32331 </span> 0x11/imm32/alloc-id:fake -<span id="L32332" class="LineNr">32332 </span> $Register-ecx/imm32/register -<span id="L32333" class="LineNr">32333 </span> -<span id="L32334" class="LineNr">32334 </span><span class="SpecialChar">Single-int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32335" class="LineNr">32335 </span> 0x11/imm32/alloc-id:fake:payload -<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#L32341'>Int-var-in-edx</a></span>/imm32 -<span id="L32338" class="LineNr">32338 </span> 0/imm32/next -<span id="L32339" class="LineNr">32339 </span> 0/imm32/next -<span id="L32340" class="LineNr">32340 </span> -<span id="L32341" class="LineNr">32341 </span><span class="SpecialChar">Int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32342" class="LineNr">32342 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32343" class="LineNr">32343 </span> 0/imm32/name -<span id="L32344" class="LineNr">32344 </span> 0/imm32/name -<span id="L32345" class="LineNr">32345 </span> 0x11/imm32/alloc-id:fake -<span id="L32346" class="LineNr">32346 </span> <span class="SpecialChar"><a href='mu.subx.html#L32460'>Type-int</a></span>/imm32 -<span id="L32347" class="LineNr">32347 </span> 1/imm32/some-block-depth -<span id="L32348" class="LineNr">32348 </span> 0/imm32/no-stack-offset -<span id="L32349" class="LineNr">32349 </span> 0x11/imm32/alloc-id:fake -<span id="L32350" class="LineNr">32350 </span> $Register-edx/imm32/register -<span id="L32351" class="LineNr">32351 </span> -<span id="L32352" class="LineNr">32352 </span><span class="SpecialChar">Single-int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32353" class="LineNr">32353 </span> 0x11/imm32/alloc-id:fake:payload -<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#L32359'>Int-var-in-ebx</a></span>/imm32 -<span id="L32356" class="LineNr">32356 </span> 0/imm32/next -<span id="L32357" class="LineNr">32357 </span> 0/imm32/next -<span id="L32358" class="LineNr">32358 </span> -<span id="L32359" class="LineNr">32359 </span><span class="SpecialChar">Int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32360" class="LineNr">32360 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32361" class="LineNr">32361 </span> 0/imm32/name -<span id="L32362" class="LineNr">32362 </span> 0/imm32/name -<span id="L32363" class="LineNr">32363 </span> 0x11/imm32/alloc-id:fake -<span id="L32364" class="LineNr">32364 </span> <span class="SpecialChar"><a href='mu.subx.html#L32460'>Type-int</a></span>/imm32 -<span id="L32365" class="LineNr">32365 </span> 1/imm32/some-block-depth -<span id="L32366" class="LineNr">32366 </span> 0/imm32/no-stack-offset -<span id="L32367" class="LineNr">32367 </span> 0x11/imm32/alloc-id:fake -<span id="L32368" class="LineNr">32368 </span> $Register-ebx/imm32/register -<span id="L32369" class="LineNr">32369 </span> -<span id="L32370" class="LineNr">32370 </span><span class="SpecialChar">Single-int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32307" class="LineNr">32307 </span> <span class="subxComment"># "0f 83/jump-if-addr>= loop/disp32"</span> +<span id="L32308" class="LineNr">32308 </span> 0x20/imm32/size +<span id="L32309" class="LineNr">32309 </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="L32310" class="LineNr">32310 </span><span class="subxMinorFunction">_string_0f_84_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32311" class="LineNr">32311 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32312" class="LineNr">32312 </span> <span class="subxComment"># "0f 84/jump-if-="</span> +<span id="L32313" class="LineNr">32313 </span> 0xf/imm32/size +<span id="L32314" class="LineNr">32314 </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="L32315" class="LineNr">32315 </span><span class="subxMinorFunction">_string_0f_84_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32316" class="LineNr">32316 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32317" class="LineNr">32317 </span> <span class="subxComment"># "0f 84/jump-if-= break/disp32"</span> +<span id="L32318" class="LineNr">32318 </span> 0x1c/imm32/size +<span id="L32319" class="LineNr">32319 </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="L32320" class="LineNr">32320 </span><span class="subxMinorFunction">_string_0f_84_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32321" class="LineNr">32321 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32322" class="LineNr">32322 </span> <span class="subxComment"># "0f 84/jump-if-= loop/disp32"</span> +<span id="L32323" class="LineNr">32323 </span> 0x1b/imm32/size +<span id="L32324" class="LineNr">32324 </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="L32325" class="LineNr">32325 </span><span class="subxMinorFunction">_string_0f_85_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32326" class="LineNr">32326 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32327" class="LineNr">32327 </span> <span class="subxComment"># "0f 85/jump-if-!="</span> +<span id="L32328" class="LineNr">32328 </span> 0x10/imm32/size +<span id="L32329" class="LineNr">32329 </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="L32330" class="LineNr">32330 </span><span class="subxMinorFunction">_string_0f_85_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32331" class="LineNr">32331 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32332" class="LineNr">32332 </span> <span class="subxComment"># "0f 85/jump-if-!= break/disp32"</span> +<span id="L32333" class="LineNr">32333 </span> 0x1d/imm32/size +<span id="L32334" class="LineNr">32334 </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="L32335" class="LineNr">32335 </span><span class="subxMinorFunction">_string_0f_85_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32336" class="LineNr">32336 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32337" class="LineNr">32337 </span> <span class="subxComment"># "0f 85/jump-if-!= loop/disp32"</span> +<span id="L32338" class="LineNr">32338 </span> 0x1c/imm32/size +<span id="L32339" class="LineNr">32339 </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="L32340" class="LineNr">32340 </span><span class="subxMinorFunction">_string_0f_86_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32341" class="LineNr">32341 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32342" class="LineNr">32342 </span> <span class="subxComment"># "0f 86/jump-if-addr<="</span> +<span id="L32343" class="LineNr">32343 </span> 0x14/imm32/size +<span id="L32344" class="LineNr">32344 </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="L32345" class="LineNr">32345 </span><span class="subxMinorFunction">_string_0f_86_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32346" class="LineNr">32346 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32347" class="LineNr">32347 </span> <span class="subxComment"># "0f 86/jump-if-addr<= break/disp32"</span> +<span id="L32348" class="LineNr">32348 </span> 0x21/imm32/size +<span id="L32349" class="LineNr">32349 </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="L32350" class="LineNr">32350 </span><span class="subxMinorFunction">_string_0f_86_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32351" class="LineNr">32351 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32352" class="LineNr">32352 </span> <span class="subxComment"># "0f 86/jump-if-addr<= loop/disp32"</span> +<span id="L32353" class="LineNr">32353 </span> 0x20/imm32/size +<span id="L32354" class="LineNr">32354 </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="L32355" class="LineNr">32355 </span><span class="subxMinorFunction">_string_0f_87_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32356" class="LineNr">32356 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32357" class="LineNr">32357 </span> <span class="subxComment"># "0f 87/jump-if-addr>"</span> +<span id="L32358" class="LineNr">32358 </span> 0x13/imm32/size +<span id="L32359" class="LineNr">32359 </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="L32360" class="LineNr">32360 </span><span class="subxMinorFunction">_string_0f_87_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32361" class="LineNr">32361 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32362" class="LineNr">32362 </span> <span class="subxComment"># "0f 87/jump-if-addr> break/disp32"</span> +<span id="L32363" class="LineNr">32363 </span> 0x20/imm32/size +<span id="L32364" class="LineNr">32364 </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="L32365" class="LineNr">32365 </span><span class="subxMinorFunction">_string_0f_87_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32366" class="LineNr">32366 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32367" class="LineNr">32367 </span> <span class="subxComment"># "0f 87/jump-if-addr> loop/disp32"</span> +<span id="L32368" class="LineNr">32368 </span> 0x1f/imm32/size +<span id="L32369" class="LineNr">32369 </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="L32370" class="LineNr">32370 </span><span class="subxMinorFunction">_string_0f_8c_jump_label</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32371" class="LineNr">32371 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32372" class="LineNr">32372 </span> 0x11/imm32/alloc-id:fake -<span id="L32373" class="LineNr">32373 </span> <span class="SpecialChar"><a href='mu.subx.html#L32377'>Int-var-in-esi</a></span>/imm32 -<span id="L32374" class="LineNr">32374 </span> 0/imm32/next -<span id="L32375" class="LineNr">32375 </span> 0/imm32/next -<span id="L32376" class="LineNr">32376 </span> -<span id="L32377" class="LineNr">32377 </span><span class="SpecialChar">Int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32378" class="LineNr">32378 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32379" class="LineNr">32379 </span> 0/imm32/name -<span id="L32380" class="LineNr">32380 </span> 0/imm32/name -<span id="L32381" class="LineNr">32381 </span> 0x11/imm32/alloc-id:fake -<span id="L32382" class="LineNr">32382 </span> <span class="SpecialChar"><a href='mu.subx.html#L32460'>Type-int</a></span>/imm32 -<span id="L32383" class="LineNr">32383 </span> 1/imm32/some-block-depth -<span id="L32384" class="LineNr">32384 </span> 0/imm32/no-stack-offset -<span id="L32385" class="LineNr">32385 </span> 0x11/imm32/alloc-id:fake -<span id="L32386" class="LineNr">32386 </span> $Register-esi/imm32/register -<span id="L32387" class="LineNr">32387 </span> -<span id="L32388" class="LineNr">32388 </span><span class="SpecialChar">Single-int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32389" class="LineNr">32389 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32390" class="LineNr">32390 </span> 0x11/imm32/alloc-id:fake -<span id="L32391" class="LineNr">32391 </span> <span class="SpecialChar"><a href='mu.subx.html#L32395'>Int-var-in-edi</a></span>/imm32 -<span id="L32392" class="LineNr">32392 </span> 0/imm32/next -<span id="L32393" class="LineNr">32393 </span> 0/imm32/next -<span id="L32394" class="LineNr">32394 </span> -<span id="L32395" class="LineNr">32395 </span><span class="SpecialChar">Int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32372" class="LineNr">32372 </span> <span class="subxComment"># "0f 8c/jump-if-<"</span> +<span id="L32373" class="LineNr">32373 </span> 0xf/imm32/size +<span id="L32374" class="LineNr">32374 </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="L32375" class="LineNr">32375 </span><span class="subxMinorFunction">_string_0f_8c_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32376" class="LineNr">32376 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32377" class="LineNr">32377 </span> <span class="subxComment"># "0f 8c/jump-if-< break/disp32"</span> +<span id="L32378" class="LineNr">32378 </span> 0x1c/imm32/size +<span id="L32379" class="LineNr">32379 </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="L32380" class="LineNr">32380 </span><span class="subxMinorFunction">_string_0f_8c_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32381" class="LineNr">32381 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32382" class="LineNr">32382 </span> <span class="subxComment"># "0f 8c/jump-if-< loop/disp32"</span> +<span id="L32383" class="LineNr">32383 </span> 0x1b/imm32/size +<span id="L32384" class="LineNr">32384 </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="L32385" class="LineNr">32385 </span><span class="subxMinorFunction">_string_0f_8d_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32386" class="LineNr">32386 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32387" class="LineNr">32387 </span> <span class="subxComment"># "0f 8d/jump-if->="</span> +<span id="L32388" class="LineNr">32388 </span> 0x10/imm32/size +<span id="L32389" class="LineNr">32389 </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="L32390" class="LineNr">32390 </span><span class="subxMinorFunction">_string_0f_8d_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32391" class="LineNr">32391 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32392" class="LineNr">32392 </span> <span class="subxComment"># "0f 8d/jump-if->= break/disp32"</span> +<span id="L32393" class="LineNr">32393 </span> 0x1d/imm32/size +<span id="L32394" class="LineNr">32394 </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="L32395" class="LineNr">32395 </span><span class="subxMinorFunction">_string_0f_8d_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> <span id="L32396" class="LineNr">32396 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32397" class="LineNr">32397 </span> 0/imm32/name -<span id="L32398" class="LineNr">32398 </span> 0/imm32/name -<span id="L32399" class="LineNr">32399 </span> 0x11/imm32/alloc-id:fake -<span id="L32400" class="LineNr">32400 </span> <span class="SpecialChar"><a href='mu.subx.html#L32460'>Type-int</a></span>/imm32 -<span id="L32401" class="LineNr">32401 </span> 1/imm32/some-block-depth -<span id="L32402" class="LineNr">32402 </span> 0/imm32/no-stack-offset -<span id="L32403" class="LineNr">32403 </span> 0x11/imm32/alloc-id:fake -<span id="L32404" class="LineNr">32404 </span> $Register-edi/imm32/register -<span id="L32405" class="LineNr">32405 </span> -<span id="L32406" class="LineNr">32406 </span><span class="SpecialChar">Single-lit-var</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32407" class="LineNr">32407 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32408" class="LineNr">32408 </span> 0x11/imm32/alloc-id:fake -<span id="L32409" class="LineNr">32409 </span> <span class="SpecialChar"><a href='mu.subx.html#L32413'>Lit-var</a></span>/imm32 -<span id="L32410" class="LineNr">32410 </span> 0/imm32/next -<span id="L32411" class="LineNr">32411 </span> 0/imm32/next -<span id="L32412" class="LineNr">32412 </span> -<span id="L32413" class="LineNr">32413 </span><span class="SpecialChar">Lit-var</span>: <span class="subxComment"># (payload var)</span> -<span id="L32414" class="LineNr">32414 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32415" class="LineNr">32415 </span> 0/imm32/name -<span id="L32416" class="LineNr">32416 </span> 0/imm32/name -<span id="L32417" class="LineNr">32417 </span> 0x11/imm32/alloc-id:fake -<span id="L32418" class="LineNr">32418 </span> <span class="SpecialChar"><a href='mu.subx.html#L32468'>Type-literal</a></span>/imm32 -<span id="L32419" class="LineNr">32419 </span> 1/imm32/some-block-depth -<span id="L32420" class="LineNr">32420 </span> 0/imm32/no-stack-offset -<span id="L32421" class="LineNr">32421 </span> 0/imm32/no-register -<span id="L32422" class="LineNr">32422 </span> 0/imm32/no-register -<span id="L32423" class="LineNr">32423 </span> -<span id="L32424" class="LineNr">32424 </span><span class="SpecialChar">Single-float-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32425" class="LineNr">32425 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32426" class="LineNr">32426 </span> 0x11/imm32/alloc-id:fake -<span id="L32427" class="LineNr">32427 </span> <span class="SpecialChar"><a href='mu.subx.html#L32431'>Float-var-in-mem</a></span>/imm32 -<span id="L32428" class="LineNr">32428 </span> 0/imm32/next -<span id="L32429" class="LineNr">32429 </span> 0/imm32/next -<span id="L32430" class="LineNr">32430 </span> -<span id="L32431" class="LineNr">32431 </span><span class="SpecialChar">Float-var-in-mem</span>: <span class="subxComment"># (payload var)</span> -<span id="L32432" class="LineNr">32432 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32433" class="LineNr">32433 </span> 0/imm32/name -<span id="L32434" class="LineNr">32434 </span> 0/imm32/name -<span id="L32435" class="LineNr">32435 </span> 0x11/imm32/alloc-id:fake -<span id="L32436" class="LineNr">32436 </span> <span class="SpecialChar"><a href='mu.subx.html#L32492'>Type-float</a></span>/imm32 -<span id="L32437" class="LineNr">32437 </span> 1/imm32/some-block-depth -<span id="L32438" class="LineNr">32438 </span> 1/imm32/some-stack-offset -<span id="L32439" class="LineNr">32439 </span> 0/imm32/no-register -<span id="L32440" class="LineNr">32440 </span> 0/imm32/no-register -<span id="L32441" class="LineNr">32441 </span> -<span id="L32442" class="LineNr">32442 </span><span class="SpecialChar">Single-float-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L32443" class="LineNr">32443 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32444" class="LineNr">32444 </span> 0x11/imm32/alloc-id:fake -<span id="L32445" class="LineNr">32445 </span> <span class="SpecialChar"><a href='mu.subx.html#L32449'>Float-var-in-some-register</a></span>/imm32 -<span id="L32446" class="LineNr">32446 </span> 0/imm32/next -<span id="L32447" class="LineNr">32447 </span> 0/imm32/next -<span id="L32448" class="LineNr">32448 </span> -<span id="L32449" class="LineNr">32449 </span><span class="SpecialChar">Float-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L32450" class="LineNr">32450 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32451" class="LineNr">32451 </span> 0/imm32/name -<span id="L32452" class="LineNr">32452 </span> 0/imm32/name -<span id="L32453" class="LineNr">32453 </span> 0x11/imm32/alloc-id:fake -<span id="L32454" class="LineNr">32454 </span> <span class="SpecialChar"><a href='mu.subx.html#L32492'>Type-float</a></span>/imm32 -<span id="L32455" class="LineNr">32455 </span> 1/imm32/some-block-depth -<span id="L32456" class="LineNr">32456 </span> 0/imm32/no-stack-offset -<span id="L32457" class="LineNr">32457 </span> 0x11/imm32/alloc-id:fake -<span id="L32458" class="LineNr">32458 </span> <span class="SpecialChar"><a href='mu.subx.html#L32270'>Any-register</a></span>/imm32 -<span id="L32459" class="LineNr">32459 </span> -<span id="L32460" class="LineNr">32460 </span><span class="SpecialChar">Type-int</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L32397" class="LineNr">32397 </span> <span class="subxComment"># "0f 8d/jump-if->= loop/disp32"</span> +<span id="L32398" class="LineNr">32398 </span> 0x1c/imm32/size +<span id="L32399" class="LineNr">32399 </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="L32400" class="LineNr">32400 </span><span class="subxMinorFunction">_string_0f_8e_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32401" class="LineNr">32401 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32402" class="LineNr">32402 </span> <span class="subxComment"># "0f 8e/jump-if-<="</span> +<span id="L32403" class="LineNr">32403 </span> 0x10/imm32/size +<span id="L32404" class="LineNr">32404 </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="L32405" class="LineNr">32405 </span><span class="subxMinorFunction">_string_0f_8e_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32406" class="LineNr">32406 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32407" class="LineNr">32407 </span> <span class="subxComment"># "0f 8e/jump-if-<= break/disp32"</span> +<span id="L32408" class="LineNr">32408 </span> 0x1d/imm32/size +<span id="L32409" class="LineNr">32409 </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="L32410" class="LineNr">32410 </span><span class="subxMinorFunction">_string_0f_8e_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32411" class="LineNr">32411 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32412" class="LineNr">32412 </span> <span class="subxComment"># "0f 8e/jump-if-<= loop/disp32"</span> +<span id="L32413" class="LineNr">32413 </span> 0x1c/imm32/size +<span id="L32414" class="LineNr">32414 </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="L32415" class="LineNr">32415 </span><span class="subxMinorFunction">_string_0f_8f_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32416" class="LineNr">32416 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32417" class="LineNr">32417 </span> <span class="subxComment"># "0f 8f/jump-if->"</span> +<span id="L32418" class="LineNr">32418 </span> 0xf/imm32/size +<span id="L32419" class="LineNr">32419 </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="L32420" class="LineNr">32420 </span><span class="subxMinorFunction">_string_0f_8f_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32421" class="LineNr">32421 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32422" class="LineNr">32422 </span> <span class="subxComment"># "0f 8f/jump-if-> break/disp32"</span> +<span id="L32423" class="LineNr">32423 </span> 0x1c/imm32/size +<span id="L32424" class="LineNr">32424 </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="L32425" class="LineNr">32425 </span><span class="subxMinorFunction">_string_0f_8f_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32426" class="LineNr">32426 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32427" class="LineNr">32427 </span> <span class="subxComment"># "0f 8f/jump-if-> loop/disp32"</span> +<span id="L32428" class="LineNr">32428 </span> 0x1b/imm32/size +<span id="L32429" class="LineNr">32429 </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="L32430" class="LineNr">32430 </span><span class="subxMinorFunction">_string_0f_af_multiply</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32431" class="LineNr">32431 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32432" class="LineNr">32432 </span> <span class="subxComment"># "0f af/multiply"</span> +<span id="L32433" class="LineNr">32433 </span> 0xe/imm32/size +<span id="L32434" class="LineNr">32434 </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="L32435" class="LineNr">32435 </span><span class="subxMinorFunction">_string_f3_0f_2a_convert_to_float</span>: +<span id="L32436" class="LineNr">32436 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32437" class="LineNr">32437 </span> <span class="subxComment"># "f3 0f 2a/convert-to-float"</span> +<span id="L32438" class="LineNr">32438 </span> 0x19/imm32/size +<span id="L32439" class="LineNr">32439 </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="L32440" class="LineNr">32440 </span><span class="subxMinorFunction">_string_f3_0f_2d_convert_to_int</span>: +<span id="L32441" class="LineNr">32441 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32442" class="LineNr">32442 </span> <span class="subxComment"># "f3 0f 2d/convert-to-int"</span> +<span id="L32443" class="LineNr">32443 </span> 0x17/imm32/size +<span id="L32444" class="LineNr">32444 </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="L32445" class="LineNr">32445 </span><span class="subxMinorFunction">_string_f3_0f_2c_truncate_to_int</span>: +<span id="L32446" class="LineNr">32446 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32447" class="LineNr">32447 </span> <span class="subxComment"># "f3 0f 2c/truncate-to-int"</span> +<span id="L32448" class="LineNr">32448 </span> 0x18/imm32/size +<span id="L32449" class="LineNr">32449 </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="L32450" class="LineNr">32450 </span><span class="subxMinorFunction">_string_f3_0f_58_add</span>: +<span id="L32451" class="LineNr">32451 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32452" class="LineNr">32452 </span> <span class="subxComment"># "f3 0f 58/add"</span> +<span id="L32453" class="LineNr">32453 </span> 0xc/imm32/size +<span id="L32454" class="LineNr">32454 </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="L32455" class="LineNr">32455 </span><span class="subxMinorFunction">_string_f3_0f_5c_subtract</span>: +<span id="L32456" class="LineNr">32456 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32457" class="LineNr">32457 </span> <span class="subxComment"># "f3 0f 5c/subtract"</span> +<span id="L32458" class="LineNr">32458 </span> 0x11/imm32/size +<span id="L32459" class="LineNr">32459 </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="L32460" class="LineNr">32460 </span><span class="subxMinorFunction">_string_f3_0f_59_multiply</span>: <span id="L32461" class="LineNr">32461 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32462" class="LineNr">32462 </span> 1/imm32/is-atom -<span id="L32463" class="LineNr">32463 </span> 1/imm32/value:int -<span id="L32464" class="LineNr">32464 </span> 0/imm32/left:unused -<span id="L32465" class="LineNr">32465 </span> 0/imm32/right:null -<span id="L32466" class="LineNr">32466 </span> 0/imm32/right:null -<span id="L32467" class="LineNr">32467 </span> -<span id="L32468" class="LineNr">32468 </span><span class="SpecialChar">Type-literal</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L32469" class="LineNr">32469 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32470" class="LineNr">32470 </span> 1/imm32/is-atom -<span id="L32471" class="LineNr">32471 </span> 0/imm32/value:literal -<span id="L32472" class="LineNr">32472 </span> 0/imm32/left:unused -<span id="L32473" class="LineNr">32473 </span> 0/imm32/right:null -<span id="L32474" class="LineNr">32474 </span> 0/imm32/right:null -<span id="L32475" class="LineNr">32475 </span> -<span id="L32476" class="LineNr">32476 </span><span class="SpecialChar">Type-addr</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L32477" class="LineNr">32477 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32478" class="LineNr">32478 </span> 1/imm32/is-atom -<span id="L32479" class="LineNr">32479 </span> 2/imm32/value:addr -<span id="L32480" class="LineNr">32480 </span> 0/imm32/left:unused -<span id="L32481" class="LineNr">32481 </span> 0/imm32/right:null -<span id="L32482" class="LineNr">32482 </span> 0/imm32/right:null -<span id="L32483" class="LineNr">32483 </span> -<span id="L32484" class="LineNr">32484 </span><span class="SpecialChar">Type-byte</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L32485" class="LineNr">32485 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32486" class="LineNr">32486 </span> 1/imm32/is-atom -<span id="L32487" class="LineNr">32487 </span> 8/imm32/value:byte -<span id="L32488" class="LineNr">32488 </span> 0/imm32/left:unused -<span id="L32489" class="LineNr">32489 </span> 0/imm32/right:null -<span id="L32490" class="LineNr">32490 </span> 0/imm32/right:null -<span id="L32491" class="LineNr">32491 </span> -<span id="L32492" class="LineNr">32492 </span><span class="SpecialChar">Type-float</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L32493" class="LineNr">32493 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32494" class="LineNr">32494 </span> 1/imm32/is-atom -<span id="L32495" class="LineNr">32495 </span> 0xf/imm32/value:float -<span id="L32496" class="LineNr">32496 </span> 0/imm32/left:unused -<span id="L32497" class="LineNr">32497 </span> 0/imm32/right:null -<span id="L32498" class="LineNr">32498 </span> 0/imm32/right:null -<span id="L32499" class="LineNr">32499 </span> -<span id="L32500" class="LineNr">32500 </span>== code -<span id="L32501" class="LineNr">32501 </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="L32502" class="LineNr">32502 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L32503" class="LineNr">32503 </span> 55/push-ebp -<span id="L32504" class="LineNr">32504 </span> 89/<- %ebp 4/r32/esp -<span id="L32505" class="LineNr">32505 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L32506" class="LineNr">32506 </span> 50/push-eax -<span id="L32507" class="LineNr">32507 </span> 51/push-ecx -<span id="L32508" class="LineNr">32508 </span> <span class="subxComment"># ecx = primitive</span> -<span id="L32509" class="LineNr">32509 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L32510" class="LineNr">32510 </span> <span class="subxComment"># emit primitive name</span> -<span id="L32511" class="LineNr">32511 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L32512" class="LineNr">32512 </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="L32513" class="LineNr">32513 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L32514" class="LineNr">32514 </span> <span class="subxComment"># emit rm32 if necessary</span> -<span id="L32515" class="LineNr">32515 </span> (<a href='mu.subx.html#L32538'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x20) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-rm32</span> -<span id="L32516" class="LineNr">32516 </span> <span class="subxComment"># emit xm32 if necessary</span> -<span id="L32517" class="LineNr">32517 </span> (<a href='mu.subx.html#L32538'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x34) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-xm32</span> -<span id="L32518" class="LineNr">32518 </span> <span class="subxComment"># emit r32 if necessary</span> -<span id="L32519" class="LineNr">32519 </span> (<a href='mu.subx.html#L32612'>emit-subx-r32</a> *(ebp+8) *(ecx+0x24) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-r32</span> -<span id="L32520" class="LineNr">32520 </span> <span class="subxComment"># emit x32 if necessary</span> -<span id="L32521" class="LineNr">32521 </span> (<a href='mu.subx.html#L32643'>emit-subx-x32</a> *(ebp+8) *(ecx+0x38) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-x32</span> -<span id="L32522" class="LineNr">32522 </span> <span class="subxComment"># emit imm32 if necessary</span> -<span id="L32523" class="LineNr">32523 </span> (<a href='mu.subx.html#L32674'>emit-subx-imm32</a> *(ebp+8) *(ecx+0x28) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm32</span> -<span id="L32524" class="LineNr">32524 </span> <span class="subxComment"># emit imm8 if necessary</span> -<span id="L32525" class="LineNr">32525 </span> (<a href='mu.subx.html#L32700'>emit-subx-imm8</a> *(ebp+8) *(ecx+0x2c) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm8</span> -<span id="L32526" class="LineNr">32526 </span> <span class="subxComment"># emit disp32 if necessary</span> -<span id="L32527" class="LineNr">32527 </span> (<a href='mu.subx.html#L32726'>emit-subx-disp32</a> *(ebp+8) *(ecx+0x30) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-disp32</span> -<span id="L32528" class="LineNr">32528 </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="L32529" class="LineNr">32529 </span><span class="Constant">$emit-subx-primitive:end</span>: -<span id="L32530" class="LineNr">32530 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L32531" class="LineNr">32531 </span> 59/pop-to-ecx -<span id="L32532" class="LineNr">32532 </span> 58/pop-to-eax -<span id="L32533" class="LineNr">32533 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L32534" class="LineNr">32534 </span> 89/<- %esp 5/r32/ebp -<span id="L32535" class="LineNr">32535 </span> 5d/pop-to-ebp -<span id="L32536" class="LineNr">32536 </span> c3/return -<span id="L32537" class="LineNr">32537 </span> -<span id="L32538" class="LineNr">32538 </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="L32539" class="LineNr">32539 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L32540" class="LineNr">32540 </span> 55/push-ebp -<span id="L32541" class="LineNr">32541 </span> 89/<- %ebp 4/r32/esp -<span id="L32542" class="LineNr">32542 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L32543" class="LineNr">32543 </span> 50/push-eax -<span id="L32544" class="LineNr">32544 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L32545" class="LineNr">32545 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L32546" class="LineNr">32546 </span> 74/jump-if-= $emit-subx-rm32:end/disp8 -<span id="L32547" class="LineNr">32547 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L32548" class="LineNr">32548 </span> (<a href='mu.subx.html#L32558'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L32549" class="LineNr">32549 </span> (<a href='mu.subx.html#L32971'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) -<span id="L32550" class="LineNr">32550 </span><span class="Constant">$emit-subx-rm32:end</span>: -<span id="L32551" class="LineNr">32551 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L32552" class="LineNr">32552 </span> 58/pop-to-eax -<span id="L32553" class="LineNr">32553 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L32554" class="LineNr">32554 </span> 89/<- %esp 5/r32/ebp -<span id="L32555" class="LineNr">32555 </span> 5d/pop-to-ebp -<span id="L32556" class="LineNr">32556 </span> c3/return -<span id="L32557" class="LineNr">32557 </span> -<span id="L32558" class="LineNr">32558 </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="L32559" class="LineNr">32559 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L32560" class="LineNr">32560 </span> 55/push-ebp -<span id="L32561" class="LineNr">32561 </span> 89/<- %ebp 4/r32/esp -<span id="L32562" class="LineNr">32562 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L32563" class="LineNr">32563 </span> 51/push-ecx -<span id="L32564" class="LineNr">32564 </span> <span class="subxComment"># eax = l</span> -<span id="L32565" class="LineNr">32565 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L32566" class="LineNr">32566 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L32567" class="LineNr">32567 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L32568" class="LineNr">32568 </span> <span class="subxComment"># if (l == 1) return stmt->inouts</span> -<span id="L32569" class="LineNr">32569 </span> { -<span id="L32570" class="LineNr">32570 </span> 3d/compare-eax-and 1/imm32 -<span id="L32571" class="LineNr">32571 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L32572" class="LineNr">32572 </span><span class="Constant">$get-stmt-operand-from-arg-location:1</span>: -<span id="L32573" class="LineNr">32573 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L32574" class="LineNr">32574 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L32575" class="LineNr">32575 </span> } -<span id="L32576" class="LineNr">32576 </span> <span class="subxComment"># if (l == 2) return stmt->inouts->next</span> -<span id="L32577" class="LineNr">32577 </span> { -<span id="L32578" class="LineNr">32578 </span> 3d/compare-eax-and 2/imm32 -<span id="L32579" class="LineNr">32579 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L32580" class="LineNr">32580 </span><span class="Constant">$get-stmt-operand-from-arg-location:2</span>: -<span id="L32581" class="LineNr">32581 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L32582" class="LineNr">32582 </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="L32583" class="LineNr">32583 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L32584" class="LineNr">32584 </span> } -<span id="L32585" class="LineNr">32585 </span> <span class="subxComment"># if (l == 3) return stmt->outputs</span> -<span id="L32586" class="LineNr">32586 </span> { -<span id="L32587" class="LineNr">32587 </span> 3d/compare-eax-and 3/imm32 -<span id="L32588" class="LineNr">32588 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L32589" class="LineNr">32589 </span><span class="Constant">$get-stmt-operand-from-arg-location:3</span>: -<span id="L32590" class="LineNr">32590 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L32591" class="LineNr">32591 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L32592" class="LineNr">32592 </span> } -<span id="L32593" class="LineNr">32593 </span> <span class="subxComment"># abort</span> -<span id="L32594" class="LineNr">32594 </span> e9/jump $get-stmt-operand-from-arg-location:abort/disp32 -<span id="L32595" class="LineNr">32595 </span><span class="Constant">$get-stmt-operand-from-arg-location:end</span>: -<span id="L32596" class="LineNr">32596 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L32597" class="LineNr">32597 </span> 59/pop-to-ecx -<span id="L32598" class="LineNr">32598 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L32599" class="LineNr">32599 </span> 89/<- %esp 5/r32/ebp -<span id="L32600" class="LineNr">32600 </span> 5d/pop-to-ebp -<span id="L32601" class="LineNr">32601 </span> c3/return -<span id="L32602" class="LineNr">32602 </span> -<span id="L32603" class="LineNr">32603 </span><span class="Constant">$get-stmt-operand-from-arg-location:abort</span>: -<span id="L32604" class="LineNr">32604 </span> <span class="subxComment"># error("invalid arg-location " eax)</span> -<span id="L32605" class="LineNr">32605 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"invalid arg-location "</span>) -<span id="L32606" class="LineNr">32606 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0x10) %eax) -<span id="L32607" class="LineNr">32607 </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="L32608" class="LineNr">32608 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L32609" class="LineNr">32609 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L32610" class="LineNr">32610 </span> <span class="subxComment"># never gets here</span> -<span id="L32611" class="LineNr">32611 </span> -<span id="L32612" class="LineNr">32612 </span><span class="subxFunction">emit-subx-r32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L32613" class="LineNr">32613 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L32614" class="LineNr">32614 </span> 55/push-ebp -<span id="L32615" class="LineNr">32615 </span> 89/<- %ebp 4/r32/esp -<span id="L32616" class="LineNr">32616 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L32617" class="LineNr">32617 </span> 50/push-eax -<span id="L32618" class="LineNr">32618 </span> 51/push-ecx -<span id="L32619" class="LineNr">32619 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L32620" class="LineNr">32620 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L32621" class="LineNr">32621 </span> 0f 84/jump-if-= $emit-subx-r32:end/disp32 -<span id="L32622" class="LineNr">32622 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L32623" class="LineNr">32623 </span> (<a href='mu.subx.html#L32558'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L32624" class="LineNr">32624 </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="L32625" class="LineNr">32625 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L32626" class="LineNr">32626 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> -<span id="L32627" class="LineNr">32627 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L32628" class="LineNr">32628 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L32629" class="LineNr">32629 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L32630" class="LineNr">32630 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L17859'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L32631" class="LineNr">32631 </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="L32632" class="LineNr">32632 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L32633" class="LineNr">32633 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32"</span>) -<span id="L32634" class="LineNr">32634 </span><span class="Constant">$emit-subx-r32:end</span>: -<span id="L32635" class="LineNr">32635 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L32636" class="LineNr">32636 </span> 59/pop-to-ecx -<span id="L32637" class="LineNr">32637 </span> 58/pop-to-eax -<span id="L32638" class="LineNr">32638 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L32639" class="LineNr">32639 </span> 89/<- %esp 5/r32/ebp -<span id="L32640" class="LineNr">32640 </span> 5d/pop-to-ebp -<span id="L32641" class="LineNr">32641 </span> c3/return -<span id="L32642" class="LineNr">32642 </span> -<span id="L32643" class="LineNr">32643 </span><span class="subxFunction">emit-subx-x32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L32644" class="LineNr">32644 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L32645" class="LineNr">32645 </span> 55/push-ebp -<span id="L32646" class="LineNr">32646 </span> 89/<- %ebp 4/r32/esp -<span id="L32647" class="LineNr">32647 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L32648" class="LineNr">32648 </span> 50/push-eax -<span id="L32649" class="LineNr">32649 </span> 51/push-ecx -<span id="L32650" class="LineNr">32650 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L32651" class="LineNr">32651 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L32652" class="LineNr">32652 </span> 0f 84/jump-if-= $emit-subx-x32:end/disp32 -<span id="L32653" class="LineNr">32653 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L32654" class="LineNr">32654 </span> (<a href='mu.subx.html#L32558'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L32655" class="LineNr">32655 </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="L32656" class="LineNr">32656 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L32657" class="LineNr">32657 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> -<span id="L32658" class="LineNr">32658 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L32659" class="LineNr">32659 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L32660" class="LineNr">32660 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L32661" class="LineNr">32661 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L17859'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L32662" class="LineNr">32662 </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="L32663" class="LineNr">32663 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L32664" class="LineNr">32664 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32"</span>) -<span id="L32665" class="LineNr">32665 </span><span class="Constant">$emit-subx-x32:end</span>: -<span id="L32666" class="LineNr">32666 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L32667" class="LineNr">32667 </span> 59/pop-to-ecx -<span id="L32668" class="LineNr">32668 </span> 58/pop-to-eax -<span id="L32669" class="LineNr">32669 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L32670" class="LineNr">32670 </span> 89/<- %esp 5/r32/ebp -<span id="L32671" class="LineNr">32671 </span> 5d/pop-to-ebp -<span id="L32672" class="LineNr">32672 </span> c3/return -<span id="L32673" class="LineNr">32673 </span> -<span id="L32674" class="LineNr">32674 </span><span class="subxFunction">emit-subx-imm32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L32675" class="LineNr">32675 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L32676" class="LineNr">32676 </span> 55/push-ebp -<span id="L32677" class="LineNr">32677 </span> 89/<- %ebp 4/r32/esp -<span id="L32678" class="LineNr">32678 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L32679" class="LineNr">32679 </span> 50/push-eax -<span id="L32680" class="LineNr">32680 </span> 51/push-ecx -<span id="L32681" class="LineNr">32681 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L32682" class="LineNr">32682 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L32683" class="LineNr">32683 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 -<span id="L32684" class="LineNr">32684 </span> <span class="subxComment"># var v/eax: (handle var)</span> -<span id="L32685" class="LineNr">32685 </span> (<a href='mu.subx.html#L32558'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L32686" class="LineNr">32686 </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="L32687" class="LineNr">32687 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L32688" class="LineNr">32688 </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="L32689" class="LineNr">32689 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L32690" class="LineNr">32690 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32"</span>) -<span id="L32691" class="LineNr">32691 </span><span class="Constant">$emit-subx-imm32:end</span>: -<span id="L32692" class="LineNr">32692 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L32693" class="LineNr">32693 </span> 59/pop-to-ecx -<span id="L32694" class="LineNr">32694 </span> 58/pop-to-eax -<span id="L32695" class="LineNr">32695 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L32696" class="LineNr">32696 </span> 89/<- %esp 5/r32/ebp -<span id="L32697" class="LineNr">32697 </span> 5d/pop-to-ebp -<span id="L32698" class="LineNr">32698 </span> c3/return -<span id="L32699" class="LineNr">32699 </span> -<span id="L32700" class="LineNr">32700 </span><span class="subxFunction">emit-subx-imm8</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L32701" class="LineNr">32701 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L32702" class="LineNr">32702 </span> 55/push-ebp -<span id="L32703" class="LineNr">32703 </span> 89/<- %ebp 4/r32/esp -<span id="L32704" class="LineNr">32704 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L32705" class="LineNr">32705 </span> 50/push-eax -<span id="L32706" class="LineNr">32706 </span> 51/push-ecx -<span id="L32707" class="LineNr">32707 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L32708" class="LineNr">32708 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L32709" class="LineNr">32709 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 -<span id="L32710" class="LineNr">32710 </span> <span class="subxComment"># var v/eax: (handle var)</span> -<span id="L32711" class="LineNr">32711 </span> (<a href='mu.subx.html#L32558'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L32712" class="LineNr">32712 </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="L32713" class="LineNr">32713 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L32714" class="LineNr">32714 </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="L32715" class="LineNr">32715 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L32716" class="LineNr">32716 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8"</span>) -<span id="L32717" class="LineNr">32717 </span><span class="Constant">$emit-subx-imm8:end</span>: -<span id="L32718" class="LineNr">32718 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L32719" class="LineNr">32719 </span> 59/pop-to-ecx -<span id="L32720" class="LineNr">32720 </span> 58/pop-to-eax -<span id="L32721" class="LineNr">32721 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L32722" class="LineNr">32722 </span> 89/<- %esp 5/r32/ebp -<span id="L32723" class="LineNr">32723 </span> 5d/pop-to-ebp -<span id="L32724" class="LineNr">32724 </span> c3/return -<span id="L32725" class="LineNr">32725 </span> -<span id="L32726" class="LineNr">32726 </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="L32727" class="LineNr">32727 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L32728" class="LineNr">32728 </span> 55/push-ebp -<span id="L32729" class="LineNr">32729 </span> 89/<- %ebp 4/r32/esp -<span id="L32730" class="LineNr">32730 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L32731" class="LineNr">32731 </span> 50/push-eax -<span id="L32732" class="LineNr">32732 </span> 51/push-ecx -<span id="L32733" class="LineNr">32733 </span> <span class="subxComment"># if (location == 0) return</span> -<span id="L32734" class="LineNr">32734 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L32735" class="LineNr">32735 </span> 0f 84/jump-if-= $emit-subx-disp32:end/disp32 -<span id="L32736" class="LineNr">32736 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L32737" class="LineNr">32737 </span> (<a href='mu.subx.html#L32558'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L32738" class="LineNr">32738 </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="L32739" class="LineNr">32739 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L32740" class="LineNr">32740 </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="L32741" class="LineNr">32741 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L32742" class="LineNr">32742 </span> <span class="subxComment"># hack: if instruction operation starts with "break", emit ":break"</span> -<span id="L32743" class="LineNr">32743 </span> <span class="subxComment"># var name/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L32744" class="LineNr">32744 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L32745" class="LineNr">32745 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L32746" class="LineNr">32746 </span> 89/<- %ecx 0/r32/eax -<span id="L32747" class="LineNr">32747 </span> { -<span id="L32748" class="LineNr">32748 </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="L32749" class="LineNr">32749 </span> 3d/compare-eax-and 0/imm32/false -<span id="L32750" class="LineNr">32750 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L32751" class="LineNr">32751 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break"</span>) -<span id="L32752" class="LineNr">32752 </span> } -<span id="L32753" class="LineNr">32753 </span> <span class="subxComment"># hack: if instruction operation starts with "loop", emit ":loop"</span> -<span id="L32754" class="LineNr">32754 </span> { -<span id="L32755" class="LineNr">32755 </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="L32756" class="LineNr">32756 </span> 3d/compare-eax-and 0/imm32/false -<span id="L32757" class="LineNr">32757 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L32758" class="LineNr">32758 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop"</span>) -<span id="L32759" class="LineNr">32759 </span> } -<span id="L32760" class="LineNr">32760 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32"</span>) -<span id="L32761" class="LineNr">32761 </span><span class="Constant">$emit-subx-disp32:end</span>: -<span id="L32762" class="LineNr">32762 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L32763" class="LineNr">32763 </span> 59/pop-to-ecx -<span id="L32764" class="LineNr">32764 </span> 58/pop-to-eax -<span id="L32765" class="LineNr">32765 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L32766" class="LineNr">32766 </span> 89/<- %esp 5/r32/ebp -<span id="L32767" class="LineNr">32767 </span> 5d/pop-to-ebp -<span id="L32768" class="LineNr">32768 </span> c3/return -<span id="L32769" class="LineNr">32769 </span> -<span id="L32770" class="LineNr">32770 </span><span class="subxFunction">emit-call</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> -<span id="L32771" class="LineNr">32771 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L32772" class="LineNr">32772 </span> 55/push-ebp -<span id="L32773" class="LineNr">32773 </span> 89/<- %ebp 4/r32/esp -<span id="L32774" class="LineNr">32774 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L32775" class="LineNr">32775 </span> 50/push-eax -<span id="L32776" class="LineNr">32776 </span> 51/push-ecx -<span id="L32777" class="LineNr">32777 </span> <span class="subxComment">#</span> -<span id="L32778" class="LineNr">32778 </span> (<a href='mu.subx.html#L36004'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span>) -<span id="L32779" class="LineNr">32779 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"("</span>) -<span id="L32780" class="LineNr">32780 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L32781" class="LineNr">32781 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L32782" class="LineNr">32782 </span> <span class="subxH1Comment"># - emit function name</span> -<span id="L32783" class="LineNr">32783 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L32784" class="LineNr">32784 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L32785" class="LineNr">32785 </span> <span class="subxH1Comment"># - emit arguments</span> -<span id="L32786" class="LineNr">32786 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L32787" class="LineNr">32787 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L32788" class="LineNr">32788 </span> { -<span id="L32789" class="LineNr">32789 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L32790" class="LineNr">32790 </span> 3d/compare-eax-and 0/imm32 -<span id="L32791" class="LineNr">32791 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L32792" class="LineNr">32792 </span> <span class="subxComment">#</span> -<span id="L32793" class="LineNr">32793 </span> (<a href='mu.subx.html#L32809'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L32794" class="LineNr">32794 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L32795" class="LineNr">32795 </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="L32796" class="LineNr">32796 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L32797" class="LineNr">32797 </span> } -<span id="L32798" class="LineNr">32798 </span> <span class="subxComment">#</span> -<span id="L32799" class="LineNr">32799 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L32800" class="LineNr">32800 </span><span class="Constant">$emit-call:end</span>: -<span id="L32801" class="LineNr">32801 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L32802" class="LineNr">32802 </span> 59/pop-to-ecx -<span id="L32803" class="LineNr">32803 </span> 58/pop-to-eax -<span id="L32804" class="LineNr">32804 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L32805" class="LineNr">32805 </span> 89/<- %esp 5/r32/ebp -<span id="L32806" class="LineNr">32806 </span> 5d/pop-to-ebp -<span id="L32807" class="LineNr">32807 </span> c3/return -<span id="L32808" class="LineNr">32808 </span> -<span id="L32809" class="LineNr">32809 </span><span class="subxFunction">emit-subx-call-operand</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> -<span id="L32810" class="LineNr">32810 </span> <span class="subxComment"># shares code with emit-subx-var-as-rm32</span> -<span id="L32811" class="LineNr">32811 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L32812" class="LineNr">32812 </span> 55/push-ebp -<span id="L32813" class="LineNr">32813 </span> 89/<- %ebp 4/r32/esp -<span id="L32814" class="LineNr">32814 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L32815" class="LineNr">32815 </span> 50/push-eax -<span id="L32816" class="LineNr">32816 </span> 51/push-ecx -<span id="L32817" class="LineNr">32817 </span> 56/push-esi -<span id="L32818" class="LineNr">32818 </span> <span class="subxComment"># ecx = s</span> -<span id="L32819" class="LineNr">32819 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L32820" class="LineNr">32820 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> -<span id="L32821" class="LineNr">32821 </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="L32822" class="LineNr">32822 </span> 89/<- %esi 0/r32/eax -<span id="L32823" class="LineNr">32823 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> -<span id="L32824" class="LineNr">32824 </span> { -<span id="L32825" class="LineNr">32825 </span><span class="Constant">$emit-subx-call-operand:check-for-register-direct</span>: -<span id="L32826" class="LineNr">32826 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L32827" class="LineNr">32827 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L32828" class="LineNr">32828 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L32829" class="LineNr">32829 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L32830" class="LineNr">32830 </span><span class="Constant">$emit-subx-call-operand:register-direct</span>: -<span id="L32831" class="LineNr">32831 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) -<span id="L32832" class="LineNr">32832 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L32833" class="LineNr">32833 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L32834" class="LineNr">32834 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L32835" class="LineNr">32835 </span> } -<span id="L32836" class="LineNr">32836 </span> <span class="subxComment"># else if (operand->register && s->is-deref?) emit "*__"</span> -<span id="L32837" class="LineNr">32837 </span> { -<span id="L32838" class="LineNr">32838 </span><span class="Constant">$emit-subx-call-operand:check-for-register-indirect</span>: -<span id="L32839" class="LineNr">32839 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L32840" class="LineNr">32840 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L32841" class="LineNr">32841 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L32842" class="LineNr">32842 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L32843" class="LineNr">32843 </span><span class="Constant">$emit-subx-call-operand:register-indirect</span>: -<span id="L32844" class="LineNr">32844 </span> (<a href='mu.subx.html#L32886'>emit-subx-call-operand-register-indirect</a> *(ebp+8) %esi) -<span id="L32845" class="LineNr">32845 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L32846" class="LineNr">32846 </span> } -<span id="L32847" class="LineNr">32847 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> -<span id="L32848" class="LineNr">32848 </span> { -<span id="L32849" class="LineNr">32849 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L32850" class="LineNr">32850 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L32851" class="LineNr">32851 </span><span class="Constant">$emit-subx-call-operand:stack</span>: -<span id="L32852" class="LineNr">32852 </span> (<a href='mu.subx.html#L32931'>emit-subx-call-operand-stack</a> *(ebp+8) %esi) -<span id="L32853" class="LineNr">32853 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L32854" class="LineNr">32854 </span> } -<span id="L32855" class="LineNr">32855 </span> <span class="subxComment"># else if (operand->type == literal) emit "__"</span> -<span id="L32856" class="LineNr">32856 </span> { -<span id="L32857" class="LineNr">32857 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L32858" class="LineNr">32858 </span> 81 7/subop/compare *(eax+4) 0/imm32 <span class="subxComment"># Type-tree-value</span> -<span id="L32859" class="LineNr">32859 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L32860" class="LineNr">32860 </span><span class="Constant">$emit-subx-call-operand:literal</span>: -<span id="L32861" class="LineNr">32861 </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="L32862" class="LineNr">32862 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L32863" class="LineNr">32863 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L32864" class="LineNr">32864 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L32865" class="LineNr">32865 </span> } -<span id="L32866" class="LineNr">32866 </span> <span class="subxComment"># else if (operand->type == literal-string) emit "__"</span> -<span id="L32867" class="LineNr">32867 </span> { -<span id="L32868" class="LineNr">32868 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L32869" class="LineNr">32869 </span> 81 7/subop/compare *(eax+4) 0x10/imm32 <span class="subxComment"># Type-tree-value</span> -<span id="L32870" class="LineNr">32870 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L32871" class="LineNr">32871 </span><span class="Constant">$emit-subx-call-operand:literal-string</span>: -<span id="L32872" class="LineNr">32872 </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="L32873" class="LineNr">32873 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L32874" class="LineNr">32874 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L32875" class="LineNr">32875 </span> } -<span id="L32876" class="LineNr">32876 </span><span class="Constant">$emit-subx-call-operand:end</span>: -<span id="L32877" class="LineNr">32877 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L32878" class="LineNr">32878 </span> 5e/pop-to-esi -<span id="L32879" class="LineNr">32879 </span> 59/pop-to-ecx -<span id="L32880" class="LineNr">32880 </span> 58/pop-to-eax -<span id="L32881" class="LineNr">32881 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L32882" class="LineNr">32882 </span> 89/<- %esp 5/r32/ebp -<span id="L32883" class="LineNr">32883 </span> 5d/pop-to-ebp -<span id="L32884" class="LineNr">32884 </span> c3/return -<span id="L32885" class="LineNr">32885 </span> -<span id="L32886" class="LineNr">32886 </span><span class="subxFunction">emit-subx-call-operand-register-indirect</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> -<span id="L32887" class="LineNr">32887 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L32888" class="LineNr">32888 </span> 55/push-ebp -<span id="L32889" class="LineNr">32889 </span> 89/<- %ebp 4/r32/esp -<span id="L32890" class="LineNr">32890 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L32891" class="LineNr">32891 </span> 50/push-eax -<span id="L32892" class="LineNr">32892 </span> 51/push-ecx -<span id="L32893" class="LineNr">32893 </span> 56/push-esi -<span id="L32894" class="LineNr">32894 </span> <span class="subxComment"># esi = v</span> -<span id="L32895" class="LineNr">32895 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L32896" class="LineNr">32896 </span> <span class="subxComment"># var size/ecx: int = size-of-deref(v)</span> -<span id="L32897" class="LineNr">32897 </span> (<a href='mu.subx.html#L24431'>size-of-deref</a> %esi) <span class="subxComment"># => eax</span> -<span id="L32898" class="LineNr">32898 </span> 89/<- %ecx 0/r32/eax -<span id="L32899" class="LineNr">32899 </span> <span class="subxComment"># var reg-name/esi: (addr array byte) = lookup(v->register)</span> -<span id="L32900" class="LineNr">32900 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L32901" class="LineNr">32901 </span> 89/<- %esi 0/r32/eax -<span id="L32902" class="LineNr">32902 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> -<span id="L32903" class="LineNr">32903 </span> <span class="subxComment"># var i/eax: int = 0</span> -<span id="L32904" class="LineNr">32904 </span> b8/copy-to-eax 0/imm32 -<span id="L32905" class="LineNr">32905 </span> { -<span id="L32906" class="LineNr">32906 </span><span class="Constant">$emit-subx-call-operand-register-indirect:loop</span>: -<span id="L32907" class="LineNr">32907 </span> <span class="subxComment"># if (i >= size) break</span> -<span id="L32908" class="LineNr">32908 </span> 39/compare %eax 1/r32/ecx -<span id="L32909" class="LineNr">32909 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L32910" class="LineNr">32910 </span> <span class="subxComment"># emit " *(" v->register "+" i ")"</span> -<span id="L32911" class="LineNr">32911 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *("</span>) -<span id="L32912" class="LineNr">32912 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %esi) -<span id="L32913" class="LineNr">32913 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"+"</span>) -<span id="L32914" class="LineNr">32914 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L32915" class="LineNr">32915 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L32916" class="LineNr">32916 </span> <span class="subxComment"># i += 4</span> -<span id="L32917" class="LineNr">32917 </span> 05/add-to-eax 4/imm32 -<span id="L32918" class="LineNr">32918 </span> <span class="subxComment">#</span> -<span id="L32919" class="LineNr">32919 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L32920" class="LineNr">32920 </span> } -<span id="L32921" class="LineNr">32921 </span><span class="Constant">$emit-subx-call-operand-register-indirect:end</span>: -<span id="L32922" class="LineNr">32922 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L32923" class="LineNr">32923 </span> 5e/pop-to-esi -<span id="L32924" class="LineNr">32924 </span> 59/pop-to-ecx -<span id="L32925" class="LineNr">32925 </span> 58/pop-to-eax -<span id="L32926" class="LineNr">32926 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L32927" class="LineNr">32927 </span> 89/<- %esp 5/r32/ebp -<span id="L32928" class="LineNr">32928 </span> 5d/pop-to-ebp -<span id="L32929" class="LineNr">32929 </span> c3/return -<span id="L32930" class="LineNr">32930 </span> -<span id="L32931" class="LineNr">32931 </span><span class="subxFunction">emit-subx-call-operand-stack</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> -<span id="L32932" class="LineNr">32932 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L32933" class="LineNr">32933 </span> 55/push-ebp -<span id="L32934" class="LineNr">32934 </span> 89/<- %ebp 4/r32/esp -<span id="L32935" class="LineNr">32935 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L32936" class="LineNr">32936 </span> 50/push-eax -<span id="L32937" class="LineNr">32937 </span> 51/push-ecx -<span id="L32938" class="LineNr">32938 </span> 56/push-esi -<span id="L32939" class="LineNr">32939 </span> <span class="subxComment"># esi = v</span> -<span id="L32940" class="LineNr">32940 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L32941" class="LineNr">32941 </span> <span class="subxComment"># var curr/ecx: int = v->offset</span> -<span id="L32942" class="LineNr">32942 </span> 8b/-> *(esi+0x14) 1/r32/ecx <span class="subxComment"># Var-offset</span> -<span id="L32943" class="LineNr">32943 </span> <span class="subxComment"># var max/eax: int = v->offset + size-of(v)</span> -<span id="L32944" class="LineNr">32944 </span> (<a href='mu.subx.html#L24381'>size-of</a> %esi) <span class="subxComment"># => eax</span> -<span id="L32945" class="LineNr">32945 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> -<span id="L32946" class="LineNr">32946 </span> 01/add-to %eax 1/r32/ecx -<span id="L32947" class="LineNr">32947 </span> { -<span id="L32948" class="LineNr">32948 </span><span class="Constant">$emit-subx-call-operand-stack:loop</span>: -<span id="L32949" class="LineNr">32949 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L32950" class="LineNr">32950 </span> 39/compare %ecx 0/r32/eax -<span id="L32951" class="LineNr">32951 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L32952" class="LineNr">32952 </span> <span class="subxComment"># emit " *(ebp+" curr ")"</span> -<span id="L32953" class="LineNr">32953 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) -<span id="L32954" class="LineNr">32954 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) -<span id="L32955" class="LineNr">32955 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L32956" class="LineNr">32956 </span> <span class="subxComment"># i += 4</span> -<span id="L32957" class="LineNr">32957 </span> 81 0/subop/add %ecx 4/imm32 -<span id="L32958" class="LineNr">32958 </span> <span class="subxComment">#</span> -<span id="L32959" class="LineNr">32959 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L32960" class="LineNr">32960 </span> } -<span id="L32961" class="LineNr">32961 </span><span class="Constant">$emit-subx-call-operand-stack:end</span>: -<span id="L32962" class="LineNr">32962 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L32963" class="LineNr">32963 </span> 5e/pop-to-esi -<span id="L32964" class="LineNr">32964 </span> 59/pop-to-ecx -<span id="L32965" class="LineNr">32965 </span> 58/pop-to-eax -<span id="L32966" class="LineNr">32966 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L32967" class="LineNr">32967 </span> 89/<- %esp 5/r32/ebp -<span id="L32968" class="LineNr">32968 </span> 5d/pop-to-ebp -<span id="L32969" class="LineNr">32969 </span> c3/return +<span id="L32462" class="LineNr">32462 </span> <span class="subxComment"># "f3 0f 59/multiply"</span> +<span id="L32463" class="LineNr">32463 </span> 0x11/imm32/size +<span id="L32464" class="LineNr">32464 </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="L32465" class="LineNr">32465 </span><span class="subxMinorFunction">_string_f3_0f_5e_divide</span>: +<span id="L32466" class="LineNr">32466 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32467" class="LineNr">32467 </span> <span class="subxComment"># "f3 0f 5e/divide"</span> +<span id="L32468" class="LineNr">32468 </span> 0xf/imm32/size +<span id="L32469" class="LineNr">32469 </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="L32470" class="LineNr">32470 </span><span class="subxMinorFunction">_string_f3_0f_53_reciprocal</span>: +<span id="L32471" class="LineNr">32471 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32472" class="LineNr">32472 </span> <span class="subxComment"># "f3 0f 53/reciprocal"</span> +<span id="L32473" class="LineNr">32473 </span> 0x13/imm32/size +<span id="L32474" class="LineNr">32474 </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="L32475" class="LineNr">32475 </span><span class="subxMinorFunction">_string_f3_0f_51_square_root</span>: +<span id="L32476" class="LineNr">32476 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32477" class="LineNr">32477 </span> <span class="subxComment"># "f3 0f 51/square-root"</span> +<span id="L32478" class="LineNr">32478 </span> 0x14/imm32/size +<span id="L32479" class="LineNr">32479 </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="L32480" class="LineNr">32480 </span><span class="subxMinorFunction">_string_f3_0f_52_inverse_square_root</span>: +<span id="L32481" class="LineNr">32481 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32482" class="LineNr">32482 </span> <span class="subxComment"># "f3 0f 52/inverse-square-root"</span> +<span id="L32483" class="LineNr">32483 </span> 0x1c/imm32/size +<span id="L32484" class="LineNr">32484 </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="L32485" class="LineNr">32485 </span><span class="subxMinorFunction">_string_f3_0f_5d_min</span>: +<span id="L32486" class="LineNr">32486 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32487" class="LineNr">32487 </span> <span class="subxComment"># "f3 0f 5d/min"</span> +<span id="L32488" class="LineNr">32488 </span> 0xc/imm32/size +<span id="L32489" class="LineNr">32489 </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="L32490" class="LineNr">32490 </span><span class="subxMinorFunction">_string_f3_0f_5f_max</span>: +<span id="L32491" class="LineNr">32491 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32492" class="LineNr">32492 </span> <span class="subxComment"># "f3 0f 5f/max"</span> +<span id="L32493" class="LineNr">32493 </span> 0xc/imm32/size +<span id="L32494" class="LineNr">32494 </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="L32495" class="LineNr">32495 </span><span class="subxMinorFunction">_string_f3_0f_10_copy</span>: +<span id="L32496" class="LineNr">32496 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32497" class="LineNr">32497 </span> <span class="subxComment"># "f3 0f 10/copy"</span> +<span id="L32498" class="LineNr">32498 </span> 0xd/imm32/size +<span id="L32499" class="LineNr">32499 </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="L32500" class="LineNr">32500 </span><span class="subxMinorFunction">_string_f3_0f_11_copy</span>: +<span id="L32501" class="LineNr">32501 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32502" class="LineNr">32502 </span> <span class="subxComment"># "f3 0f 11/copy"</span> +<span id="L32503" class="LineNr">32503 </span> 0xd/imm32/size +<span id="L32504" class="LineNr">32504 </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="L32505" class="LineNr">32505 </span><span class="subxMinorFunction">_string_0f_2f_compare</span>: +<span id="L32506" class="LineNr">32506 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32507" class="LineNr">32507 </span> <span class="subxComment"># "0f 2f/compare"</span> +<span id="L32508" class="LineNr">32508 </span> 0xd/imm32/size +<span id="L32509" class="LineNr">32509 </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="L32510" class="LineNr">32510 </span><span class="subxMinorFunction">_string_21_and_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32511" class="LineNr">32511 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32512" class="LineNr">32512 </span> <span class="subxComment"># "21/and-with"</span> +<span id="L32513" class="LineNr">32513 </span> 0xb/imm32/size +<span id="L32514" class="LineNr">32514 </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="L32515" class="LineNr">32515 </span><span class="subxMinorFunction">_string_23_and</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32516" class="LineNr">32516 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32517" class="LineNr">32517 </span> <span class="subxComment"># "23/and"</span> +<span id="L32518" class="LineNr">32518 </span> 0x6/imm32/size +<span id="L32519" class="LineNr">32519 </span> 0x32/2 0x33/3 0x2f/slash 0x61/a 0x6e/n 0x64/d +<span id="L32520" class="LineNr">32520 </span><span class="subxMinorFunction">_string_25_and_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32521" class="LineNr">32521 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32522" class="LineNr">32522 </span> <span class="subxComment"># "25/and-with-eax"</span> +<span id="L32523" class="LineNr">32523 </span> 0xf/imm32/size +<span id="L32524" class="LineNr">32524 </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="L32525" class="LineNr">32525 </span><span class="subxMinorFunction">_string_29_subtract_from</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32526" class="LineNr">32526 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32527" class="LineNr">32527 </span> <span class="subxComment"># "29/subtract-from"</span> +<span id="L32528" class="LineNr">32528 </span> 0x10/imm32/size +<span id="L32529" class="LineNr">32529 </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="L32530" class="LineNr">32530 </span><span class="subxMinorFunction">_string_2b_subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32531" class="LineNr">32531 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32532" class="LineNr">32532 </span> <span class="subxComment"># "2b/subtract"</span> +<span id="L32533" class="LineNr">32533 </span> 0xb/imm32/size +<span id="L32534" class="LineNr">32534 </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="L32535" class="LineNr">32535 </span><span class="subxMinorFunction">_string_2d_subtract_from_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32536" class="LineNr">32536 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32537" class="LineNr">32537 </span> <span class="subxComment"># "2d/subtract-from-eax"</span> +<span id="L32538" class="LineNr">32538 </span> 0x14/imm32/size +<span id="L32539" class="LineNr">32539 </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="L32540" class="LineNr">32540 </span><span class="subxMinorFunction">_string_31_xor_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32541" class="LineNr">32541 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32542" class="LineNr">32542 </span> <span class="subxComment"># "31/xor-with"</span> +<span id="L32543" class="LineNr">32543 </span> 0xb/imm32/size +<span id="L32544" class="LineNr">32544 </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="L32545" class="LineNr">32545 </span><span class="subxMinorFunction">_string_33_xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32546" class="LineNr">32546 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32547" class="LineNr">32547 </span> <span class="subxComment"># "33/xor"</span> +<span id="L32548" class="LineNr">32548 </span> 0x6/imm32/size +<span id="L32549" class="LineNr">32549 </span> 0x33/3 0x33/3 0x2f/slash 0x78/x 0x6f/o 0x72/r +<span id="L32550" class="LineNr">32550 </span><span class="subxMinorFunction">_string_35_xor_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32551" class="LineNr">32551 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32552" class="LineNr">32552 </span> <span class="subxComment"># "35/xor-with-eax"</span> +<span id="L32553" class="LineNr">32553 </span> 0xf/imm32/size +<span id="L32554" class="LineNr">32554 </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="L32555" class="LineNr">32555 </span><span class="subxMinorFunction">_string_39_compare-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32556" class="LineNr">32556 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32557" class="LineNr">32557 </span> <span class="subxComment"># "39/compare->"</span> +<span id="L32558" class="LineNr">32558 </span> 0xc/imm32/size +<span id="L32559" class="LineNr">32559 </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="L32560" class="LineNr">32560 </span><span class="subxMinorFunction">_string_3b_compare<-</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32561" class="LineNr">32561 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32562" class="LineNr">32562 </span> <span class="subxComment"># "3b/compare<-"</span> +<span id="L32563" class="LineNr">32563 </span> 0xc/imm32/size +<span id="L32564" class="LineNr">32564 </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="L32565" class="LineNr">32565 </span><span class="subxMinorFunction">_string_3d_compare_eax_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32566" class="LineNr">32566 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32567" class="LineNr">32567 </span> <span class="subxComment"># "3d/compare-eax-with"</span> +<span id="L32568" class="LineNr">32568 </span> 0x13/imm32/size +<span id="L32569" class="LineNr">32569 </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="L32570" class="LineNr">32570 </span><span class="subxMinorFunction">_string_40_increment_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32571" class="LineNr">32571 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32572" class="LineNr">32572 </span> <span class="subxComment"># "40/increment-eax"</span> +<span id="L32573" class="LineNr">32573 </span> 0x10/imm32/size +<span id="L32574" class="LineNr">32574 </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="L32575" class="LineNr">32575 </span><span class="subxMinorFunction">_string_41_increment_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32576" class="LineNr">32576 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32577" class="LineNr">32577 </span> <span class="subxComment"># "41/increment-ecx"</span> +<span id="L32578" class="LineNr">32578 </span> 0x10/imm32/size +<span id="L32579" class="LineNr">32579 </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="L32580" class="LineNr">32580 </span><span class="subxMinorFunction">_string_42_increment_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32581" class="LineNr">32581 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32582" class="LineNr">32582 </span> <span class="subxComment"># "42/increment-edx"</span> +<span id="L32583" class="LineNr">32583 </span> 0x10/imm32/size +<span id="L32584" class="LineNr">32584 </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="L32585" class="LineNr">32585 </span><span class="subxMinorFunction">_string_43_increment_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32586" class="LineNr">32586 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32587" class="LineNr">32587 </span> <span class="subxComment"># "43/increment-ebx"</span> +<span id="L32588" class="LineNr">32588 </span> 0x10/imm32/size +<span id="L32589" class="LineNr">32589 </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="L32590" class="LineNr">32590 </span><span class="subxMinorFunction">_string_46_increment_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32591" class="LineNr">32591 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32592" class="LineNr">32592 </span> <span class="subxComment"># "46/increment-esi"</span> +<span id="L32593" class="LineNr">32593 </span> 0x10/imm32/size +<span id="L32594" class="LineNr">32594 </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="L32595" class="LineNr">32595 </span><span class="subxMinorFunction">_string_47_increment_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32596" class="LineNr">32596 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32597" class="LineNr">32597 </span> <span class="subxComment"># "47/increment-edi"</span> +<span id="L32598" class="LineNr">32598 </span> 0x10/imm32/size +<span id="L32599" class="LineNr">32599 </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="L32600" class="LineNr">32600 </span><span class="subxMinorFunction">_string_48_decrement_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32601" class="LineNr">32601 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32602" class="LineNr">32602 </span> <span class="subxComment"># "48/decrement-eax"</span> +<span id="L32603" class="LineNr">32603 </span> 0x10/imm32/size +<span id="L32604" class="LineNr">32604 </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="L32605" class="LineNr">32605 </span><span class="subxMinorFunction">_string_49_decrement_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32606" class="LineNr">32606 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32607" class="LineNr">32607 </span> <span class="subxComment"># "49/decrement-ecx"</span> +<span id="L32608" class="LineNr">32608 </span> 0x10/imm32/size +<span id="L32609" class="LineNr">32609 </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="L32610" class="LineNr">32610 </span><span class="subxMinorFunction">_string_4a_decrement_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32611" class="LineNr">32611 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32612" class="LineNr">32612 </span> <span class="subxComment"># "4a/decrement-edx"</span> +<span id="L32613" class="LineNr">32613 </span> 0x10/imm32/size +<span id="L32614" class="LineNr">32614 </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="L32615" class="LineNr">32615 </span><span class="subxMinorFunction">_string_4b_decrement_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32616" class="LineNr">32616 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32617" class="LineNr">32617 </span> <span class="subxComment"># "4b/decrement-ebx"</span> +<span id="L32618" class="LineNr">32618 </span> 0x10/imm32/size +<span id="L32619" class="LineNr">32619 </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="L32620" class="LineNr">32620 </span><span class="subxMinorFunction">_string_4e_decrement_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32621" class="LineNr">32621 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32622" class="LineNr">32622 </span> <span class="subxComment"># "4e/decrement-esi"</span> +<span id="L32623" class="LineNr">32623 </span> 0x10/imm32/size +<span id="L32624" class="LineNr">32624 </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="L32625" class="LineNr">32625 </span><span class="subxMinorFunction">_string_4f_decrement_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32626" class="LineNr">32626 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32627" class="LineNr">32627 </span> <span class="subxComment"># "4f/decrement-edi"</span> +<span id="L32628" class="LineNr">32628 </span> 0x10/imm32/size +<span id="L32629" class="LineNr">32629 </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="L32630" class="LineNr">32630 </span><span class="subxMinorFunction">_string_81_subop_add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32631" class="LineNr">32631 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32632" class="LineNr">32632 </span> <span class="subxComment"># "81 0/subop/add"</span> +<span id="L32633" class="LineNr">32633 </span> 0xe/imm32/size +<span id="L32634" class="LineNr">32634 </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="L32635" class="LineNr">32635 </span><span class="subxMinorFunction">_string_81_subop_or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32636" class="LineNr">32636 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32637" class="LineNr">32637 </span> <span class="subxComment"># "81 1/subop/or"</span> +<span id="L32638" class="LineNr">32638 </span> 0xd/imm32/size +<span id="L32639" class="LineNr">32639 </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="L32640" class="LineNr">32640 </span><span class="subxMinorFunction">_string_81_subop_and</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32641" class="LineNr">32641 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32642" class="LineNr">32642 </span> <span class="subxComment"># "81 4/subop/and"</span> +<span id="L32643" class="LineNr">32643 </span> 0xe/imm32/size +<span id="L32644" class="LineNr">32644 </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="L32645" class="LineNr">32645 </span><span class="subxMinorFunction">_string_81_subop_subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32646" class="LineNr">32646 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32647" class="LineNr">32647 </span> <span class="subxComment"># "81 5/subop/subtract"</span> +<span id="L32648" class="LineNr">32648 </span> 0x13/imm32/size +<span id="L32649" class="LineNr">32649 </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="L32650" class="LineNr">32650 </span><span class="subxMinorFunction">_string_81_subop_xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32651" class="LineNr">32651 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32652" class="LineNr">32652 </span> <span class="subxComment"># "81 6/subop/xor"</span> +<span id="L32653" class="LineNr">32653 </span> 0xe/imm32/size +<span id="L32654" class="LineNr">32654 </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="L32655" class="LineNr">32655 </span><span class="subxMinorFunction">_string_81_subop_compare</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32656" class="LineNr">32656 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32657" class="LineNr">32657 </span> <span class="subxComment"># "81 7/subop/compare"</span> +<span id="L32658" class="LineNr">32658 </span> 0x12/imm32/size +<span id="L32659" class="LineNr">32659 </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="L32660" class="LineNr">32660 </span><span class="subxMinorFunction">_string_89_<-</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32661" class="LineNr">32661 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32662" class="LineNr">32662 </span> <span class="subxComment"># "89/<-"</span> +<span id="L32663" class="LineNr">32663 </span> 0x5/imm32/size +<span id="L32664" class="LineNr">32664 </span> 0x38/8 0x39/9 0x2f/slash 0x3c/< 0x2d/dash +<span id="L32665" class="LineNr">32665 </span><span class="subxMinorFunction">_string_8b_-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32666" class="LineNr">32666 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32667" class="LineNr">32667 </span> <span class="subxComment"># "8b/->"</span> +<span id="L32668" class="LineNr">32668 </span> 0x5/imm32/size +<span id="L32669" class="LineNr">32669 </span> 0x38/8 0x62/b 0x2f/slash 0x2d/dash 0x3e/> +<span id="L32670" class="LineNr">32670 </span><span class="subxMinorFunction">_string_8a_copy_byte</span>: +<span id="L32671" class="LineNr">32671 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32672" class="LineNr">32672 </span> <span class="subxComment"># "8a/byte->"</span> +<span id="L32673" class="LineNr">32673 </span> 0x9/imm32/size +<span id="L32674" class="LineNr">32674 </span> 0x38/8 0x61/a 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/- 0x3e/> +<span id="L32675" class="LineNr">32675 </span><span class="subxMinorFunction">_string_88_copy_byte</span>: +<span id="L32676" class="LineNr">32676 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32677" class="LineNr">32677 </span> <span class="subxComment"># "88/byte<-"</span> +<span id="L32678" class="LineNr">32678 </span> 0x9/imm32/size +<span id="L32679" class="LineNr">32679 </span> 0x38/8 0x38/8 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x3c/< 0x2d/- +<span id="L32680" class="LineNr">32680 </span><span class="subxMinorFunction">_string_8d_copy_address</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32681" class="LineNr">32681 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32682" class="LineNr">32682 </span> <span class="subxComment"># "8d/copy-address"</span> +<span id="L32683" class="LineNr">32683 </span> 0xf/imm32/size +<span id="L32684" class="LineNr">32684 </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="L32685" class="LineNr">32685 </span><span class="subxMinorFunction">_string_b8_copy_to_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32686" class="LineNr">32686 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32687" class="LineNr">32687 </span> <span class="subxComment"># "b8/copy-to-eax"</span> +<span id="L32688" class="LineNr">32688 </span> 0xe/imm32/size +<span id="L32689" class="LineNr">32689 </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="L32690" class="LineNr">32690 </span><span class="subxMinorFunction">_string_b9_copy_to_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32691" class="LineNr">32691 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32692" class="LineNr">32692 </span> <span class="subxComment"># "b9/copy-to-ecx"</span> +<span id="L32693" class="LineNr">32693 </span> 0xe/imm32/size +<span id="L32694" class="LineNr">32694 </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="L32695" class="LineNr">32695 </span><span class="subxMinorFunction">_string_ba_copy_to_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32696" class="LineNr">32696 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32697" class="LineNr">32697 </span> <span class="subxComment"># "ba/copy-to-edx"</span> +<span id="L32698" class="LineNr">32698 </span> 0xe/imm32/size +<span id="L32699" class="LineNr">32699 </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="L32700" class="LineNr">32700 </span><span class="subxMinorFunction">_string_bb_copy_to_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32701" class="LineNr">32701 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32702" class="LineNr">32702 </span> <span class="subxComment"># "bb/copy-to-ebx"</span> +<span id="L32703" class="LineNr">32703 </span> 0xe/imm32/size +<span id="L32704" class="LineNr">32704 </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="L32705" class="LineNr">32705 </span><span class="subxMinorFunction">_string_be_copy_to_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32706" class="LineNr">32706 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32707" class="LineNr">32707 </span> <span class="subxComment"># "be/copy-to-esi"</span> +<span id="L32708" class="LineNr">32708 </span> 0xe/imm32/size +<span id="L32709" class="LineNr">32709 </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="L32710" class="LineNr">32710 </span><span class="subxMinorFunction">_string_bf_copy_to_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32711" class="LineNr">32711 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32712" class="LineNr">32712 </span> <span class="subxComment"># "bf/copy-to-edi"</span> +<span id="L32713" class="LineNr">32713 </span> 0xe/imm32/size +<span id="L32714" class="LineNr">32714 </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="L32715" class="LineNr">32715 </span><span class="subxMinorFunction">_string_c7_subop_copy</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32716" class="LineNr">32716 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32717" class="LineNr">32717 </span> <span class="subxComment"># "c7 0/subop/copy"</span> +<span id="L32718" class="LineNr">32718 </span> 0xf/imm32/size +<span id="L32719" class="LineNr">32719 </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="L32720" class="LineNr">32720 </span><span class="subxMinorFunction">_string_e9_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32721" class="LineNr">32721 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32722" class="LineNr">32722 </span> <span class="subxComment"># "e9/jump"</span> +<span id="L32723" class="LineNr">32723 </span> 0x7/imm32/size +<span id="L32724" class="LineNr">32724 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p +<span id="L32725" class="LineNr">32725 </span><span class="subxMinorFunction">_string_e9_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32726" class="LineNr">32726 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32727" class="LineNr">32727 </span> <span class="subxComment"># "e9/jump break/disp32"</span> +<span id="L32728" class="LineNr">32728 </span> 0x14/imm32/size +<span id="L32729" class="LineNr">32729 </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="L32730" class="LineNr">32730 </span><span class="subxMinorFunction">_string_e9_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32731" class="LineNr">32731 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32732" class="LineNr">32732 </span> <span class="subxComment"># "e9/jump loop/disp32"</span> +<span id="L32733" class="LineNr">32733 </span> 0x13/imm32/size +<span id="L32734" class="LineNr">32734 </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="L32735" class="LineNr">32735 </span><span class="subxMinorFunction">_string_f7_subop_negate</span>: +<span id="L32736" class="LineNr">32736 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32737" class="LineNr">32737 </span> <span class="subxComment"># "f7 3/subop/negate"</span> +<span id="L32738" class="LineNr">32738 </span> 0x11/imm32/size +<span id="L32739" class="LineNr">32739 </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="L32740" class="LineNr">32740 </span><span class="subxMinorFunction">_string_ff_subop_increment</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32741" class="LineNr">32741 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32742" class="LineNr">32742 </span> <span class="subxComment"># "ff 0/subop/increment"</span> +<span id="L32743" class="LineNr">32743 </span> 0x14/imm32/size +<span id="L32744" class="LineNr">32744 </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="L32745" class="LineNr">32745 </span><span class="subxMinorFunction">_string_ff_subop_decrement</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32746" class="LineNr">32746 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32747" class="LineNr">32747 </span> <span class="subxComment"># "ff 1/subop/decrement"</span> +<span id="L32748" class="LineNr">32748 </span> 0x14/imm32/size +<span id="L32749" class="LineNr">32749 </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="L32750" class="LineNr">32750 </span><span class="subxMinorFunction">_string_c1_subop_shift_left</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32751" class="LineNr">32751 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32752" class="LineNr">32752 </span> <span class="subxComment"># "c1/shift 4/subop/left"</span> +<span id="L32753" class="LineNr">32753 </span> 0x15/imm32/size +<span id="L32754" class="LineNr">32754 </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="L32755" class="LineNr">32755 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_padding_zeroes</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32756" class="LineNr">32756 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32757" class="LineNr">32757 </span> <span class="subxComment"># "c1/shift 5/subop/right-padding-zeroes"</span> +<span id="L32758" class="LineNr">32758 </span> 0x25/imm32/size +<span id="L32759" class="LineNr">32759 </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="L32760" class="LineNr">32760 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_preserving_sign</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32761" class="LineNr">32761 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32762" class="LineNr">32762 </span> <span class="subxComment"># "c1/shift 7/subop/right-preserving-sign"</span> +<span id="L32763" class="LineNr">32763 </span> 0x26/imm32/size +<span id="L32764" class="LineNr">32764 </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="L32765" class="LineNr">32765 </span> +<span id="L32766" class="LineNr">32766 </span><span class="SpecialChar">Single-int-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32767" class="LineNr">32767 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32768" class="LineNr">32768 </span> 0x11/imm32/alloc-id:fake +<span id="L32769" class="LineNr">32769 </span> <span class="SpecialChar"><a href='mu.subx.html#L32773'>Int-var-in-mem</a></span>/imm32 +<span id="L32770" class="LineNr">32770 </span> 0/imm32/next +<span id="L32771" class="LineNr">32771 </span> 0/imm32/next +<span id="L32772" class="LineNr">32772 </span> +<span id="L32773" class="LineNr">32773 </span><span class="SpecialChar">Int-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L32774" class="LineNr">32774 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32775" class="LineNr">32775 </span> 0/imm32/name +<span id="L32776" class="LineNr">32776 </span> 0/imm32/name +<span id="L32777" class="LineNr">32777 </span> 0x11/imm32/alloc-id:fake +<span id="L32778" class="LineNr">32778 </span> <span class="SpecialChar"><a href='mu.subx.html#L33097'>Type-int</a></span>/imm32 +<span id="L32779" class="LineNr">32779 </span> 1/imm32/some-block-depth +<span id="L32780" class="LineNr">32780 </span> 1/imm32/some-stack-offset +<span id="L32781" class="LineNr">32781 </span> 0/imm32/no-register +<span id="L32782" class="LineNr">32782 </span> 0/imm32/no-register +<span id="L32783" class="LineNr">32783 </span> +<span id="L32784" class="LineNr">32784 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L32785" class="LineNr">32785 </span><span class="SpecialChar">Single-byte-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32786" class="LineNr">32786 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32787" class="LineNr">32787 </span> 0x11/imm32/alloc-id:fake +<span id="L32788" class="LineNr">32788 </span> <span class="SpecialChar"><a href='mu.subx.html#L32793'>Byte-var-in-mem</a></span>/imm32 +<span id="L32789" class="LineNr">32789 </span> 0/imm32/next +<span id="L32790" class="LineNr">32790 </span> 0/imm32/next +<span id="L32791" class="LineNr">32791 </span> +<span id="L32792" class="LineNr">32792 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L32793" class="LineNr">32793 </span><span class="SpecialChar">Byte-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L32794" class="LineNr">32794 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32795" class="LineNr">32795 </span> 0/imm32/name +<span id="L32796" class="LineNr">32796 </span> 0/imm32/name +<span id="L32797" class="LineNr">32797 </span> 0x11/imm32/alloc-id:fake +<span id="L32798" class="LineNr">32798 </span> <span class="SpecialChar"><a href='mu.subx.html#L33121'>Type-byte</a></span>/imm32 +<span id="L32799" class="LineNr">32799 </span> 1/imm32/some-block-depth +<span id="L32800" class="LineNr">32800 </span> 1/imm32/some-stack-offset +<span id="L32801" class="LineNr">32801 </span> 0/imm32/no-register +<span id="L32802" class="LineNr">32802 </span> 0/imm32/no-register +<span id="L32803" class="LineNr">32803 </span> +<span id="L32804" class="LineNr">32804 </span><span class="SpecialChar">Two-args-int-stack-int-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32805" class="LineNr">32805 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32806" class="LineNr">32806 </span> 0x11/imm32/alloc-id:fake +<span id="L32807" class="LineNr">32807 </span> <span class="SpecialChar"><a href='mu.subx.html#L32773'>Int-var-in-mem</a></span>/imm32 +<span id="L32808" class="LineNr">32808 </span> 0x11/imm32/alloc-id:fake +<span id="L32809" class="LineNr">32809 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/next +<span id="L32810" class="LineNr">32810 </span> +<span id="L32811" class="LineNr">32811 </span><span class="SpecialChar">Two-int-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32812" class="LineNr">32812 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32813" class="LineNr">32813 </span> 0x11/imm32/alloc-id:fake +<span id="L32814" class="LineNr">32814 </span> <span class="SpecialChar"><a href='mu.subx.html#L32896'>Int-var-in-some-register</a></span>/imm32 +<span id="L32815" class="LineNr">32815 </span> 0x11/imm32/alloc-id:fake +<span id="L32816" class="LineNr">32816 </span> <span class="SpecialChar"><a href='mu.subx.html#L32875'>Single-int-var-in-some-register</a></span>/imm32/next +<span id="L32817" class="LineNr">32817 </span> +<span id="L32818" class="LineNr">32818 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L32819" class="LineNr">32819 </span><span class="SpecialChar">Two-args-byte-stack-byte-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32820" class="LineNr">32820 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32821" class="LineNr">32821 </span> 0x11/imm32/alloc-id:fake +<span id="L32822" class="LineNr">32822 </span> <span class="SpecialChar"><a href='mu.subx.html#L32793'>Byte-var-in-mem</a></span>/imm32 +<span id="L32823" class="LineNr">32823 </span> 0x11/imm32/alloc-id:fake +<span id="L32824" class="LineNr">32824 </span> <span class="SpecialChar"><a href='mu.subx.html#L32889'>Single-byte-var-in-some-register</a></span>/imm32/next +<span id="L32825" class="LineNr">32825 </span> +<span id="L32826" class="LineNr">32826 </span><span class="SpecialChar">Two-args-int-reg-int-stack</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32827" class="LineNr">32827 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32828" class="LineNr">32828 </span> 0x11/imm32/alloc-id:fake +<span id="L32829" class="LineNr">32829 </span> <span class="SpecialChar"><a href='mu.subx.html#L32896'>Int-var-in-some-register</a></span>/imm32 +<span id="L32830" class="LineNr">32830 </span> 0x11/imm32/alloc-id:fake +<span id="L32831" class="LineNr">32831 </span> <span class="SpecialChar"><a href='mu.subx.html#L32766'>Single-int-var-in-mem</a></span>/imm32/next +<span id="L32832" class="LineNr">32832 </span> +<span id="L32833" class="LineNr">32833 </span><span class="SpecialChar">Two-args-int-eax-int-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32834" class="LineNr">32834 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32835" class="LineNr">32835 </span> 0x11/imm32/alloc-id:fake +<span id="L32836" class="LineNr">32836 </span> <span class="SpecialChar"><a href='mu.subx.html#L32942'>Int-var-in-eax</a></span>/imm32 +<span id="L32837" class="LineNr">32837 </span> 0x11/imm32/alloc-id:fake +<span id="L32838" class="LineNr">32838 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/next +<span id="L32839" class="LineNr">32839 </span> +<span id="L32840" class="LineNr">32840 </span><span class="SpecialChar">Int-var-and-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32841" class="LineNr">32841 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32842" class="LineNr">32842 </span> 0x11/imm32/alloc-id:fake +<span id="L32843" class="LineNr">32843 </span> <span class="SpecialChar"><a href='mu.subx.html#L32773'>Int-var-in-mem</a></span>/imm32 +<span id="L32844" class="LineNr">32844 </span> 0x11/imm32/alloc-id:fake +<span id="L32845" class="LineNr">32845 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/next +<span id="L32846" class="LineNr">32846 </span> +<span id="L32847" class="LineNr">32847 </span><span class="SpecialChar">Int-var-in-register-and-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32848" class="LineNr">32848 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32849" class="LineNr">32849 </span> 0x11/imm32/alloc-id:fake +<span id="L32850" class="LineNr">32850 </span> <span class="SpecialChar"><a href='mu.subx.html#L32896'>Int-var-in-some-register</a></span>/imm32 +<span id="L32851" class="LineNr">32851 </span> 0x11/imm32/alloc-id:fake +<span id="L32852" class="LineNr">32852 </span> <span class="SpecialChar"><a href='mu.subx.html#L33043'>Single-lit-var</a></span>/imm32/next +<span id="L32853" class="LineNr">32853 </span> +<span id="L32854" class="LineNr">32854 </span><span class="SpecialChar">Two-float-args-in-regs</span>: <span class="subxComment"># (payload list var)</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> <span class="SpecialChar"><a href='mu.subx.html#L33086'>Float-var-in-some-register</a></span>/imm32 +<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#L33079'>Single-float-var-in-some-register</a></span>/imm32/next +<span id="L32860" class="LineNr">32860 </span> +<span id="L32861" class="LineNr">32861 </span><span class="SpecialChar">Two-args-float-reg-float-stack</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32862" class="LineNr">32862 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32863" class="LineNr">32863 </span> 0x11/imm32/alloc-id:fake +<span id="L32864" class="LineNr">32864 </span> <span class="SpecialChar"><a href='mu.subx.html#L33086'>Float-var-in-some-register</a></span>/imm32 +<span id="L32865" class="LineNr">32865 </span> 0x11/imm32/alloc-id:fake +<span id="L32866" class="LineNr">32866 </span> <span class="SpecialChar"><a href='mu.subx.html#L33061'>Single-float-var-in-mem</a></span>/imm32/next +<span id="L32867" class="LineNr">32867 </span> +<span id="L32868" class="LineNr">32868 </span><span class="SpecialChar">Two-args-float-stack-float-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32869" class="LineNr">32869 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32870" class="LineNr">32870 </span> 0x11/imm32/alloc-id:fake +<span id="L32871" class="LineNr">32871 </span> <span class="SpecialChar"><a href='mu.subx.html#L33068'>Float-var-in-mem</a></span>/imm32 +<span id="L32872" class="LineNr">32872 </span> 0x11/imm32/alloc-id:fake +<span id="L32873" class="LineNr">32873 </span> <span class="SpecialChar"><a href='mu.subx.html#L33079'>Single-float-var-in-some-register</a></span>/imm32/next +<span id="L32874" class="LineNr">32874 </span> +<span id="L32875" class="LineNr">32875 </span><span class="SpecialChar">Single-int-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32876" class="LineNr">32876 </span> 0x11/imm32/alloc-id:fake:payload +<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#L32896'>Int-var-in-some-register</a></span>/imm32 +<span id="L32879" class="LineNr">32879 </span> 0/imm32/next +<span id="L32880" class="LineNr">32880 </span> 0/imm32/next +<span id="L32881" class="LineNr">32881 </span> +<span id="L32882" class="LineNr">32882 </span><span class="SpecialChar">Single-addr-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32883" class="LineNr">32883 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32884" class="LineNr">32884 </span> 0x11/imm32/alloc-id:fake +<span id="L32885" class="LineNr">32885 </span> <span class="SpecialChar"><a href='mu.subx.html#L32913'>Addr-var-in-some-register</a></span>/imm32 +<span id="L32886" class="LineNr">32886 </span> 0/imm32/next +<span id="L32887" class="LineNr">32887 </span> 0/imm32/next +<span id="L32888" class="LineNr">32888 </span> +<span id="L32889" class="LineNr">32889 </span><span class="SpecialChar">Single-byte-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32890" class="LineNr">32890 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32891" class="LineNr">32891 </span> 0x11/imm32/alloc-id:fake +<span id="L32892" class="LineNr">32892 </span> <span class="SpecialChar"><a href='mu.subx.html#L32924'>Byte-var-in-some-register</a></span>/imm32 +<span id="L32893" class="LineNr">32893 </span> 0/imm32/next +<span id="L32894" class="LineNr">32894 </span> 0/imm32/next +<span id="L32895" class="LineNr">32895 </span> +<span id="L32896" class="LineNr">32896 </span><span class="SpecialChar">Int-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L32897" class="LineNr">32897 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32898" class="LineNr">32898 </span> 0/imm32/name +<span id="L32899" class="LineNr">32899 </span> 0/imm32/name +<span id="L32900" class="LineNr">32900 </span> 0x11/imm32/alloc-id:fake +<span id="L32901" class="LineNr">32901 </span> <span class="SpecialChar"><a href='mu.subx.html#L33097'>Type-int</a></span>/imm32 +<span id="L32902" class="LineNr">32902 </span> 1/imm32/some-block-depth +<span id="L32903" class="LineNr">32903 </span> 0/imm32/no-stack-offset +<span id="L32904" class="LineNr">32904 </span> 0x11/imm32/alloc-id:fake +<span id="L32905" class="LineNr">32905 </span> <span class="SpecialChar"><a href='mu.subx.html#L32907'>Any-register</a></span>/imm32 +<span id="L32906" class="LineNr">32906 </span> +<span id="L32907" class="LineNr">32907 </span><span class="SpecialChar">Any-register</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L32908" class="LineNr">32908 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32909" class="LineNr">32909 </span> 1/imm32/size +<span id="L32910" class="LineNr">32910 </span> <span class="subxComment"># data</span> +<span id="L32911" class="LineNr">32911 </span> 2a/asterisk +<span id="L32912" class="LineNr">32912 </span> +<span id="L32913" class="LineNr">32913 </span><span class="SpecialChar">Addr-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L32914" class="LineNr">32914 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32915" class="LineNr">32915 </span> 0/imm32/name +<span id="L32916" class="LineNr">32916 </span> 0/imm32/name +<span id="L32917" class="LineNr">32917 </span> 0x11/imm32/alloc-id:fake +<span id="L32918" class="LineNr">32918 </span> <span class="SpecialChar"><a href='mu.subx.html#L33113'>Type-addr</a></span>/imm32 +<span id="L32919" class="LineNr">32919 </span> 1/imm32/some-block-depth +<span id="L32920" class="LineNr">32920 </span> 0/imm32/no-stack-offset +<span id="L32921" class="LineNr">32921 </span> 0x11/imm32/alloc-id:fake +<span id="L32922" class="LineNr">32922 </span> <span class="SpecialChar"><a href='mu.subx.html#L32907'>Any-register</a></span>/imm32 +<span id="L32923" class="LineNr">32923 </span> +<span id="L32924" class="LineNr">32924 </span><span class="SpecialChar">Byte-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L32925" class="LineNr">32925 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32926" class="LineNr">32926 </span> 0/imm32/name +<span id="L32927" class="LineNr">32927 </span> 0/imm32/name +<span id="L32928" class="LineNr">32928 </span> 0x11/imm32/alloc-id:fake +<span id="L32929" class="LineNr">32929 </span> <span class="SpecialChar"><a href='mu.subx.html#L33121'>Type-byte</a></span>/imm32 +<span id="L32930" class="LineNr">32930 </span> 1/imm32/some-block-depth +<span id="L32931" class="LineNr">32931 </span> 0/imm32/no-stack-offset +<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#L32907'>Any-register</a></span>/imm32 +<span id="L32934" class="LineNr">32934 </span> +<span id="L32935" class="LineNr">32935 </span><span class="SpecialChar">Single-int-var-in-eax</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32936" class="LineNr">32936 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32937" class="LineNr">32937 </span> 0x11/imm32/alloc-id:fake +<span id="L32938" class="LineNr">32938 </span> <span class="SpecialChar"><a href='mu.subx.html#L32942'>Int-var-in-eax</a></span>/imm32 +<span id="L32939" class="LineNr">32939 </span> 0/imm32/next +<span id="L32940" class="LineNr">32940 </span> 0/imm32/next +<span id="L32941" class="LineNr">32941 </span> +<span id="L32942" class="LineNr">32942 </span><span class="SpecialChar">Int-var-in-eax</span>: +<span id="L32943" class="LineNr">32943 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32944" class="LineNr">32944 </span> 0/imm32/name +<span id="L32945" class="LineNr">32945 </span> 0/imm32/name +<span id="L32946" class="LineNr">32946 </span> 0x11/imm32/alloc-id:fake +<span id="L32947" class="LineNr">32947 </span> <span class="SpecialChar"><a href='mu.subx.html#L33097'>Type-int</a></span>/imm32 +<span id="L32948" class="LineNr">32948 </span> 1/imm32/some-block-depth +<span id="L32949" class="LineNr">32949 </span> 0/imm32/no-stack-offset +<span id="L32950" class="LineNr">32950 </span> 0x11/imm32/alloc-id:fake +<span id="L32951" class="LineNr">32951 </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="L32952" class="LineNr">32952 </span> +<span id="L32953" class="LineNr">32953 </span><span class="SpecialChar">Single-int-var-in-ecx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32954" class="LineNr">32954 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32955" class="LineNr">32955 </span> 0x11/imm32/alloc-id:fake +<span id="L32956" class="LineNr">32956 </span> <span class="SpecialChar"><a href='mu.subx.html#L32960'>Int-var-in-ecx</a></span>/imm32 +<span id="L32957" class="LineNr">32957 </span> 0/imm32/next +<span id="L32958" class="LineNr">32958 </span> 0/imm32/next +<span id="L32959" class="LineNr">32959 </span> +<span id="L32960" class="LineNr">32960 </span><span class="SpecialChar">Int-var-in-ecx</span>: +<span id="L32961" class="LineNr">32961 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32962" class="LineNr">32962 </span> 0/imm32/name +<span id="L32963" class="LineNr">32963 </span> 0/imm32/name +<span id="L32964" class="LineNr">32964 </span> 0x11/imm32/alloc-id:fake +<span id="L32965" class="LineNr">32965 </span> <span class="SpecialChar"><a href='mu.subx.html#L33097'>Type-int</a></span>/imm32 +<span id="L32966" class="LineNr">32966 </span> 1/imm32/some-block-depth +<span id="L32967" class="LineNr">32967 </span> 0/imm32/no-stack-offset +<span id="L32968" class="LineNr">32968 </span> 0x11/imm32/alloc-id:fake +<span id="L32969" class="LineNr">32969 </span> $Register-ecx/imm32/register <span id="L32970" class="LineNr">32970 </span> -<span id="L32971" class="LineNr">32971 </span><span class="subxFunction">emit-subx-var-as-rm32</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> -<span id="L32972" class="LineNr">32972 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L32973" class="LineNr">32973 </span> 55/push-ebp -<span id="L32974" class="LineNr">32974 </span> 89/<- %ebp 4/r32/esp -<span id="L32975" class="LineNr">32975 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L32976" class="LineNr">32976 </span> 50/push-eax -<span id="L32977" class="LineNr">32977 </span> 51/push-ecx -<span id="L32978" class="LineNr">32978 </span> 56/push-esi -<span id="L32979" class="LineNr">32979 </span> <span class="subxComment"># ecx = s</span> -<span id="L32980" class="LineNr">32980 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L32981" class="LineNr">32981 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> -<span id="L32982" class="LineNr">32982 </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="L32983" class="LineNr">32983 </span> 89/<- %esi 0/r32/eax -<span id="L32984" class="LineNr">32984 </span> <span class="subxComment"># if (operand->register && s->is-deref?) emit "*__"</span> -<span id="L32985" class="LineNr">32985 </span> { -<span id="L32986" class="LineNr">32986 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-indirect</span>: -<span id="L32987" class="LineNr">32987 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L32988" class="LineNr">32988 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L32989" class="LineNr">32989 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L32990" class="LineNr">32990 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L32991" class="LineNr">32991 </span><span class="Constant">$emit-subx-var-as-rm32:register-indirect</span>: -<span id="L32992" class="LineNr">32992 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) -<span id="L32993" class="LineNr">32993 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L32994" class="LineNr">32994 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L32995" class="LineNr">32995 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 -<span id="L32996" class="LineNr">32996 </span> } -<span id="L32997" class="LineNr">32997 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> -<span id="L32998" class="LineNr">32998 </span> { -<span id="L32999" class="LineNr">32999 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-direct</span>: -<span id="L33000" class="LineNr">33000 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L33001" class="LineNr">33001 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L33002" class="LineNr">33002 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L33003" class="LineNr">33003 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33004" class="LineNr">33004 </span><span class="Constant">$emit-subx-var-as-rm32:register-direct</span>: -<span id="L33005" class="LineNr">33005 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) -<span id="L33006" class="LineNr">33006 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L33007" class="LineNr">33007 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L33008" class="LineNr">33008 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 -<span id="L33009" class="LineNr">33009 </span> } -<span id="L33010" class="LineNr">33010 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> -<span id="L33011" class="LineNr">33011 </span> { -<span id="L33012" class="LineNr">33012 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L33013" class="LineNr">33013 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L33014" class="LineNr">33014 </span><span class="Constant">$emit-subx-var-as-rm32:stack</span>: -<span id="L33015" class="LineNr">33015 </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="L33016" class="LineNr">33016 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) -<span id="L33017" class="LineNr">33017 </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="L33018" class="LineNr">33018 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L33019" class="LineNr">33019 </span> } -<span id="L33020" class="LineNr">33020 </span><span class="Constant">$emit-subx-var-as-rm32:end</span>: -<span id="L33021" class="LineNr">33021 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L33022" class="LineNr">33022 </span> 5e/pop-to-esi -<span id="L33023" class="LineNr">33023 </span> 59/pop-to-ecx -<span id="L33024" class="LineNr">33024 </span> 58/pop-to-eax -<span id="L33025" class="LineNr">33025 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33026" class="LineNr">33026 </span> 89/<- %esp 5/r32/ebp -<span id="L33027" class="LineNr">33027 </span> 5d/pop-to-ebp -<span id="L33028" class="LineNr">33028 </span> c3/return -<span id="L33029" class="LineNr">33029 </span> -<span id="L33030" class="LineNr">33030 </span><span class="subxFunction">find-matching-primitive</span>: <span class="subxComment"># primitives: (addr primitive), stmt: (addr stmt) -> result/eax: (addr primitive)</span> -<span id="L33031" class="LineNr">33031 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33032" class="LineNr">33032 </span> 55/push-ebp -<span id="L33033" class="LineNr">33033 </span> 89/<- %ebp 4/r32/esp -<span id="L33034" class="LineNr">33034 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L33035" class="LineNr">33035 </span> 51/push-ecx -<span id="L33036" class="LineNr">33036 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = primitives</span> -<span id="L33037" class="LineNr">33037 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L33038" class="LineNr">33038 </span> { -<span id="L33039" class="LineNr">33039 </span><span class="Constant">$find-matching-primitive:loop</span>: -<span id="L33040" class="LineNr">33040 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L33041" class="LineNr">33041 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L33042" class="LineNr">33042 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L33043" class="LineNr">33043 </span> <span class="subxComment"># if match(curr, stmt) return curr</span> -<span id="L33044" class="LineNr">33044 </span> { -<span id="L33045" class="LineNr">33045 </span> (<a href='mu.subx.html#L33068'>mu-stmt-matches-primitive?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> -<span id="L33046" class="LineNr">33046 </span> 3d/compare-eax-and 0/imm32/false -<span id="L33047" class="LineNr">33047 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L33048" class="LineNr">33048 </span> 89/<- %eax 1/r32/ecx -<span id="L33049" class="LineNr">33049 </span> eb/jump $find-matching-primitive:end/disp8 -<span id="L33050" class="LineNr">33050 </span> } -<span id="L33051" class="LineNr">33051 </span><span class="Constant">$find-matching-primitive:next-primitive</span>: -<span id="L33052" class="LineNr">33052 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L33053" class="LineNr">33053 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> -<span id="L33054" class="LineNr">33054 </span> 89/<- %ecx 0/r32/eax -<span id="L33055" class="LineNr">33055 </span> <span class="subxComment">#</span> -<span id="L33056" class="LineNr">33056 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L33057" class="LineNr">33057 </span> } -<span id="L33058" class="LineNr">33058 </span> <span class="subxComment"># return null</span> -<span id="L33059" class="LineNr">33059 </span> b8/copy-to-eax 0/imm32 -<span id="L33060" class="LineNr">33060 </span><span class="Constant">$find-matching-primitive:end</span>: -<span id="L33061" class="LineNr">33061 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L33062" class="LineNr">33062 </span> 59/pop-to-ecx -<span id="L33063" class="LineNr">33063 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33064" class="LineNr">33064 </span> 89/<- %esp 5/r32/ebp -<span id="L33065" class="LineNr">33065 </span> 5d/pop-to-ebp -<span id="L33066" class="LineNr">33066 </span> c3/return +<span id="L32971" class="LineNr">32971 </span><span class="SpecialChar">Single-int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32972" class="LineNr">32972 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32973" class="LineNr">32973 </span> 0x11/imm32/alloc-id:fake +<span id="L32974" class="LineNr">32974 </span> <span class="SpecialChar"><a href='mu.subx.html#L32978'>Int-var-in-edx</a></span>/imm32 +<span id="L32975" class="LineNr">32975 </span> 0/imm32/next +<span id="L32976" class="LineNr">32976 </span> 0/imm32/next +<span id="L32977" class="LineNr">32977 </span> +<span id="L32978" class="LineNr">32978 </span><span class="SpecialChar">Int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32979" class="LineNr">32979 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32980" class="LineNr">32980 </span> 0/imm32/name +<span id="L32981" class="LineNr">32981 </span> 0/imm32/name +<span id="L32982" class="LineNr">32982 </span> 0x11/imm32/alloc-id:fake +<span id="L32983" class="LineNr">32983 </span> <span class="SpecialChar"><a href='mu.subx.html#L33097'>Type-int</a></span>/imm32 +<span id="L32984" class="LineNr">32984 </span> 1/imm32/some-block-depth +<span id="L32985" class="LineNr">32985 </span> 0/imm32/no-stack-offset +<span id="L32986" class="LineNr">32986 </span> 0x11/imm32/alloc-id:fake +<span id="L32987" class="LineNr">32987 </span> $Register-edx/imm32/register +<span id="L32988" class="LineNr">32988 </span> +<span id="L32989" class="LineNr">32989 </span><span class="SpecialChar">Single-int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32990" class="LineNr">32990 </span> 0x11/imm32/alloc-id:fake:payload +<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#L32996'>Int-var-in-ebx</a></span>/imm32 +<span id="L32993" class="LineNr">32993 </span> 0/imm32/next +<span id="L32994" class="LineNr">32994 </span> 0/imm32/next +<span id="L32995" class="LineNr">32995 </span> +<span id="L32996" class="LineNr">32996 </span><span class="SpecialChar">Int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L32997" class="LineNr">32997 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32998" class="LineNr">32998 </span> 0/imm32/name +<span id="L32999" class="LineNr">32999 </span> 0/imm32/name +<span id="L33000" class="LineNr">33000 </span> 0x11/imm32/alloc-id:fake +<span id="L33001" class="LineNr">33001 </span> <span class="SpecialChar"><a href='mu.subx.html#L33097'>Type-int</a></span>/imm32 +<span id="L33002" class="LineNr">33002 </span> 1/imm32/some-block-depth +<span id="L33003" class="LineNr">33003 </span> 0/imm32/no-stack-offset +<span id="L33004" class="LineNr">33004 </span> 0x11/imm32/alloc-id:fake +<span id="L33005" class="LineNr">33005 </span> $Register-ebx/imm32/register +<span id="L33006" class="LineNr">33006 </span> +<span id="L33007" class="LineNr">33007 </span><span class="SpecialChar">Single-int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L33008" class="LineNr">33008 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33009" class="LineNr">33009 </span> 0x11/imm32/alloc-id:fake +<span id="L33010" class="LineNr">33010 </span> <span class="SpecialChar"><a href='mu.subx.html#L33014'>Int-var-in-esi</a></span>/imm32 +<span id="L33011" class="LineNr">33011 </span> 0/imm32/next +<span id="L33012" class="LineNr">33012 </span> 0/imm32/next +<span id="L33013" class="LineNr">33013 </span> +<span id="L33014" class="LineNr">33014 </span><span class="SpecialChar">Int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L33015" class="LineNr">33015 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33016" class="LineNr">33016 </span> 0/imm32/name +<span id="L33017" class="LineNr">33017 </span> 0/imm32/name +<span id="L33018" class="LineNr">33018 </span> 0x11/imm32/alloc-id:fake +<span id="L33019" class="LineNr">33019 </span> <span class="SpecialChar"><a href='mu.subx.html#L33097'>Type-int</a></span>/imm32 +<span id="L33020" class="LineNr">33020 </span> 1/imm32/some-block-depth +<span id="L33021" class="LineNr">33021 </span> 0/imm32/no-stack-offset +<span id="L33022" class="LineNr">33022 </span> 0x11/imm32/alloc-id:fake +<span id="L33023" class="LineNr">33023 </span> $Register-esi/imm32/register +<span id="L33024" class="LineNr">33024 </span> +<span id="L33025" class="LineNr">33025 </span><span class="SpecialChar">Single-int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L33026" class="LineNr">33026 </span> 0x11/imm32/alloc-id:fake:payload +<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#L33032'>Int-var-in-edi</a></span>/imm32 +<span id="L33029" class="LineNr">33029 </span> 0/imm32/next +<span id="L33030" class="LineNr">33030 </span> 0/imm32/next +<span id="L33031" class="LineNr">33031 </span> +<span id="L33032" class="LineNr">33032 </span><span class="SpecialChar">Int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L33033" class="LineNr">33033 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33034" class="LineNr">33034 </span> 0/imm32/name +<span id="L33035" class="LineNr">33035 </span> 0/imm32/name +<span id="L33036" class="LineNr">33036 </span> 0x11/imm32/alloc-id:fake +<span id="L33037" class="LineNr">33037 </span> <span class="SpecialChar"><a href='mu.subx.html#L33097'>Type-int</a></span>/imm32 +<span id="L33038" class="LineNr">33038 </span> 1/imm32/some-block-depth +<span id="L33039" class="LineNr">33039 </span> 0/imm32/no-stack-offset +<span id="L33040" class="LineNr">33040 </span> 0x11/imm32/alloc-id:fake +<span id="L33041" class="LineNr">33041 </span> $Register-edi/imm32/register +<span id="L33042" class="LineNr">33042 </span> +<span id="L33043" class="LineNr">33043 </span><span class="SpecialChar">Single-lit-var</span>: <span class="subxComment"># (payload list var)</span> +<span id="L33044" class="LineNr">33044 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33045" class="LineNr">33045 </span> 0x11/imm32/alloc-id:fake +<span id="L33046" class="LineNr">33046 </span> <span class="SpecialChar"><a href='mu.subx.html#L33050'>Lit-var</a></span>/imm32 +<span id="L33047" class="LineNr">33047 </span> 0/imm32/next +<span id="L33048" class="LineNr">33048 </span> 0/imm32/next +<span id="L33049" class="LineNr">33049 </span> +<span id="L33050" class="LineNr">33050 </span><span class="SpecialChar">Lit-var</span>: <span class="subxComment"># (payload var)</span> +<span id="L33051" class="LineNr">33051 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33052" class="LineNr">33052 </span> 0/imm32/name +<span id="L33053" class="LineNr">33053 </span> 0/imm32/name +<span id="L33054" class="LineNr">33054 </span> 0x11/imm32/alloc-id:fake +<span id="L33055" class="LineNr">33055 </span> <span class="SpecialChar"><a href='mu.subx.html#L33105'>Type-literal</a></span>/imm32 +<span id="L33056" class="LineNr">33056 </span> 1/imm32/some-block-depth +<span id="L33057" class="LineNr">33057 </span> 0/imm32/no-stack-offset +<span id="L33058" class="LineNr">33058 </span> 0/imm32/no-register +<span id="L33059" class="LineNr">33059 </span> 0/imm32/no-register +<span id="L33060" class="LineNr">33060 </span> +<span id="L33061" class="LineNr">33061 </span><span class="SpecialChar">Single-float-var-in-mem</span>: <span class="subxComment"># (payload list var)</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> <span class="SpecialChar"><a href='mu.subx.html#L33068'>Float-var-in-mem</a></span>/imm32 +<span id="L33065" class="LineNr">33065 </span> 0/imm32/next +<span id="L33066" class="LineNr">33066 </span> 0/imm32/next <span id="L33067" class="LineNr">33067 </span> -<span id="L33068" class="LineNr">33068 </span><span class="subxFunction">mu-stmt-matches-primitive?</span>: <span class="subxComment"># stmt: (addr stmt), primitive: (addr primitive) -> result/eax: boolean</span> -<span id="L33069" class="LineNr">33069 </span> <span class="subxComment"># A mu stmt matches a primitive if the name matches, all the inout vars</span> -<span id="L33070" class="LineNr">33070 </span> <span class="subxComment"># match, and all the output vars match.</span> -<span id="L33071" class="LineNr">33071 </span> <span class="subxComment"># Vars match if types match and registers match.</span> -<span id="L33072" class="LineNr">33072 </span> <span class="subxComment"># In addition, a stmt output matches a primitive's output if types match</span> -<span id="L33073" class="LineNr">33073 </span> <span class="subxComment"># and the primitive has a wildcard register.</span> -<span id="L33074" class="LineNr">33074 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33075" class="LineNr">33075 </span> 55/push-ebp -<span id="L33076" class="LineNr">33076 </span> 89/<- %ebp 4/r32/esp -<span id="L33077" class="LineNr">33077 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L33078" class="LineNr">33078 </span> 51/push-ecx -<span id="L33079" class="LineNr">33079 </span> 52/push-edx -<span id="L33080" class="LineNr">33080 </span> 53/push-ebx -<span id="L33081" class="LineNr">33081 </span> 56/push-esi -<span id="L33082" class="LineNr">33082 </span> 57/push-edi -<span id="L33083" class="LineNr">33083 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L33084" class="LineNr">33084 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L33085" class="LineNr">33085 </span> <span class="subxComment"># edx = primitive</span> -<span id="L33086" class="LineNr">33086 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L33087" class="LineNr">33087 </span> { -<span id="L33088" class="LineNr">33088 </span><span class="Constant">$mu-stmt-matches-primitive?:check-name</span>: -<span id="L33089" class="LineNr">33089 </span> <span class="subxComment"># if (primitive->name != stmt->operation) return false</span> -<span id="L33090" class="LineNr">33090 </span> <span class="subxS1Comment"># . var esi: (addr array byte) = lookup(stmt->operation)</span> -<span id="L33091" class="LineNr">33091 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L33092" class="LineNr">33092 </span> 89/<- %esi 0/r32/eax -<span id="L33093" class="LineNr">33093 </span> <span class="subxS1Comment"># . var edi: (addr array byte) = lookup(primitive->name)</span> -<span id="L33094" class="LineNr">33094 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> -<span id="L33095" class="LineNr">33095 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L33096" class="LineNr">33096 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L33097" class="LineNr">33097 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L33098" class="LineNr">33098 </span> 89/<- %edi 0/r32/eax -<span id="L33099" class="LineNr">33099 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> -<span id="L33100" class="LineNr">33100 </span> 3d/compare-eax-and 0/imm32/false -<span id="L33101" class="LineNr">33101 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33102" class="LineNr">33102 </span> b8/copy-to-eax 0/imm32 -<span id="L33103" class="LineNr">33103 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L33104" class="LineNr">33104 </span> } -<span id="L33105" class="LineNr">33105 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L33106" class="LineNr">33106 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L33107" class="LineNr">33107 </span> 89/<- %esi 0/r32/eax -<span id="L33108" class="LineNr">33108 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->inouts)</span> -<span id="L33109" class="LineNr">33109 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Primitive-inouts Primitive-inouts => eax</span> -<span id="L33110" class="LineNr">33110 </span> 89/<- %edi 0/r32/eax -<span id="L33111" class="LineNr">33111 </span> { -<span id="L33112" class="LineNr">33112 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-loop</span>: -<span id="L33113" class="LineNr">33113 </span> <span class="subxComment"># if (curr == 0 && curr2 == 0) move on to check outputs</span> -<span id="L33114" class="LineNr">33114 </span> { -<span id="L33115" class="LineNr">33115 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-inouts-null</span>: -<span id="L33116" class="LineNr">33116 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L33117" class="LineNr">33117 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33118" class="LineNr">33118 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null</span>: -<span id="L33119" class="LineNr">33119 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L33120" class="LineNr">33120 </span> 0f 84/jump-if-= $mu-stmt-matches-primitive?:check-outputs/disp32 -<span id="L33121" class="LineNr">33121 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null-and-prim-inout-not-null</span>: -<span id="L33122" class="LineNr">33122 </span> <span class="subxComment"># return false</span> -<span id="L33123" class="LineNr">33123 </span> b8/copy-to-eax 0/imm32/false -<span id="L33124" class="LineNr">33124 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L33125" class="LineNr">33125 </span> } -<span id="L33126" class="LineNr">33126 </span> <span class="subxComment"># if (curr2 == 0) return false</span> -<span id="L33127" class="LineNr">33127 </span> { -<span id="L33128" class="LineNr">33128 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-inout-null</span>: -<span id="L33129" class="LineNr">33129 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L33130" class="LineNr">33130 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33131" class="LineNr">33131 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-inout-null</span>: -<span id="L33132" class="LineNr">33132 </span> b8/copy-to-eax 0/imm32/false -<span id="L33133" class="LineNr">33133 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L33134" class="LineNr">33134 </span> } -<span id="L33135" class="LineNr">33135 </span> <span class="subxComment"># if (curr != curr2) return false</span> -<span id="L33136" class="LineNr">33136 </span> { -<span id="L33137" class="LineNr">33137 </span><span class="Constant">$mu-stmt-matches-primitive?:check-inouts-match</span>: -<span id="L33138" class="LineNr">33138 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L33139" class="LineNr">33139 </span> (<a href='mu.subx.html#L33228'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L33140" class="LineNr">33140 </span> 3d/compare-eax-and 0/imm32/false -<span id="L33141" class="LineNr">33141 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33142" class="LineNr">33142 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-match</span>: -<span id="L33143" class="LineNr">33143 </span> b8/copy-to-eax 0/imm32/false -<span id="L33144" class="LineNr">33144 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L33145" class="LineNr">33145 </span> } -<span id="L33146" class="LineNr">33146 </span><span class="Constant">$mu-stmt-matches-primitive?:next-inout</span>: -<span id="L33147" class="LineNr">33147 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L33148" class="LineNr">33148 </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="L33149" class="LineNr">33149 </span> 89/<- %esi 0/r32/eax -<span id="L33150" class="LineNr">33150 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> -<span id="L33151" class="LineNr">33151 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L33152" class="LineNr">33152 </span> 89/<- %edi 0/r32/eax -<span id="L33153" class="LineNr">33153 </span> <span class="subxComment">#</span> -<span id="L33154" class="LineNr">33154 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L33155" class="LineNr">33155 </span> } -<span id="L33156" class="LineNr">33156 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs</span>: -<span id="L33157" class="LineNr">33157 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->outputs)</span> -<span id="L33158" class="LineNr">33158 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L33159" class="LineNr">33159 </span> 89/<- %esi 0/r32/eax -<span id="L33160" class="LineNr">33160 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->outputs)</span> -<span id="L33161" class="LineNr">33161 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x10) *(edx+0x14)) <span class="subxComment"># Primitive-outputs Primitive-outputs => eax</span> -<span id="L33162" class="LineNr">33162 </span> 89/<- %edi 0/r32/eax -<span id="L33163" class="LineNr">33163 </span> { -<span id="L33164" class="LineNr">33164 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-loop</span>: -<span id="L33165" class="LineNr">33165 </span> <span class="subxComment"># if (curr == 0) return (curr2 == 0)</span> -<span id="L33166" class="LineNr">33166 </span> { -<span id="L33167" class="LineNr">33167 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-outputs-null</span>: -<span id="L33168" class="LineNr">33168 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L33169" class="LineNr">33169 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33170" class="LineNr">33170 </span> { -<span id="L33171" class="LineNr">33171 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null</span>: -<span id="L33172" class="LineNr">33172 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L33173" class="LineNr">33173 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33174" class="LineNr">33174 </span><span class="Constant">$mu-stmt-matches-primitive?:both-outputs-null</span>: -<span id="L33175" class="LineNr">33175 </span> <span class="subxComment"># return true</span> -<span id="L33176" class="LineNr">33176 </span> b8/copy-to-eax 1/imm32 -<span id="L33177" class="LineNr">33177 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L33178" class="LineNr">33178 </span> } -<span id="L33179" class="LineNr">33179 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null-and-prim-output-not-null</span>: -<span id="L33180" class="LineNr">33180 </span> <span class="subxComment"># return false</span> -<span id="L33181" class="LineNr">33181 </span> b8/copy-to-eax 0/imm32 -<span id="L33182" class="LineNr">33182 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L33183" class="LineNr">33183 </span> } -<span id="L33184" class="LineNr">33184 </span> <span class="subxComment"># if (curr2 == 0) return false</span> -<span id="L33185" class="LineNr">33185 </span> { -<span id="L33186" class="LineNr">33186 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-output-null</span>: -<span id="L33187" class="LineNr">33187 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L33188" class="LineNr">33188 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33189" class="LineNr">33189 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-output-is-null</span>: -<span id="L33190" class="LineNr">33190 </span> b8/copy-to-eax 0/imm32 -<span id="L33191" class="LineNr">33191 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L33192" class="LineNr">33192 </span> } -<span id="L33193" class="LineNr">33193 </span> <span class="subxComment"># if (curr != curr2) return false</span> -<span id="L33194" class="LineNr">33194 </span> { -<span id="L33195" class="LineNr">33195 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs-match</span>: -<span id="L33196" class="LineNr">33196 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L33197" class="LineNr">33197 </span> (<a href='mu.subx.html#L33228'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L33198" class="LineNr">33198 </span> 3d/compare-eax-and 0/imm32/false -<span id="L33199" class="LineNr">33199 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33200" class="LineNr">33200 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-match</span>: -<span id="L33201" class="LineNr">33201 </span> b8/copy-to-eax 0/imm32 -<span id="L33202" class="LineNr">33202 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L33203" class="LineNr">33203 </span> } -<span id="L33204" class="LineNr">33204 </span><span class="Constant">$mu-stmt-matches-primitive?:next-output</span>: -<span id="L33205" class="LineNr">33205 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L33206" class="LineNr">33206 </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="L33207" class="LineNr">33207 </span> 89/<- %esi 0/r32/eax -<span id="L33208" class="LineNr">33208 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> -<span id="L33209" class="LineNr">33209 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L33210" class="LineNr">33210 </span> 89/<- %edi 0/r32/eax -<span id="L33211" class="LineNr">33211 </span> <span class="subxComment">#</span> -<span id="L33212" class="LineNr">33212 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L33213" class="LineNr">33213 </span> } -<span id="L33214" class="LineNr">33214 </span><span class="Constant">$mu-stmt-matches-primitive?:return-true</span>: -<span id="L33215" class="LineNr">33215 </span> b8/copy-to-eax 1/imm32 -<span id="L33216" class="LineNr">33216 </span><span class="Constant">$mu-stmt-matches-primitive?:end</span>: -<span id="L33217" class="LineNr">33217 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L33218" class="LineNr">33218 </span> 5f/pop-to-edi -<span id="L33219" class="LineNr">33219 </span> 5e/pop-to-esi -<span id="L33220" class="LineNr">33220 </span> 5b/pop-to-ebx -<span id="L33221" class="LineNr">33221 </span> 5a/pop-to-edx -<span id="L33222" class="LineNr">33222 </span> 59/pop-to-ecx -<span id="L33223" class="LineNr">33223 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33224" class="LineNr">33224 </span> 89/<- %esp 5/r32/ebp -<span id="L33225" class="LineNr">33225 </span> 5d/pop-to-ebp -<span id="L33226" class="LineNr">33226 </span> c3/return -<span id="L33227" class="LineNr">33227 </span> -<span id="L33228" class="LineNr">33228 </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="L33229" class="LineNr">33229 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33230" class="LineNr">33230 </span> 55/push-ebp -<span id="L33231" class="LineNr">33231 </span> 89/<- %ebp 4/r32/esp -<span id="L33232" class="LineNr">33232 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L33233" class="LineNr">33233 </span> 51/push-ecx -<span id="L33234" class="LineNr">33234 </span> 52/push-edx -<span id="L33235" class="LineNr">33235 </span> 53/push-ebx -<span id="L33236" class="LineNr">33236 </span> 56/push-esi -<span id="L33237" class="LineNr">33237 </span> 57/push-edi -<span id="L33238" class="LineNr">33238 </span> <span class="subxComment"># ecx = s</span> -<span id="L33239" class="LineNr">33239 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L33240" class="LineNr">33240 </span> <span class="subxComment"># var var/esi: (addr var) = lookup(s->value)</span> -<span id="L33241" class="LineNr">33241 </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="L33242" class="LineNr">33242 </span> 89/<- %esi 0/r32/eax -<span id="L33243" class="LineNr">33243 </span> <span class="subxComment"># edi = prim-var</span> -<span id="L33244" class="LineNr">33244 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L33245" class="LineNr">33245 </span><span class="Constant">$operand-matches-primitive?:check-type</span>: -<span id="L33246" class="LineNr">33246 </span> <span class="subxComment"># if !category-match?(var->type, prim-var->type) return false</span> -<span id="L33247" class="LineNr">33247 </span> <span class="subxS1Comment"># . var vtype/ebx: (addr type-tree) = lookup(var->type)</span> -<span id="L33248" class="LineNr">33248 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L33249" class="LineNr">33249 </span> 89/<- %ebx 0/r32/eax -<span id="L33250" class="LineNr">33250 </span> <span class="subxS1Comment"># . if s is deref, vtype = vtype->right</span> -<span id="L33251" class="LineNr">33251 </span> { -<span id="L33252" class="LineNr">33252 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L33253" class="LineNr">33253 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L33254" class="LineNr">33254 </span><span class="Constant">$operand-matches-primitive?:is-deref</span>: -<span id="L33255" class="LineNr">33255 </span> <span class="subxS1Comment"># . var t/eax: (addr type)</span> -<span id="L33256" class="LineNr">33256 </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="L33257" class="LineNr">33257 </span> <span class="subxS1Comment"># . if !t->is-atom? t = t->left</span> -<span id="L33258" class="LineNr">33258 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L33259" class="LineNr">33259 </span> { -<span id="L33260" class="LineNr">33260 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33261" class="LineNr">33261 </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="L33262" class="LineNr">33262 </span> } -<span id="L33263" class="LineNr">33263 </span> <span class="subxS1Comment"># .</span> -<span id="L33264" class="LineNr">33264 </span> 89/<- %ebx 0/r32/eax -<span id="L33265" class="LineNr">33265 </span> } -<span id="L33266" class="LineNr">33266 </span> <span class="subxS1Comment"># . var ptype/eax: (addr type-tree) = lookup(prim-var->type)</span> -<span id="L33267" class="LineNr">33267 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L33268" class="LineNr">33268 </span> (<a href='mu.subx.html#L33405'>subx-type-category-match?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L33269" class="LineNr">33269 </span> 3d/compare-eax-and 0/imm32/false -<span id="L33270" class="LineNr">33270 </span> 0f 84/jump-if-= $operand-matches-primitive?:return-false/disp32 -<span id="L33271" class="LineNr">33271 </span> { -<span id="L33272" class="LineNr">33272 </span><span class="Constant">$operand-matches-primitive?:check-register</span>: -<span id="L33273" class="LineNr">33273 </span> <span class="subxComment"># if prim-var is in memory and var is in register but dereference, match</span> -<span id="L33274" class="LineNr">33274 </span> { -<span id="L33275" class="LineNr">33275 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L33276" class="LineNr">33276 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L33277" class="LineNr">33277 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L33278" class="LineNr">33278 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L33279" class="LineNr">33279 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L33280" class="LineNr">33280 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L33281" class="LineNr">33281 </span><span class="Constant">$operand-matches-primitive?:var-deref-match</span>: -<span id="L33282" class="LineNr">33282 </span> e9/jump $operand-matches-primitive?:return-true/disp32 -<span id="L33283" class="LineNr">33283 </span> } -<span id="L33284" class="LineNr">33284 </span> <span class="subxComment"># if prim-var is in register and var is in register but dereference, no match</span> -<span id="L33285" class="LineNr">33285 </span> { -<span id="L33286" class="LineNr">33286 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L33287" class="LineNr">33287 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L33288" class="LineNr">33288 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L33289" class="LineNr">33289 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L33290" class="LineNr">33290 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L33291" class="LineNr">33291 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L33292" class="LineNr">33292 </span><span class="Constant">$operand-matches-primitive?:var-deref-no-match</span>: -<span id="L33293" class="LineNr">33293 </span> e9/jump $operand-matches-primitive?:return-false/disp32 -<span id="L33294" class="LineNr">33294 </span> } -<span id="L33295" class="LineNr">33295 </span> <span class="subxComment"># return false if var->register doesn't match prim-var->register</span> -<span id="L33296" class="LineNr">33296 </span> { -<span id="L33297" class="LineNr">33297 </span> <span class="subxComment"># if register addresses are equal, it's a match</span> -<span id="L33298" class="LineNr">33298 </span> <span class="subxComment"># var vreg/ebx: (addr array byte) = lookup(var->register)</span> -<span id="L33299" class="LineNr">33299 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L33300" class="LineNr">33300 </span> 89/<- %ebx 0/r32/eax -<span id="L33301" class="LineNr">33301 </span> <span class="subxComment"># var preg/ecx: (addr array byte) = lookup(prim-var->register)</span> -<span id="L33302" class="LineNr">33302 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L33303" class="LineNr">33303 </span> 89/<- %ecx 0/r32/eax -<span id="L33304" class="LineNr">33304 </span> <span class="subxComment"># if (vreg == preg) break</span> -<span id="L33305" class="LineNr">33305 </span> 39/compare %ecx 3/r32/ebx -<span id="L33306" class="LineNr">33306 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L33307" class="LineNr">33307 </span><span class="Constant">$operand-matches-primitive?:var-register-no-match</span>: -<span id="L33308" class="LineNr">33308 </span> <span class="subxComment"># if either address is 0, return false</span> -<span id="L33309" class="LineNr">33309 </span> 81 7/subop/compare %ebx 0/imm32 -<span id="L33310" class="LineNr">33310 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L33311" class="LineNr">33311 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L33312" class="LineNr">33312 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L33313" class="LineNr">33313 </span> <span class="subxComment"># if prim-var->register is wildcard, it's a match</span> -<span id="L33314" class="LineNr">33314 </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="L33315" class="LineNr">33315 </span> 3d/compare-eax-and 0/imm32/false -<span id="L33316" class="LineNr">33316 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33317" class="LineNr">33317 </span><span class="Constant">$operand-matches-primitive?:wildcard-no-match</span>: -<span id="L33318" class="LineNr">33318 </span> <span class="subxComment"># if string contents aren't equal, return false</span> -<span id="L33319" class="LineNr">33319 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> -<span id="L33320" class="LineNr">33320 </span> 3d/compare-eax-and 0/imm32/false -<span id="L33321" class="LineNr">33321 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L33322" class="LineNr">33322 </span> } -<span id="L33323" class="LineNr">33323 </span> } -<span id="L33324" class="LineNr">33324 </span><span class="Constant">$operand-matches-primitive?:return-true</span>: -<span id="L33325" class="LineNr">33325 </span> b8/copy-to-eax 1/imm32/true -<span id="L33326" class="LineNr">33326 </span> eb/jump $operand-matches-primitive?:end/disp8 -<span id="L33327" class="LineNr">33327 </span><span class="Constant">$operand-matches-primitive?:return-false</span>: -<span id="L33328" class="LineNr">33328 </span> b8/copy-to-eax 0/imm32/false -<span id="L33329" class="LineNr">33329 </span><span class="Constant">$operand-matches-primitive?:end</span>: -<span id="L33330" class="LineNr">33330 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L33331" class="LineNr">33331 </span> 5f/pop-to-edi -<span id="L33332" class="LineNr">33332 </span> 5e/pop-to-esi -<span id="L33333" class="LineNr">33333 </span> 5b/pop-to-ebx -<span id="L33334" class="LineNr">33334 </span> 5a/pop-to-edx -<span id="L33335" class="LineNr">33335 </span> 59/pop-to-ecx -<span id="L33336" class="LineNr">33336 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33337" class="LineNr">33337 </span> 89/<- %esp 5/r32/ebp -<span id="L33338" class="LineNr">33338 </span> 5d/pop-to-ebp -<span id="L33339" class="LineNr">33339 </span> c3/return -<span id="L33340" class="LineNr">33340 </span> -<span id="L33341" class="LineNr">33341 </span><span class="subxFunction">find-matching-function</span>: <span class="subxComment"># functions: (addr function), stmt: (addr stmt) -> result/eax: (addr function)</span> -<span id="L33342" class="LineNr">33342 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33343" class="LineNr">33343 </span> 55/push-ebp -<span id="L33344" class="LineNr">33344 </span> 89/<- %ebp 4/r32/esp -<span id="L33345" class="LineNr">33345 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L33346" class="LineNr">33346 </span> 51/push-ecx -<span id="L33347" class="LineNr">33347 </span> <span class="subxComment"># var curr/ecx: (handle function) = functions</span> -<span id="L33348" class="LineNr">33348 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L33349" class="LineNr">33349 </span> { -<span id="L33350" class="LineNr">33350 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L33351" class="LineNr">33351 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L33352" class="LineNr">33352 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L33353" class="LineNr">33353 </span><span class="CommentedCode">#? (write-buffered Stderr "iter\n")</span> -<span id="L33354" class="LineNr">33354 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L33355" class="LineNr">33355 </span> <span class="subxComment"># if match(stmt, curr) return curr</span> -<span id="L33356" class="LineNr">33356 </span> { -<span id="L33357" class="LineNr">33357 </span> (<a href='mu.subx.html#L33380'>mu-stmt-matches-function?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> -<span id="L33358" class="LineNr">33358 </span> 3d/compare-eax-and 0/imm32/false -<span id="L33359" class="LineNr">33359 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L33360" class="LineNr">33360 </span> 89/<- %eax 1/r32/ecx -<span id="L33361" class="LineNr">33361 </span> eb/jump $find-matching-function:end/disp8 -<span id="L33362" class="LineNr">33362 </span> } -<span id="L33363" class="LineNr">33363 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L33364" class="LineNr">33364 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L33365" class="LineNr">33365 </span> 89/<- %ecx 0/r32/eax -<span id="L33366" class="LineNr">33366 </span> <span class="subxComment">#</span> -<span id="L33367" class="LineNr">33367 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L33368" class="LineNr">33368 </span> } -<span id="L33369" class="LineNr">33369 </span> <span class="subxComment"># return null</span> -<span id="L33370" class="LineNr">33370 </span> b8/copy-to-eax 0/imm32 -<span id="L33371" class="LineNr">33371 </span><span class="Constant">$find-matching-function:end</span>: -<span id="L33372" class="LineNr">33372 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L33373" class="LineNr">33373 </span> 59/pop-to-ecx -<span id="L33374" class="LineNr">33374 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33375" class="LineNr">33375 </span> 89/<- %esp 5/r32/ebp -<span id="L33376" class="LineNr">33376 </span> 5d/pop-to-ebp -<span id="L33377" class="LineNr">33377 </span> c3/return -<span id="L33378" class="LineNr">33378 </span> -<span id="L33379" class="LineNr">33379 </span><span class="subxComment"># Just compare names; user-defined functions don't support overloading yet.</span> -<span id="L33380" class="LineNr">33380 </span><span class="subxFunction">mu-stmt-matches-function?</span>: <span class="subxComment"># stmt: (addr stmt1), function: (addr function) -> result/eax: boolean</span> -<span id="L33381" class="LineNr">33381 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33382" class="LineNr">33382 </span> 55/push-ebp -<span id="L33383" class="LineNr">33383 </span> 89/<- %ebp 4/r32/esp -<span id="L33384" class="LineNr">33384 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L33385" class="LineNr">33385 </span> 51/push-ecx -<span id="L33386" class="LineNr">33386 </span> <span class="subxComment"># return function->name == stmt->operation</span> -<span id="L33387" class="LineNr">33387 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> -<span id="L33388" class="LineNr">33388 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L33389" class="LineNr">33389 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L33390" class="LineNr">33390 </span> 89/<- %ecx 0/r32/eax -<span id="L33391" class="LineNr">33391 </span> <span class="subxComment"># eax = lookup(function->name)</span> -<span id="L33392" class="LineNr">33392 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L33393" class="LineNr">33393 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L33394" class="LineNr">33394 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %ecx) <span class="subxComment"># => eax</span> -<span id="L33395" class="LineNr">33395 </span><span class="Constant">$mu-stmt-matches-function?:end</span>: -<span id="L33396" class="LineNr">33396 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L33397" class="LineNr">33397 </span> 59/pop-to-ecx -<span id="L33398" class="LineNr">33398 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33399" class="LineNr">33399 </span> 89/<- %esp 5/r32/ebp -<span id="L33400" class="LineNr">33400 </span> 5d/pop-to-ebp -<span id="L33401" class="LineNr">33401 </span> c3/return -<span id="L33402" class="LineNr">33402 </span> -<span id="L33403" class="LineNr">33403 </span><span class="subxComment"># Type-checking happens elsewhere. This method is for selecting between</span> -<span id="L33404" class="LineNr">33404 </span><span class="subxComment"># primitives.</span> -<span id="L33405" class="LineNr">33405 </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="L33406" class="LineNr">33406 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33407" class="LineNr">33407 </span> 55/push-ebp -<span id="L33408" class="LineNr">33408 </span> 89/<- %ebp 4/r32/esp -<span id="L33409" class="LineNr">33409 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L33410" class="LineNr">33410 </span> 51/push-ecx -<span id="L33411" class="LineNr">33411 </span> <span class="subxComment"># var cata/ecx: int = type-category(a)</span> -<span id="L33412" class="LineNr">33412 </span> (<a href='mu.subx.html#L33428'>type-category</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L33413" class="LineNr">33413 </span> 89/<- %ecx 0/r32/eax -<span id="L33414" class="LineNr">33414 </span> <span class="subxComment"># var catb/eax: int = type-category(b)</span> -<span id="L33415" class="LineNr">33415 </span> (<a href='mu.subx.html#L33428'>type-category</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L33416" class="LineNr">33416 </span> <span class="subxComment"># return cata == catb</span> -<span id="L33417" class="LineNr">33417 </span> 39/compare %eax 1/r32/ecx -<span id="L33418" class="LineNr">33418 </span> 0f 94/set-byte-if-= %al -<span id="L33419" class="LineNr">33419 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L33420" class="LineNr">33420 </span><span class="Constant">$subx-type-category-match?:end</span>: -<span id="L33421" class="LineNr">33421 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L33422" class="LineNr">33422 </span> 59/pop-to-ecx -<span id="L33423" class="LineNr">33423 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33424" class="LineNr">33424 </span> 89/<- %esp 5/r32/ebp -<span id="L33425" class="LineNr">33425 </span> 5d/pop-to-ebp -<span id="L33426" class="LineNr">33426 </span> c3/return -<span id="L33427" class="LineNr">33427 </span> -<span id="L33428" class="LineNr">33428 </span><span class="subxFunction">type-category</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L33429" class="LineNr">33429 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33430" class="LineNr">33430 </span> 55/push-ebp -<span id="L33431" class="LineNr">33431 </span> 89/<- %ebp 4/r32/esp -<span id="L33432" class="LineNr">33432 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L33433" class="LineNr">33433 </span> 51/push-ecx -<span id="L33434" class="LineNr">33434 </span> <span class="subxComment"># var lit?/ecx: boolean = is-literal-type?(a)</span> -<span id="L33435" class="LineNr">33435 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> *(ebp+8) 0) <span class="subxComment"># literal => eax</span> -<span id="L33436" class="LineNr">33436 </span> 89/<- %ecx 0/r32/eax -<span id="L33437" class="LineNr">33437 </span> <span class="subxComment"># var float?/eax: int = is-float?(a)</span> -<span id="L33438" class="LineNr">33438 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> *(ebp+8) 0xf) <span class="subxComment"># => eax</span> -<span id="L33439" class="LineNr">33439 </span> <span class="subxComment"># set bits for lit? and float?</span> -<span id="L33440" class="LineNr">33440 </span> c1/shift 4/subop/left %ecx 1/imm8 -<span id="L33441" class="LineNr">33441 </span> 09/or %eax 1/r32/ecx -<span id="L33442" class="LineNr">33442 </span><span class="Constant">$type-category:end</span>: -<span id="L33443" class="LineNr">33443 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L33444" class="LineNr">33444 </span> 59/pop-to-ecx -<span id="L33445" class="LineNr">33445 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33446" class="LineNr">33446 </span> 89/<- %esp 5/r32/ebp -<span id="L33447" class="LineNr">33447 </span> 5d/pop-to-ebp -<span id="L33448" class="LineNr">33448 </span> c3/return -<span id="L33449" class="LineNr">33449 </span> -<span id="L33450" class="LineNr">33450 </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="L33451" class="LineNr">33451 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33452" class="LineNr">33452 </span> 55/push-ebp -<span id="L33453" class="LineNr">33453 </span> 89/<- %ebp 4/r32/esp -<span id="L33454" class="LineNr">33454 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L33455" class="LineNr">33455 </span> 51/push-ecx -<span id="L33456" class="LineNr">33456 </span> <span class="subxComment"># ecx = n</span> -<span id="L33457" class="LineNr">33457 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L33458" class="LineNr">33458 </span> <span class="subxComment"># return (a->value == n)</span> -<span id="L33459" class="LineNr">33459 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L33460" class="LineNr">33460 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> -<span id="L33461" class="LineNr">33461 </span> 0f 94/set-byte-if-= %al -<span id="L33462" class="LineNr">33462 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L33463" class="LineNr">33463 </span><span class="Constant">$is-simple-mu-type?:end</span>: -<span id="L33464" class="LineNr">33464 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L33465" class="LineNr">33465 </span> 59/pop-to-ecx -<span id="L33466" class="LineNr">33466 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33467" class="LineNr">33467 </span> 89/<- %esp 5/r32/ebp -<span id="L33468" class="LineNr">33468 </span> 5d/pop-to-ebp -<span id="L33469" class="LineNr">33469 </span> c3/return -<span id="L33470" class="LineNr">33470 </span> -<span id="L33471" class="LineNr">33471 </span><span class="subxFunction">is-mu-addr-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L33472" class="LineNr">33472 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33473" class="LineNr">33473 </span> 55/push-ebp -<span id="L33474" class="LineNr">33474 </span> 89/<- %ebp 4/r32/esp -<span id="L33475" class="LineNr">33475 </span> <span class="subxComment"># eax = a</span> -<span id="L33476" class="LineNr">33476 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L33477" class="LineNr">33477 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L33478" class="LineNr">33478 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L33479" class="LineNr">33479 </span> { -<span id="L33480" class="LineNr">33480 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33481" class="LineNr">33481 </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="L33482" class="LineNr">33482 </span> } -<span id="L33483" class="LineNr">33483 </span> <span class="subxComment"># return (a->value == addr)</span> -<span id="L33484" class="LineNr">33484 </span> 81 7/subop/compare *(eax+4) 2/imm32/addr <span class="subxComment"># Type-tree-value</span> -<span id="L33485" class="LineNr">33485 </span> 0f 94/set-byte-if-= %al -<span id="L33486" class="LineNr">33486 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L33487" class="LineNr">33487 </span><span class="Constant">$is-mu-addr-type?:end</span>: -<span id="L33488" class="LineNr">33488 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33489" class="LineNr">33489 </span> 89/<- %esp 5/r32/ebp -<span id="L33490" class="LineNr">33490 </span> 5d/pop-to-ebp -<span id="L33491" class="LineNr">33491 </span> c3/return -<span id="L33492" class="LineNr">33492 </span> -<span id="L33493" class="LineNr">33493 </span><span class="subxFunction">is-mu-array-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L33494" class="LineNr">33494 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33495" class="LineNr">33495 </span> 55/push-ebp -<span id="L33496" class="LineNr">33496 </span> 89/<- %ebp 4/r32/esp -<span id="L33497" class="LineNr">33497 </span> <span class="subxComment"># eax = a</span> -<span id="L33498" class="LineNr">33498 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L33499" class="LineNr">33499 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L33500" class="LineNr">33500 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L33501" class="LineNr">33501 </span> { -<span id="L33502" class="LineNr">33502 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33503" class="LineNr">33503 </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="L33504" class="LineNr">33504 </span> } -<span id="L33505" class="LineNr">33505 </span> <span class="subxComment"># return (a->value == array)</span> -<span id="L33506" class="LineNr">33506 </span> 81 7/subop/compare *(eax+4) 3/imm32/array <span class="subxComment"># Type-tree-value</span> -<span id="L33507" class="LineNr">33507 </span> 0f 94/set-byte-if-= %al -<span id="L33508" class="LineNr">33508 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L33509" class="LineNr">33509 </span><span class="Constant">$is-mu-array-type?:end</span>: -<span id="L33510" class="LineNr">33510 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33511" class="LineNr">33511 </span> 89/<- %esp 5/r32/ebp -<span id="L33512" class="LineNr">33512 </span> 5d/pop-to-ebp -<span id="L33513" class="LineNr">33513 </span> c3/return -<span id="L33514" class="LineNr">33514 </span> -<span id="L33515" class="LineNr">33515 </span><span class="subxFunction">is-mu-string-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L33516" class="LineNr">33516 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33517" class="LineNr">33517 </span> 55/push-ebp -<span id="L33518" class="LineNr">33518 </span> 89/<- %ebp 4/r32/esp -<span id="L33519" class="LineNr">33519 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L33520" class="LineNr">33520 </span> 56/push-esi -<span id="L33521" class="LineNr">33521 </span> <span class="subxComment"># esi = a</span> -<span id="L33522" class="LineNr">33522 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L33523" class="LineNr">33523 </span> <span class="subxComment"># if (a->is-atom?) return false</span> -<span id="L33524" class="LineNr">33524 </span> 81 7/subop/compare *esi 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L33525" class="LineNr">33525 </span> 0f 85/jump-if-!= $is-mu-string-type?:return-false/disp32 -<span id="L33526" class="LineNr">33526 </span> <span class="subxComment"># if a is not an addr, return false</span> -<span id="L33527" class="LineNr">33527 </span> (<a href='mu.subx.html#L33471'>is-mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> -<span id="L33528" class="LineNr">33528 </span> 3d/compare-eax-with 0/imm32/false -<span id="L33529" class="LineNr">33529 </span> 0f 84/jump-if-= $is-mu-string-type?:end/disp32 <span class="subxComment"># eax changes var</span> -<span id="L33530" class="LineNr">33530 </span> <span class="subxComment"># if a is not an array, return false</span> -<span id="L33531" class="LineNr">33531 </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="L33532" class="LineNr">33532 </span> (<a href='mu.subx.html#L33493'>is-mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L33533" class="LineNr">33533 </span> 3d/compare-eax-with 0/imm32/false -<span id="L33534" class="LineNr">33534 </span> 74/jump-if-= $is-mu-string-type?:end/disp8 <span class="subxComment"># eax changes var</span> -<span id="L33535" class="LineNr">33535 </span> <span class="subxComment"># var p/eax: (addr type-tree) = payload of a</span> -<span id="L33536" class="LineNr">33536 </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="L33537" class="LineNr">33537 </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="L33538" class="LineNr">33538 </span> <span class="subxComment"># if p is an atom, return false</span> -<span id="L33539" class="LineNr">33539 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L33540" class="LineNr">33540 </span> 75/jump-if-!= $is-mu-string-type?:return-false/disp8 -<span id="L33541" class="LineNr">33541 </span> <span class="subxComment"># return (p == byte)</span> -<span id="L33542" class="LineNr">33542 </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="L33543" class="LineNr">33543 </span> (<a href='mu.subx.html#L33450'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L33544" class="LineNr">33544 </span> eb/jump $is-mu-string-type?:end/disp8 -<span id="L33545" class="LineNr">33545 </span><span class="Constant">$is-mu-string-type?:return-false</span>: -<span id="L33546" class="LineNr">33546 </span> b8/copy-to-eax 0/imm32/false -<span id="L33547" class="LineNr">33547 </span><span class="Constant">$is-mu-string-type?:end</span>: -<span id="L33548" class="LineNr">33548 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L33549" class="LineNr">33549 </span> 5e/pop-to-esi -<span id="L33550" class="LineNr">33550 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33551" class="LineNr">33551 </span> 89/<- %esp 5/r32/ebp -<span id="L33552" class="LineNr">33552 </span> 5d/pop-to-ebp -<span id="L33553" class="LineNr">33553 </span> c3/return -<span id="L33554" class="LineNr">33554 </span> -<span id="L33555" class="LineNr">33555 </span><span class="subxFunction">is-mu-stream-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L33556" class="LineNr">33556 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33557" class="LineNr">33557 </span> 55/push-ebp -<span id="L33558" class="LineNr">33558 </span> 89/<- %ebp 4/r32/esp -<span id="L33559" class="LineNr">33559 </span> <span class="subxComment"># eax = a</span> -<span id="L33560" class="LineNr">33560 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L33561" class="LineNr">33561 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L33562" class="LineNr">33562 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L33563" class="LineNr">33563 </span> { -<span id="L33564" class="LineNr">33564 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L33565" class="LineNr">33565 </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="L33566" class="LineNr">33566 </span> } -<span id="L33567" class="LineNr">33567 </span> <span class="subxComment"># return (a->value == stream)</span> -<span id="L33568" class="LineNr">33568 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream <span class="subxComment"># Type-tree-value</span> -<span id="L33569" class="LineNr">33569 </span> 0f 94/set-byte-if-= %al -<span id="L33570" class="LineNr">33570 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L33571" class="LineNr">33571 </span><span class="Constant">$is-mu-stream-type?:end</span>: -<span id="L33572" class="LineNr">33572 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33573" class="LineNr">33573 </span> 89/<- %esp 5/r32/ebp -<span id="L33574" class="LineNr">33574 </span> 5d/pop-to-ebp -<span id="L33575" class="LineNr">33575 </span> c3/return -<span id="L33576" class="LineNr">33576 </span> -<span id="L33577" class="LineNr">33577 </span><span class="subxTest">test-emit-subx-stmt-primitive</span>: -<span id="L33578" class="LineNr">33578 </span> <span class="subxComment"># Primitive operation on a variable on the stack.</span> -<span id="L33579" class="LineNr">33579 </span> <span class="subxComment"># increment foo</span> -<span id="L33580" class="LineNr">33580 </span> <span class="subxComment"># =></span> -<span id="L33581" class="LineNr">33581 </span> <span class="subxComment"># ff 0/subop/increment *(ebp-8)</span> -<span id="L33582" class="LineNr">33582 </span> <span class="subxComment">#</span> -<span id="L33583" class="LineNr">33583 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L33584" class="LineNr">33584 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L33585" class="LineNr">33585 </span> <span class="subxComment"># type: int</span> -<span id="L33586" class="LineNr">33586 </span> <span class="subxComment"># stack-offset: -8</span> -<span id="L33587" class="LineNr">33587 </span> <span class="subxComment">#</span> -<span id="L33588" class="LineNr">33588 </span> <span class="subxComment"># There's a primitive with this info:</span> -<span id="L33589" class="LineNr">33589 </span> <span class="subxComment"># name: 'increment'</span> -<span id="L33590" class="LineNr">33590 </span> <span class="subxComment"># inouts: int/mem</span> -<span id="L33591" class="LineNr">33591 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L33592" class="LineNr">33592 </span> <span class="subxComment">#</span> -<span id="L33593" class="LineNr">33593 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33594" class="LineNr">33594 </span> 55/push-ebp -<span id="L33595" class="LineNr">33595 </span> 89/<- %ebp 4/r32/esp -<span id="L33596" class="LineNr">33596 </span> <span class="subxComment"># setup</span> -<span id="L33597" class="LineNr">33597 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L33598" class="LineNr">33598 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L33599" class="LineNr">33599 </span> <span class="subxComment"># simulate allocated payloads starting with an initial fake alloc-id (0x11)</span> -<span id="L33600" class="LineNr">33600 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-type</span>: -<span id="L33601" class="LineNr">33601 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L33602" class="LineNr">33602 </span> 68/push 0/imm32/right:null -<span id="L33603" class="LineNr">33603 </span> 68/push 0/imm32/right:null -<span id="L33604" class="LineNr">33604 </span> 68/push 0/imm32/left:unused -<span id="L33605" class="LineNr">33605 </span> 68/push 1/imm32/value:int -<span id="L33606" class="LineNr">33606 </span> 68/push 1/imm32/is-atom?:true -<span id="L33607" class="LineNr">33607 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33608" class="LineNr">33608 </span> 89/<- %ecx 4/r32/esp -<span id="L33609" class="LineNr">33609 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var</span>: -<span id="L33610" class="LineNr">33610 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> -<span id="L33611" class="LineNr">33611 </span> 68/push 0/imm32/no-register -<span id="L33612" class="LineNr">33612 </span> 68/push 0/imm32/no-register -<span id="L33613" class="LineNr">33613 </span> 68/push -8/imm32/stack-offset -<span id="L33614" class="LineNr">33614 </span> 68/push 1/imm32/block-depth -<span id="L33615" class="LineNr">33615 </span> 51/push-ecx/type -<span id="L33616" class="LineNr">33616 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33617" class="LineNr">33617 </span> 68/push 0/imm32/name -<span id="L33618" class="LineNr">33618 </span> 68/push 0/imm32/name -<span id="L33619" class="LineNr">33619 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33620" class="LineNr">33620 </span> 89/<- %ecx 4/r32/esp -<span id="L33621" class="LineNr">33621 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var-name</span>: -<span id="L33622" class="LineNr">33622 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L33623" class="LineNr">33623 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L33624" class="LineNr">33624 </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="L33625" class="LineNr">33625 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-var</span>: -<span id="L33626" class="LineNr">33626 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L33627" class="LineNr">33627 </span> 68/push 0/imm32/is-deref:false -<span id="L33628" class="LineNr">33628 </span> 68/push 0/imm32/next -<span id="L33629" class="LineNr">33629 </span> 68/push 0/imm32/next -<span id="L33630" class="LineNr">33630 </span> 51/push-ecx/var-foo -<span id="L33631" class="LineNr">33631 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33632" class="LineNr">33632 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33633" class="LineNr">33633 </span> 89/<- %ebx 4/r32/esp -<span id="L33634" class="LineNr">33634 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt</span>: -<span id="L33635" class="LineNr">33635 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L33636" class="LineNr">33636 </span> 68/push 0/imm32/no-outputs -<span id="L33637" class="LineNr">33637 </span> 68/push 0/imm32/no-outputs -<span id="L33638" class="LineNr">33638 </span> 53/push-ebx/inouts -<span id="L33639" class="LineNr">33639 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33640" class="LineNr">33640 </span> 68/push 0/imm32/operation -<span id="L33641" class="LineNr">33641 </span> 68/push 0/imm32/operation -<span id="L33642" class="LineNr">33642 </span> 68/push 1/imm32/tag -<span id="L33643" class="LineNr">33643 </span> 89/<- %esi 4/r32/esp -<span id="L33644" class="LineNr">33644 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-operation</span>: -<span id="L33645" class="LineNr">33645 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L33646" class="LineNr">33646 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L33647" class="LineNr">33647 </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="L33648" class="LineNr">33648 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive</span>: -<span id="L33649" class="LineNr">33649 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L33650" class="LineNr">33650 </span> 68/push 0/imm32/next -<span id="L33651" class="LineNr">33651 </span> 68/push 0/imm32/next -<span id="L33652" class="LineNr">33652 </span> 68/push 0/imm32/no-x32 -<span id="L33653" class="LineNr">33653 </span> 68/push 0/imm32/no-xm32 -<span id="L33654" class="LineNr">33654 </span> 68/push 0/imm32/no-disp32 -<span id="L33655" class="LineNr">33655 </span> 68/push 0/imm32/no-imm8 -<span id="L33656" class="LineNr">33656 </span> 68/push 0/imm32/no-imm32 -<span id="L33657" class="LineNr">33657 </span> 68/push 0/imm32/no-r32 -<span id="L33658" class="LineNr">33658 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L33659" class="LineNr">33659 </span> 68/push 0/imm32/subx-name -<span id="L33660" class="LineNr">33660 </span> 68/push 0/imm32/subx-name -<span id="L33661" class="LineNr">33661 </span> 68/push 0/imm32/no-outputs -<span id="L33662" class="LineNr">33662 </span> 68/push 0/imm32/no-outputs -<span id="L33663" class="LineNr">33663 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<span id="L33664" class="LineNr">33664 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33665" class="LineNr">33665 </span> 68/push 0/imm32/name -<span id="L33666" class="LineNr">33666 </span> 68/push 0/imm32/name -<span id="L33667" class="LineNr">33667 </span> 89/<- %ebx 4/r32/esp -<span id="L33668" class="LineNr">33668 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-name</span>: -<span id="L33669" class="LineNr">33669 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L33670" class="LineNr">33670 </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="L33671" class="LineNr">33671 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-subx-name</span>: -<span id="L33672" class="LineNr">33672 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L33673" class="LineNr">33673 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L33674" class="LineNr">33674 </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="L33675" class="LineNr">33675 </span> <span class="subxComment"># convert</span> -<span id="L33676" class="LineNr">33676 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L33677" class="LineNr">33677 </span> (<a href='mu.subx.html#L26390'>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="L33678" class="LineNr">33678 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L33679" class="Folded">33679 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L33685" class="LineNr">33685 </span> <span class="subxComment"># check output</span> -<span id="L33686" class="LineNr">33686 </span> (<a href='../109stream-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="L33687" class="LineNr">33687 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33688" class="LineNr">33688 </span> 89/<- %esp 5/r32/ebp -<span id="L33689" class="LineNr">33689 </span> 5d/pop-to-ebp -<span id="L33690" class="LineNr">33690 </span> c3/return -<span id="L33691" class="LineNr">33691 </span> -<span id="L33692" class="LineNr">33692 </span><span class="subxTest">test-emit-subx-stmt-primitive-register</span>: -<span id="L33693" class="LineNr">33693 </span> <span class="subxComment"># Primitive operation on a variable in a register.</span> -<span id="L33694" class="LineNr">33694 </span> <span class="subxComment"># foo <- increment</span> -<span id="L33695" class="LineNr">33695 </span> <span class="subxComment"># =></span> -<span id="L33696" class="LineNr">33696 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L33697" class="LineNr">33697 </span> <span class="subxComment">#</span> -<span id="L33698" class="LineNr">33698 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L33699" class="LineNr">33699 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L33700" class="LineNr">33700 </span> <span class="subxComment"># type: int</span> -<span id="L33701" class="LineNr">33701 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L33702" class="LineNr">33702 </span> <span class="subxComment">#</span> -<span id="L33703" class="LineNr">33703 </span> <span class="subxComment"># There's a primitive with this info:</span> -<span id="L33704" class="LineNr">33704 </span> <span class="subxComment"># name: 'increment'</span> -<span id="L33705" class="LineNr">33705 </span> <span class="subxComment"># out: int/reg</span> -<span id="L33706" class="LineNr">33706 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L33707" class="LineNr">33707 </span> <span class="subxComment">#</span> -<span id="L33708" class="LineNr">33708 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33709" class="LineNr">33709 </span> 55/push-ebp -<span id="L33710" class="LineNr">33710 </span> 89/<- %ebp 4/r32/esp -<span id="L33711" class="LineNr">33711 </span> <span class="subxComment"># setup</span> -<span id="L33712" class="LineNr">33712 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L33713" class="LineNr">33713 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L33714" class="LineNr">33714 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-type</span>: -<span id="L33715" class="LineNr">33715 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L33716" class="LineNr">33716 </span> 68/push 0/imm32/right:null -<span id="L33717" class="LineNr">33717 </span> 68/push 0/imm32/right:null -<span id="L33718" class="LineNr">33718 </span> 68/push 0/imm32/left:unused -<span id="L33719" class="LineNr">33719 </span> 68/push 1/imm32/value:int -<span id="L33720" class="LineNr">33720 </span> 68/push 1/imm32/is-atom?:true -<span id="L33721" class="LineNr">33721 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33722" class="LineNr">33722 </span> 89/<- %ecx 4/r32/esp -<span id="L33723" class="LineNr">33723 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var</span>: -<span id="L33724" class="LineNr">33724 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L33725" class="LineNr">33725 </span> 68/push 0/imm32/register -<span id="L33726" class="LineNr">33726 </span> 68/push 0/imm32/register -<span id="L33727" class="LineNr">33727 </span> 68/push 0/imm32/no-stack-offset -<span id="L33728" class="LineNr">33728 </span> 68/push 1/imm32/block-depth -<span id="L33729" class="LineNr">33729 </span> 51/push-ecx -<span id="L33730" class="LineNr">33730 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33731" class="LineNr">33731 </span> 68/push 0/imm32/name -<span id="L33732" class="LineNr">33732 </span> 68/push 0/imm32/name -<span id="L33733" class="LineNr">33733 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33734" class="LineNr">33734 </span> 89/<- %ecx 4/r32/esp -<span id="L33735" class="LineNr">33735 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-name</span>: -<span id="L33736" class="LineNr">33736 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L33737" class="LineNr">33737 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L33738" class="LineNr">33738 </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="L33739" class="LineNr">33739 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-register</span>: -<span id="L33740" class="LineNr">33740 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L33741" class="LineNr">33741 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L33742" class="LineNr">33742 </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="L33743" class="LineNr">33743 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-var</span>: -<span id="L33744" class="LineNr">33744 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L33745" class="LineNr">33745 </span> 68/push 0/imm32/is-deref:false -<span id="L33746" class="LineNr">33746 </span> 68/push 0/imm32/next -<span id="L33747" class="LineNr">33747 </span> 68/push 0/imm32/next -<span id="L33748" class="LineNr">33748 </span> 51/push-ecx/var-foo -<span id="L33749" class="LineNr">33749 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33750" class="LineNr">33750 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33751" class="LineNr">33751 </span> 89/<- %ebx 4/r32/esp -<span id="L33752" class="LineNr">33752 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt</span>: -<span id="L33753" class="LineNr">33753 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L33754" class="LineNr">33754 </span> 53/push-ebx/outputs -<span id="L33755" class="LineNr">33755 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33756" class="LineNr">33756 </span> 68/push 0/imm32/no-inouts -<span id="L33757" class="LineNr">33757 </span> 68/push 0/imm32/no-inouts -<span id="L33758" class="LineNr">33758 </span> 68/push 0/imm32/operation -<span id="L33759" class="LineNr">33759 </span> 68/push 0/imm32/operation -<span id="L33760" class="LineNr">33760 </span> 68/push 1/imm32 -<span id="L33761" class="LineNr">33761 </span> 89/<- %esi 4/r32/esp -<span id="L33762" class="LineNr">33762 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-operation</span>: -<span id="L33763" class="LineNr">33763 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L33764" class="LineNr">33764 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L33765" class="LineNr">33765 </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="L33766" class="LineNr">33766 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var</span>: -<span id="L33767" class="LineNr">33767 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L33768" class="LineNr">33768 </span> 68/push 0/imm32/register -<span id="L33769" class="LineNr">33769 </span> 68/push 0/imm32/register -<span id="L33770" class="LineNr">33770 </span> 68/push 0/imm32/no-stack-offset -<span id="L33771" class="LineNr">33771 </span> 68/push 1/imm32/block-depth -<span id="L33772" class="LineNr">33772 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L33773" class="LineNr">33773 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33774" class="LineNr">33774 </span> 68/push 0/imm32/name -<span id="L33775" class="LineNr">33775 </span> 68/push 0/imm32/name -<span id="L33776" class="LineNr">33776 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33777" class="LineNr">33777 </span> 89/<- %ebx 4/r32/esp -<span id="L33778" class="LineNr">33778 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var-name</span>: -<span id="L33779" class="LineNr">33779 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L33780" class="LineNr">33780 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L33781" class="LineNr">33781 </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="L33782" class="LineNr">33782 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-register</span>: -<span id="L33783" class="LineNr">33783 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L33784" class="LineNr">33784 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L33785" class="LineNr">33785 </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="L33786" class="LineNr">33786 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-list</span>: -<span id="L33787" class="LineNr">33787 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> -<span id="L33788" class="LineNr">33788 </span> 68/push 0/imm32/next -<span id="L33789" class="LineNr">33789 </span> 68/push 0/imm32/next -<span id="L33790" class="LineNr">33790 </span> 53/push-ebx/formal-var -<span id="L33791" class="LineNr">33791 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33792" class="LineNr">33792 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33793" class="LineNr">33793 </span> 89/<- %ebx 4/r32/esp -<span id="L33794" class="LineNr">33794 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive</span>: -<span id="L33795" class="LineNr">33795 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L33796" class="LineNr">33796 </span> 68/push 0/imm32/next -<span id="L33797" class="LineNr">33797 </span> 68/push 0/imm32/next -<span id="L33798" class="LineNr">33798 </span> 68/push 0/imm32/no-x32 -<span id="L33799" class="LineNr">33799 </span> 68/push 0/imm32/no-xm32 -<span id="L33800" class="LineNr">33800 </span> 68/push 0/imm32/no-disp32 -<span id="L33801" class="LineNr">33801 </span> 68/push 0/imm32/no-imm8 -<span id="L33802" class="LineNr">33802 </span> 68/push 0/imm32/no-imm32 -<span id="L33803" class="LineNr">33803 </span> 68/push 0/imm32/no-r32 -<span id="L33804" class="LineNr">33804 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L33805" class="LineNr">33805 </span> 68/push 0/imm32/subx-name -<span id="L33806" class="LineNr">33806 </span> 68/push 0/imm32/subx-name -<span id="L33807" class="LineNr">33807 </span> 53/push-ebx/outputs -<span id="L33808" class="LineNr">33808 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33809" class="LineNr">33809 </span> 68/push 0/imm32/no-inouts -<span id="L33810" class="LineNr">33810 </span> 68/push 0/imm32/no-inouts -<span id="L33811" class="LineNr">33811 </span> 68/push 0/imm32/name -<span id="L33812" class="LineNr">33812 </span> 68/push 0/imm32/name -<span id="L33813" class="LineNr">33813 </span> 89/<- %ebx 4/r32/esp -<span id="L33814" class="LineNr">33814 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-name</span>: -<span id="L33815" class="LineNr">33815 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L33816" class="LineNr">33816 </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="L33817" class="LineNr">33817 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-subx-name</span>: -<span id="L33818" class="LineNr">33818 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L33819" class="LineNr">33819 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L33820" class="LineNr">33820 </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="L33821" class="LineNr">33821 </span> <span class="subxComment"># convert</span> -<span id="L33822" class="LineNr">33822 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L33823" class="LineNr">33823 </span> (<a href='mu.subx.html#L26390'>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="L33824" class="LineNr">33824 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L33825" class="Folded">33825 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L33831" class="LineNr">33831 </span> <span class="subxComment"># check output</span> -<span id="L33832" class="LineNr">33832 </span> (<a href='../109stream-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="L33833" class="LineNr">33833 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L33834" class="LineNr">33834 </span> 89/<- %esp 5/r32/ebp -<span id="L33835" class="LineNr">33835 </span> 5d/pop-to-ebp -<span id="L33836" class="LineNr">33836 </span> c3/return -<span id="L33837" class="LineNr">33837 </span> -<span id="L33838" class="LineNr">33838 </span><span class="subxTest">test-emit-subx-stmt-select-primitive</span>: -<span id="L33839" class="LineNr">33839 </span> <span class="subxComment"># Select the right primitive between overloads.</span> -<span id="L33840" class="LineNr">33840 </span> <span class="subxComment"># foo <- increment</span> -<span id="L33841" class="LineNr">33841 </span> <span class="subxComment"># =></span> -<span id="L33842" class="LineNr">33842 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L33843" class="LineNr">33843 </span> <span class="subxComment">#</span> -<span id="L33844" class="LineNr">33844 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L33845" class="LineNr">33845 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L33846" class="LineNr">33846 </span> <span class="subxComment"># type: int</span> -<span id="L33847" class="LineNr">33847 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L33848" class="LineNr">33848 </span> <span class="subxComment">#</span> -<span id="L33849" class="LineNr">33849 </span> <span class="subxComment"># There's two primitives, as follows:</span> -<span id="L33850" class="LineNr">33850 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L33851" class="LineNr">33851 </span> <span class="subxComment"># out: int/reg</span> -<span id="L33852" class="LineNr">33852 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L33853" class="LineNr">33853 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L33854" class="LineNr">33854 </span> <span class="subxComment"># inout: int/mem</span> -<span id="L33855" class="LineNr">33855 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L33856" class="LineNr">33856 </span> <span class="subxComment">#</span> -<span id="L33857" class="LineNr">33857 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L33858" class="LineNr">33858 </span> 55/push-ebp -<span id="L33859" class="LineNr">33859 </span> 89/<- %ebp 4/r32/esp -<span id="L33860" class="LineNr">33860 </span> <span class="subxComment"># setup</span> -<span id="L33861" class="LineNr">33861 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L33862" class="LineNr">33862 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L33863" class="LineNr">33863 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-type</span>: -<span id="L33864" class="LineNr">33864 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L33865" class="LineNr">33865 </span> 68/push 0/imm32/right:null -<span id="L33866" class="LineNr">33866 </span> 68/push 0/imm32/right:null -<span id="L33867" class="LineNr">33867 </span> 68/push 0/imm32/left:unused -<span id="L33868" class="LineNr">33868 </span> 68/push 1/imm32/value:int -<span id="L33869" class="LineNr">33869 </span> 68/push 1/imm32/is-atom?:true -<span id="L33870" class="LineNr">33870 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33871" class="LineNr">33871 </span> 89/<- %ecx 4/r32/esp -<span id="L33872" class="LineNr">33872 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var</span>: -<span id="L33873" class="LineNr">33873 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L33874" class="LineNr">33874 </span> 68/push 0/imm32/register -<span id="L33875" class="LineNr">33875 </span> 68/push 0/imm32/register -<span id="L33876" class="LineNr">33876 </span> 68/push 0/imm32/no-stack-offset -<span id="L33877" class="LineNr">33877 </span> 68/push 1/imm32/block-depth -<span id="L33878" class="LineNr">33878 </span> 51/push-ecx -<span id="L33879" class="LineNr">33879 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33880" class="LineNr">33880 </span> 68/push 0/imm32/name -<span id="L33881" class="LineNr">33881 </span> 68/push 0/imm32/name -<span id="L33882" class="LineNr">33882 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33883" class="LineNr">33883 </span> 89/<- %ecx 4/r32/esp -<span id="L33884" class="LineNr">33884 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-name</span>: -<span id="L33885" class="LineNr">33885 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L33886" class="LineNr">33886 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L33887" class="LineNr">33887 </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="L33888" class="LineNr">33888 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-register</span>: -<span id="L33889" class="LineNr">33889 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L33890" class="LineNr">33890 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L33891" class="LineNr">33891 </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="L33892" class="LineNr">33892 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-var</span>: -<span id="L33893" class="LineNr">33893 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L33894" class="LineNr">33894 </span> 68/push 0/imm32/is-deref:false -<span id="L33895" class="LineNr">33895 </span> 68/push 0/imm32/next -<span id="L33896" class="LineNr">33896 </span> 68/push 0/imm32/next -<span id="L33897" class="LineNr">33897 </span> 51/push-ecx/var-foo -<span id="L33898" class="LineNr">33898 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33899" class="LineNr">33899 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33900" class="LineNr">33900 </span> 89/<- %ebx 4/r32/esp -<span id="L33901" class="LineNr">33901 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt</span>: -<span id="L33902" class="LineNr">33902 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L33903" class="LineNr">33903 </span> 53/push-ebx/outputs -<span id="L33904" class="LineNr">33904 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33905" class="LineNr">33905 </span> 68/push 0/imm32/no-inouts -<span id="L33906" class="LineNr">33906 </span> 68/push 0/imm32/no-inouts -<span id="L33907" class="LineNr">33907 </span> 68/push 0/imm32/operation -<span id="L33908" class="LineNr">33908 </span> 68/push 0/imm32/operation -<span id="L33909" class="LineNr">33909 </span> 68/push 1/imm32 -<span id="L33910" class="LineNr">33910 </span> 89/<- %esi 4/r32/esp -<span id="L33911" class="LineNr">33911 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-operation</span>: -<span id="L33912" class="LineNr">33912 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L33913" class="LineNr">33913 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L33914" class="LineNr">33914 </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="L33915" class="LineNr">33915 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var</span>: -<span id="L33916" class="LineNr">33916 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L33917" class="LineNr">33917 </span> 68/push 0/imm32/register -<span id="L33918" class="LineNr">33918 </span> 68/push 0/imm32/register -<span id="L33919" class="LineNr">33919 </span> 68/push 0/imm32/no-stack-offset -<span id="L33920" class="LineNr">33920 </span> 68/push 1/imm32/block-depth -<span id="L33921" class="LineNr">33921 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L33922" class="LineNr">33922 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33923" class="LineNr">33923 </span> 68/push 0/imm32/name -<span id="L33924" class="LineNr">33924 </span> 68/push 0/imm32/name -<span id="L33925" class="LineNr">33925 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33926" class="LineNr">33926 </span> 89/<- %ebx 4/r32/esp -<span id="L33927" class="LineNr">33927 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var-name</span>: -<span id="L33928" class="LineNr">33928 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L33929" class="LineNr">33929 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L33930" class="LineNr">33930 </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="L33931" class="LineNr">33931 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-register</span>: -<span id="L33932" class="LineNr">33932 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L33933" class="LineNr">33933 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L33934" class="LineNr">33934 </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="L33935" class="LineNr">33935 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-list</span>: -<span id="L33936" class="LineNr">33936 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> -<span id="L33937" class="LineNr">33937 </span> 68/push 0/imm32/next -<span id="L33938" class="LineNr">33938 </span> 68/push 0/imm32/next -<span id="L33939" class="LineNr">33939 </span> 53/push-ebx/formal-var -<span id="L33940" class="LineNr">33940 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33941" class="LineNr">33941 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33942" class="LineNr">33942 </span> 89/<- %ebx 4/r32/esp -<span id="L33943" class="LineNr">33943 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2</span>: -<span id="L33944" class="LineNr">33944 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> -<span id="L33945" class="LineNr">33945 </span> 68/push 0/imm32/next -<span id="L33946" class="LineNr">33946 </span> 68/push 0/imm32/next -<span id="L33947" class="LineNr">33947 </span> 68/push 0/imm32/no-x32 -<span id="L33948" class="LineNr">33948 </span> 68/push 0/imm32/no-xm32 -<span id="L33949" class="LineNr">33949 </span> 68/push 0/imm32/no-disp32 -<span id="L33950" class="LineNr">33950 </span> 68/push 0/imm32/no-imm8 -<span id="L33951" class="LineNr">33951 </span> 68/push 0/imm32/no-imm32 -<span id="L33952" class="LineNr">33952 </span> 68/push 0/imm32/no-r32 -<span id="L33953" class="LineNr">33953 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L33954" class="LineNr">33954 </span> 68/push 0/imm32/subx-name -<span id="L33955" class="LineNr">33955 </span> 68/push 0/imm32/subx-name -<span id="L33956" class="LineNr">33956 </span> 53/push-ebx/outputs -<span id="L33957" class="LineNr">33957 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33958" class="LineNr">33958 </span> 68/push 0/imm32/no-inouts -<span id="L33959" class="LineNr">33959 </span> 68/push 0/imm32/no-inouts -<span id="L33960" class="LineNr">33960 </span> 68/push 0/imm32/name -<span id="L33961" class="LineNr">33961 </span> 68/push 0/imm32/name -<span id="L33962" class="LineNr">33962 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L33963" class="LineNr">33963 </span> 89/<- %edi 4/r32/esp -<span id="L33964" class="LineNr">33964 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-name</span>: -<span id="L33965" class="LineNr">33965 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L33966" class="LineNr">33966 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> -<span id="L33967" class="LineNr">33967 </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="L33968" class="LineNr">33968 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-subx-name</span>: -<span id="L33969" class="LineNr">33969 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L33970" class="LineNr">33970 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> -<span id="L33971" class="LineNr">33971 </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="L33972" class="LineNr">33972 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive</span>: -<span id="L33973" class="LineNr">33973 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L33974" class="LineNr">33974 </span> 57/push-edi -<span id="L33975" class="LineNr">33975 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33976" class="LineNr">33976 </span> 68/push 0/imm32/no-x32 -<span id="L33977" class="LineNr">33977 </span> 68/push 0/imm32/no-xm32 -<span id="L33978" class="LineNr">33978 </span> 68/push 0/imm32/no-disp32 -<span id="L33979" class="LineNr">33979 </span> 68/push 0/imm32/no-imm8 -<span id="L33980" class="LineNr">33980 </span> 68/push 0/imm32/no-imm32 -<span id="L33981" class="LineNr">33981 </span> 68/push 0/imm32/no-r32 -<span id="L33982" class="LineNr">33982 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L33983" class="LineNr">33983 </span> 68/push 0/imm32/subx-name -<span id="L33984" class="LineNr">33984 </span> 68/push 0/imm32/subx-name -<span id="L33985" class="LineNr">33985 </span> 68/push 0/imm32/no-outputs -<span id="L33986" class="LineNr">33986 </span> 68/push 0/imm32/no-outputs -<span id="L33987" class="LineNr">33987 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<span id="L33988" class="LineNr">33988 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L33989" class="LineNr">33989 </span> 68/push 0/imm32/name -<span id="L33990" class="LineNr">33990 </span> 68/push 0/imm32/name -<span id="L33991" class="LineNr">33991 </span> 89/<- %ebx 4/r32/esp -<span id="L33992" class="LineNr">33992 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-name</span>: -<span id="L33993" class="LineNr">33993 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L33994" class="LineNr">33994 </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="L33995" class="LineNr">33995 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-subx-name</span>: -<span id="L33996" class="LineNr">33996 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L33997" class="LineNr">33997 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L33998" class="LineNr">33998 </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="L33999" class="LineNr">33999 </span> <span class="subxComment"># convert</span> -<span id="L34000" class="LineNr">34000 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L34001" class="LineNr">34001 </span> (<a href='mu.subx.html#L26390'>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="L34002" class="LineNr">34002 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L34003" class="Folded">34003 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L34009" class="LineNr">34009 </span> <span class="subxComment"># check output</span> -<span id="L34010" class="LineNr">34010 </span> (<a href='../109stream-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="L33068" class="LineNr">33068 </span><span class="SpecialChar">Float-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L33069" class="LineNr">33069 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33070" class="LineNr">33070 </span> 0/imm32/name +<span id="L33071" class="LineNr">33071 </span> 0/imm32/name +<span id="L33072" class="LineNr">33072 </span> 0x11/imm32/alloc-id:fake +<span id="L33073" class="LineNr">33073 </span> <span class="SpecialChar"><a href='mu.subx.html#L33129'>Type-float</a></span>/imm32 +<span id="L33074" class="LineNr">33074 </span> 1/imm32/some-block-depth +<span id="L33075" class="LineNr">33075 </span> 1/imm32/some-stack-offset +<span id="L33076" class="LineNr">33076 </span> 0/imm32/no-register +<span id="L33077" class="LineNr">33077 </span> 0/imm32/no-register +<span id="L33078" class="LineNr">33078 </span> +<span id="L33079" class="LineNr">33079 </span><span class="SpecialChar">Single-float-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L33080" class="LineNr">33080 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33081" class="LineNr">33081 </span> 0x11/imm32/alloc-id:fake +<span id="L33082" class="LineNr">33082 </span> <span class="SpecialChar"><a href='mu.subx.html#L33086'>Float-var-in-some-register</a></span>/imm32 +<span id="L33083" class="LineNr">33083 </span> 0/imm32/next +<span id="L33084" class="LineNr">33084 </span> 0/imm32/next +<span id="L33085" class="LineNr">33085 </span> +<span id="L33086" class="LineNr">33086 </span><span class="SpecialChar">Float-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L33087" class="LineNr">33087 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33088" class="LineNr">33088 </span> 0/imm32/name +<span id="L33089" class="LineNr">33089 </span> 0/imm32/name +<span id="L33090" class="LineNr">33090 </span> 0x11/imm32/alloc-id:fake +<span id="L33091" class="LineNr">33091 </span> <span class="SpecialChar"><a href='mu.subx.html#L33129'>Type-float</a></span>/imm32 +<span id="L33092" class="LineNr">33092 </span> 1/imm32/some-block-depth +<span id="L33093" class="LineNr">33093 </span> 0/imm32/no-stack-offset +<span id="L33094" class="LineNr">33094 </span> 0x11/imm32/alloc-id:fake +<span id="L33095" class="LineNr">33095 </span> <span class="SpecialChar"><a href='mu.subx.html#L32907'>Any-register</a></span>/imm32 +<span id="L33096" class="LineNr">33096 </span> +<span id="L33097" class="LineNr">33097 </span><span class="SpecialChar">Type-int</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L33098" class="LineNr">33098 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33099" class="LineNr">33099 </span> 1/imm32/is-atom +<span id="L33100" class="LineNr">33100 </span> 1/imm32/value:int +<span id="L33101" class="LineNr">33101 </span> 0/imm32/left:unused +<span id="L33102" class="LineNr">33102 </span> 0/imm32/right:null +<span id="L33103" class="LineNr">33103 </span> 0/imm32/right:null +<span id="L33104" class="LineNr">33104 </span> +<span id="L33105" class="LineNr">33105 </span><span class="SpecialChar">Type-literal</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L33106" class="LineNr">33106 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33107" class="LineNr">33107 </span> 1/imm32/is-atom +<span id="L33108" class="LineNr">33108 </span> 0/imm32/value:literal +<span id="L33109" class="LineNr">33109 </span> 0/imm32/left:unused +<span id="L33110" class="LineNr">33110 </span> 0/imm32/right:null +<span id="L33111" class="LineNr">33111 </span> 0/imm32/right:null +<span id="L33112" class="LineNr">33112 </span> +<span id="L33113" class="LineNr">33113 </span><span class="SpecialChar">Type-addr</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L33114" class="LineNr">33114 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33115" class="LineNr">33115 </span> 1/imm32/is-atom +<span id="L33116" class="LineNr">33116 </span> 2/imm32/value:addr +<span id="L33117" class="LineNr">33117 </span> 0/imm32/left:unused +<span id="L33118" class="LineNr">33118 </span> 0/imm32/right:null +<span id="L33119" class="LineNr">33119 </span> 0/imm32/right:null +<span id="L33120" class="LineNr">33120 </span> +<span id="L33121" class="LineNr">33121 </span><span class="SpecialChar">Type-byte</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L33122" class="LineNr">33122 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33123" class="LineNr">33123 </span> 1/imm32/is-atom +<span id="L33124" class="LineNr">33124 </span> 8/imm32/value:byte +<span id="L33125" class="LineNr">33125 </span> 0/imm32/left:unused +<span id="L33126" class="LineNr">33126 </span> 0/imm32/right:null +<span id="L33127" class="LineNr">33127 </span> 0/imm32/right:null +<span id="L33128" class="LineNr">33128 </span> +<span id="L33129" class="LineNr">33129 </span><span class="SpecialChar">Type-float</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L33130" class="LineNr">33130 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33131" class="LineNr">33131 </span> 1/imm32/is-atom +<span id="L33132" class="LineNr">33132 </span> 0xf/imm32/value:float +<span id="L33133" class="LineNr">33133 </span> 0/imm32/left:unused +<span id="L33134" class="LineNr">33134 </span> 0/imm32/right:null +<span id="L33135" class="LineNr">33135 </span> 0/imm32/right:null +<span id="L33136" class="LineNr">33136 </span> +<span id="L33137" class="LineNr">33137 </span>== code +<span id="L33138" class="LineNr">33138 </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="L33139" class="LineNr">33139 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33140" class="LineNr">33140 </span> 55/push-ebp +<span id="L33141" class="LineNr">33141 </span> 89/<- %ebp 4/r32/esp +<span id="L33142" class="LineNr">33142 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33143" class="LineNr">33143 </span> 50/push-eax +<span id="L33144" class="LineNr">33144 </span> 51/push-ecx +<span id="L33145" class="LineNr">33145 </span> <span class="subxComment"># ecx = primitive</span> +<span id="L33146" class="LineNr">33146 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L33147" class="LineNr">33147 </span> <span class="subxComment"># emit primitive name</span> +<span id="L33148" class="LineNr">33148 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L33149" class="LineNr">33149 </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="L33150" class="LineNr">33150 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L33151" class="LineNr">33151 </span> <span class="subxComment"># emit rm32 if necessary</span> +<span id="L33152" class="LineNr">33152 </span> (<a href='mu.subx.html#L33175'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x20) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-rm32</span> +<span id="L33153" class="LineNr">33153 </span> <span class="subxComment"># emit xm32 if necessary</span> +<span id="L33154" class="LineNr">33154 </span> (<a href='mu.subx.html#L33175'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x34) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-xm32</span> +<span id="L33155" class="LineNr">33155 </span> <span class="subxComment"># emit r32 if necessary</span> +<span id="L33156" class="LineNr">33156 </span> (<a href='mu.subx.html#L33249'>emit-subx-r32</a> *(ebp+8) *(ecx+0x24) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-r32</span> +<span id="L33157" class="LineNr">33157 </span> <span class="subxComment"># emit x32 if necessary</span> +<span id="L33158" class="LineNr">33158 </span> (<a href='mu.subx.html#L33280'>emit-subx-x32</a> *(ebp+8) *(ecx+0x38) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-x32</span> +<span id="L33159" class="LineNr">33159 </span> <span class="subxComment"># emit imm32 if necessary</span> +<span id="L33160" class="LineNr">33160 </span> (<a href='mu.subx.html#L33311'>emit-subx-imm32</a> *(ebp+8) *(ecx+0x28) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm32</span> +<span id="L33161" class="LineNr">33161 </span> <span class="subxComment"># emit imm8 if necessary</span> +<span id="L33162" class="LineNr">33162 </span> (<a href='mu.subx.html#L33337'>emit-subx-imm8</a> *(ebp+8) *(ecx+0x2c) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm8</span> +<span id="L33163" class="LineNr">33163 </span> <span class="subxComment"># emit disp32 if necessary</span> +<span id="L33164" class="LineNr">33164 </span> (<a href='mu.subx.html#L33363'>emit-subx-disp32</a> *(ebp+8) *(ecx+0x30) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-disp32</span> +<span id="L33165" class="LineNr">33165 </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="L33166" class="LineNr">33166 </span><span class="Constant">$emit-subx-primitive:end</span>: +<span id="L33167" class="LineNr">33167 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33168" class="LineNr">33168 </span> 59/pop-to-ecx +<span id="L33169" class="LineNr">33169 </span> 58/pop-to-eax +<span id="L33170" class="LineNr">33170 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33171" class="LineNr">33171 </span> 89/<- %esp 5/r32/ebp +<span id="L33172" class="LineNr">33172 </span> 5d/pop-to-ebp +<span id="L33173" class="LineNr">33173 </span> c3/return +<span id="L33174" class="LineNr">33174 </span> +<span id="L33175" class="LineNr">33175 </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="L33176" class="LineNr">33176 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33177" class="LineNr">33177 </span> 55/push-ebp +<span id="L33178" class="LineNr">33178 </span> 89/<- %ebp 4/r32/esp +<span id="L33179" class="LineNr">33179 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33180" class="LineNr">33180 </span> 50/push-eax +<span id="L33181" class="LineNr">33181 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L33182" class="LineNr">33182 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L33183" class="LineNr">33183 </span> 74/jump-if-= $emit-subx-rm32:end/disp8 +<span id="L33184" class="LineNr">33184 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L33185" class="LineNr">33185 </span> (<a href='mu.subx.html#L33195'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L33186" class="LineNr">33186 </span> (<a href='mu.subx.html#L33608'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) +<span id="L33187" class="LineNr">33187 </span><span class="Constant">$emit-subx-rm32:end</span>: +<span id="L33188" class="LineNr">33188 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33189" class="LineNr">33189 </span> 58/pop-to-eax +<span id="L33190" class="LineNr">33190 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33191" class="LineNr">33191 </span> 89/<- %esp 5/r32/ebp +<span id="L33192" class="LineNr">33192 </span> 5d/pop-to-ebp +<span id="L33193" class="LineNr">33193 </span> c3/return +<span id="L33194" class="LineNr">33194 </span> +<span id="L33195" class="LineNr">33195 </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="L33196" class="LineNr">33196 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33197" class="LineNr">33197 </span> 55/push-ebp +<span id="L33198" class="LineNr">33198 </span> 89/<- %ebp 4/r32/esp +<span id="L33199" class="LineNr">33199 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33200" class="LineNr">33200 </span> 51/push-ecx +<span id="L33201" class="LineNr">33201 </span> <span class="subxComment"># eax = l</span> +<span id="L33202" class="LineNr">33202 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L33203" class="LineNr">33203 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L33204" class="LineNr">33204 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L33205" class="LineNr">33205 </span> <span class="subxComment"># if (l == 1) return stmt->inouts</span> +<span id="L33206" class="LineNr">33206 </span> { +<span id="L33207" class="LineNr">33207 </span> 3d/compare-eax-and 1/imm32 +<span id="L33208" class="LineNr">33208 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33209" class="LineNr">33209 </span><span class="Constant">$get-stmt-operand-from-arg-location:1</span>: +<span id="L33210" class="LineNr">33210 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L33211" class="LineNr">33211 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L33212" class="LineNr">33212 </span> } +<span id="L33213" class="LineNr">33213 </span> <span class="subxComment"># if (l == 2) return stmt->inouts->next</span> +<span id="L33214" class="LineNr">33214 </span> { +<span id="L33215" class="LineNr">33215 </span> 3d/compare-eax-and 2/imm32 +<span id="L33216" class="LineNr">33216 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33217" class="LineNr">33217 </span><span class="Constant">$get-stmt-operand-from-arg-location:2</span>: +<span id="L33218" class="LineNr">33218 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L33219" class="LineNr">33219 </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="L33220" class="LineNr">33220 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L33221" class="LineNr">33221 </span> } +<span id="L33222" class="LineNr">33222 </span> <span class="subxComment"># if (l == 3) return stmt->outputs</span> +<span id="L33223" class="LineNr">33223 </span> { +<span id="L33224" class="LineNr">33224 </span> 3d/compare-eax-and 3/imm32 +<span id="L33225" class="LineNr">33225 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33226" class="LineNr">33226 </span><span class="Constant">$get-stmt-operand-from-arg-location:3</span>: +<span id="L33227" class="LineNr">33227 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L33228" class="LineNr">33228 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L33229" class="LineNr">33229 </span> } +<span id="L33230" class="LineNr">33230 </span> <span class="subxComment"># abort</span> +<span id="L33231" class="LineNr">33231 </span> e9/jump $get-stmt-operand-from-arg-location:abort/disp32 +<span id="L33232" class="LineNr">33232 </span><span class="Constant">$get-stmt-operand-from-arg-location:end</span>: +<span id="L33233" class="LineNr">33233 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33234" class="LineNr">33234 </span> 59/pop-to-ecx +<span id="L33235" class="LineNr">33235 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33236" class="LineNr">33236 </span> 89/<- %esp 5/r32/ebp +<span id="L33237" class="LineNr">33237 </span> 5d/pop-to-ebp +<span id="L33238" class="LineNr">33238 </span> c3/return +<span id="L33239" class="LineNr">33239 </span> +<span id="L33240" class="LineNr">33240 </span><span class="Constant">$get-stmt-operand-from-arg-location:abort</span>: +<span id="L33241" class="LineNr">33241 </span> <span class="subxComment"># error("invalid arg-location " eax)</span> +<span id="L33242" class="LineNr">33242 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"invalid arg-location "</span>) +<span id="L33243" class="LineNr">33243 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0x10) %eax) +<span id="L33244" class="LineNr">33244 </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="L33245" class="LineNr">33245 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L33246" class="LineNr">33246 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L33247" class="LineNr">33247 </span> <span class="subxComment"># never gets here</span> +<span id="L33248" class="LineNr">33248 </span> +<span id="L33249" class="LineNr">33249 </span><span class="subxFunction">emit-subx-r32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L33250" class="LineNr">33250 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33251" class="LineNr">33251 </span> 55/push-ebp +<span id="L33252" class="LineNr">33252 </span> 89/<- %ebp 4/r32/esp +<span id="L33253" class="LineNr">33253 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33254" class="LineNr">33254 </span> 50/push-eax +<span id="L33255" class="LineNr">33255 </span> 51/push-ecx +<span id="L33256" class="LineNr">33256 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L33257" class="LineNr">33257 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L33258" class="LineNr">33258 </span> 0f 84/jump-if-= $emit-subx-r32:end/disp32 +<span id="L33259" class="LineNr">33259 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L33260" class="LineNr">33260 </span> (<a href='mu.subx.html#L33195'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L33261" class="LineNr">33261 </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="L33262" class="LineNr">33262 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L33263" class="LineNr">33263 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> +<span id="L33264" class="LineNr">33264 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L33265" class="LineNr">33265 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L33266" class="LineNr">33266 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L33267" class="LineNr">33267 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L18292'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> +<span id="L33268" class="LineNr">33268 </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="L33269" class="LineNr">33269 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L33270" class="LineNr">33270 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32"</span>) +<span id="L33271" class="LineNr">33271 </span><span class="Constant">$emit-subx-r32:end</span>: +<span id="L33272" class="LineNr">33272 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33273" class="LineNr">33273 </span> 59/pop-to-ecx +<span id="L33274" class="LineNr">33274 </span> 58/pop-to-eax +<span id="L33275" class="LineNr">33275 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33276" class="LineNr">33276 </span> 89/<- %esp 5/r32/ebp +<span id="L33277" class="LineNr">33277 </span> 5d/pop-to-ebp +<span id="L33278" class="LineNr">33278 </span> c3/return +<span id="L33279" class="LineNr">33279 </span> +<span id="L33280" class="LineNr">33280 </span><span class="subxFunction">emit-subx-x32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L33281" class="LineNr">33281 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33282" class="LineNr">33282 </span> 55/push-ebp +<span id="L33283" class="LineNr">33283 </span> 89/<- %ebp 4/r32/esp +<span id="L33284" class="LineNr">33284 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33285" class="LineNr">33285 </span> 50/push-eax +<span id="L33286" class="LineNr">33286 </span> 51/push-ecx +<span id="L33287" class="LineNr">33287 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L33288" class="LineNr">33288 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L33289" class="LineNr">33289 </span> 0f 84/jump-if-= $emit-subx-x32:end/disp32 +<span id="L33290" class="LineNr">33290 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L33291" class="LineNr">33291 </span> (<a href='mu.subx.html#L33195'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L33292" class="LineNr">33292 </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="L33293" class="LineNr">33293 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L33294" class="LineNr">33294 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> +<span id="L33295" class="LineNr">33295 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L33296" class="LineNr">33296 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L33297" class="LineNr">33297 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L33298" class="LineNr">33298 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L18292'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> +<span id="L33299" class="LineNr">33299 </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="L33300" class="LineNr">33300 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L33301" class="LineNr">33301 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32"</span>) +<span id="L33302" class="LineNr">33302 </span><span class="Constant">$emit-subx-x32:end</span>: +<span id="L33303" class="LineNr">33303 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33304" class="LineNr">33304 </span> 59/pop-to-ecx +<span id="L33305" class="LineNr">33305 </span> 58/pop-to-eax +<span id="L33306" class="LineNr">33306 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33307" class="LineNr">33307 </span> 89/<- %esp 5/r32/ebp +<span id="L33308" class="LineNr">33308 </span> 5d/pop-to-ebp +<span id="L33309" class="LineNr">33309 </span> c3/return +<span id="L33310" class="LineNr">33310 </span> +<span id="L33311" class="LineNr">33311 </span><span class="subxFunction">emit-subx-imm32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L33312" class="LineNr">33312 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33313" class="LineNr">33313 </span> 55/push-ebp +<span id="L33314" class="LineNr">33314 </span> 89/<- %ebp 4/r32/esp +<span id="L33315" class="LineNr">33315 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33316" class="LineNr">33316 </span> 50/push-eax +<span id="L33317" class="LineNr">33317 </span> 51/push-ecx +<span id="L33318" class="LineNr">33318 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L33319" class="LineNr">33319 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L33320" class="LineNr">33320 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 +<span id="L33321" class="LineNr">33321 </span> <span class="subxComment"># var v/eax: (handle var)</span> +<span id="L33322" class="LineNr">33322 </span> (<a href='mu.subx.html#L33195'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L33323" class="LineNr">33323 </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="L33324" class="LineNr">33324 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L33325" class="LineNr">33325 </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="L33326" class="LineNr">33326 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L33327" class="LineNr">33327 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32"</span>) +<span id="L33328" class="LineNr">33328 </span><span class="Constant">$emit-subx-imm32:end</span>: +<span id="L33329" class="LineNr">33329 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33330" class="LineNr">33330 </span> 59/pop-to-ecx +<span id="L33331" class="LineNr">33331 </span> 58/pop-to-eax +<span id="L33332" class="LineNr">33332 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33333" class="LineNr">33333 </span> 89/<- %esp 5/r32/ebp +<span id="L33334" class="LineNr">33334 </span> 5d/pop-to-ebp +<span id="L33335" class="LineNr">33335 </span> c3/return +<span id="L33336" class="LineNr">33336 </span> +<span id="L33337" class="LineNr">33337 </span><span class="subxFunction">emit-subx-imm8</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L33338" class="LineNr">33338 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33339" class="LineNr">33339 </span> 55/push-ebp +<span id="L33340" class="LineNr">33340 </span> 89/<- %ebp 4/r32/esp +<span id="L33341" class="LineNr">33341 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33342" class="LineNr">33342 </span> 50/push-eax +<span id="L33343" class="LineNr">33343 </span> 51/push-ecx +<span id="L33344" class="LineNr">33344 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L33345" class="LineNr">33345 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L33346" class="LineNr">33346 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 +<span id="L33347" class="LineNr">33347 </span> <span class="subxComment"># var v/eax: (handle var)</span> +<span id="L33348" class="LineNr">33348 </span> (<a href='mu.subx.html#L33195'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L33349" class="LineNr">33349 </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="L33350" class="LineNr">33350 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L33351" class="LineNr">33351 </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="L33352" class="LineNr">33352 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L33353" class="LineNr">33353 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8"</span>) +<span id="L33354" class="LineNr">33354 </span><span class="Constant">$emit-subx-imm8:end</span>: +<span id="L33355" class="LineNr">33355 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33356" class="LineNr">33356 </span> 59/pop-to-ecx +<span id="L33357" class="LineNr">33357 </span> 58/pop-to-eax +<span id="L33358" class="LineNr">33358 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33359" class="LineNr">33359 </span> 89/<- %esp 5/r32/ebp +<span id="L33360" class="LineNr">33360 </span> 5d/pop-to-ebp +<span id="L33361" class="LineNr">33361 </span> c3/return +<span id="L33362" class="LineNr">33362 </span> +<span id="L33363" class="LineNr">33363 </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="L33364" class="LineNr">33364 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33365" class="LineNr">33365 </span> 55/push-ebp +<span id="L33366" class="LineNr">33366 </span> 89/<- %ebp 4/r32/esp +<span id="L33367" class="LineNr">33367 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33368" class="LineNr">33368 </span> 50/push-eax +<span id="L33369" class="LineNr">33369 </span> 51/push-ecx +<span id="L33370" class="LineNr">33370 </span> <span class="subxComment"># if (location == 0) return</span> +<span id="L33371" class="LineNr">33371 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L33372" class="LineNr">33372 </span> 0f 84/jump-if-= $emit-subx-disp32:end/disp32 +<span id="L33373" class="LineNr">33373 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L33374" class="LineNr">33374 </span> (<a href='mu.subx.html#L33195'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L33375" class="LineNr">33375 </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="L33376" class="LineNr">33376 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L33377" class="LineNr">33377 </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="L33378" class="LineNr">33378 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L33379" class="LineNr">33379 </span> <span class="subxComment"># hack: if instruction operation starts with "break", emit ":break"</span> +<span id="L33380" class="LineNr">33380 </span> <span class="subxComment"># var name/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L33381" class="LineNr">33381 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L33382" class="LineNr">33382 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L33383" class="LineNr">33383 </span> 89/<- %ecx 0/r32/eax +<span id="L33384" class="LineNr">33384 </span> { +<span id="L33385" class="LineNr">33385 </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="L33386" class="LineNr">33386 </span> 3d/compare-eax-and 0/imm32/false +<span id="L33387" class="LineNr">33387 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33388" class="LineNr">33388 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break"</span>) +<span id="L33389" class="LineNr">33389 </span> } +<span id="L33390" class="LineNr">33390 </span> <span class="subxComment"># hack: if instruction operation starts with "loop", emit ":loop"</span> +<span id="L33391" class="LineNr">33391 </span> { +<span id="L33392" class="LineNr">33392 </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="L33393" class="LineNr">33393 </span> 3d/compare-eax-and 0/imm32/false +<span id="L33394" class="LineNr">33394 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33395" class="LineNr">33395 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop"</span>) +<span id="L33396" class="LineNr">33396 </span> } +<span id="L33397" class="LineNr">33397 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32"</span>) +<span id="L33398" class="LineNr">33398 </span><span class="Constant">$emit-subx-disp32:end</span>: +<span id="L33399" class="LineNr">33399 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33400" class="LineNr">33400 </span> 59/pop-to-ecx +<span id="L33401" class="LineNr">33401 </span> 58/pop-to-eax +<span id="L33402" class="LineNr">33402 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33403" class="LineNr">33403 </span> 89/<- %esp 5/r32/ebp +<span id="L33404" class="LineNr">33404 </span> 5d/pop-to-ebp +<span id="L33405" class="LineNr">33405 </span> c3/return +<span id="L33406" class="LineNr">33406 </span> +<span id="L33407" class="LineNr">33407 </span><span class="subxFunction">emit-call</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> +<span id="L33408" class="LineNr">33408 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33409" class="LineNr">33409 </span> 55/push-ebp +<span id="L33410" class="LineNr">33410 </span> 89/<- %ebp 4/r32/esp +<span id="L33411" class="LineNr">33411 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33412" class="LineNr">33412 </span> 50/push-eax +<span id="L33413" class="LineNr">33413 </span> 51/push-ecx +<span id="L33414" class="LineNr">33414 </span> <span class="subxComment">#</span> +<span id="L33415" class="LineNr">33415 </span> (<a href='mu.subx.html#L36641'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span>) +<span id="L33416" class="LineNr">33416 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"("</span>) +<span id="L33417" class="LineNr">33417 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L33418" class="LineNr">33418 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L33419" class="LineNr">33419 </span> <span class="subxH1Comment"># - emit function name</span> +<span id="L33420" class="LineNr">33420 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L33421" class="LineNr">33421 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L33422" class="LineNr">33422 </span> <span class="subxH1Comment"># - emit arguments</span> +<span id="L33423" class="LineNr">33423 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L33424" class="LineNr">33424 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L33425" class="LineNr">33425 </span> { +<span id="L33426" class="LineNr">33426 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L33427" class="LineNr">33427 </span> 3d/compare-eax-and 0/imm32 +<span id="L33428" class="LineNr">33428 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33429" class="LineNr">33429 </span> <span class="subxComment">#</span> +<span id="L33430" class="LineNr">33430 </span> (<a href='mu.subx.html#L33446'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L33431" class="LineNr">33431 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L33432" class="LineNr">33432 </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="L33433" class="LineNr">33433 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L33434" class="LineNr">33434 </span> } +<span id="L33435" class="LineNr">33435 </span> <span class="subxComment">#</span> +<span id="L33436" class="LineNr">33436 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L33437" class="LineNr">33437 </span><span class="Constant">$emit-call:end</span>: +<span id="L33438" class="LineNr">33438 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33439" class="LineNr">33439 </span> 59/pop-to-ecx +<span id="L33440" class="LineNr">33440 </span> 58/pop-to-eax +<span id="L33441" class="LineNr">33441 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33442" class="LineNr">33442 </span> 89/<- %esp 5/r32/ebp +<span id="L33443" class="LineNr">33443 </span> 5d/pop-to-ebp +<span id="L33444" class="LineNr">33444 </span> c3/return +<span id="L33445" class="LineNr">33445 </span> +<span id="L33446" class="LineNr">33446 </span><span class="subxFunction">emit-subx-call-operand</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> +<span id="L33447" class="LineNr">33447 </span> <span class="subxComment"># shares code with emit-subx-var-as-rm32</span> +<span id="L33448" class="LineNr">33448 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33449" class="LineNr">33449 </span> 55/push-ebp +<span id="L33450" class="LineNr">33450 </span> 89/<- %ebp 4/r32/esp +<span id="L33451" class="LineNr">33451 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33452" class="LineNr">33452 </span> 50/push-eax +<span id="L33453" class="LineNr">33453 </span> 51/push-ecx +<span id="L33454" class="LineNr">33454 </span> 56/push-esi +<span id="L33455" class="LineNr">33455 </span> <span class="subxComment"># ecx = s</span> +<span id="L33456" class="LineNr">33456 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L33457" class="LineNr">33457 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> +<span id="L33458" class="LineNr">33458 </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="L33459" class="LineNr">33459 </span> 89/<- %esi 0/r32/eax +<span id="L33460" class="LineNr">33460 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> +<span id="L33461" class="LineNr">33461 </span> { +<span id="L33462" class="LineNr">33462 </span><span class="Constant">$emit-subx-call-operand:check-for-register-direct</span>: +<span id="L33463" class="LineNr">33463 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L33464" class="LineNr">33464 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33465" class="LineNr">33465 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L33466" class="LineNr">33466 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33467" class="LineNr">33467 </span><span class="Constant">$emit-subx-call-operand:register-direct</span>: +<span id="L33468" class="LineNr">33468 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) +<span id="L33469" class="LineNr">33469 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L33470" class="LineNr">33470 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L33471" class="LineNr">33471 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L33472" class="LineNr">33472 </span> } +<span id="L33473" class="LineNr">33473 </span> <span class="subxComment"># else if (operand->register && s->is-deref?) emit "*__"</span> +<span id="L33474" class="LineNr">33474 </span> { +<span id="L33475" class="LineNr">33475 </span><span class="Constant">$emit-subx-call-operand:check-for-register-indirect</span>: +<span id="L33476" class="LineNr">33476 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L33477" class="LineNr">33477 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33478" class="LineNr">33478 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L33479" class="LineNr">33479 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33480" class="LineNr">33480 </span><span class="Constant">$emit-subx-call-operand:register-indirect</span>: +<span id="L33481" class="LineNr">33481 </span> (<a href='mu.subx.html#L33523'>emit-subx-call-operand-register-indirect</a> *(ebp+8) %esi) +<span id="L33482" class="LineNr">33482 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L33483" class="LineNr">33483 </span> } +<span id="L33484" class="LineNr">33484 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> +<span id="L33485" class="LineNr">33485 </span> { +<span id="L33486" class="LineNr">33486 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L33487" class="LineNr">33487 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33488" class="LineNr">33488 </span><span class="Constant">$emit-subx-call-operand:stack</span>: +<span id="L33489" class="LineNr">33489 </span> (<a href='mu.subx.html#L33568'>emit-subx-call-operand-stack</a> *(ebp+8) %esi) +<span id="L33490" class="LineNr">33490 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L33491" class="LineNr">33491 </span> } +<span id="L33492" class="LineNr">33492 </span> <span class="subxComment"># else if (operand->type == literal) emit "__"</span> +<span id="L33493" class="LineNr">33493 </span> { +<span id="L33494" class="LineNr">33494 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L33495" class="LineNr">33495 </span> 81 7/subop/compare *(eax+4) 0/imm32 <span class="subxComment"># Type-tree-value</span> +<span id="L33496" class="LineNr">33496 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33497" class="LineNr">33497 </span><span class="Constant">$emit-subx-call-operand:literal</span>: +<span id="L33498" class="LineNr">33498 </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="L33499" class="LineNr">33499 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L33500" class="LineNr">33500 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L33501" class="LineNr">33501 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L33502" class="LineNr">33502 </span> } +<span id="L33503" class="LineNr">33503 </span> <span class="subxComment"># else if (operand->type == literal-string) emit "__"</span> +<span id="L33504" class="LineNr">33504 </span> { +<span id="L33505" class="LineNr">33505 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L33506" class="LineNr">33506 </span> 81 7/subop/compare *(eax+4) 0x10/imm32 <span class="subxComment"># Type-tree-value</span> +<span id="L33507" class="LineNr">33507 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33508" class="LineNr">33508 </span><span class="Constant">$emit-subx-call-operand:literal-string</span>: +<span id="L33509" class="LineNr">33509 </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="L33510" class="LineNr">33510 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L33511" class="LineNr">33511 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L33512" class="LineNr">33512 </span> } +<span id="L33513" class="LineNr">33513 </span><span class="Constant">$emit-subx-call-operand:end</span>: +<span id="L33514" class="LineNr">33514 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33515" class="LineNr">33515 </span> 5e/pop-to-esi +<span id="L33516" class="LineNr">33516 </span> 59/pop-to-ecx +<span id="L33517" class="LineNr">33517 </span> 58/pop-to-eax +<span id="L33518" class="LineNr">33518 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33519" class="LineNr">33519 </span> 89/<- %esp 5/r32/ebp +<span id="L33520" class="LineNr">33520 </span> 5d/pop-to-ebp +<span id="L33521" class="LineNr">33521 </span> c3/return +<span id="L33522" class="LineNr">33522 </span> +<span id="L33523" class="LineNr">33523 </span><span class="subxFunction">emit-subx-call-operand-register-indirect</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> +<span id="L33524" class="LineNr">33524 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33525" class="LineNr">33525 </span> 55/push-ebp +<span id="L33526" class="LineNr">33526 </span> 89/<- %ebp 4/r32/esp +<span id="L33527" class="LineNr">33527 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33528" class="LineNr">33528 </span> 50/push-eax +<span id="L33529" class="LineNr">33529 </span> 51/push-ecx +<span id="L33530" class="LineNr">33530 </span> 56/push-esi +<span id="L33531" class="LineNr">33531 </span> <span class="subxComment"># esi = v</span> +<span id="L33532" class="LineNr">33532 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L33533" class="LineNr">33533 </span> <span class="subxComment"># var size/ecx: int = size-of-deref(v)</span> +<span id="L33534" class="LineNr">33534 </span> (<a href='mu.subx.html#L25068'>size-of-deref</a> %esi) <span class="subxComment"># => eax</span> +<span id="L33535" class="LineNr">33535 </span> 89/<- %ecx 0/r32/eax +<span id="L33536" class="LineNr">33536 </span> <span class="subxComment"># var reg-name/esi: (addr array byte) = lookup(v->register)</span> +<span id="L33537" class="LineNr">33537 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L33538" class="LineNr">33538 </span> 89/<- %esi 0/r32/eax +<span id="L33539" class="LineNr">33539 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> +<span id="L33540" class="LineNr">33540 </span> <span class="subxComment"># var i/eax: int = 0</span> +<span id="L33541" class="LineNr">33541 </span> b8/copy-to-eax 0/imm32 +<span id="L33542" class="LineNr">33542 </span> { +<span id="L33543" class="LineNr">33543 </span><span class="Constant">$emit-subx-call-operand-register-indirect:loop</span>: +<span id="L33544" class="LineNr">33544 </span> <span class="subxComment"># if (i >= size) break</span> +<span id="L33545" class="LineNr">33545 </span> 39/compare %eax 1/r32/ecx +<span id="L33546" class="LineNr">33546 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L33547" class="LineNr">33547 </span> <span class="subxComment"># emit " *(" v->register "+" i ")"</span> +<span id="L33548" class="LineNr">33548 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *("</span>) +<span id="L33549" class="LineNr">33549 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %esi) +<span id="L33550" class="LineNr">33550 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"+"</span>) +<span id="L33551" class="LineNr">33551 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L33552" class="LineNr">33552 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L33553" class="LineNr">33553 </span> <span class="subxComment"># i += 4</span> +<span id="L33554" class="LineNr">33554 </span> 05/add-to-eax 4/imm32 +<span id="L33555" class="LineNr">33555 </span> <span class="subxComment">#</span> +<span id="L33556" class="LineNr">33556 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L33557" class="LineNr">33557 </span> } +<span id="L33558" class="LineNr">33558 </span><span class="Constant">$emit-subx-call-operand-register-indirect:end</span>: +<span id="L33559" class="LineNr">33559 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33560" class="LineNr">33560 </span> 5e/pop-to-esi +<span id="L33561" class="LineNr">33561 </span> 59/pop-to-ecx +<span id="L33562" class="LineNr">33562 </span> 58/pop-to-eax +<span id="L33563" class="LineNr">33563 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33564" class="LineNr">33564 </span> 89/<- %esp 5/r32/ebp +<span id="L33565" class="LineNr">33565 </span> 5d/pop-to-ebp +<span id="L33566" class="LineNr">33566 </span> c3/return +<span id="L33567" class="LineNr">33567 </span> +<span id="L33568" class="LineNr">33568 </span><span class="subxFunction">emit-subx-call-operand-stack</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> +<span id="L33569" class="LineNr">33569 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33570" class="LineNr">33570 </span> 55/push-ebp +<span id="L33571" class="LineNr">33571 </span> 89/<- %ebp 4/r32/esp +<span id="L33572" class="LineNr">33572 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33573" class="LineNr">33573 </span> 50/push-eax +<span id="L33574" class="LineNr">33574 </span> 51/push-ecx +<span id="L33575" class="LineNr">33575 </span> 56/push-esi +<span id="L33576" class="LineNr">33576 </span> <span class="subxComment"># esi = v</span> +<span id="L33577" class="LineNr">33577 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L33578" class="LineNr">33578 </span> <span class="subxComment"># var curr/ecx: int = v->offset</span> +<span id="L33579" class="LineNr">33579 </span> 8b/-> *(esi+0x14) 1/r32/ecx <span class="subxComment"># Var-offset</span> +<span id="L33580" class="LineNr">33580 </span> <span class="subxComment"># var max/eax: int = v->offset + size-of(v)</span> +<span id="L33581" class="LineNr">33581 </span> (<a href='mu.subx.html#L25018'>size-of</a> %esi) <span class="subxComment"># => eax</span> +<span id="L33582" class="LineNr">33582 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> +<span id="L33583" class="LineNr">33583 </span> 01/add-to %eax 1/r32/ecx +<span id="L33584" class="LineNr">33584 </span> { +<span id="L33585" class="LineNr">33585 </span><span class="Constant">$emit-subx-call-operand-stack:loop</span>: +<span id="L33586" class="LineNr">33586 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L33587" class="LineNr">33587 </span> 39/compare %ecx 0/r32/eax +<span id="L33588" class="LineNr">33588 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L33589" class="LineNr">33589 </span> <span class="subxComment"># emit " *(ebp+" curr ")"</span> +<span id="L33590" class="LineNr">33590 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) +<span id="L33591" class="LineNr">33591 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) +<span id="L33592" class="LineNr">33592 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L33593" class="LineNr">33593 </span> <span class="subxComment"># i += 4</span> +<span id="L33594" class="LineNr">33594 </span> 81 0/subop/add %ecx 4/imm32 +<span id="L33595" class="LineNr">33595 </span> <span class="subxComment">#</span> +<span id="L33596" class="LineNr">33596 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L33597" class="LineNr">33597 </span> } +<span id="L33598" class="LineNr">33598 </span><span class="Constant">$emit-subx-call-operand-stack:end</span>: +<span id="L33599" class="LineNr">33599 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33600" class="LineNr">33600 </span> 5e/pop-to-esi +<span id="L33601" class="LineNr">33601 </span> 59/pop-to-ecx +<span id="L33602" class="LineNr">33602 </span> 58/pop-to-eax +<span id="L33603" class="LineNr">33603 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33604" class="LineNr">33604 </span> 89/<- %esp 5/r32/ebp +<span id="L33605" class="LineNr">33605 </span> 5d/pop-to-ebp +<span id="L33606" class="LineNr">33606 </span> c3/return +<span id="L33607" class="LineNr">33607 </span> +<span id="L33608" class="LineNr">33608 </span><span class="subxFunction">emit-subx-var-as-rm32</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> +<span id="L33609" class="LineNr">33609 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33610" class="LineNr">33610 </span> 55/push-ebp +<span id="L33611" class="LineNr">33611 </span> 89/<- %ebp 4/r32/esp +<span id="L33612" class="LineNr">33612 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33613" class="LineNr">33613 </span> 50/push-eax +<span id="L33614" class="LineNr">33614 </span> 51/push-ecx +<span id="L33615" class="LineNr">33615 </span> 56/push-esi +<span id="L33616" class="LineNr">33616 </span> <span class="subxComment"># ecx = s</span> +<span id="L33617" class="LineNr">33617 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L33618" class="LineNr">33618 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> +<span id="L33619" class="LineNr">33619 </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="L33620" class="LineNr">33620 </span> 89/<- %esi 0/r32/eax +<span id="L33621" class="LineNr">33621 </span> <span class="subxComment"># if (operand->register && s->is-deref?) emit "*__"</span> +<span id="L33622" class="LineNr">33622 </span> { +<span id="L33623" class="LineNr">33623 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-indirect</span>: +<span id="L33624" class="LineNr">33624 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L33625" class="LineNr">33625 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33626" class="LineNr">33626 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L33627" class="LineNr">33627 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33628" class="LineNr">33628 </span><span class="Constant">$emit-subx-var-as-rm32:register-indirect</span>: +<span id="L33629" class="LineNr">33629 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) +<span id="L33630" class="LineNr">33630 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L33631" class="LineNr">33631 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L33632" class="LineNr">33632 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 +<span id="L33633" class="LineNr">33633 </span> } +<span id="L33634" class="LineNr">33634 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> +<span id="L33635" class="LineNr">33635 </span> { +<span id="L33636" class="LineNr">33636 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-direct</span>: +<span id="L33637" class="LineNr">33637 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L33638" class="LineNr">33638 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33639" class="LineNr">33639 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L33640" class="LineNr">33640 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33641" class="LineNr">33641 </span><span class="Constant">$emit-subx-var-as-rm32:register-direct</span>: +<span id="L33642" class="LineNr">33642 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) +<span id="L33643" class="LineNr">33643 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L33644" class="LineNr">33644 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L33645" class="LineNr">33645 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 +<span id="L33646" class="LineNr">33646 </span> } +<span id="L33647" class="LineNr">33647 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> +<span id="L33648" class="LineNr">33648 </span> { +<span id="L33649" class="LineNr">33649 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L33650" class="LineNr">33650 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33651" class="LineNr">33651 </span><span class="Constant">$emit-subx-var-as-rm32:stack</span>: +<span id="L33652" class="LineNr">33652 </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="L33653" class="LineNr">33653 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) +<span id="L33654" class="LineNr">33654 </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="L33655" class="LineNr">33655 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L33656" class="LineNr">33656 </span> } +<span id="L33657" class="LineNr">33657 </span><span class="Constant">$emit-subx-var-as-rm32:end</span>: +<span id="L33658" class="LineNr">33658 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33659" class="LineNr">33659 </span> 5e/pop-to-esi +<span id="L33660" class="LineNr">33660 </span> 59/pop-to-ecx +<span id="L33661" class="LineNr">33661 </span> 58/pop-to-eax +<span id="L33662" class="LineNr">33662 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33663" class="LineNr">33663 </span> 89/<- %esp 5/r32/ebp +<span id="L33664" class="LineNr">33664 </span> 5d/pop-to-ebp +<span id="L33665" class="LineNr">33665 </span> c3/return +<span id="L33666" class="LineNr">33666 </span> +<span id="L33667" class="LineNr">33667 </span><span class="subxFunction">find-matching-primitive</span>: <span class="subxComment"># primitives: (addr primitive), stmt: (addr stmt) -> result/eax: (addr primitive)</span> +<span id="L33668" class="LineNr">33668 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33669" class="LineNr">33669 </span> 55/push-ebp +<span id="L33670" class="LineNr">33670 </span> 89/<- %ebp 4/r32/esp +<span id="L33671" class="LineNr">33671 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33672" class="LineNr">33672 </span> 51/push-ecx +<span id="L33673" class="LineNr">33673 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = primitives</span> +<span id="L33674" class="LineNr">33674 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L33675" class="LineNr">33675 </span> { +<span id="L33676" class="LineNr">33676 </span><span class="Constant">$find-matching-primitive:loop</span>: +<span id="L33677" class="LineNr">33677 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L33678" class="LineNr">33678 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L33679" class="LineNr">33679 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33680" class="LineNr">33680 </span> <span class="subxComment"># if match(curr, stmt) return curr</span> +<span id="L33681" class="LineNr">33681 </span> { +<span id="L33682" class="LineNr">33682 </span> (<a href='mu.subx.html#L33705'>mu-stmt-matches-primitive?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> +<span id="L33683" class="LineNr">33683 </span> 3d/compare-eax-and 0/imm32/false +<span id="L33684" class="LineNr">33684 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33685" class="LineNr">33685 </span> 89/<- %eax 1/r32/ecx +<span id="L33686" class="LineNr">33686 </span> eb/jump $find-matching-primitive:end/disp8 +<span id="L33687" class="LineNr">33687 </span> } +<span id="L33688" class="LineNr">33688 </span><span class="Constant">$find-matching-primitive:next-primitive</span>: +<span id="L33689" class="LineNr">33689 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L33690" class="LineNr">33690 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> +<span id="L33691" class="LineNr">33691 </span> 89/<- %ecx 0/r32/eax +<span id="L33692" class="LineNr">33692 </span> <span class="subxComment">#</span> +<span id="L33693" class="LineNr">33693 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L33694" class="LineNr">33694 </span> } +<span id="L33695" class="LineNr">33695 </span> <span class="subxComment"># return null</span> +<span id="L33696" class="LineNr">33696 </span> b8/copy-to-eax 0/imm32 +<span id="L33697" class="LineNr">33697 </span><span class="Constant">$find-matching-primitive:end</span>: +<span id="L33698" class="LineNr">33698 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33699" class="LineNr">33699 </span> 59/pop-to-ecx +<span id="L33700" class="LineNr">33700 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33701" class="LineNr">33701 </span> 89/<- %esp 5/r32/ebp +<span id="L33702" class="LineNr">33702 </span> 5d/pop-to-ebp +<span id="L33703" class="LineNr">33703 </span> c3/return +<span id="L33704" class="LineNr">33704 </span> +<span id="L33705" class="LineNr">33705 </span><span class="subxFunction">mu-stmt-matches-primitive?</span>: <span class="subxComment"># stmt: (addr stmt), primitive: (addr primitive) -> result/eax: boolean</span> +<span id="L33706" class="LineNr">33706 </span> <span class="subxComment"># A mu stmt matches a primitive if the name matches, all the inout vars</span> +<span id="L33707" class="LineNr">33707 </span> <span class="subxComment"># match, and all the output vars match.</span> +<span id="L33708" class="LineNr">33708 </span> <span class="subxComment"># Vars match if types match and registers match.</span> +<span id="L33709" class="LineNr">33709 </span> <span class="subxComment"># In addition, a stmt output matches a primitive's output if types match</span> +<span id="L33710" class="LineNr">33710 </span> <span class="subxComment"># and the primitive has a wildcard register.</span> +<span id="L33711" class="LineNr">33711 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33712" class="LineNr">33712 </span> 55/push-ebp +<span id="L33713" class="LineNr">33713 </span> 89/<- %ebp 4/r32/esp +<span id="L33714" class="LineNr">33714 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33715" class="LineNr">33715 </span> 51/push-ecx +<span id="L33716" class="LineNr">33716 </span> 52/push-edx +<span id="L33717" class="LineNr">33717 </span> 53/push-ebx +<span id="L33718" class="LineNr">33718 </span> 56/push-esi +<span id="L33719" class="LineNr">33719 </span> 57/push-edi +<span id="L33720" class="LineNr">33720 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L33721" class="LineNr">33721 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L33722" class="LineNr">33722 </span> <span class="subxComment"># edx = primitive</span> +<span id="L33723" class="LineNr">33723 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L33724" class="LineNr">33724 </span> { +<span id="L33725" class="LineNr">33725 </span><span class="Constant">$mu-stmt-matches-primitive?:check-name</span>: +<span id="L33726" class="LineNr">33726 </span> <span class="subxComment"># if (primitive->name != stmt->operation) return false</span> +<span id="L33727" class="LineNr">33727 </span> <span class="subxS1Comment"># . var esi: (addr array byte) = lookup(stmt->operation)</span> +<span id="L33728" class="LineNr">33728 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L33729" class="LineNr">33729 </span> 89/<- %esi 0/r32/eax +<span id="L33730" class="LineNr">33730 </span> <span class="subxS1Comment"># . var edi: (addr array byte) = lookup(primitive->name)</span> +<span id="L33731" class="LineNr">33731 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> +<span id="L33732" class="LineNr">33732 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L33733" class="LineNr">33733 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L33734" class="LineNr">33734 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L33735" class="LineNr">33735 </span> 89/<- %edi 0/r32/eax +<span id="L33736" class="LineNr">33736 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> +<span id="L33737" class="LineNr">33737 </span> 3d/compare-eax-and 0/imm32/false +<span id="L33738" class="LineNr">33738 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33739" class="LineNr">33739 </span> b8/copy-to-eax 0/imm32 +<span id="L33740" class="LineNr">33740 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L33741" class="LineNr">33741 </span> } +<span id="L33742" class="LineNr">33742 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L33743" class="LineNr">33743 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L33744" class="LineNr">33744 </span> 89/<- %esi 0/r32/eax +<span id="L33745" class="LineNr">33745 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->inouts)</span> +<span id="L33746" class="LineNr">33746 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Primitive-inouts Primitive-inouts => eax</span> +<span id="L33747" class="LineNr">33747 </span> 89/<- %edi 0/r32/eax +<span id="L33748" class="LineNr">33748 </span> { +<span id="L33749" class="LineNr">33749 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-loop</span>: +<span id="L33750" class="LineNr">33750 </span> <span class="subxComment"># if (curr == 0 && curr2 == 0) move on to check outputs</span> +<span id="L33751" class="LineNr">33751 </span> { +<span id="L33752" class="LineNr">33752 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-inouts-null</span>: +<span id="L33753" class="LineNr">33753 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L33754" class="LineNr">33754 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33755" class="LineNr">33755 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null</span>: +<span id="L33756" class="LineNr">33756 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L33757" class="LineNr">33757 </span> 0f 84/jump-if-= $mu-stmt-matches-primitive?:check-outputs/disp32 +<span id="L33758" class="LineNr">33758 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null-and-prim-inout-not-null</span>: +<span id="L33759" class="LineNr">33759 </span> <span class="subxComment"># return false</span> +<span id="L33760" class="LineNr">33760 </span> b8/copy-to-eax 0/imm32/false +<span id="L33761" class="LineNr">33761 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L33762" class="LineNr">33762 </span> } +<span id="L33763" class="LineNr">33763 </span> <span class="subxComment"># if (curr2 == 0) return false</span> +<span id="L33764" class="LineNr">33764 </span> { +<span id="L33765" class="LineNr">33765 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-inout-null</span>: +<span id="L33766" class="LineNr">33766 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L33767" class="LineNr">33767 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33768" class="LineNr">33768 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-inout-null</span>: +<span id="L33769" class="LineNr">33769 </span> b8/copy-to-eax 0/imm32/false +<span id="L33770" class="LineNr">33770 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L33771" class="LineNr">33771 </span> } +<span id="L33772" class="LineNr">33772 </span> <span class="subxComment"># if (curr != curr2) return false</span> +<span id="L33773" class="LineNr">33773 </span> { +<span id="L33774" class="LineNr">33774 </span><span class="Constant">$mu-stmt-matches-primitive?:check-inouts-match</span>: +<span id="L33775" class="LineNr">33775 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L33776" class="LineNr">33776 </span> (<a href='mu.subx.html#L33865'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L33777" class="LineNr">33777 </span> 3d/compare-eax-and 0/imm32/false +<span id="L33778" class="LineNr">33778 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33779" class="LineNr">33779 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-match</span>: +<span id="L33780" class="LineNr">33780 </span> b8/copy-to-eax 0/imm32/false +<span id="L33781" class="LineNr">33781 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L33782" class="LineNr">33782 </span> } +<span id="L33783" class="LineNr">33783 </span><span class="Constant">$mu-stmt-matches-primitive?:next-inout</span>: +<span id="L33784" class="LineNr">33784 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L33785" class="LineNr">33785 </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="L33786" class="LineNr">33786 </span> 89/<- %esi 0/r32/eax +<span id="L33787" class="LineNr">33787 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> +<span id="L33788" class="LineNr">33788 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L33789" class="LineNr">33789 </span> 89/<- %edi 0/r32/eax +<span id="L33790" class="LineNr">33790 </span> <span class="subxComment">#</span> +<span id="L33791" class="LineNr">33791 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L33792" class="LineNr">33792 </span> } +<span id="L33793" class="LineNr">33793 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs</span>: +<span id="L33794" class="LineNr">33794 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->outputs)</span> +<span id="L33795" class="LineNr">33795 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L33796" class="LineNr">33796 </span> 89/<- %esi 0/r32/eax +<span id="L33797" class="LineNr">33797 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->outputs)</span> +<span id="L33798" class="LineNr">33798 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x10) *(edx+0x14)) <span class="subxComment"># Primitive-outputs Primitive-outputs => eax</span> +<span id="L33799" class="LineNr">33799 </span> 89/<- %edi 0/r32/eax +<span id="L33800" class="LineNr">33800 </span> { +<span id="L33801" class="LineNr">33801 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-loop</span>: +<span id="L33802" class="LineNr">33802 </span> <span class="subxComment"># if (curr == 0) return (curr2 == 0)</span> +<span id="L33803" class="LineNr">33803 </span> { +<span id="L33804" class="LineNr">33804 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-outputs-null</span>: +<span id="L33805" class="LineNr">33805 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L33806" class="LineNr">33806 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33807" class="LineNr">33807 </span> { +<span id="L33808" class="LineNr">33808 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null</span>: +<span id="L33809" class="LineNr">33809 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L33810" class="LineNr">33810 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33811" class="LineNr">33811 </span><span class="Constant">$mu-stmt-matches-primitive?:both-outputs-null</span>: +<span id="L33812" class="LineNr">33812 </span> <span class="subxComment"># return true</span> +<span id="L33813" class="LineNr">33813 </span> b8/copy-to-eax 1/imm32 +<span id="L33814" class="LineNr">33814 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L33815" class="LineNr">33815 </span> } +<span id="L33816" class="LineNr">33816 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null-and-prim-output-not-null</span>: +<span id="L33817" class="LineNr">33817 </span> <span class="subxComment"># return false</span> +<span id="L33818" class="LineNr">33818 </span> b8/copy-to-eax 0/imm32 +<span id="L33819" class="LineNr">33819 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L33820" class="LineNr">33820 </span> } +<span id="L33821" class="LineNr">33821 </span> <span class="subxComment"># if (curr2 == 0) return false</span> +<span id="L33822" class="LineNr">33822 </span> { +<span id="L33823" class="LineNr">33823 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-output-null</span>: +<span id="L33824" class="LineNr">33824 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L33825" class="LineNr">33825 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33826" class="LineNr">33826 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-output-is-null</span>: +<span id="L33827" class="LineNr">33827 </span> b8/copy-to-eax 0/imm32 +<span id="L33828" class="LineNr">33828 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L33829" class="LineNr">33829 </span> } +<span id="L33830" class="LineNr">33830 </span> <span class="subxComment"># if (curr != curr2) return false</span> +<span id="L33831" class="LineNr">33831 </span> { +<span id="L33832" class="LineNr">33832 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs-match</span>: +<span id="L33833" class="LineNr">33833 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L33834" class="LineNr">33834 </span> (<a href='mu.subx.html#L33865'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L33835" class="LineNr">33835 </span> 3d/compare-eax-and 0/imm32/false +<span id="L33836" class="LineNr">33836 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33837" class="LineNr">33837 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-match</span>: +<span id="L33838" class="LineNr">33838 </span> b8/copy-to-eax 0/imm32 +<span id="L33839" class="LineNr">33839 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L33840" class="LineNr">33840 </span> } +<span id="L33841" class="LineNr">33841 </span><span class="Constant">$mu-stmt-matches-primitive?:next-output</span>: +<span id="L33842" class="LineNr">33842 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L33843" class="LineNr">33843 </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="L33844" class="LineNr">33844 </span> 89/<- %esi 0/r32/eax +<span id="L33845" class="LineNr">33845 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> +<span id="L33846" class="LineNr">33846 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L33847" class="LineNr">33847 </span> 89/<- %edi 0/r32/eax +<span id="L33848" class="LineNr">33848 </span> <span class="subxComment">#</span> +<span id="L33849" class="LineNr">33849 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L33850" class="LineNr">33850 </span> } +<span id="L33851" class="LineNr">33851 </span><span class="Constant">$mu-stmt-matches-primitive?:return-true</span>: +<span id="L33852" class="LineNr">33852 </span> b8/copy-to-eax 1/imm32 +<span id="L33853" class="LineNr">33853 </span><span class="Constant">$mu-stmt-matches-primitive?:end</span>: +<span id="L33854" class="LineNr">33854 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33855" class="LineNr">33855 </span> 5f/pop-to-edi +<span id="L33856" class="LineNr">33856 </span> 5e/pop-to-esi +<span id="L33857" class="LineNr">33857 </span> 5b/pop-to-ebx +<span id="L33858" class="LineNr">33858 </span> 5a/pop-to-edx +<span id="L33859" class="LineNr">33859 </span> 59/pop-to-ecx +<span id="L33860" class="LineNr">33860 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33861" class="LineNr">33861 </span> 89/<- %esp 5/r32/ebp +<span id="L33862" class="LineNr">33862 </span> 5d/pop-to-ebp +<span id="L33863" class="LineNr">33863 </span> c3/return +<span id="L33864" class="LineNr">33864 </span> +<span id="L33865" class="LineNr">33865 </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="L33866" class="LineNr">33866 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33867" class="LineNr">33867 </span> 55/push-ebp +<span id="L33868" class="LineNr">33868 </span> 89/<- %ebp 4/r32/esp +<span id="L33869" class="LineNr">33869 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33870" class="LineNr">33870 </span> 51/push-ecx +<span id="L33871" class="LineNr">33871 </span> 52/push-edx +<span id="L33872" class="LineNr">33872 </span> 53/push-ebx +<span id="L33873" class="LineNr">33873 </span> 56/push-esi +<span id="L33874" class="LineNr">33874 </span> 57/push-edi +<span id="L33875" class="LineNr">33875 </span> <span class="subxComment"># ecx = s</span> +<span id="L33876" class="LineNr">33876 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L33877" class="LineNr">33877 </span> <span class="subxComment"># var var/esi: (addr var) = lookup(s->value)</span> +<span id="L33878" class="LineNr">33878 </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="L33879" class="LineNr">33879 </span> 89/<- %esi 0/r32/eax +<span id="L33880" class="LineNr">33880 </span> <span class="subxComment"># edi = prim-var</span> +<span id="L33881" class="LineNr">33881 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L33882" class="LineNr">33882 </span><span class="Constant">$operand-matches-primitive?:check-type</span>: +<span id="L33883" class="LineNr">33883 </span> <span class="subxComment"># if !category-match?(var->type, prim-var->type) return false</span> +<span id="L33884" class="LineNr">33884 </span> <span class="subxS1Comment"># . var vtype/ebx: (addr type-tree) = lookup(var->type)</span> +<span id="L33885" class="LineNr">33885 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L33886" class="LineNr">33886 </span> 89/<- %ebx 0/r32/eax +<span id="L33887" class="LineNr">33887 </span> <span class="subxS1Comment"># . if s is deref, vtype = vtype->right</span> +<span id="L33888" class="LineNr">33888 </span> { +<span id="L33889" class="LineNr">33889 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L33890" class="LineNr">33890 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33891" class="LineNr">33891 </span><span class="Constant">$operand-matches-primitive?:is-deref</span>: +<span id="L33892" class="LineNr">33892 </span> <span class="subxS1Comment"># . var t/eax: (addr type)</span> +<span id="L33893" class="LineNr">33893 </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="L33894" class="LineNr">33894 </span> <span class="subxS1Comment"># . if !t->is-atom? t = t->left</span> +<span id="L33895" class="LineNr">33895 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L33896" class="LineNr">33896 </span> { +<span id="L33897" class="LineNr">33897 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33898" class="LineNr">33898 </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="L33899" class="LineNr">33899 </span> } +<span id="L33900" class="LineNr">33900 </span> <span class="subxS1Comment"># .</span> +<span id="L33901" class="LineNr">33901 </span> 89/<- %ebx 0/r32/eax +<span id="L33902" class="LineNr">33902 </span> } +<span id="L33903" class="LineNr">33903 </span> <span class="subxS1Comment"># . var ptype/eax: (addr type-tree) = lookup(prim-var->type)</span> +<span id="L33904" class="LineNr">33904 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L33905" class="LineNr">33905 </span> (<a href='mu.subx.html#L34042'>subx-type-category-match?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L33906" class="LineNr">33906 </span> 3d/compare-eax-and 0/imm32/false +<span id="L33907" class="LineNr">33907 </span> 0f 84/jump-if-= $operand-matches-primitive?:return-false/disp32 +<span id="L33908" class="LineNr">33908 </span> { +<span id="L33909" class="LineNr">33909 </span><span class="Constant">$operand-matches-primitive?:check-register</span>: +<span id="L33910" class="LineNr">33910 </span> <span class="subxComment"># if prim-var is in memory and var is in register but dereference, match</span> +<span id="L33911" class="LineNr">33911 </span> { +<span id="L33912" class="LineNr">33912 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L33913" class="LineNr">33913 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L33914" class="LineNr">33914 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L33915" class="LineNr">33915 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33916" class="LineNr">33916 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L33917" class="LineNr">33917 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33918" class="LineNr">33918 </span><span class="Constant">$operand-matches-primitive?:var-deref-match</span>: +<span id="L33919" class="LineNr">33919 </span> e9/jump $operand-matches-primitive?:return-true/disp32 +<span id="L33920" class="LineNr">33920 </span> } +<span id="L33921" class="LineNr">33921 </span> <span class="subxComment"># if prim-var is in register and var is in register but dereference, no match</span> +<span id="L33922" class="LineNr">33922 </span> { +<span id="L33923" class="LineNr">33923 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L33924" class="LineNr">33924 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L33925" class="LineNr">33925 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L33926" class="LineNr">33926 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L33927" class="LineNr">33927 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L33928" class="LineNr">33928 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33929" class="LineNr">33929 </span><span class="Constant">$operand-matches-primitive?:var-deref-no-match</span>: +<span id="L33930" class="LineNr">33930 </span> e9/jump $operand-matches-primitive?:return-false/disp32 +<span id="L33931" class="LineNr">33931 </span> } +<span id="L33932" class="LineNr">33932 </span> <span class="subxComment"># return false if var->register doesn't match prim-var->register</span> +<span id="L33933" class="LineNr">33933 </span> { +<span id="L33934" class="LineNr">33934 </span> <span class="subxComment"># if register addresses are equal, it's a match</span> +<span id="L33935" class="LineNr">33935 </span> <span class="subxComment"># var vreg/ebx: (addr array byte) = lookup(var->register)</span> +<span id="L33936" class="LineNr">33936 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L33937" class="LineNr">33937 </span> 89/<- %ebx 0/r32/eax +<span id="L33938" class="LineNr">33938 </span> <span class="subxComment"># var preg/ecx: (addr array byte) = lookup(prim-var->register)</span> +<span id="L33939" class="LineNr">33939 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L33940" class="LineNr">33940 </span> 89/<- %ecx 0/r32/eax +<span id="L33941" class="LineNr">33941 </span> <span class="subxComment"># if (vreg == preg) break</span> +<span id="L33942" class="LineNr">33942 </span> 39/compare %ecx 3/r32/ebx +<span id="L33943" class="LineNr">33943 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33944" class="LineNr">33944 </span><span class="Constant">$operand-matches-primitive?:var-register-no-match</span>: +<span id="L33945" class="LineNr">33945 </span> <span class="subxComment"># if either address is 0, return false</span> +<span id="L33946" class="LineNr">33946 </span> 81 7/subop/compare %ebx 0/imm32 +<span id="L33947" class="LineNr">33947 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L33948" class="LineNr">33948 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L33949" class="LineNr">33949 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L33950" class="LineNr">33950 </span> <span class="subxComment"># if prim-var->register is wildcard, it's a match</span> +<span id="L33951" class="LineNr">33951 </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="L33952" class="LineNr">33952 </span> 3d/compare-eax-and 0/imm32/false +<span id="L33953" class="LineNr">33953 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L33954" class="LineNr">33954 </span><span class="Constant">$operand-matches-primitive?:wildcard-no-match</span>: +<span id="L33955" class="LineNr">33955 </span> <span class="subxComment"># if string contents aren't equal, return false</span> +<span id="L33956" class="LineNr">33956 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> +<span id="L33957" class="LineNr">33957 </span> 3d/compare-eax-and 0/imm32/false +<span id="L33958" class="LineNr">33958 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L33959" class="LineNr">33959 </span> } +<span id="L33960" class="LineNr">33960 </span> } +<span id="L33961" class="LineNr">33961 </span><span class="Constant">$operand-matches-primitive?:return-true</span>: +<span id="L33962" class="LineNr">33962 </span> b8/copy-to-eax 1/imm32/true +<span id="L33963" class="LineNr">33963 </span> eb/jump $operand-matches-primitive?:end/disp8 +<span id="L33964" class="LineNr">33964 </span><span class="Constant">$operand-matches-primitive?:return-false</span>: +<span id="L33965" class="LineNr">33965 </span> b8/copy-to-eax 0/imm32/false +<span id="L33966" class="LineNr">33966 </span><span class="Constant">$operand-matches-primitive?:end</span>: +<span id="L33967" class="LineNr">33967 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L33968" class="LineNr">33968 </span> 5f/pop-to-edi +<span id="L33969" class="LineNr">33969 </span> 5e/pop-to-esi +<span id="L33970" class="LineNr">33970 </span> 5b/pop-to-ebx +<span id="L33971" class="LineNr">33971 </span> 5a/pop-to-edx +<span id="L33972" class="LineNr">33972 </span> 59/pop-to-ecx +<span id="L33973" class="LineNr">33973 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L33974" class="LineNr">33974 </span> 89/<- %esp 5/r32/ebp +<span id="L33975" class="LineNr">33975 </span> 5d/pop-to-ebp +<span id="L33976" class="LineNr">33976 </span> c3/return +<span id="L33977" class="LineNr">33977 </span> +<span id="L33978" class="LineNr">33978 </span><span class="subxFunction">find-matching-function</span>: <span class="subxComment"># functions: (addr function), stmt: (addr stmt) -> result/eax: (addr function)</span> +<span id="L33979" class="LineNr">33979 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L33980" class="LineNr">33980 </span> 55/push-ebp +<span id="L33981" class="LineNr">33981 </span> 89/<- %ebp 4/r32/esp +<span id="L33982" class="LineNr">33982 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L33983" class="LineNr">33983 </span> 51/push-ecx +<span id="L33984" class="LineNr">33984 </span> <span class="subxComment"># var curr/ecx: (handle function) = functions</span> +<span id="L33985" class="LineNr">33985 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L33986" class="LineNr">33986 </span> { +<span id="L33987" class="LineNr">33987 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L33988" class="LineNr">33988 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L33989" class="LineNr">33989 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33990" class="LineNr">33990 </span><span class="CommentedCode">#? (write-buffered Stderr "iter\n")</span> +<span id="L33991" class="LineNr">33991 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L33992" class="LineNr">33992 </span> <span class="subxComment"># if match(stmt, curr) return curr</span> +<span id="L33993" class="LineNr">33993 </span> { +<span id="L33994" class="LineNr">33994 </span> (<a href='mu.subx.html#L34017'>mu-stmt-matches-function?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> +<span id="L33995" class="LineNr">33995 </span> 3d/compare-eax-and 0/imm32/false +<span id="L33996" class="LineNr">33996 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L33997" class="LineNr">33997 </span> 89/<- %eax 1/r32/ecx +<span id="L33998" class="LineNr">33998 </span> eb/jump $find-matching-function:end/disp8 +<span id="L33999" class="LineNr">33999 </span> } +<span id="L34000" class="LineNr">34000 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L34001" class="LineNr">34001 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L34002" class="LineNr">34002 </span> 89/<- %ecx 0/r32/eax +<span id="L34003" class="LineNr">34003 </span> <span class="subxComment">#</span> +<span id="L34004" class="LineNr">34004 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L34005" class="LineNr">34005 </span> } +<span id="L34006" class="LineNr">34006 </span> <span class="subxComment"># return null</span> +<span id="L34007" class="LineNr">34007 </span> b8/copy-to-eax 0/imm32 +<span id="L34008" class="LineNr">34008 </span><span class="Constant">$find-matching-function:end</span>: +<span id="L34009" class="LineNr">34009 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L34010" class="LineNr">34010 </span> 59/pop-to-ecx <span id="L34011" class="LineNr">34011 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L34012" class="LineNr">34012 </span> 89/<- %esp 5/r32/ebp <span id="L34013" class="LineNr">34013 </span> 5d/pop-to-ebp <span id="L34014" class="LineNr">34014 </span> c3/return <span id="L34015" class="LineNr">34015 </span> -<span id="L34016" class="LineNr">34016 </span><span class="subxTest">test-emit-subx-stmt-select-primitive-2</span>: -<span id="L34017" class="LineNr">34017 </span> <span class="subxComment"># Select the right primitive between overloads.</span> -<span id="L34018" class="LineNr">34018 </span> <span class="subxComment"># increment foo</span> -<span id="L34019" class="LineNr">34019 </span> <span class="subxComment"># =></span> -<span id="L34020" class="LineNr">34020 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L34021" class="LineNr">34021 </span> <span class="subxComment">#</span> -<span id="L34022" class="LineNr">34022 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L34023" class="LineNr">34023 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L34024" class="LineNr">34024 </span> <span class="subxComment"># type: int</span> -<span id="L34025" class="LineNr">34025 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L34026" class="LineNr">34026 </span> <span class="subxComment">#</span> -<span id="L34027" class="LineNr">34027 </span> <span class="subxComment"># There's two primitives, as follows:</span> -<span id="L34028" class="LineNr">34028 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L34029" class="LineNr">34029 </span> <span class="subxComment"># out: int/reg</span> -<span id="L34030" class="LineNr">34030 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L34031" class="LineNr">34031 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L34032" class="LineNr">34032 </span> <span class="subxComment"># inout: int/mem</span> -<span id="L34033" class="LineNr">34033 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L34034" class="LineNr">34034 </span> <span class="subxComment">#</span> -<span id="L34035" class="LineNr">34035 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34036" class="LineNr">34036 </span> 55/push-ebp -<span id="L34037" class="LineNr">34037 </span> 89/<- %ebp 4/r32/esp -<span id="L34038" class="LineNr">34038 </span> <span class="subxComment"># setup</span> -<span id="L34039" class="LineNr">34039 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L34040" class="LineNr">34040 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L34041" class="LineNr">34041 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-type</span>: -<span id="L34042" class="LineNr">34042 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L34043" class="LineNr">34043 </span> 68/push 0/imm32/right:null -<span id="L34044" class="LineNr">34044 </span> 68/push 0/imm32/right:null -<span id="L34045" class="LineNr">34045 </span> 68/push 0/imm32/left:unused -<span id="L34046" class="LineNr">34046 </span> 68/push 1/imm32/value:int -<span id="L34047" class="LineNr">34047 </span> 68/push 1/imm32/is-atom?:true -<span id="L34048" class="LineNr">34048 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34049" class="LineNr">34049 </span> 89/<- %ecx 4/r32/esp -<span id="L34050" class="LineNr">34050 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var</span>: -<span id="L34051" class="LineNr">34051 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L34052" class="LineNr">34052 </span> 68/push 0/imm32/register -<span id="L34053" class="LineNr">34053 </span> 68/push 0/imm32/register -<span id="L34054" class="LineNr">34054 </span> 68/push 0/imm32/no-stack-offset -<span id="L34055" class="LineNr">34055 </span> 68/push 1/imm32/block-depth -<span id="L34056" class="LineNr">34056 </span> 51/push-ecx -<span id="L34057" class="LineNr">34057 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34058" class="LineNr">34058 </span> 68/push 0/imm32/name -<span id="L34059" class="LineNr">34059 </span> 68/push 0/imm32/name -<span id="L34060" class="LineNr">34060 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34061" class="LineNr">34061 </span> 89/<- %ecx 4/r32/esp -<span id="L34062" class="LineNr">34062 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-name</span>: -<span id="L34063" class="LineNr">34063 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L34064" class="LineNr">34064 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34065" class="LineNr">34065 </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="L34066" class="LineNr">34066 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-register</span>: -<span id="L34067" class="LineNr">34067 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L34068" class="LineNr">34068 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L34069" class="LineNr">34069 </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="L34070" class="LineNr">34070 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-var</span>: -<span id="L34071" class="LineNr">34071 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L34072" class="LineNr">34072 </span> 68/push 0/imm32/is-deref:false -<span id="L34073" class="LineNr">34073 </span> 68/push 0/imm32/next -<span id="L34074" class="LineNr">34074 </span> 68/push 0/imm32/next -<span id="L34075" class="LineNr">34075 </span> 51/push-ecx/var-foo -<span id="L34076" class="LineNr">34076 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34077" class="LineNr">34077 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34078" class="LineNr">34078 </span> 89/<- %ebx 4/r32/esp -<span id="L34079" class="LineNr">34079 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt</span>: -<span id="L34080" class="LineNr">34080 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L34081" class="LineNr">34081 </span> 68/push 0/imm32/no-outputs -<span id="L34082" class="LineNr">34082 </span> 68/push 0/imm32/no-outputs -<span id="L34083" class="LineNr">34083 </span> 53/push-ebx/inouts -<span id="L34084" class="LineNr">34084 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34085" class="LineNr">34085 </span> 68/push 0/imm32/operation -<span id="L34086" class="LineNr">34086 </span> 68/push 0/imm32/operation -<span id="L34087" class="LineNr">34087 </span> 68/push 1/imm32 -<span id="L34088" class="LineNr">34088 </span> 89/<- %esi 4/r32/esp -<span id="L34089" class="LineNr">34089 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-operation</span>: -<span id="L34090" class="LineNr">34090 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L34091" class="LineNr">34091 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L34092" class="LineNr">34092 </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="L34093" class="LineNr">34093 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var</span>: -<span id="L34094" class="LineNr">34094 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L34095" class="LineNr">34095 </span> 68/push 0/imm32/register -<span id="L34096" class="LineNr">34096 </span> 68/push 0/imm32/register -<span id="L34097" class="LineNr">34097 </span> 68/push 0/imm32/no-stack-offset -<span id="L34098" class="LineNr">34098 </span> 68/push 1/imm32/block-depth -<span id="L34099" class="LineNr">34099 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L34100" class="LineNr">34100 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34101" class="LineNr">34101 </span> 68/push 0/imm32/name -<span id="L34102" class="LineNr">34102 </span> 68/push 0/imm32/name -<span id="L34103" class="LineNr">34103 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34104" class="LineNr">34104 </span> 89/<- %ebx 4/r32/esp -<span id="L34105" class="LineNr">34105 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var-name</span>: -<span id="L34106" class="LineNr">34106 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L34107" class="LineNr">34107 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34108" class="LineNr">34108 </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="L34109" class="LineNr">34109 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-register</span>: -<span id="L34110" class="LineNr">34110 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L34111" class="LineNr">34111 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L34112" class="LineNr">34112 </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="L34113" class="LineNr">34113 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-list</span>: -<span id="L34114" class="LineNr">34114 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list stmt-var)</span> -<span id="L34115" class="LineNr">34115 </span> 68/push 0/imm32/next -<span id="L34116" class="LineNr">34116 </span> 68/push 0/imm32/next -<span id="L34117" class="LineNr">34117 </span> 53/push-ebx/formal-var -<span id="L34118" class="LineNr">34118 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34119" class="LineNr">34119 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34120" class="LineNr">34120 </span> 89/<- %ebx 4/r32/esp -<span id="L34121" class="LineNr">34121 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2</span>: -<span id="L34122" class="LineNr">34122 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> -<span id="L34123" class="LineNr">34123 </span> 68/push 0/imm32/next -<span id="L34124" class="LineNr">34124 </span> 68/push 0/imm32/next -<span id="L34125" class="LineNr">34125 </span> 68/push 0/imm32/no-x32 -<span id="L34126" class="LineNr">34126 </span> 68/push 0/imm32/no-xm32 -<span id="L34127" class="LineNr">34127 </span> 68/push 0/imm32/no-disp32 -<span id="L34128" class="LineNr">34128 </span> 68/push 0/imm32/no-imm8 -<span id="L34129" class="LineNr">34129 </span> 68/push 0/imm32/no-imm32 -<span id="L34130" class="LineNr">34130 </span> 68/push 0/imm32/no-r32 -<span id="L34131" class="LineNr">34131 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L34132" class="LineNr">34132 </span> 68/push 0/imm32/subx-name -<span id="L34133" class="LineNr">34133 </span> 68/push 0/imm32/subx-name -<span id="L34134" class="LineNr">34134 </span> 53/push-ebx/outputs -<span id="L34135" class="LineNr">34135 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34136" class="LineNr">34136 </span> 68/push 0/imm32/no-inouts -<span id="L34137" class="LineNr">34137 </span> 68/push 0/imm32/no-inouts -<span id="L34138" class="LineNr">34138 </span> 68/push 0/imm32/name -<span id="L34139" class="LineNr">34139 </span> 68/push 0/imm32/name -<span id="L34140" class="LineNr">34140 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34141" class="LineNr">34141 </span> 89/<- %edi 4/r32/esp -<span id="L34142" class="LineNr">34142 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-name</span>: -<span id="L34143" class="LineNr">34143 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L34144" class="LineNr">34144 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> -<span id="L34145" class="LineNr">34145 </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="L34146" class="LineNr">34146 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-subx-name</span>: -<span id="L34147" class="LineNr">34147 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L34148" class="LineNr">34148 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> -<span id="L34149" class="LineNr">34149 </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="L34150" class="LineNr">34150 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive</span>: -<span id="L34151" class="LineNr">34151 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L34152" class="LineNr">34152 </span> 57/push-edi -<span id="L34153" class="LineNr">34153 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34154" class="LineNr">34154 </span> 68/push 0/imm32/no-x32 -<span id="L34155" class="LineNr">34155 </span> 68/push 0/imm32/no-xm32 -<span id="L34156" class="LineNr">34156 </span> 68/push 0/imm32/no-disp32 -<span id="L34157" class="LineNr">34157 </span> 68/push 0/imm32/no-imm8 -<span id="L34158" class="LineNr">34158 </span> 68/push 0/imm32/no-imm32 -<span id="L34159" class="LineNr">34159 </span> 68/push 0/imm32/no-r32 -<span id="L34160" class="LineNr">34160 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L34161" class="LineNr">34161 </span> 68/push 0/imm32/subx-name -<span id="L34162" class="LineNr">34162 </span> 68/push 0/imm32/subx-name -<span id="L34163" class="LineNr">34163 </span> 68/push 0/imm32/no-outputs -<span id="L34164" class="LineNr">34164 </span> 68/push 0/imm32/no-outputs -<span id="L34165" class="LineNr">34165 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<span id="L34166" class="LineNr">34166 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34167" class="LineNr">34167 </span> 68/push 0/imm32/name -<span id="L34168" class="LineNr">34168 </span> 68/push 0/imm32/name -<span id="L34169" class="LineNr">34169 </span> 89/<- %ebx 4/r32/esp -<span id="L34170" class="LineNr">34170 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-name</span>: -<span id="L34171" class="LineNr">34171 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L34172" class="LineNr">34172 </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="L34173" class="LineNr">34173 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-subx-name</span>: -<span id="L34174" class="LineNr">34174 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L34175" class="LineNr">34175 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L34176" class="LineNr">34176 </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="L34177" class="LineNr">34177 </span> <span class="subxComment"># convert</span> -<span id="L34178" class="LineNr">34178 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L34179" class="LineNr">34179 </span> (<a href='mu.subx.html#L26390'>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="L34180" class="LineNr">34180 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L34181" class="Folded">34181 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L34187" class="LineNr">34187 </span> <span class="subxComment"># check output</span> -<span id="L34188" class="LineNr">34188 </span> (<a href='../109stream-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="L34189" class="LineNr">34189 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34190" class="LineNr">34190 </span> 89/<- %esp 5/r32/ebp -<span id="L34191" class="LineNr">34191 </span> 5d/pop-to-ebp -<span id="L34192" class="LineNr">34192 </span> c3/return -<span id="L34193" class="LineNr">34193 </span> -<span id="L34194" class="LineNr">34194 </span><span class="subxTest">test-increment-register</span>: -<span id="L34195" class="LineNr">34195 </span> <span class="subxComment"># Select the right register between overloads.</span> -<span id="L34196" class="LineNr">34196 </span> <span class="subxComment"># foo <- increment</span> -<span id="L34197" class="LineNr">34197 </span> <span class="subxComment"># =></span> -<span id="L34198" class="LineNr">34198 </span> <span class="subxComment"># 50/increment-eax</span> -<span id="L34199" class="LineNr">34199 </span> <span class="subxComment">#</span> -<span id="L34200" class="LineNr">34200 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L34201" class="LineNr">34201 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L34202" class="LineNr">34202 </span> <span class="subxComment"># type: int</span> -<span id="L34203" class="LineNr">34203 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L34204" class="LineNr">34204 </span> <span class="subxComment">#</span> -<span id="L34205" class="LineNr">34205 </span> <span class="subxComment"># Primitives are the global definitions.</span> -<span id="L34206" class="LineNr">34206 </span> <span class="subxComment">#</span> -<span id="L34207" class="LineNr">34207 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34208" class="LineNr">34208 </span> 55/push-ebp -<span id="L34209" class="LineNr">34209 </span> 89/<- %ebp 4/r32/esp -<span id="L34210" class="LineNr">34210 </span> <span class="subxComment"># setup</span> -<span id="L34211" class="LineNr">34211 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L34212" class="LineNr">34212 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L34213" class="LineNr">34213 </span><span class="Constant">$test-increment-register:initialize-type</span>: -<span id="L34214" class="LineNr">34214 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L34215" class="LineNr">34215 </span> 68/push 0/imm32/right:null -<span id="L34216" class="LineNr">34216 </span> 68/push 0/imm32/right:null -<span id="L34217" class="LineNr">34217 </span> 68/push 0/imm32/left:unused -<span id="L34218" class="LineNr">34218 </span> 68/push 1/imm32/value:int -<span id="L34219" class="LineNr">34219 </span> 68/push 1/imm32/is-atom?:true -<span id="L34220" class="LineNr">34220 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34221" class="LineNr">34221 </span> 89/<- %ecx 4/r32/esp -<span id="L34222" class="LineNr">34222 </span><span class="Constant">$test-increment-register:initialize-var</span>: -<span id="L34223" class="LineNr">34223 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L34224" class="LineNr">34224 </span> 68/push 0/imm32/register -<span id="L34225" class="LineNr">34225 </span> 68/push 0/imm32/register -<span id="L34226" class="LineNr">34226 </span> 68/push 0/imm32/no-stack-offset -<span id="L34227" class="LineNr">34227 </span> 68/push 1/imm32/block-depth -<span id="L34228" class="LineNr">34228 </span> 51/push-ecx -<span id="L34229" class="LineNr">34229 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34230" class="LineNr">34230 </span> 68/push 0/imm32/name -<span id="L34231" class="LineNr">34231 </span> 68/push 0/imm32/name -<span id="L34232" class="LineNr">34232 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34233" class="LineNr">34233 </span> 89/<- %ecx 4/r32/esp -<span id="L34234" class="LineNr">34234 </span><span class="Constant">$test-increment-register:initialize-var-name</span>: -<span id="L34235" class="LineNr">34235 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L34236" class="LineNr">34236 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34237" class="LineNr">34237 </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="L34238" class="LineNr">34238 </span><span class="Constant">$test-increment-register:initialize-var-register</span>: -<span id="L34239" class="LineNr">34239 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L34240" class="LineNr">34240 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L34241" class="LineNr">34241 </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="L34242" class="LineNr">34242 </span><span class="Constant">$test-increment-register:initialize-stmt-var</span>: -<span id="L34243" class="LineNr">34243 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L34244" class="LineNr">34244 </span> 68/push 0/imm32/is-deref:false -<span id="L34245" class="LineNr">34245 </span> 68/push 0/imm32/next -<span id="L34246" class="LineNr">34246 </span> 68/push 0/imm32/next -<span id="L34247" class="LineNr">34247 </span> 51/push-ecx/var-foo -<span id="L34248" class="LineNr">34248 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34249" class="LineNr">34249 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34250" class="LineNr">34250 </span> 89/<- %ebx 4/r32/esp -<span id="L34251" class="LineNr">34251 </span><span class="Constant">$test-increment-register:initialize-stmt</span>: -<span id="L34252" class="LineNr">34252 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L34253" class="LineNr">34253 </span> 53/push-ebx/outputs -<span id="L34254" class="LineNr">34254 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34255" class="LineNr">34255 </span> 68/push 0/imm32/no-inouts -<span id="L34256" class="LineNr">34256 </span> 68/push 0/imm32/no-inouts -<span id="L34257" class="LineNr">34257 </span> 68/push 0/imm32/operation -<span id="L34258" class="LineNr">34258 </span> 68/push 0/imm32/operation -<span id="L34259" class="LineNr">34259 </span> 68/push 1/imm32 -<span id="L34260" class="LineNr">34260 </span> 89/<- %esi 4/r32/esp -<span id="L34261" class="LineNr">34261 </span><span class="Constant">$test-increment-register:initialize-stmt-operation</span>: -<span id="L34262" class="LineNr">34262 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L34263" class="LineNr">34263 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L34264" class="LineNr">34264 </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="L34265" class="LineNr">34265 </span> <span class="subxComment"># convert</span> -<span id="L34266" class="LineNr">34266 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L34267" class="LineNr">34267 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L34268" class="LineNr">34268 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L34269" class="Folded">34269 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L34275" class="LineNr">34275 </span> <span class="subxComment"># check output</span> -<span id="L34276" class="LineNr">34276 </span> (<a href='../109stream-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="L34277" class="LineNr">34277 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34278" class="LineNr">34278 </span> 89/<- %esp 5/r32/ebp -<span id="L34279" class="LineNr">34279 </span> 5d/pop-to-ebp -<span id="L34280" class="LineNr">34280 </span> c3/return -<span id="L34281" class="LineNr">34281 </span> -<span id="L34282" class="LineNr">34282 </span><span class="subxTest">test-add-reg-to-reg</span>: -<span id="L34283" class="LineNr">34283 </span> <span class="subxComment"># var1/reg <- add var2/reg</span> -<span id="L34284" class="LineNr">34284 </span> <span class="subxComment"># =></span> -<span id="L34285" class="LineNr">34285 </span> <span class="subxComment"># 01/add-to %var1 var2</span> -<span id="L34286" class="LineNr">34286 </span> <span class="subxComment">#</span> -<span id="L34287" class="LineNr">34287 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34288" class="LineNr">34288 </span> 55/push-ebp -<span id="L34289" class="LineNr">34289 </span> 89/<- %ebp 4/r32/esp -<span id="L34290" class="LineNr">34290 </span> <span class="subxComment"># setup</span> -<span id="L34291" class="LineNr">34291 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L34292" class="LineNr">34292 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L34293" class="LineNr">34293 </span><span class="Constant">$test-add-reg-to-reg:initialize-type</span>: -<span id="L34294" class="LineNr">34294 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L34295" class="LineNr">34295 </span> 68/push 0/imm32/right:null -<span id="L34296" class="LineNr">34296 </span> 68/push 0/imm32/right:null -<span id="L34297" class="LineNr">34297 </span> 68/push 0/imm32/left:unused -<span id="L34298" class="LineNr">34298 </span> 68/push 1/imm32/value:int -<span id="L34299" class="LineNr">34299 </span> 68/push 1/imm32/is-atom?:true -<span id="L34300" class="LineNr">34300 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34301" class="LineNr">34301 </span> 89/<- %ecx 4/r32/esp -<span id="L34302" class="LineNr">34302 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1</span>: -<span id="L34303" class="LineNr">34303 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L34304" class="LineNr">34304 </span> 68/push 0/imm32/register -<span id="L34305" class="LineNr">34305 </span> 68/push 0/imm32/register -<span id="L34306" class="LineNr">34306 </span> 68/push 0/imm32/no-stack-offset -<span id="L34307" class="LineNr">34307 </span> 68/push 1/imm32/block-depth -<span id="L34308" class="LineNr">34308 </span> 51/push-ecx -<span id="L34309" class="LineNr">34309 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34310" class="LineNr">34310 </span> 68/push 0/imm32/name -<span id="L34311" class="LineNr">34311 </span> 68/push 0/imm32/name -<span id="L34312" class="LineNr">34312 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34313" class="LineNr">34313 </span> 89/<- %ecx 4/r32/esp -<span id="L34314" class="LineNr">34314 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-name</span>: -<span id="L34315" class="LineNr">34315 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L34316" class="LineNr">34316 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34317" class="LineNr">34317 </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="L34318" class="LineNr">34318 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-register</span>: -<span id="L34319" class="LineNr">34319 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L34320" class="LineNr">34320 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L34321" class="LineNr">34321 </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="L34322" class="LineNr">34322 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2</span>: -<span id="L34323" class="LineNr">34323 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L34324" class="LineNr">34324 </span> 68/push 0/imm32/register -<span id="L34325" class="LineNr">34325 </span> 68/push 0/imm32/register -<span id="L34326" class="LineNr">34326 </span> 68/push 0/imm32/no-stack-offset -<span id="L34327" class="LineNr">34327 </span> 68/push 1/imm32/block-depth -<span id="L34328" class="LineNr">34328 </span> ff 6/subop/push *(ecx+0x10) -<span id="L34329" class="LineNr">34329 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34330" class="LineNr">34330 </span> 68/push 0/imm32/name -<span id="L34331" class="LineNr">34331 </span> 68/push 0/imm32/name -<span id="L34332" class="LineNr">34332 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34333" class="LineNr">34333 </span> 89/<- %edx 4/r32/esp -<span id="L34334" class="LineNr">34334 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-name</span>: -<span id="L34335" class="LineNr">34335 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L34336" class="LineNr">34336 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34337" class="LineNr">34337 </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="L34338" class="LineNr">34338 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-register</span>: -<span id="L34339" class="LineNr">34339 </span> <span class="subxComment"># var2->register = "ecx"</span> -<span id="L34340" class="LineNr">34340 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L34341" class="LineNr">34341 </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="L34342" class="LineNr">34342 </span><span class="Constant">$test-add-reg-to-reg:initialize-inouts</span>: -<span id="L34343" class="LineNr">34343 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L34344" class="LineNr">34344 </span> 68/push 0/imm32/is-deref:false -<span id="L34345" class="LineNr">34345 </span> 68/push 0/imm32/next -<span id="L34346" class="LineNr">34346 </span> 68/push 0/imm32/next -<span id="L34347" class="LineNr">34347 </span> 52/push-edx/var2 -<span id="L34348" class="LineNr">34348 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34349" class="LineNr">34349 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34350" class="LineNr">34350 </span> 89/<- %esi 4/r32/esp -<span id="L34351" class="LineNr">34351 </span><span class="Constant">$test-add-reg-to-reg:initialize-outputs</span>: -<span id="L34352" class="LineNr">34352 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> -<span id="L34353" class="LineNr">34353 </span> 68/push 0/imm32/is-deref:false -<span id="L34354" class="LineNr">34354 </span> 68/push 0/imm32/next -<span id="L34355" class="LineNr">34355 </span> 68/push 0/imm32/next -<span id="L34356" class="LineNr">34356 </span> 51/push-ecx/var1 -<span id="L34357" class="LineNr">34357 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34016" class="LineNr">34016 </span><span class="subxComment"># Just compare names; user-defined functions don't support overloading yet.</span> +<span id="L34017" class="LineNr">34017 </span><span class="subxFunction">mu-stmt-matches-function?</span>: <span class="subxComment"># stmt: (addr stmt1), function: (addr function) -> result/eax: boolean</span> +<span id="L34018" class="LineNr">34018 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34019" class="LineNr">34019 </span> 55/push-ebp +<span id="L34020" class="LineNr">34020 </span> 89/<- %ebp 4/r32/esp +<span id="L34021" class="LineNr">34021 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L34022" class="LineNr">34022 </span> 51/push-ecx +<span id="L34023" class="LineNr">34023 </span> <span class="subxComment"># return function->name == stmt->operation</span> +<span id="L34024" class="LineNr">34024 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> +<span id="L34025" class="LineNr">34025 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L34026" class="LineNr">34026 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L34027" class="LineNr">34027 </span> 89/<- %ecx 0/r32/eax +<span id="L34028" class="LineNr">34028 </span> <span class="subxComment"># eax = lookup(function->name)</span> +<span id="L34029" class="LineNr">34029 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L34030" class="LineNr">34030 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L34031" class="LineNr">34031 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %ecx) <span class="subxComment"># => eax</span> +<span id="L34032" class="LineNr">34032 </span><span class="Constant">$mu-stmt-matches-function?:end</span>: +<span id="L34033" class="LineNr">34033 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L34034" class="LineNr">34034 </span> 59/pop-to-ecx +<span id="L34035" class="LineNr">34035 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34036" class="LineNr">34036 </span> 89/<- %esp 5/r32/ebp +<span id="L34037" class="LineNr">34037 </span> 5d/pop-to-ebp +<span id="L34038" class="LineNr">34038 </span> c3/return +<span id="L34039" class="LineNr">34039 </span> +<span id="L34040" class="LineNr">34040 </span><span class="subxComment"># Type-checking happens elsewhere. This method is for selecting between</span> +<span id="L34041" class="LineNr">34041 </span><span class="subxComment"># primitives.</span> +<span id="L34042" class="LineNr">34042 </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="L34043" class="LineNr">34043 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34044" class="LineNr">34044 </span> 55/push-ebp +<span id="L34045" class="LineNr">34045 </span> 89/<- %ebp 4/r32/esp +<span id="L34046" class="LineNr">34046 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L34047" class="LineNr">34047 </span> 51/push-ecx +<span id="L34048" class="LineNr">34048 </span> <span class="subxComment"># var cata/ecx: int = type-category(a)</span> +<span id="L34049" class="LineNr">34049 </span> (<a href='mu.subx.html#L34065'>type-category</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L34050" class="LineNr">34050 </span> 89/<- %ecx 0/r32/eax +<span id="L34051" class="LineNr">34051 </span> <span class="subxComment"># var catb/eax: int = type-category(b)</span> +<span id="L34052" class="LineNr">34052 </span> (<a href='mu.subx.html#L34065'>type-category</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L34053" class="LineNr">34053 </span> <span class="subxComment"># return cata == catb</span> +<span id="L34054" class="LineNr">34054 </span> 39/compare %eax 1/r32/ecx +<span id="L34055" class="LineNr">34055 </span> 0f 94/set-byte-if-= %al +<span id="L34056" class="LineNr">34056 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L34057" class="LineNr">34057 </span><span class="Constant">$subx-type-category-match?:end</span>: +<span id="L34058" class="LineNr">34058 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L34059" class="LineNr">34059 </span> 59/pop-to-ecx +<span id="L34060" class="LineNr">34060 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34061" class="LineNr">34061 </span> 89/<- %esp 5/r32/ebp +<span id="L34062" class="LineNr">34062 </span> 5d/pop-to-ebp +<span id="L34063" class="LineNr">34063 </span> c3/return +<span id="L34064" class="LineNr">34064 </span> +<span id="L34065" class="LineNr">34065 </span><span class="subxFunction">type-category</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L34066" class="LineNr">34066 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34067" class="LineNr">34067 </span> 55/push-ebp +<span id="L34068" class="LineNr">34068 </span> 89/<- %ebp 4/r32/esp +<span id="L34069" class="LineNr">34069 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L34070" class="LineNr">34070 </span> 51/push-ecx +<span id="L34071" class="LineNr">34071 </span> <span class="subxComment"># var lit?/ecx: boolean = is-literal-type?(a)</span> +<span id="L34072" class="LineNr">34072 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> *(ebp+8) 0) <span class="subxComment"># literal => eax</span> +<span id="L34073" class="LineNr">34073 </span> 89/<- %ecx 0/r32/eax +<span id="L34074" class="LineNr">34074 </span> <span class="subxComment"># var float?/eax: int = is-float?(a)</span> +<span id="L34075" class="LineNr">34075 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> *(ebp+8) 0xf) <span class="subxComment"># => eax</span> +<span id="L34076" class="LineNr">34076 </span> <span class="subxComment"># set bits for lit? and float?</span> +<span id="L34077" class="LineNr">34077 </span> c1/shift 4/subop/left %ecx 1/imm8 +<span id="L34078" class="LineNr">34078 </span> 09/or %eax 1/r32/ecx +<span id="L34079" class="LineNr">34079 </span><span class="Constant">$type-category:end</span>: +<span id="L34080" class="LineNr">34080 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L34081" class="LineNr">34081 </span> 59/pop-to-ecx +<span id="L34082" class="LineNr">34082 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34083" class="LineNr">34083 </span> 89/<- %esp 5/r32/ebp +<span id="L34084" class="LineNr">34084 </span> 5d/pop-to-ebp +<span id="L34085" class="LineNr">34085 </span> c3/return +<span id="L34086" class="LineNr">34086 </span> +<span id="L34087" class="LineNr">34087 </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="L34088" class="LineNr">34088 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34089" class="LineNr">34089 </span> 55/push-ebp +<span id="L34090" class="LineNr">34090 </span> 89/<- %ebp 4/r32/esp +<span id="L34091" class="LineNr">34091 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L34092" class="LineNr">34092 </span> 51/push-ecx +<span id="L34093" class="LineNr">34093 </span> <span class="subxComment"># ecx = n</span> +<span id="L34094" class="LineNr">34094 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L34095" class="LineNr">34095 </span> <span class="subxComment"># return (a->value == n)</span> +<span id="L34096" class="LineNr">34096 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L34097" class="LineNr">34097 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> +<span id="L34098" class="LineNr">34098 </span> 0f 94/set-byte-if-= %al +<span id="L34099" class="LineNr">34099 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L34100" class="LineNr">34100 </span><span class="Constant">$is-simple-mu-type?:end</span>: +<span id="L34101" class="LineNr">34101 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L34102" class="LineNr">34102 </span> 59/pop-to-ecx +<span id="L34103" class="LineNr">34103 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34104" class="LineNr">34104 </span> 89/<- %esp 5/r32/ebp +<span id="L34105" class="LineNr">34105 </span> 5d/pop-to-ebp +<span id="L34106" class="LineNr">34106 </span> c3/return +<span id="L34107" class="LineNr">34107 </span> +<span id="L34108" class="LineNr">34108 </span><span class="subxFunction">is-mu-addr-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L34109" class="LineNr">34109 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34110" class="LineNr">34110 </span> 55/push-ebp +<span id="L34111" class="LineNr">34111 </span> 89/<- %ebp 4/r32/esp +<span id="L34112" class="LineNr">34112 </span> <span class="subxComment"># eax = a</span> +<span id="L34113" class="LineNr">34113 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L34114" class="LineNr">34114 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L34115" class="LineNr">34115 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L34116" class="LineNr">34116 </span> { +<span id="L34117" class="LineNr">34117 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L34118" class="LineNr">34118 </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="L34119" class="LineNr">34119 </span> } +<span id="L34120" class="LineNr">34120 </span> <span class="subxComment"># return (a->value == addr)</span> +<span id="L34121" class="LineNr">34121 </span> 81 7/subop/compare *(eax+4) 2/imm32/addr <span class="subxComment"># Type-tree-value</span> +<span id="L34122" class="LineNr">34122 </span> 0f 94/set-byte-if-= %al +<span id="L34123" class="LineNr">34123 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L34124" class="LineNr">34124 </span><span class="Constant">$is-mu-addr-type?:end</span>: +<span id="L34125" class="LineNr">34125 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34126" class="LineNr">34126 </span> 89/<- %esp 5/r32/ebp +<span id="L34127" class="LineNr">34127 </span> 5d/pop-to-ebp +<span id="L34128" class="LineNr">34128 </span> c3/return +<span id="L34129" class="LineNr">34129 </span> +<span id="L34130" class="LineNr">34130 </span><span class="subxFunction">is-mu-array-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L34131" class="LineNr">34131 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34132" class="LineNr">34132 </span> 55/push-ebp +<span id="L34133" class="LineNr">34133 </span> 89/<- %ebp 4/r32/esp +<span id="L34134" class="LineNr">34134 </span> <span class="subxComment"># eax = a</span> +<span id="L34135" class="LineNr">34135 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L34136" class="LineNr">34136 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L34137" class="LineNr">34137 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L34138" class="LineNr">34138 </span> { +<span id="L34139" class="LineNr">34139 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L34140" class="LineNr">34140 </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="L34141" class="LineNr">34141 </span> } +<span id="L34142" class="LineNr">34142 </span> <span class="subxComment"># return (a->value == array)</span> +<span id="L34143" class="LineNr">34143 </span> 81 7/subop/compare *(eax+4) 3/imm32/array <span class="subxComment"># Type-tree-value</span> +<span id="L34144" class="LineNr">34144 </span> 0f 94/set-byte-if-= %al +<span id="L34145" class="LineNr">34145 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L34146" class="LineNr">34146 </span><span class="Constant">$is-mu-array-type?:end</span>: +<span id="L34147" class="LineNr">34147 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34148" class="LineNr">34148 </span> 89/<- %esp 5/r32/ebp +<span id="L34149" class="LineNr">34149 </span> 5d/pop-to-ebp +<span id="L34150" class="LineNr">34150 </span> c3/return +<span id="L34151" class="LineNr">34151 </span> +<span id="L34152" class="LineNr">34152 </span><span class="subxFunction">is-mu-string-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L34153" class="LineNr">34153 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34154" class="LineNr">34154 </span> 55/push-ebp +<span id="L34155" class="LineNr">34155 </span> 89/<- %ebp 4/r32/esp +<span id="L34156" class="LineNr">34156 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L34157" class="LineNr">34157 </span> 56/push-esi +<span id="L34158" class="LineNr">34158 </span> <span class="subxComment"># esi = a</span> +<span id="L34159" class="LineNr">34159 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L34160" class="LineNr">34160 </span> <span class="subxComment"># if (a->is-atom?) return false</span> +<span id="L34161" class="LineNr">34161 </span> 81 7/subop/compare *esi 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L34162" class="LineNr">34162 </span> 0f 85/jump-if-!= $is-mu-string-type?:return-false/disp32 +<span id="L34163" class="LineNr">34163 </span> <span class="subxComment"># if a is not an addr, return false</span> +<span id="L34164" class="LineNr">34164 </span> (<a href='mu.subx.html#L34108'>is-mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L34165" class="LineNr">34165 </span> 3d/compare-eax-with 0/imm32/false +<span id="L34166" class="LineNr">34166 </span> 0f 84/jump-if-= $is-mu-string-type?:end/disp32 <span class="subxComment"># eax changes var</span> +<span id="L34167" class="LineNr">34167 </span> <span class="subxComment"># if a is not an array, return false</span> +<span id="L34168" class="LineNr">34168 </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="L34169" class="LineNr">34169 </span> (<a href='mu.subx.html#L34130'>is-mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L34170" class="LineNr">34170 </span> 3d/compare-eax-with 0/imm32/false +<span id="L34171" class="LineNr">34171 </span> 74/jump-if-= $is-mu-string-type?:end/disp8 <span class="subxComment"># eax changes var</span> +<span id="L34172" class="LineNr">34172 </span> <span class="subxComment"># var p/eax: (addr type-tree) = payload of a</span> +<span id="L34173" class="LineNr">34173 </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="L34174" class="LineNr">34174 </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="L34175" class="LineNr">34175 </span> <span class="subxComment"># if p is an atom, return false</span> +<span id="L34176" class="LineNr">34176 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L34177" class="LineNr">34177 </span> 75/jump-if-!= $is-mu-string-type?:return-false/disp8 +<span id="L34178" class="LineNr">34178 </span> <span class="subxComment"># return (p == byte)</span> +<span id="L34179" class="LineNr">34179 </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="L34180" class="LineNr">34180 </span> (<a href='mu.subx.html#L34087'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L34181" class="LineNr">34181 </span> eb/jump $is-mu-string-type?:end/disp8 +<span id="L34182" class="LineNr">34182 </span><span class="Constant">$is-mu-string-type?:return-false</span>: +<span id="L34183" class="LineNr">34183 </span> b8/copy-to-eax 0/imm32/false +<span id="L34184" class="LineNr">34184 </span><span class="Constant">$is-mu-string-type?:end</span>: +<span id="L34185" class="LineNr">34185 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L34186" class="LineNr">34186 </span> 5e/pop-to-esi +<span id="L34187" class="LineNr">34187 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34188" class="LineNr">34188 </span> 89/<- %esp 5/r32/ebp +<span id="L34189" class="LineNr">34189 </span> 5d/pop-to-ebp +<span id="L34190" class="LineNr">34190 </span> c3/return +<span id="L34191" class="LineNr">34191 </span> +<span id="L34192" class="LineNr">34192 </span><span class="subxFunction">is-mu-stream-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L34193" class="LineNr">34193 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34194" class="LineNr">34194 </span> 55/push-ebp +<span id="L34195" class="LineNr">34195 </span> 89/<- %ebp 4/r32/esp +<span id="L34196" class="LineNr">34196 </span> <span class="subxComment"># eax = a</span> +<span id="L34197" class="LineNr">34197 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L34198" class="LineNr">34198 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L34199" class="LineNr">34199 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L34200" class="LineNr">34200 </span> { +<span id="L34201" class="LineNr">34201 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L34202" class="LineNr">34202 </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="L34203" class="LineNr">34203 </span> } +<span id="L34204" class="LineNr">34204 </span> <span class="subxComment"># return (a->value == stream)</span> +<span id="L34205" class="LineNr">34205 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream <span class="subxComment"># Type-tree-value</span> +<span id="L34206" class="LineNr">34206 </span> 0f 94/set-byte-if-= %al +<span id="L34207" class="LineNr">34207 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L34208" class="LineNr">34208 </span><span class="Constant">$is-mu-stream-type?:end</span>: +<span id="L34209" class="LineNr">34209 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34210" class="LineNr">34210 </span> 89/<- %esp 5/r32/ebp +<span id="L34211" class="LineNr">34211 </span> 5d/pop-to-ebp +<span id="L34212" class="LineNr">34212 </span> c3/return +<span id="L34213" class="LineNr">34213 </span> +<span id="L34214" class="LineNr">34214 </span><span class="subxTest">test-emit-subx-stmt-primitive</span>: +<span id="L34215" class="LineNr">34215 </span> <span class="subxComment"># Primitive operation on a variable on the stack.</span> +<span id="L34216" class="LineNr">34216 </span> <span class="subxComment"># increment foo</span> +<span id="L34217" class="LineNr">34217 </span> <span class="subxComment"># =></span> +<span id="L34218" class="LineNr">34218 </span> <span class="subxComment"># ff 0/subop/increment *(ebp-8)</span> +<span id="L34219" class="LineNr">34219 </span> <span class="subxComment">#</span> +<span id="L34220" class="LineNr">34220 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L34221" class="LineNr">34221 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L34222" class="LineNr">34222 </span> <span class="subxComment"># type: int</span> +<span id="L34223" class="LineNr">34223 </span> <span class="subxComment"># stack-offset: -8</span> +<span id="L34224" class="LineNr">34224 </span> <span class="subxComment">#</span> +<span id="L34225" class="LineNr">34225 </span> <span class="subxComment"># There's a primitive with this info:</span> +<span id="L34226" class="LineNr">34226 </span> <span class="subxComment"># name: 'increment'</span> +<span id="L34227" class="LineNr">34227 </span> <span class="subxComment"># inouts: int/mem</span> +<span id="L34228" class="LineNr">34228 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L34229" class="LineNr">34229 </span> <span class="subxComment">#</span> +<span id="L34230" class="LineNr">34230 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34231" class="LineNr">34231 </span> 55/push-ebp +<span id="L34232" class="LineNr">34232 </span> 89/<- %ebp 4/r32/esp +<span id="L34233" class="LineNr">34233 </span> <span class="subxComment"># setup</span> +<span id="L34234" class="LineNr">34234 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L34235" class="LineNr">34235 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L34236" class="LineNr">34236 </span> <span class="subxComment"># simulate allocated payloads starting with an initial fake alloc-id (0x11)</span> +<span id="L34237" class="LineNr">34237 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-type</span>: +<span id="L34238" class="LineNr">34238 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L34239" class="LineNr">34239 </span> 68/push 0/imm32/right:null +<span id="L34240" class="LineNr">34240 </span> 68/push 0/imm32/right:null +<span id="L34241" class="LineNr">34241 </span> 68/push 0/imm32/left:unused +<span id="L34242" class="LineNr">34242 </span> 68/push 1/imm32/value:int +<span id="L34243" class="LineNr">34243 </span> 68/push 1/imm32/is-atom?:true +<span id="L34244" class="LineNr">34244 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34245" class="LineNr">34245 </span> 89/<- %ecx 4/r32/esp +<span id="L34246" class="LineNr">34246 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var</span>: +<span id="L34247" class="LineNr">34247 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> +<span id="L34248" class="LineNr">34248 </span> 68/push 0/imm32/no-register +<span id="L34249" class="LineNr">34249 </span> 68/push 0/imm32/no-register +<span id="L34250" class="LineNr">34250 </span> 68/push -8/imm32/stack-offset +<span id="L34251" class="LineNr">34251 </span> 68/push 1/imm32/block-depth +<span id="L34252" class="LineNr">34252 </span> 51/push-ecx/type +<span id="L34253" class="LineNr">34253 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34254" class="LineNr">34254 </span> 68/push 0/imm32/name +<span id="L34255" class="LineNr">34255 </span> 68/push 0/imm32/name +<span id="L34256" class="LineNr">34256 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34257" class="LineNr">34257 </span> 89/<- %ecx 4/r32/esp +<span id="L34258" class="LineNr">34258 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var-name</span>: +<span id="L34259" class="LineNr">34259 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L34260" class="LineNr">34260 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L34261" class="LineNr">34261 </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="L34262" class="LineNr">34262 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-var</span>: +<span id="L34263" class="LineNr">34263 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L34264" class="LineNr">34264 </span> 68/push 0/imm32/is-deref:false +<span id="L34265" class="LineNr">34265 </span> 68/push 0/imm32/next +<span id="L34266" class="LineNr">34266 </span> 68/push 0/imm32/next +<span id="L34267" class="LineNr">34267 </span> 51/push-ecx/var-foo +<span id="L34268" class="LineNr">34268 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34269" class="LineNr">34269 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34270" class="LineNr">34270 </span> 89/<- %ebx 4/r32/esp +<span id="L34271" class="LineNr">34271 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt</span>: +<span id="L34272" class="LineNr">34272 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L34273" class="LineNr">34273 </span> 68/push 0/imm32/no-outputs +<span id="L34274" class="LineNr">34274 </span> 68/push 0/imm32/no-outputs +<span id="L34275" class="LineNr">34275 </span> 53/push-ebx/inouts +<span id="L34276" class="LineNr">34276 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34277" class="LineNr">34277 </span> 68/push 0/imm32/operation +<span id="L34278" class="LineNr">34278 </span> 68/push 0/imm32/operation +<span id="L34279" class="LineNr">34279 </span> 68/push 1/imm32/tag +<span id="L34280" class="LineNr">34280 </span> 89/<- %esi 4/r32/esp +<span id="L34281" class="LineNr">34281 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-operation</span>: +<span id="L34282" class="LineNr">34282 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L34283" class="LineNr">34283 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L34284" class="LineNr">34284 </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="L34285" class="LineNr">34285 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive</span>: +<span id="L34286" class="LineNr">34286 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L34287" class="LineNr">34287 </span> 68/push 0/imm32/next +<span id="L34288" class="LineNr">34288 </span> 68/push 0/imm32/next +<span id="L34289" class="LineNr">34289 </span> 68/push 0/imm32/no-x32 +<span id="L34290" class="LineNr">34290 </span> 68/push 0/imm32/no-xm32 +<span id="L34291" class="LineNr">34291 </span> 68/push 0/imm32/no-disp32 +<span id="L34292" class="LineNr">34292 </span> 68/push 0/imm32/no-imm8 +<span id="L34293" class="LineNr">34293 </span> 68/push 0/imm32/no-imm32 +<span id="L34294" class="LineNr">34294 </span> 68/push 0/imm32/no-r32 +<span id="L34295" class="LineNr">34295 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L34296" class="LineNr">34296 </span> 68/push 0/imm32/subx-name +<span id="L34297" class="LineNr">34297 </span> 68/push 0/imm32/subx-name +<span id="L34298" class="LineNr">34298 </span> 68/push 0/imm32/no-outputs +<span id="L34299" class="LineNr">34299 </span> 68/push 0/imm32/no-outputs +<span id="L34300" class="LineNr">34300 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L34301" class="LineNr">34301 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34302" class="LineNr">34302 </span> 68/push 0/imm32/name +<span id="L34303" class="LineNr">34303 </span> 68/push 0/imm32/name +<span id="L34304" class="LineNr">34304 </span> 89/<- %ebx 4/r32/esp +<span id="L34305" class="LineNr">34305 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-name</span>: +<span id="L34306" class="LineNr">34306 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L34307" class="LineNr">34307 </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="L34308" class="LineNr">34308 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-subx-name</span>: +<span id="L34309" class="LineNr">34309 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L34310" class="LineNr">34310 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L34311" class="LineNr">34311 </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="L34312" class="LineNr">34312 </span> <span class="subxComment"># convert</span> +<span id="L34313" class="LineNr">34313 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L34314" class="LineNr">34314 </span> (<a href='mu.subx.html#L27027'>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="L34315" class="LineNr">34315 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L34316" class="Folded">34316 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L34322" class="LineNr">34322 </span> <span class="subxComment"># check output</span> +<span id="L34323" class="LineNr">34323 </span> (<a href='../109stream-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="L34324" class="LineNr">34324 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34325" class="LineNr">34325 </span> 89/<- %esp 5/r32/ebp +<span id="L34326" class="LineNr">34326 </span> 5d/pop-to-ebp +<span id="L34327" class="LineNr">34327 </span> c3/return +<span id="L34328" class="LineNr">34328 </span> +<span id="L34329" class="LineNr">34329 </span><span class="subxTest">test-emit-subx-stmt-primitive-register</span>: +<span id="L34330" class="LineNr">34330 </span> <span class="subxComment"># Primitive operation on a variable in a register.</span> +<span id="L34331" class="LineNr">34331 </span> <span class="subxComment"># foo <- increment</span> +<span id="L34332" class="LineNr">34332 </span> <span class="subxComment"># =></span> +<span id="L34333" class="LineNr">34333 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L34334" class="LineNr">34334 </span> <span class="subxComment">#</span> +<span id="L34335" class="LineNr">34335 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L34336" class="LineNr">34336 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L34337" class="LineNr">34337 </span> <span class="subxComment"># type: int</span> +<span id="L34338" class="LineNr">34338 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L34339" class="LineNr">34339 </span> <span class="subxComment">#</span> +<span id="L34340" class="LineNr">34340 </span> <span class="subxComment"># There's a primitive with this info:</span> +<span id="L34341" class="LineNr">34341 </span> <span class="subxComment"># name: 'increment'</span> +<span id="L34342" class="LineNr">34342 </span> <span class="subxComment"># out: int/reg</span> +<span id="L34343" class="LineNr">34343 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L34344" class="LineNr">34344 </span> <span class="subxComment">#</span> +<span id="L34345" class="LineNr">34345 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34346" class="LineNr">34346 </span> 55/push-ebp +<span id="L34347" class="LineNr">34347 </span> 89/<- %ebp 4/r32/esp +<span id="L34348" class="LineNr">34348 </span> <span class="subxComment"># setup</span> +<span id="L34349" class="LineNr">34349 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L34350" class="LineNr">34350 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L34351" class="LineNr">34351 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-type</span>: +<span id="L34352" class="LineNr">34352 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L34353" class="LineNr">34353 </span> 68/push 0/imm32/right:null +<span id="L34354" class="LineNr">34354 </span> 68/push 0/imm32/right:null +<span id="L34355" class="LineNr">34355 </span> 68/push 0/imm32/left:unused +<span id="L34356" class="LineNr">34356 </span> 68/push 1/imm32/value:int +<span id="L34357" class="LineNr">34357 </span> 68/push 1/imm32/is-atom?:true <span id="L34358" class="LineNr">34358 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34359" class="LineNr">34359 </span> 89/<- %edi 4/r32/esp -<span id="L34360" class="LineNr">34360 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt</span>: -<span id="L34361" class="LineNr">34361 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L34362" class="LineNr">34362 </span> 68/push 0/imm32/next -<span id="L34363" class="LineNr">34363 </span> 68/push 0/imm32/next -<span id="L34364" class="LineNr">34364 </span> 57/push-edi/outputs -<span id="L34365" class="LineNr">34365 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34366" class="LineNr">34366 </span> 56/push-esi/inouts +<span id="L34359" class="LineNr">34359 </span> 89/<- %ecx 4/r32/esp +<span id="L34360" class="LineNr">34360 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var</span>: +<span id="L34361" class="LineNr">34361 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L34362" class="LineNr">34362 </span> 68/push 0/imm32/register +<span id="L34363" class="LineNr">34363 </span> 68/push 0/imm32/register +<span id="L34364" class="LineNr">34364 </span> 68/push 0/imm32/no-stack-offset +<span id="L34365" class="LineNr">34365 </span> 68/push 1/imm32/block-depth +<span id="L34366" class="LineNr">34366 </span> 51/push-ecx <span id="L34367" class="LineNr">34367 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34368" class="LineNr">34368 </span> 68/push 0/imm32/operation -<span id="L34369" class="LineNr">34369 </span> 68/push 0/imm32/operation -<span id="L34370" class="LineNr">34370 </span> 68/push 1/imm32/tag:stmt1 -<span id="L34371" class="LineNr">34371 </span> 89/<- %esi 4/r32/esp -<span id="L34372" class="LineNr">34372 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt-operation</span>: -<span id="L34373" class="LineNr">34373 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L34374" class="LineNr">34374 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L34375" class="LineNr">34375 </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="L34376" class="LineNr">34376 </span> <span class="subxComment"># convert</span> -<span id="L34377" class="LineNr">34377 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L34378" class="LineNr">34378 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L34379" class="LineNr">34379 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L34380" class="Folded">34380 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L34386" class="LineNr">34386 </span> <span class="subxComment"># check output</span> -<span id="L34387" class="LineNr">34387 </span> (<a href='../109stream-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="L34388" class="LineNr">34388 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34389" class="LineNr">34389 </span> 89/<- %esp 5/r32/ebp -<span id="L34390" class="LineNr">34390 </span> 5d/pop-to-ebp -<span id="L34391" class="LineNr">34391 </span> c3/return -<span id="L34392" class="LineNr">34392 </span> -<span id="L34393" class="LineNr">34393 </span><span class="subxTest">test-add-reg-to-mem</span>: -<span id="L34394" class="LineNr">34394 </span> <span class="subxComment"># add-to var1 var2/reg</span> -<span id="L34395" class="LineNr">34395 </span> <span class="subxComment"># =></span> -<span id="L34396" class="LineNr">34396 </span> <span class="subxComment"># 01/add-to *(ebp+__) var2</span> -<span id="L34397" class="LineNr">34397 </span> <span class="subxComment">#</span> -<span id="L34398" class="LineNr">34398 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34399" class="LineNr">34399 </span> 55/push-ebp -<span id="L34400" class="LineNr">34400 </span> 89/<- %ebp 4/r32/esp -<span id="L34401" class="LineNr">34401 </span> <span class="subxComment"># setup</span> -<span id="L34402" class="LineNr">34402 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L34403" class="LineNr">34403 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L34404" class="LineNr">34404 </span><span class="Constant">$test-add-reg-to-mem:initialize-type</span>: -<span id="L34405" class="LineNr">34405 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L34406" class="LineNr">34406 </span> 68/push 0/imm32/right:null -<span id="L34407" class="LineNr">34407 </span> 68/push 0/imm32/right:null -<span id="L34408" class="LineNr">34408 </span> 68/push 0/imm32/left:unused -<span id="L34409" class="LineNr">34409 </span> 68/push 1/imm32/value:int -<span id="L34410" class="LineNr">34410 </span> 68/push 1/imm32/is-atom?:true -<span id="L34411" class="LineNr">34411 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34412" class="LineNr">34412 </span> 89/<- %ecx 4/r32/esp -<span id="L34413" class="LineNr">34413 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1</span>: -<span id="L34414" class="LineNr">34414 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L34415" class="LineNr">34415 </span> 68/push 0/imm32/register -<span id="L34416" class="LineNr">34416 </span> 68/push 0/imm32/register -<span id="L34417" class="LineNr">34417 </span> 68/push 8/imm32/stack-offset -<span id="L34418" class="LineNr">34418 </span> 68/push 1/imm32/block-depth -<span id="L34419" class="LineNr">34419 </span> 51/push-ecx -<span id="L34420" class="LineNr">34420 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34421" class="LineNr">34421 </span> 68/push 0/imm32/name -<span id="L34422" class="LineNr">34422 </span> 68/push 0/imm32/name -<span id="L34423" class="LineNr">34423 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34424" class="LineNr">34424 </span> 89/<- %ecx 4/r32/esp -<span id="L34425" class="LineNr">34425 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1-name</span>: -<span id="L34426" class="LineNr">34426 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L34427" class="LineNr">34427 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34428" class="LineNr">34428 </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="L34429" class="LineNr">34429 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2</span>: -<span id="L34430" class="LineNr">34430 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L34431" class="LineNr">34431 </span> 68/push 0/imm32/register -<span id="L34432" class="LineNr">34432 </span> 68/push 0/imm32/register -<span id="L34433" class="LineNr">34433 </span> 68/push 0/imm32/no-stack-offset -<span id="L34434" class="LineNr">34434 </span> 68/push 1/imm32/block-depth -<span id="L34435" class="LineNr">34435 </span> ff 6/subop/push *(ecx+0x10) -<span id="L34436" class="LineNr">34436 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34437" class="LineNr">34437 </span> 68/push 0/imm32/name -<span id="L34438" class="LineNr">34438 </span> 68/push 0/imm32/name -<span id="L34439" class="LineNr">34439 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34440" class="LineNr">34440 </span> 89/<- %edx 4/r32/esp -<span id="L34441" class="LineNr">34441 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-name</span>: -<span id="L34442" class="LineNr">34442 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L34443" class="LineNr">34443 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34444" class="LineNr">34444 </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="L34445" class="LineNr">34445 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-register</span>: -<span id="L34446" class="LineNr">34446 </span> <span class="subxComment"># var2->register = "ecx"</span> -<span id="L34447" class="LineNr">34447 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L34448" class="LineNr">34448 </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="L34449" class="LineNr">34449 </span><span class="Constant">$test-add-reg-to-mem:initialize-inouts</span>: -<span id="L34450" class="LineNr">34450 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L34451" class="LineNr">34451 </span> 68/push 0/imm32/is-deref:false -<span id="L34452" class="LineNr">34452 </span> 68/push 0/imm32/next -<span id="L34453" class="LineNr">34453 </span> 68/push 0/imm32/next -<span id="L34454" class="LineNr">34454 </span> 52/push-edx/var2 -<span id="L34455" class="LineNr">34455 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34456" class="LineNr">34456 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34457" class="LineNr">34457 </span> 89/<- %esi 4/r32/esp -<span id="L34458" class="LineNr">34458 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L34459" class="LineNr">34459 </span> 68/push 0/imm32/is-deref:false -<span id="L34460" class="LineNr">34460 </span> 56/push-esi/next -<span id="L34461" class="LineNr">34461 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34462" class="LineNr">34462 </span> 51/push-ecx/var1 -<span id="L34463" class="LineNr">34463 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34464" class="LineNr">34464 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34465" class="LineNr">34465 </span> 89/<- %esi 4/r32/esp -<span id="L34466" class="LineNr">34466 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt</span>: -<span id="L34467" class="LineNr">34467 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L34468" class="LineNr">34468 </span> 68/push 0/imm32/next -<span id="L34469" class="LineNr">34469 </span> 68/push 0/imm32/next -<span id="L34470" class="LineNr">34470 </span> 68/push 0/imm32/outputs -<span id="L34471" class="LineNr">34471 </span> 68/push 0/imm32/outputs -<span id="L34472" class="LineNr">34472 </span> 56/push-esi/inouts -<span id="L34473" class="LineNr">34473 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34474" class="LineNr">34474 </span> 68/push 0/imm32/operation -<span id="L34475" class="LineNr">34475 </span> 68/push 0/imm32/operation -<span id="L34476" class="LineNr">34476 </span> 68/push 1/imm32/tag:stmt1 -<span id="L34477" class="LineNr">34477 </span> 89/<- %esi 4/r32/esp -<span id="L34478" class="LineNr">34478 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt-operation</span>: -<span id="L34479" class="LineNr">34479 </span> <span class="subxComment"># stmt->operation = "add-to"</span> -<span id="L34480" class="LineNr">34480 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L34481" class="LineNr">34481 </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="L34482" class="LineNr">34482 </span> <span class="subxComment"># convert</span> -<span id="L34483" class="LineNr">34483 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L34484" class="LineNr">34484 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L34485" class="LineNr">34485 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L34486" class="Folded">34486 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L34492" class="LineNr">34492 </span> <span class="subxComment"># check output</span> -<span id="L34493" class="LineNr">34493 </span> (<a href='../109stream-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="L34494" class="LineNr">34494 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34495" class="LineNr">34495 </span> 89/<- %esp 5/r32/ebp -<span id="L34496" class="LineNr">34496 </span> 5d/pop-to-ebp -<span id="L34497" class="LineNr">34497 </span> c3/return -<span id="L34498" class="LineNr">34498 </span> -<span id="L34499" class="LineNr">34499 </span><span class="subxTest">test-add-mem-to-reg</span>: -<span id="L34500" class="LineNr">34500 </span> <span class="subxComment"># var1/reg <- add var2</span> -<span id="L34501" class="LineNr">34501 </span> <span class="subxComment"># =></span> -<span id="L34502" class="LineNr">34502 </span> <span class="subxComment"># 03/add *(ebp+__) var1</span> -<span id="L34503" class="LineNr">34503 </span> <span class="subxComment">#</span> -<span id="L34504" class="LineNr">34504 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34505" class="LineNr">34505 </span> 55/push-ebp -<span id="L34506" class="LineNr">34506 </span> 89/<- %ebp 4/r32/esp -<span id="L34507" class="LineNr">34507 </span> <span class="subxComment"># setup</span> -<span id="L34508" class="LineNr">34508 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L34509" class="LineNr">34509 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L34510" class="LineNr">34510 </span><span class="Constant">$test-add-mem-to-reg:initialize-type</span>: -<span id="L34511" class="LineNr">34511 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L34512" class="LineNr">34512 </span> 68/push 0/imm32/right:null -<span id="L34513" class="LineNr">34513 </span> 68/push 0/imm32/right:null -<span id="L34514" class="LineNr">34514 </span> 68/push 0/imm32/left:unused -<span id="L34515" class="LineNr">34515 </span> 68/push 1/imm32/value:int -<span id="L34516" class="LineNr">34516 </span> 68/push 1/imm32/is-atom?:true -<span id="L34517" class="LineNr">34517 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34518" class="LineNr">34518 </span> 89/<- %ecx 4/r32/esp -<span id="L34519" class="LineNr">34519 </span><span class="Constant">$test-add-mem-to-reg:initialize-var</span>: -<span id="L34520" class="LineNr">34520 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L34521" class="LineNr">34521 </span> 68/push 0/imm32/register -<span id="L34522" class="LineNr">34522 </span> 68/push 0/imm32/register -<span id="L34523" class="LineNr">34523 </span> 68/push 0/imm32/no-stack-offset -<span id="L34524" class="LineNr">34524 </span> 68/push 1/imm32/block-depth -<span id="L34525" class="LineNr">34525 </span> 51/push-ecx -<span id="L34526" class="LineNr">34526 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34527" class="LineNr">34527 </span> 68/push 0/imm32/name -<span id="L34528" class="LineNr">34528 </span> 68/push 0/imm32/name -<span id="L34529" class="LineNr">34529 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34530" class="LineNr">34530 </span> 89/<- %ecx 4/r32/esp -<span id="L34531" class="LineNr">34531 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-name</span>: -<span id="L34532" class="LineNr">34532 </span> <span class="subxComment"># var1->name = "foo"</span> -<span id="L34533" class="LineNr">34533 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34534" class="LineNr">34534 </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="L34535" class="LineNr">34535 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-register</span>: -<span id="L34536" class="LineNr">34536 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L34537" class="LineNr">34537 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L34538" class="LineNr">34538 </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="L34539" class="LineNr">34539 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2</span>: -<span id="L34540" class="LineNr">34540 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L34541" class="LineNr">34541 </span> 68/push 0/imm32/register -<span id="L34542" class="LineNr">34542 </span> 68/push 0/imm32/register -<span id="L34543" class="LineNr">34543 </span> 68/push 8/imm32/stack-offset -<span id="L34544" class="LineNr">34544 </span> 68/push 1/imm32/block-depth -<span id="L34545" class="LineNr">34545 </span> ff 6/subop/push *(ecx+0x10) -<span id="L34546" class="LineNr">34546 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34547" class="LineNr">34547 </span> 68/push 0/imm32/name -<span id="L34548" class="LineNr">34548 </span> 68/push 0/imm32/name -<span id="L34549" class="LineNr">34549 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34550" class="LineNr">34550 </span> 89/<- %edx 4/r32/esp -<span id="L34551" class="LineNr">34551 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2-name</span>: -<span id="L34552" class="LineNr">34552 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L34553" class="LineNr">34553 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34554" class="LineNr">34554 </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="L34555" class="LineNr">34555 </span><span class="Constant">$test-add-mem-to-reg:initialize-inouts</span>: -<span id="L34556" class="LineNr">34556 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L34557" class="LineNr">34557 </span> 68/push 0/imm32/is-deref:false -<span id="L34558" class="LineNr">34558 </span> 68/push 0/imm32/next -<span id="L34559" class="LineNr">34559 </span> 68/push 0/imm32/next -<span id="L34560" class="LineNr">34560 </span> 52/push-edx/var2 -<span id="L34561" class="LineNr">34561 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34368" class="LineNr">34368 </span> 68/push 0/imm32/name +<span id="L34369" class="LineNr">34369 </span> 68/push 0/imm32/name +<span id="L34370" class="LineNr">34370 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34371" class="LineNr">34371 </span> 89/<- %ecx 4/r32/esp +<span id="L34372" class="LineNr">34372 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-name</span>: +<span id="L34373" class="LineNr">34373 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L34374" class="LineNr">34374 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L34375" class="LineNr">34375 </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="L34376" class="LineNr">34376 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-register</span>: +<span id="L34377" class="LineNr">34377 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L34378" class="LineNr">34378 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L34379" class="LineNr">34379 </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="L34380" class="LineNr">34380 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-var</span>: +<span id="L34381" class="LineNr">34381 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L34382" class="LineNr">34382 </span> 68/push 0/imm32/is-deref:false +<span id="L34383" class="LineNr">34383 </span> 68/push 0/imm32/next +<span id="L34384" class="LineNr">34384 </span> 68/push 0/imm32/next +<span id="L34385" class="LineNr">34385 </span> 51/push-ecx/var-foo +<span id="L34386" class="LineNr">34386 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34387" class="LineNr">34387 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34388" class="LineNr">34388 </span> 89/<- %ebx 4/r32/esp +<span id="L34389" class="LineNr">34389 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt</span>: +<span id="L34390" class="LineNr">34390 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L34391" class="LineNr">34391 </span> 53/push-ebx/outputs +<span id="L34392" class="LineNr">34392 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34393" class="LineNr">34393 </span> 68/push 0/imm32/no-inouts +<span id="L34394" class="LineNr">34394 </span> 68/push 0/imm32/no-inouts +<span id="L34395" class="LineNr">34395 </span> 68/push 0/imm32/operation +<span id="L34396" class="LineNr">34396 </span> 68/push 0/imm32/operation +<span id="L34397" class="LineNr">34397 </span> 68/push 1/imm32 +<span id="L34398" class="LineNr">34398 </span> 89/<- %esi 4/r32/esp +<span id="L34399" class="LineNr">34399 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-operation</span>: +<span id="L34400" class="LineNr">34400 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L34401" class="LineNr">34401 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L34402" class="LineNr">34402 </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="L34403" class="LineNr">34403 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var</span>: +<span id="L34404" class="LineNr">34404 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L34405" class="LineNr">34405 </span> 68/push 0/imm32/register +<span id="L34406" class="LineNr">34406 </span> 68/push 0/imm32/register +<span id="L34407" class="LineNr">34407 </span> 68/push 0/imm32/no-stack-offset +<span id="L34408" class="LineNr">34408 </span> 68/push 1/imm32/block-depth +<span id="L34409" class="LineNr">34409 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L34410" class="LineNr">34410 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34411" class="LineNr">34411 </span> 68/push 0/imm32/name +<span id="L34412" class="LineNr">34412 </span> 68/push 0/imm32/name +<span id="L34413" class="LineNr">34413 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34414" class="LineNr">34414 </span> 89/<- %ebx 4/r32/esp +<span id="L34415" class="LineNr">34415 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var-name</span>: +<span id="L34416" class="LineNr">34416 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L34417" class="LineNr">34417 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L34418" class="LineNr">34418 </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="L34419" class="LineNr">34419 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-register</span>: +<span id="L34420" class="LineNr">34420 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L34421" class="LineNr">34421 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L34422" class="LineNr">34422 </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="L34423" class="LineNr">34423 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-list</span>: +<span id="L34424" class="LineNr">34424 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> +<span id="L34425" class="LineNr">34425 </span> 68/push 0/imm32/next +<span id="L34426" class="LineNr">34426 </span> 68/push 0/imm32/next +<span id="L34427" class="LineNr">34427 </span> 53/push-ebx/formal-var +<span id="L34428" class="LineNr">34428 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34429" class="LineNr">34429 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34430" class="LineNr">34430 </span> 89/<- %ebx 4/r32/esp +<span id="L34431" class="LineNr">34431 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive</span>: +<span id="L34432" class="LineNr">34432 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L34433" class="LineNr">34433 </span> 68/push 0/imm32/next +<span id="L34434" class="LineNr">34434 </span> 68/push 0/imm32/next +<span id="L34435" class="LineNr">34435 </span> 68/push 0/imm32/no-x32 +<span id="L34436" class="LineNr">34436 </span> 68/push 0/imm32/no-xm32 +<span id="L34437" class="LineNr">34437 </span> 68/push 0/imm32/no-disp32 +<span id="L34438" class="LineNr">34438 </span> 68/push 0/imm32/no-imm8 +<span id="L34439" class="LineNr">34439 </span> 68/push 0/imm32/no-imm32 +<span id="L34440" class="LineNr">34440 </span> 68/push 0/imm32/no-r32 +<span id="L34441" class="LineNr">34441 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L34442" class="LineNr">34442 </span> 68/push 0/imm32/subx-name +<span id="L34443" class="LineNr">34443 </span> 68/push 0/imm32/subx-name +<span id="L34444" class="LineNr">34444 </span> 53/push-ebx/outputs +<span id="L34445" class="LineNr">34445 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34446" class="LineNr">34446 </span> 68/push 0/imm32/no-inouts +<span id="L34447" class="LineNr">34447 </span> 68/push 0/imm32/no-inouts +<span id="L34448" class="LineNr">34448 </span> 68/push 0/imm32/name +<span id="L34449" class="LineNr">34449 </span> 68/push 0/imm32/name +<span id="L34450" class="LineNr">34450 </span> 89/<- %ebx 4/r32/esp +<span id="L34451" class="LineNr">34451 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-name</span>: +<span id="L34452" class="LineNr">34452 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L34453" class="LineNr">34453 </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="L34454" class="LineNr">34454 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-subx-name</span>: +<span id="L34455" class="LineNr">34455 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L34456" class="LineNr">34456 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L34457" class="LineNr">34457 </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="L34458" class="LineNr">34458 </span> <span class="subxComment"># convert</span> +<span id="L34459" class="LineNr">34459 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L34460" class="LineNr">34460 </span> (<a href='mu.subx.html#L27027'>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="L34461" class="LineNr">34461 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L34462" class="Folded">34462 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L34468" class="LineNr">34468 </span> <span class="subxComment"># check output</span> +<span id="L34469" class="LineNr">34469 </span> (<a href='../109stream-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="L34470" class="LineNr">34470 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34471" class="LineNr">34471 </span> 89/<- %esp 5/r32/ebp +<span id="L34472" class="LineNr">34472 </span> 5d/pop-to-ebp +<span id="L34473" class="LineNr">34473 </span> c3/return +<span id="L34474" class="LineNr">34474 </span> +<span id="L34475" class="LineNr">34475 </span><span class="subxTest">test-emit-subx-stmt-select-primitive</span>: +<span id="L34476" class="LineNr">34476 </span> <span class="subxComment"># Select the right primitive between overloads.</span> +<span id="L34477" class="LineNr">34477 </span> <span class="subxComment"># foo <- increment</span> +<span id="L34478" class="LineNr">34478 </span> <span class="subxComment"># =></span> +<span id="L34479" class="LineNr">34479 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L34480" class="LineNr">34480 </span> <span class="subxComment">#</span> +<span id="L34481" class="LineNr">34481 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L34482" class="LineNr">34482 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L34483" class="LineNr">34483 </span> <span class="subxComment"># type: int</span> +<span id="L34484" class="LineNr">34484 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L34485" class="LineNr">34485 </span> <span class="subxComment">#</span> +<span id="L34486" class="LineNr">34486 </span> <span class="subxComment"># There's two primitives, as follows:</span> +<span id="L34487" class="LineNr">34487 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L34488" class="LineNr">34488 </span> <span class="subxComment"># out: int/reg</span> +<span id="L34489" class="LineNr">34489 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L34490" class="LineNr">34490 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L34491" class="LineNr">34491 </span> <span class="subxComment"># inout: int/mem</span> +<span id="L34492" class="LineNr">34492 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L34493" class="LineNr">34493 </span> <span class="subxComment">#</span> +<span id="L34494" class="LineNr">34494 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34495" class="LineNr">34495 </span> 55/push-ebp +<span id="L34496" class="LineNr">34496 </span> 89/<- %ebp 4/r32/esp +<span id="L34497" class="LineNr">34497 </span> <span class="subxComment"># setup</span> +<span id="L34498" class="LineNr">34498 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L34499" class="LineNr">34499 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L34500" class="LineNr">34500 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-type</span>: +<span id="L34501" class="LineNr">34501 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L34502" class="LineNr">34502 </span> 68/push 0/imm32/right:null +<span id="L34503" class="LineNr">34503 </span> 68/push 0/imm32/right:null +<span id="L34504" class="LineNr">34504 </span> 68/push 0/imm32/left:unused +<span id="L34505" class="LineNr">34505 </span> 68/push 1/imm32/value:int +<span id="L34506" class="LineNr">34506 </span> 68/push 1/imm32/is-atom?:true +<span id="L34507" class="LineNr">34507 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34508" class="LineNr">34508 </span> 89/<- %ecx 4/r32/esp +<span id="L34509" class="LineNr">34509 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var</span>: +<span id="L34510" class="LineNr">34510 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L34511" class="LineNr">34511 </span> 68/push 0/imm32/register +<span id="L34512" class="LineNr">34512 </span> 68/push 0/imm32/register +<span id="L34513" class="LineNr">34513 </span> 68/push 0/imm32/no-stack-offset +<span id="L34514" class="LineNr">34514 </span> 68/push 1/imm32/block-depth +<span id="L34515" class="LineNr">34515 </span> 51/push-ecx +<span id="L34516" class="LineNr">34516 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34517" class="LineNr">34517 </span> 68/push 0/imm32/name +<span id="L34518" class="LineNr">34518 </span> 68/push 0/imm32/name +<span id="L34519" class="LineNr">34519 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34520" class="LineNr">34520 </span> 89/<- %ecx 4/r32/esp +<span id="L34521" class="LineNr">34521 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-name</span>: +<span id="L34522" class="LineNr">34522 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L34523" class="LineNr">34523 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L34524" class="LineNr">34524 </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="L34525" class="LineNr">34525 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-register</span>: +<span id="L34526" class="LineNr">34526 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L34527" class="LineNr">34527 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L34528" class="LineNr">34528 </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="L34529" class="LineNr">34529 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-var</span>: +<span id="L34530" class="LineNr">34530 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L34531" class="LineNr">34531 </span> 68/push 0/imm32/is-deref:false +<span id="L34532" class="LineNr">34532 </span> 68/push 0/imm32/next +<span id="L34533" class="LineNr">34533 </span> 68/push 0/imm32/next +<span id="L34534" class="LineNr">34534 </span> 51/push-ecx/var-foo +<span id="L34535" class="LineNr">34535 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34536" class="LineNr">34536 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34537" class="LineNr">34537 </span> 89/<- %ebx 4/r32/esp +<span id="L34538" class="LineNr">34538 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt</span>: +<span id="L34539" class="LineNr">34539 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L34540" class="LineNr">34540 </span> 53/push-ebx/outputs +<span id="L34541" class="LineNr">34541 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34542" class="LineNr">34542 </span> 68/push 0/imm32/no-inouts +<span id="L34543" class="LineNr">34543 </span> 68/push 0/imm32/no-inouts +<span id="L34544" class="LineNr">34544 </span> 68/push 0/imm32/operation +<span id="L34545" class="LineNr">34545 </span> 68/push 0/imm32/operation +<span id="L34546" class="LineNr">34546 </span> 68/push 1/imm32 +<span id="L34547" class="LineNr">34547 </span> 89/<- %esi 4/r32/esp +<span id="L34548" class="LineNr">34548 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-operation</span>: +<span id="L34549" class="LineNr">34549 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L34550" class="LineNr">34550 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L34551" class="LineNr">34551 </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="L34552" class="LineNr">34552 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var</span>: +<span id="L34553" class="LineNr">34553 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L34554" class="LineNr">34554 </span> 68/push 0/imm32/register +<span id="L34555" class="LineNr">34555 </span> 68/push 0/imm32/register +<span id="L34556" class="LineNr">34556 </span> 68/push 0/imm32/no-stack-offset +<span id="L34557" class="LineNr">34557 </span> 68/push 1/imm32/block-depth +<span id="L34558" class="LineNr">34558 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L34559" class="LineNr">34559 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34560" class="LineNr">34560 </span> 68/push 0/imm32/name +<span id="L34561" class="LineNr">34561 </span> 68/push 0/imm32/name <span id="L34562" class="LineNr">34562 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34563" class="LineNr">34563 </span> 89/<- %esi 4/r32/esp -<span id="L34564" class="LineNr">34564 </span><span class="Constant">$test-add-mem-to-reg:initialize-outputs</span>: -<span id="L34565" class="LineNr">34565 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> -<span id="L34566" class="LineNr">34566 </span> 68/push 0/imm32/is-deref:false -<span id="L34567" class="LineNr">34567 </span> 68/push 0/imm32/next -<span id="L34568" class="LineNr">34568 </span> 68/push 0/imm32/next -<span id="L34569" class="LineNr">34569 </span> 51/push-ecx/var1 -<span id="L34570" class="LineNr">34570 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34571" class="LineNr">34571 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34572" class="LineNr">34572 </span> 89/<- %edi 4/r32/esp -<span id="L34573" class="LineNr">34573 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt</span>: -<span id="L34574" class="LineNr">34574 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L34563" class="LineNr">34563 </span> 89/<- %ebx 4/r32/esp +<span id="L34564" class="LineNr">34564 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var-name</span>: +<span id="L34565" class="LineNr">34565 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L34566" class="LineNr">34566 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L34567" class="LineNr">34567 </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="L34568" class="LineNr">34568 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-register</span>: +<span id="L34569" class="LineNr">34569 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L34570" class="LineNr">34570 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L34571" class="LineNr">34571 </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="L34572" class="LineNr">34572 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-list</span>: +<span id="L34573" class="LineNr">34573 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> +<span id="L34574" class="LineNr">34574 </span> 68/push 0/imm32/next <span id="L34575" class="LineNr">34575 </span> 68/push 0/imm32/next -<span id="L34576" class="LineNr">34576 </span> 68/push 0/imm32/next -<span id="L34577" class="LineNr">34577 </span> 57/push-edi/outputs -<span id="L34578" class="LineNr">34578 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34579" class="LineNr">34579 </span> 56/push-esi/inouts -<span id="L34580" class="LineNr">34580 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34581" class="LineNr">34581 </span> 68/push 0/imm32/operation -<span id="L34582" class="LineNr">34582 </span> 68/push 0/imm32/operation -<span id="L34583" class="LineNr">34583 </span> 68/push 1/imm32/tag:stmt1 -<span id="L34584" class="LineNr">34584 </span> 89/<- %esi 4/r32/esp -<span id="L34585" class="LineNr">34585 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt-operation</span>: -<span id="L34586" class="LineNr">34586 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L34587" class="LineNr">34587 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L34588" class="LineNr">34588 </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="L34589" class="LineNr">34589 </span> <span class="subxComment"># convert</span> -<span id="L34590" class="LineNr">34590 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L34591" class="LineNr">34591 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L34592" class="LineNr">34592 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L34593" class="Folded">34593 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L34599" class="LineNr">34599 </span> <span class="subxComment"># check output</span> -<span id="L34600" class="LineNr">34600 </span> (<a href='../109stream-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="L34601" class="LineNr">34601 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34602" class="LineNr">34602 </span> 89/<- %esp 5/r32/ebp -<span id="L34603" class="LineNr">34603 </span> 5d/pop-to-ebp -<span id="L34604" class="LineNr">34604 </span> c3/return -<span id="L34605" class="LineNr">34605 </span> -<span id="L34606" class="LineNr">34606 </span><span class="subxTest">test-add-literal-to-eax</span>: -<span id="L34607" class="LineNr">34607 </span> <span class="subxComment"># var1/eax <- add 0x34</span> -<span id="L34608" class="LineNr">34608 </span> <span class="subxComment"># =></span> -<span id="L34609" class="LineNr">34609 </span> <span class="subxComment"># 05/add-to-eax 0x34/imm32</span> -<span id="L34610" class="LineNr">34610 </span> <span class="subxComment">#</span> -<span id="L34611" class="LineNr">34611 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34612" class="LineNr">34612 </span> 55/push-ebp -<span id="L34613" class="LineNr">34613 </span> 89/<- %ebp 4/r32/esp -<span id="L34614" class="LineNr">34614 </span> <span class="subxComment"># setup</span> -<span id="L34615" class="LineNr">34615 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L34616" class="LineNr">34616 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L34617" class="LineNr">34617 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-type</span>: -<span id="L34618" class="LineNr">34618 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L34619" class="LineNr">34619 </span> 68/push 0/imm32/right:null -<span id="L34620" class="LineNr">34620 </span> 68/push 0/imm32/right:null -<span id="L34621" class="LineNr">34621 </span> 68/push 0/imm32/left:unused -<span id="L34622" class="LineNr">34622 </span> 68/push 1/imm32/value:int -<span id="L34623" class="LineNr">34623 </span> 68/push 1/imm32/is-atom?:true -<span id="L34624" class="LineNr">34624 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34625" class="LineNr">34625 </span> 89/<- %ecx 4/r32/esp -<span id="L34626" class="LineNr">34626 </span><span class="Constant">$test-add-literal-to-eax:initialize-var</span>: -<span id="L34627" class="LineNr">34627 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L34628" class="LineNr">34628 </span> 68/push 0/imm32/register -<span id="L34629" class="LineNr">34629 </span> 68/push 0/imm32/register -<span id="L34630" class="LineNr">34630 </span> 68/push 0/imm32/no-stack-offset -<span id="L34631" class="LineNr">34631 </span> 68/push 1/imm32/block-depth -<span id="L34632" class="LineNr">34632 </span> 51/push-ecx -<span id="L34633" class="LineNr">34633 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34634" class="LineNr">34634 </span> 68/push 0/imm32/name -<span id="L34635" class="LineNr">34635 </span> 68/push 0/imm32/name -<span id="L34636" class="LineNr">34636 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34637" class="LineNr">34637 </span> 89/<- %ecx 4/r32/esp -<span id="L34638" class="LineNr">34638 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-name</span>: -<span id="L34639" class="LineNr">34639 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L34640" class="LineNr">34640 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34641" class="LineNr">34641 </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="L34642" class="LineNr">34642 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-register</span>: -<span id="L34643" class="LineNr">34643 </span> <span class="subxComment"># v->register = "eax"</span> -<span id="L34644" class="LineNr">34644 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L34645" class="LineNr">34645 </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="L34646" class="LineNr">34646 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-type</span>: -<span id="L34647" class="LineNr">34647 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L34648" class="LineNr">34648 </span> 68/push 0/imm32/right:null -<span id="L34649" class="LineNr">34649 </span> 68/push 0/imm32/right:null -<span id="L34650" class="LineNr">34650 </span> 68/push 0/imm32/left:unused -<span id="L34651" class="LineNr">34651 </span> 68/push 0/imm32/value:literal -<span id="L34652" class="LineNr">34652 </span> 68/push 1/imm32/is-atom?:true -<span id="L34653" class="LineNr">34653 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34654" class="LineNr">34654 </span> 89/<- %edx 4/r32/esp -<span id="L34655" class="LineNr">34655 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal</span>: -<span id="L34656" class="LineNr">34656 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L34657" class="LineNr">34657 </span> 68/push 0/imm32/register -<span id="L34658" class="LineNr">34658 </span> 68/push 0/imm32/register -<span id="L34659" class="LineNr">34659 </span> 68/push 0/imm32/no-stack-offset -<span id="L34660" class="LineNr">34660 </span> 68/push 1/imm32/block-depth -<span id="L34661" class="LineNr">34661 </span> 52/push-edx -<span id="L34662" class="LineNr">34662 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34663" class="LineNr">34663 </span> 68/push 0/imm32/name -<span id="L34664" class="LineNr">34664 </span> 68/push 0/imm32/name -<span id="L34665" class="LineNr">34665 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34666" class="LineNr">34666 </span> 89/<- %edx 4/r32/esp -<span id="L34667" class="LineNr">34667 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-value</span>: -<span id="L34668" class="LineNr">34668 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L34669" class="LineNr">34669 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34670" class="LineNr">34670 </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="L34671" class="LineNr">34671 </span><span class="Constant">$test-add-literal-to-eax:initialize-inouts</span>: -<span id="L34672" class="LineNr">34672 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L34673" class="LineNr">34673 </span> 68/push 0/imm32/is-deref:false -<span id="L34674" class="LineNr">34674 </span> 68/push 0/imm32/next -<span id="L34675" class="LineNr">34675 </span> 68/push 0/imm32/next -<span id="L34676" class="LineNr">34676 </span> 52/push-edx/l -<span id="L34677" class="LineNr">34677 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34678" class="LineNr">34678 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34679" class="LineNr">34679 </span> 89/<- %esi 4/r32/esp -<span id="L34680" class="LineNr">34680 </span><span class="Constant">$test-add-literal-to-eax:initialize-outputs</span>: -<span id="L34681" class="LineNr">34681 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L34682" class="LineNr">34682 </span> 68/push 0/imm32/is-deref:false -<span id="L34683" class="LineNr">34683 </span> 68/push 0/imm32/next -<span id="L34684" class="LineNr">34684 </span> 68/push 0/imm32/next -<span id="L34685" class="LineNr">34685 </span> 51/push-ecx/v -<span id="L34686" class="LineNr">34686 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34687" class="LineNr">34687 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34688" class="LineNr">34688 </span> 89/<- %edi 4/r32/esp -<span id="L34689" class="LineNr">34689 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt</span>: -<span id="L34690" class="LineNr">34690 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L34691" class="LineNr">34691 </span> 68/push 0/imm32/next -<span id="L34692" class="LineNr">34692 </span> 68/push 0/imm32/next -<span id="L34693" class="LineNr">34693 </span> 57/push-edi/outputs +<span id="L34576" class="LineNr">34576 </span> 53/push-ebx/formal-var +<span id="L34577" class="LineNr">34577 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34578" class="LineNr">34578 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34579" class="LineNr">34579 </span> 89/<- %ebx 4/r32/esp +<span id="L34580" class="LineNr">34580 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2</span>: +<span id="L34581" class="LineNr">34581 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> +<span id="L34582" class="LineNr">34582 </span> 68/push 0/imm32/next +<span id="L34583" class="LineNr">34583 </span> 68/push 0/imm32/next +<span id="L34584" class="LineNr">34584 </span> 68/push 0/imm32/no-x32 +<span id="L34585" class="LineNr">34585 </span> 68/push 0/imm32/no-xm32 +<span id="L34586" class="LineNr">34586 </span> 68/push 0/imm32/no-disp32 +<span id="L34587" class="LineNr">34587 </span> 68/push 0/imm32/no-imm8 +<span id="L34588" class="LineNr">34588 </span> 68/push 0/imm32/no-imm32 +<span id="L34589" class="LineNr">34589 </span> 68/push 0/imm32/no-r32 +<span id="L34590" class="LineNr">34590 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L34591" class="LineNr">34591 </span> 68/push 0/imm32/subx-name +<span id="L34592" class="LineNr">34592 </span> 68/push 0/imm32/subx-name +<span id="L34593" class="LineNr">34593 </span> 53/push-ebx/outputs +<span id="L34594" class="LineNr">34594 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34595" class="LineNr">34595 </span> 68/push 0/imm32/no-inouts +<span id="L34596" class="LineNr">34596 </span> 68/push 0/imm32/no-inouts +<span id="L34597" class="LineNr">34597 </span> 68/push 0/imm32/name +<span id="L34598" class="LineNr">34598 </span> 68/push 0/imm32/name +<span id="L34599" class="LineNr">34599 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34600" class="LineNr">34600 </span> 89/<- %edi 4/r32/esp +<span id="L34601" class="LineNr">34601 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-name</span>: +<span id="L34602" class="LineNr">34602 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L34603" class="LineNr">34603 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> +<span id="L34604" class="LineNr">34604 </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="L34605" class="LineNr">34605 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-subx-name</span>: +<span id="L34606" class="LineNr">34606 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L34607" class="LineNr">34607 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> +<span id="L34608" class="LineNr">34608 </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="L34609" class="LineNr">34609 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive</span>: +<span id="L34610" class="LineNr">34610 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L34611" class="LineNr">34611 </span> 57/push-edi +<span id="L34612" class="LineNr">34612 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34613" class="LineNr">34613 </span> 68/push 0/imm32/no-x32 +<span id="L34614" class="LineNr">34614 </span> 68/push 0/imm32/no-xm32 +<span id="L34615" class="LineNr">34615 </span> 68/push 0/imm32/no-disp32 +<span id="L34616" class="LineNr">34616 </span> 68/push 0/imm32/no-imm8 +<span id="L34617" class="LineNr">34617 </span> 68/push 0/imm32/no-imm32 +<span id="L34618" class="LineNr">34618 </span> 68/push 0/imm32/no-r32 +<span id="L34619" class="LineNr">34619 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L34620" class="LineNr">34620 </span> 68/push 0/imm32/subx-name +<span id="L34621" class="LineNr">34621 </span> 68/push 0/imm32/subx-name +<span id="L34622" class="LineNr">34622 </span> 68/push 0/imm32/no-outputs +<span id="L34623" class="LineNr">34623 </span> 68/push 0/imm32/no-outputs +<span id="L34624" class="LineNr">34624 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L34625" class="LineNr">34625 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34626" class="LineNr">34626 </span> 68/push 0/imm32/name +<span id="L34627" class="LineNr">34627 </span> 68/push 0/imm32/name +<span id="L34628" class="LineNr">34628 </span> 89/<- %ebx 4/r32/esp +<span id="L34629" class="LineNr">34629 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-name</span>: +<span id="L34630" class="LineNr">34630 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L34631" class="LineNr">34631 </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="L34632" class="LineNr">34632 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-subx-name</span>: +<span id="L34633" class="LineNr">34633 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L34634" class="LineNr">34634 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L34635" class="LineNr">34635 </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="L34636" class="LineNr">34636 </span> <span class="subxComment"># convert</span> +<span id="L34637" class="LineNr">34637 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L34638" class="LineNr">34638 </span> (<a href='mu.subx.html#L27027'>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="L34639" class="LineNr">34639 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L34640" class="Folded">34640 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L34646" class="LineNr">34646 </span> <span class="subxComment"># check output</span> +<span id="L34647" class="LineNr">34647 </span> (<a href='../109stream-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="L34648" class="LineNr">34648 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34649" class="LineNr">34649 </span> 89/<- %esp 5/r32/ebp +<span id="L34650" class="LineNr">34650 </span> 5d/pop-to-ebp +<span id="L34651" class="LineNr">34651 </span> c3/return +<span id="L34652" class="LineNr">34652 </span> +<span id="L34653" class="LineNr">34653 </span><span class="subxTest">test-emit-subx-stmt-select-primitive-2</span>: +<span id="L34654" class="LineNr">34654 </span> <span class="subxComment"># Select the right primitive between overloads.</span> +<span id="L34655" class="LineNr">34655 </span> <span class="subxComment"># increment foo</span> +<span id="L34656" class="LineNr">34656 </span> <span class="subxComment"># =></span> +<span id="L34657" class="LineNr">34657 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L34658" class="LineNr">34658 </span> <span class="subxComment">#</span> +<span id="L34659" class="LineNr">34659 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L34660" class="LineNr">34660 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L34661" class="LineNr">34661 </span> <span class="subxComment"># type: int</span> +<span id="L34662" class="LineNr">34662 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L34663" class="LineNr">34663 </span> <span class="subxComment">#</span> +<span id="L34664" class="LineNr">34664 </span> <span class="subxComment"># There's two primitives, as follows:</span> +<span id="L34665" class="LineNr">34665 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L34666" class="LineNr">34666 </span> <span class="subxComment"># out: int/reg</span> +<span id="L34667" class="LineNr">34667 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L34668" class="LineNr">34668 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L34669" class="LineNr">34669 </span> <span class="subxComment"># inout: int/mem</span> +<span id="L34670" class="LineNr">34670 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L34671" class="LineNr">34671 </span> <span class="subxComment">#</span> +<span id="L34672" class="LineNr">34672 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34673" class="LineNr">34673 </span> 55/push-ebp +<span id="L34674" class="LineNr">34674 </span> 89/<- %ebp 4/r32/esp +<span id="L34675" class="LineNr">34675 </span> <span class="subxComment"># setup</span> +<span id="L34676" class="LineNr">34676 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L34677" class="LineNr">34677 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L34678" class="LineNr">34678 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-type</span>: +<span id="L34679" class="LineNr">34679 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L34680" class="LineNr">34680 </span> 68/push 0/imm32/right:null +<span id="L34681" class="LineNr">34681 </span> 68/push 0/imm32/right:null +<span id="L34682" class="LineNr">34682 </span> 68/push 0/imm32/left:unused +<span id="L34683" class="LineNr">34683 </span> 68/push 1/imm32/value:int +<span id="L34684" class="LineNr">34684 </span> 68/push 1/imm32/is-atom?:true +<span id="L34685" class="LineNr">34685 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34686" class="LineNr">34686 </span> 89/<- %ecx 4/r32/esp +<span id="L34687" class="LineNr">34687 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var</span>: +<span id="L34688" class="LineNr">34688 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L34689" class="LineNr">34689 </span> 68/push 0/imm32/register +<span id="L34690" class="LineNr">34690 </span> 68/push 0/imm32/register +<span id="L34691" class="LineNr">34691 </span> 68/push 0/imm32/no-stack-offset +<span id="L34692" class="LineNr">34692 </span> 68/push 1/imm32/block-depth +<span id="L34693" class="LineNr">34693 </span> 51/push-ecx <span id="L34694" class="LineNr">34694 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34695" class="LineNr">34695 </span> 56/push-esi/inouts -<span id="L34696" class="LineNr">34696 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34697" class="LineNr">34697 </span> 68/push 0/imm32/operation -<span id="L34698" class="LineNr">34698 </span> 68/push 0/imm32/operation -<span id="L34699" class="LineNr">34699 </span> 68/push 1/imm32/tag:stmt1 -<span id="L34700" class="LineNr">34700 </span> 89/<- %esi 4/r32/esp -<span id="L34701" class="LineNr">34701 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt-operation</span>: -<span id="L34702" class="LineNr">34702 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L34703" class="LineNr">34703 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L34704" class="LineNr">34704 </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="L34705" class="LineNr">34705 </span> <span class="subxComment"># convert</span> -<span id="L34706" class="LineNr">34706 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L34707" class="LineNr">34707 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L34708" class="LineNr">34708 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L34709" class="Folded">34709 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L34715" class="LineNr">34715 </span> <span class="subxComment"># check output</span> -<span id="L34716" class="LineNr">34716 </span> (<a href='../109stream-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="L34717" class="LineNr">34717 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34718" class="LineNr">34718 </span> 89/<- %esp 5/r32/ebp -<span id="L34719" class="LineNr">34719 </span> 5d/pop-to-ebp -<span id="L34720" class="LineNr">34720 </span> c3/return -<span id="L34721" class="LineNr">34721 </span> -<span id="L34722" class="LineNr">34722 </span><span class="subxTest">test-add-literal-to-reg</span>: -<span id="L34723" class="LineNr">34723 </span> <span class="subxComment"># var1/ecx <- add 0x34</span> -<span id="L34724" class="LineNr">34724 </span> <span class="subxComment"># =></span> -<span id="L34725" class="LineNr">34725 </span> <span class="subxComment"># 81 0/subop/add %ecx 0x34/imm32</span> -<span id="L34726" class="LineNr">34726 </span> <span class="subxComment">#</span> -<span id="L34727" class="LineNr">34727 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34728" class="LineNr">34728 </span> 55/push-ebp -<span id="L34729" class="LineNr">34729 </span> 89/<- %ebp 4/r32/esp -<span id="L34730" class="LineNr">34730 </span> <span class="subxComment"># setup</span> -<span id="L34731" class="LineNr">34731 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L34732" class="LineNr">34732 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L34733" class="LineNr">34733 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-type</span>: -<span id="L34734" class="LineNr">34734 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L34735" class="LineNr">34735 </span> 68/push 0/imm32/right:null -<span id="L34736" class="LineNr">34736 </span> 68/push 0/imm32/right:null -<span id="L34737" class="LineNr">34737 </span> 68/push 0/imm32/left:unused -<span id="L34738" class="LineNr">34738 </span> 68/push 1/imm32/value:int -<span id="L34739" class="LineNr">34739 </span> 68/push 1/imm32/is-atom?:true +<span id="L34695" class="LineNr">34695 </span> 68/push 0/imm32/name +<span id="L34696" class="LineNr">34696 </span> 68/push 0/imm32/name +<span id="L34697" class="LineNr">34697 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34698" class="LineNr">34698 </span> 89/<- %ecx 4/r32/esp +<span id="L34699" class="LineNr">34699 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-name</span>: +<span id="L34700" class="LineNr">34700 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L34701" class="LineNr">34701 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L34702" class="LineNr">34702 </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="L34703" class="LineNr">34703 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-register</span>: +<span id="L34704" class="LineNr">34704 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L34705" class="LineNr">34705 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L34706" class="LineNr">34706 </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="L34707" class="LineNr">34707 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-var</span>: +<span id="L34708" class="LineNr">34708 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L34709" class="LineNr">34709 </span> 68/push 0/imm32/is-deref:false +<span id="L34710" class="LineNr">34710 </span> 68/push 0/imm32/next +<span id="L34711" class="LineNr">34711 </span> 68/push 0/imm32/next +<span id="L34712" class="LineNr">34712 </span> 51/push-ecx/var-foo +<span id="L34713" class="LineNr">34713 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34714" class="LineNr">34714 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34715" class="LineNr">34715 </span> 89/<- %ebx 4/r32/esp +<span id="L34716" class="LineNr">34716 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt</span>: +<span id="L34717" class="LineNr">34717 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L34718" class="LineNr">34718 </span> 68/push 0/imm32/no-outputs +<span id="L34719" class="LineNr">34719 </span> 68/push 0/imm32/no-outputs +<span id="L34720" class="LineNr">34720 </span> 53/push-ebx/inouts +<span id="L34721" class="LineNr">34721 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34722" class="LineNr">34722 </span> 68/push 0/imm32/operation +<span id="L34723" class="LineNr">34723 </span> 68/push 0/imm32/operation +<span id="L34724" class="LineNr">34724 </span> 68/push 1/imm32 +<span id="L34725" class="LineNr">34725 </span> 89/<- %esi 4/r32/esp +<span id="L34726" class="LineNr">34726 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-operation</span>: +<span id="L34727" class="LineNr">34727 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L34728" class="LineNr">34728 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L34729" class="LineNr">34729 </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="L34730" class="LineNr">34730 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var</span>: +<span id="L34731" class="LineNr">34731 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L34732" class="LineNr">34732 </span> 68/push 0/imm32/register +<span id="L34733" class="LineNr">34733 </span> 68/push 0/imm32/register +<span id="L34734" class="LineNr">34734 </span> 68/push 0/imm32/no-stack-offset +<span id="L34735" class="LineNr">34735 </span> 68/push 1/imm32/block-depth +<span id="L34736" class="LineNr">34736 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L34737" class="LineNr">34737 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34738" class="LineNr">34738 </span> 68/push 0/imm32/name +<span id="L34739" class="LineNr">34739 </span> 68/push 0/imm32/name <span id="L34740" class="LineNr">34740 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34741" class="LineNr">34741 </span> 89/<- %ecx 4/r32/esp -<span id="L34742" class="LineNr">34742 </span><span class="Constant">$test-add-literal-to-reg:initialize-var</span>: -<span id="L34743" class="LineNr">34743 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L34744" class="LineNr">34744 </span> 68/push 0/imm32/register -<span id="L34745" class="LineNr">34745 </span> 68/push 0/imm32/register -<span id="L34746" class="LineNr">34746 </span> 68/push 0/imm32/no-stack-offset -<span id="L34747" class="LineNr">34747 </span> 68/push 1/imm32/block-depth -<span id="L34748" class="LineNr">34748 </span> 51/push-ecx -<span id="L34749" class="LineNr">34749 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34750" class="LineNr">34750 </span> 68/push 0/imm32/name -<span id="L34751" class="LineNr">34751 </span> 68/push 0/imm32/name -<span id="L34752" class="LineNr">34752 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34753" class="LineNr">34753 </span> 89/<- %ecx 4/r32/esp -<span id="L34754" class="LineNr">34754 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-name</span>: -<span id="L34755" class="LineNr">34755 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L34756" class="LineNr">34756 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34757" class="LineNr">34757 </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="L34758" class="LineNr">34758 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-register</span>: -<span id="L34759" class="LineNr">34759 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L34760" class="LineNr">34760 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L34761" class="LineNr">34761 </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="L34762" class="LineNr">34762 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-type</span>: -<span id="L34763" class="LineNr">34763 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L34764" class="LineNr">34764 </span> 68/push 0/imm32/right:null -<span id="L34765" class="LineNr">34765 </span> 68/push 0/imm32/right:null -<span id="L34766" class="LineNr">34766 </span> 68/push 0/imm32/left:unused -<span id="L34767" class="LineNr">34767 </span> 68/push 0/imm32/value:literal -<span id="L34768" class="LineNr">34768 </span> 68/push 1/imm32/is-atom?:true -<span id="L34769" class="LineNr">34769 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34770" class="LineNr">34770 </span> 89/<- %edx 4/r32/esp -<span id="L34771" class="LineNr">34771 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal</span>: -<span id="L34772" class="LineNr">34772 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L34773" class="LineNr">34773 </span> 68/push 0/imm32/register -<span id="L34774" class="LineNr">34774 </span> 68/push 0/imm32/register -<span id="L34775" class="LineNr">34775 </span> 68/push 0/imm32/no-stack-offset -<span id="L34776" class="LineNr">34776 </span> 68/push 1/imm32/block-depth -<span id="L34777" class="LineNr">34777 </span> 52/push-edx -<span id="L34778" class="LineNr">34778 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34779" class="LineNr">34779 </span> 68/push 0/imm32/name -<span id="L34780" class="LineNr">34780 </span> 68/push 0/imm32/name -<span id="L34781" class="LineNr">34781 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34782" class="LineNr">34782 </span> 89/<- %edx 4/r32/esp -<span id="L34783" class="LineNr">34783 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-value</span>: -<span id="L34784" class="LineNr">34784 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L34785" class="LineNr">34785 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34786" class="LineNr">34786 </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="L34787" class="LineNr">34787 </span><span class="Constant">$test-add-literal-to-reg:initialize-inouts</span>: -<span id="L34788" class="LineNr">34788 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L34789" class="LineNr">34789 </span> 68/push 0/imm32/is-deref:false -<span id="L34790" class="LineNr">34790 </span> 68/push 0/imm32/next -<span id="L34791" class="LineNr">34791 </span> 68/push 0/imm32/next -<span id="L34792" class="LineNr">34792 </span> 52/push-edx/l -<span id="L34793" class="LineNr">34793 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34794" class="LineNr">34794 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34795" class="LineNr">34795 </span> 89/<- %esi 4/r32/esp -<span id="L34796" class="LineNr">34796 </span><span class="Constant">$test-add-literal-to-reg:initialize-outputs</span>: -<span id="L34797" class="LineNr">34797 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L34798" class="LineNr">34798 </span> 68/push 0/imm32/is-deref:false -<span id="L34799" class="LineNr">34799 </span> 68/push 0/imm32/next -<span id="L34800" class="LineNr">34800 </span> 68/push 0/imm32/next -<span id="L34801" class="LineNr">34801 </span> 51/push-ecx/v -<span id="L34802" class="LineNr">34802 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34803" class="LineNr">34803 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34804" class="LineNr">34804 </span> 89/<- %edi 4/r32/esp -<span id="L34805" class="LineNr">34805 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt</span>: -<span id="L34806" class="LineNr">34806 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L34807" class="LineNr">34807 </span> 68/push 0/imm32/next -<span id="L34808" class="LineNr">34808 </span> 68/push 0/imm32/next -<span id="L34809" class="LineNr">34809 </span> 57/push-edi/outputs -<span id="L34810" class="LineNr">34810 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34811" class="LineNr">34811 </span> 56/push-esi/inouts -<span id="L34812" class="LineNr">34812 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34813" class="LineNr">34813 </span> 68/push 0/imm32/operation -<span id="L34814" class="LineNr">34814 </span> 68/push 0/imm32/operation -<span id="L34815" class="LineNr">34815 </span> 68/push 1/imm32/tag:stmt1 -<span id="L34816" class="LineNr">34816 </span> 89/<- %esi 4/r32/esp -<span id="L34817" class="LineNr">34817 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt-operation</span>: -<span id="L34818" class="LineNr">34818 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L34819" class="LineNr">34819 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L34820" class="LineNr">34820 </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="L34821" class="LineNr">34821 </span> <span class="subxComment"># convert</span> -<span id="L34822" class="LineNr">34822 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L34823" class="LineNr">34823 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L34824" class="LineNr">34824 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L34825" class="Folded">34825 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L34831" class="LineNr">34831 </span> <span class="subxComment"># check output</span> -<span id="L34832" class="LineNr">34832 </span> (<a href='../109stream-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="L34833" class="LineNr">34833 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34834" class="LineNr">34834 </span> 89/<- %esp 5/r32/ebp -<span id="L34835" class="LineNr">34835 </span> 5d/pop-to-ebp -<span id="L34836" class="LineNr">34836 </span> c3/return -<span id="L34837" class="LineNr">34837 </span> -<span id="L34838" class="LineNr">34838 </span><span class="subxTest">test-add-literal-to-mem</span>: -<span id="L34839" class="LineNr">34839 </span> <span class="subxComment"># add-to var1, 0x34</span> -<span id="L34840" class="LineNr">34840 </span> <span class="subxComment"># =></span> -<span id="L34841" class="LineNr">34841 </span> <span class="subxComment"># 81 0/subop/add %eax 0x34/imm32</span> -<span id="L34842" class="LineNr">34842 </span> <span class="subxComment">#</span> -<span id="L34843" class="LineNr">34843 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34844" class="LineNr">34844 </span> 55/push-ebp -<span id="L34845" class="LineNr">34845 </span> 89/<- %ebp 4/r32/esp -<span id="L34846" class="LineNr">34846 </span> <span class="subxComment"># setup</span> -<span id="L34847" class="LineNr">34847 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L34848" class="LineNr">34848 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L34849" class="LineNr">34849 </span><span class="Constant">$test-add-literal-to-mem:initialize-type</span>: -<span id="L34850" class="LineNr">34850 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L34851" class="LineNr">34851 </span> 68/push 0/imm32/right:null +<span id="L34741" class="LineNr">34741 </span> 89/<- %ebx 4/r32/esp +<span id="L34742" class="LineNr">34742 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var-name</span>: +<span id="L34743" class="LineNr">34743 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L34744" class="LineNr">34744 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L34745" class="LineNr">34745 </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="L34746" class="LineNr">34746 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-register</span>: +<span id="L34747" class="LineNr">34747 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L34748" class="LineNr">34748 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L34749" class="LineNr">34749 </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="L34750" class="LineNr">34750 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-list</span>: +<span id="L34751" class="LineNr">34751 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list stmt-var)</span> +<span id="L34752" class="LineNr">34752 </span> 68/push 0/imm32/next +<span id="L34753" class="LineNr">34753 </span> 68/push 0/imm32/next +<span id="L34754" class="LineNr">34754 </span> 53/push-ebx/formal-var +<span id="L34755" class="LineNr">34755 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34756" class="LineNr">34756 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34757" class="LineNr">34757 </span> 89/<- %ebx 4/r32/esp +<span id="L34758" class="LineNr">34758 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2</span>: +<span id="L34759" class="LineNr">34759 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> +<span id="L34760" class="LineNr">34760 </span> 68/push 0/imm32/next +<span id="L34761" class="LineNr">34761 </span> 68/push 0/imm32/next +<span id="L34762" class="LineNr">34762 </span> 68/push 0/imm32/no-x32 +<span id="L34763" class="LineNr">34763 </span> 68/push 0/imm32/no-xm32 +<span id="L34764" class="LineNr">34764 </span> 68/push 0/imm32/no-disp32 +<span id="L34765" class="LineNr">34765 </span> 68/push 0/imm32/no-imm8 +<span id="L34766" class="LineNr">34766 </span> 68/push 0/imm32/no-imm32 +<span id="L34767" class="LineNr">34767 </span> 68/push 0/imm32/no-r32 +<span id="L34768" class="LineNr">34768 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L34769" class="LineNr">34769 </span> 68/push 0/imm32/subx-name +<span id="L34770" class="LineNr">34770 </span> 68/push 0/imm32/subx-name +<span id="L34771" class="LineNr">34771 </span> 53/push-ebx/outputs +<span id="L34772" class="LineNr">34772 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34773" class="LineNr">34773 </span> 68/push 0/imm32/no-inouts +<span id="L34774" class="LineNr">34774 </span> 68/push 0/imm32/no-inouts +<span id="L34775" class="LineNr">34775 </span> 68/push 0/imm32/name +<span id="L34776" class="LineNr">34776 </span> 68/push 0/imm32/name +<span id="L34777" class="LineNr">34777 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34778" class="LineNr">34778 </span> 89/<- %edi 4/r32/esp +<span id="L34779" class="LineNr">34779 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-name</span>: +<span id="L34780" class="LineNr">34780 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L34781" class="LineNr">34781 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> +<span id="L34782" class="LineNr">34782 </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="L34783" class="LineNr">34783 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-subx-name</span>: +<span id="L34784" class="LineNr">34784 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L34785" class="LineNr">34785 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> +<span id="L34786" class="LineNr">34786 </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="L34787" class="LineNr">34787 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive</span>: +<span id="L34788" class="LineNr">34788 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L34789" class="LineNr">34789 </span> 57/push-edi +<span id="L34790" class="LineNr">34790 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34791" class="LineNr">34791 </span> 68/push 0/imm32/no-x32 +<span id="L34792" class="LineNr">34792 </span> 68/push 0/imm32/no-xm32 +<span id="L34793" class="LineNr">34793 </span> 68/push 0/imm32/no-disp32 +<span id="L34794" class="LineNr">34794 </span> 68/push 0/imm32/no-imm8 +<span id="L34795" class="LineNr">34795 </span> 68/push 0/imm32/no-imm32 +<span id="L34796" class="LineNr">34796 </span> 68/push 0/imm32/no-r32 +<span id="L34797" class="LineNr">34797 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L34798" class="LineNr">34798 </span> 68/push 0/imm32/subx-name +<span id="L34799" class="LineNr">34799 </span> 68/push 0/imm32/subx-name +<span id="L34800" class="LineNr">34800 </span> 68/push 0/imm32/no-outputs +<span id="L34801" class="LineNr">34801 </span> 68/push 0/imm32/no-outputs +<span id="L34802" class="LineNr">34802 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L34803" class="LineNr">34803 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34804" class="LineNr">34804 </span> 68/push 0/imm32/name +<span id="L34805" class="LineNr">34805 </span> 68/push 0/imm32/name +<span id="L34806" class="LineNr">34806 </span> 89/<- %ebx 4/r32/esp +<span id="L34807" class="LineNr">34807 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-name</span>: +<span id="L34808" class="LineNr">34808 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L34809" class="LineNr">34809 </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="L34810" class="LineNr">34810 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-subx-name</span>: +<span id="L34811" class="LineNr">34811 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L34812" class="LineNr">34812 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L34813" class="LineNr">34813 </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="L34814" class="LineNr">34814 </span> <span class="subxComment"># convert</span> +<span id="L34815" class="LineNr">34815 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L34816" class="LineNr">34816 </span> (<a href='mu.subx.html#L27027'>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="L34817" class="LineNr">34817 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L34818" class="Folded">34818 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L34824" class="LineNr">34824 </span> <span class="subxComment"># check output</span> +<span id="L34825" class="LineNr">34825 </span> (<a href='../109stream-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="L34826" class="LineNr">34826 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34827" class="LineNr">34827 </span> 89/<- %esp 5/r32/ebp +<span id="L34828" class="LineNr">34828 </span> 5d/pop-to-ebp +<span id="L34829" class="LineNr">34829 </span> c3/return +<span id="L34830" class="LineNr">34830 </span> +<span id="L34831" class="LineNr">34831 </span><span class="subxTest">test-increment-register</span>: +<span id="L34832" class="LineNr">34832 </span> <span class="subxComment"># Select the right register between overloads.</span> +<span id="L34833" class="LineNr">34833 </span> <span class="subxComment"># foo <- increment</span> +<span id="L34834" class="LineNr">34834 </span> <span class="subxComment"># =></span> +<span id="L34835" class="LineNr">34835 </span> <span class="subxComment"># 50/increment-eax</span> +<span id="L34836" class="LineNr">34836 </span> <span class="subxComment">#</span> +<span id="L34837" class="LineNr">34837 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L34838" class="LineNr">34838 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L34839" class="LineNr">34839 </span> <span class="subxComment"># type: int</span> +<span id="L34840" class="LineNr">34840 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L34841" class="LineNr">34841 </span> <span class="subxComment">#</span> +<span id="L34842" class="LineNr">34842 </span> <span class="subxComment"># Primitives are the global definitions.</span> +<span id="L34843" class="LineNr">34843 </span> <span class="subxComment">#</span> +<span id="L34844" class="LineNr">34844 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34845" class="LineNr">34845 </span> 55/push-ebp +<span id="L34846" class="LineNr">34846 </span> 89/<- %ebp 4/r32/esp +<span id="L34847" class="LineNr">34847 </span> <span class="subxComment"># setup</span> +<span id="L34848" class="LineNr">34848 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L34849" class="LineNr">34849 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L34850" class="LineNr">34850 </span><span class="Constant">$test-increment-register:initialize-type</span>: +<span id="L34851" class="LineNr">34851 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> <span id="L34852" class="LineNr">34852 </span> 68/push 0/imm32/right:null -<span id="L34853" class="LineNr">34853 </span> 68/push 0/imm32/left:unused -<span id="L34854" class="LineNr">34854 </span> 68/push 1/imm32/value:int -<span id="L34855" class="LineNr">34855 </span> 68/push 1/imm32/is-atom?:true -<span id="L34856" class="LineNr">34856 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34857" class="LineNr">34857 </span> 89/<- %ecx 4/r32/esp -<span id="L34858" class="LineNr">34858 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1</span>: -<span id="L34859" class="LineNr">34859 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L34860" class="LineNr">34860 </span> 68/push 0/imm32/register +<span id="L34853" class="LineNr">34853 </span> 68/push 0/imm32/right:null +<span id="L34854" class="LineNr">34854 </span> 68/push 0/imm32/left:unused +<span id="L34855" class="LineNr">34855 </span> 68/push 1/imm32/value:int +<span id="L34856" class="LineNr">34856 </span> 68/push 1/imm32/is-atom?:true +<span id="L34857" class="LineNr">34857 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34858" class="LineNr">34858 </span> 89/<- %ecx 4/r32/esp +<span id="L34859" class="LineNr">34859 </span><span class="Constant">$test-increment-register:initialize-var</span>: +<span id="L34860" class="LineNr">34860 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> <span id="L34861" class="LineNr">34861 </span> 68/push 0/imm32/register -<span id="L34862" class="LineNr">34862 </span> 68/push 8/imm32/stack-offset -<span id="L34863" class="LineNr">34863 </span> 68/push 1/imm32/block-depth -<span id="L34864" class="LineNr">34864 </span> 51/push-ecx -<span id="L34865" class="LineNr">34865 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34866" class="LineNr">34866 </span> 68/push 0/imm32/name +<span id="L34862" class="LineNr">34862 </span> 68/push 0/imm32/register +<span id="L34863" class="LineNr">34863 </span> 68/push 0/imm32/no-stack-offset +<span id="L34864" class="LineNr">34864 </span> 68/push 1/imm32/block-depth +<span id="L34865" class="LineNr">34865 </span> 51/push-ecx +<span id="L34866" class="LineNr">34866 </span> 68/push 0x11/imm32/alloc-id:fake <span id="L34867" class="LineNr">34867 </span> 68/push 0/imm32/name -<span id="L34868" class="LineNr">34868 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34869" class="LineNr">34869 </span> 89/<- %ecx 4/r32/esp -<span id="L34870" class="LineNr">34870 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1-name</span>: -<span id="L34871" class="LineNr">34871 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L34872" class="LineNr">34872 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34873" class="LineNr">34873 </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="L34874" class="LineNr">34874 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-type</span>: -<span id="L34875" class="LineNr">34875 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L34876" class="LineNr">34876 </span> 68/push 0/imm32/right:null -<span id="L34877" class="LineNr">34877 </span> 68/push 0/imm32/right:null -<span id="L34878" class="LineNr">34878 </span> 68/push 0/imm32/left:unused -<span id="L34879" class="LineNr">34879 </span> 68/push 0/imm32/value:literal -<span id="L34880" class="LineNr">34880 </span> 68/push 1/imm32/is-atom?:true -<span id="L34881" class="LineNr">34881 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34882" class="LineNr">34882 </span> 89/<- %edx 4/r32/esp -<span id="L34883" class="LineNr">34883 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal</span>: -<span id="L34884" class="LineNr">34884 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L34885" class="LineNr">34885 </span> 68/push 0/imm32/register -<span id="L34886" class="LineNr">34886 </span> 68/push 0/imm32/register -<span id="L34887" class="LineNr">34887 </span> 68/push 0/imm32/no-stack-offset -<span id="L34888" class="LineNr">34888 </span> 68/push 1/imm32/block-depth -<span id="L34889" class="LineNr">34889 </span> 52/push-edx -<span id="L34890" class="LineNr">34890 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34891" class="LineNr">34891 </span> 68/push 0/imm32/name -<span id="L34892" class="LineNr">34892 </span> 68/push 0/imm32/name -<span id="L34893" class="LineNr">34893 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34894" class="LineNr">34894 </span> 89/<- %edx 4/r32/esp -<span id="L34895" class="LineNr">34895 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-value</span>: -<span id="L34896" class="LineNr">34896 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L34897" class="LineNr">34897 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34898" class="LineNr">34898 </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="L34899" class="LineNr">34899 </span><span class="Constant">$test-add-literal-to-mem:initialize-inouts</span>: -<span id="L34900" class="LineNr">34900 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L34901" class="LineNr">34901 </span> 68/push 0/imm32/is-deref:false -<span id="L34902" class="LineNr">34902 </span> 68/push 0/imm32/next -<span id="L34903" class="LineNr">34903 </span> 68/push 0/imm32/next -<span id="L34904" class="LineNr">34904 </span> 52/push-edx/l -<span id="L34905" class="LineNr">34905 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34906" class="LineNr">34906 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34907" class="LineNr">34907 </span> 89/<- %esi 4/r32/esp -<span id="L34908" class="LineNr">34908 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L34909" class="LineNr">34909 </span> 68/push 0/imm32/is-deref:false -<span id="L34910" class="LineNr">34910 </span> 56/push-esi/next -<span id="L34911" class="LineNr">34911 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34912" class="LineNr">34912 </span> 51/push-ecx/var1 -<span id="L34913" class="LineNr">34913 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34914" class="LineNr">34914 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34915" class="LineNr">34915 </span> 89/<- %esi 4/r32/esp -<span id="L34916" class="LineNr">34916 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt</span>: -<span id="L34917" class="LineNr">34917 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L34918" class="LineNr">34918 </span> 68/push 0/imm32/next -<span id="L34919" class="LineNr">34919 </span> 68/push 0/imm32/next -<span id="L34920" class="LineNr">34920 </span> 68/push 0/imm32/outputs -<span id="L34921" class="LineNr">34921 </span> 68/push 0/imm32/outputs -<span id="L34922" class="LineNr">34922 </span> 56/push-esi/inouts -<span id="L34923" class="LineNr">34923 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34924" class="LineNr">34924 </span> 68/push 0/imm32/operation -<span id="L34925" class="LineNr">34925 </span> 68/push 0/imm32/operation -<span id="L34926" class="LineNr">34926 </span> 68/push 1/imm32/tag:stmt1 -<span id="L34927" class="LineNr">34927 </span> 89/<- %esi 4/r32/esp -<span id="L34928" class="LineNr">34928 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt-operation</span>: -<span id="L34929" class="LineNr">34929 </span> <span class="subxComment"># stmt->operation = "add-to"</span> -<span id="L34930" class="LineNr">34930 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L34931" class="LineNr">34931 </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="L34932" class="LineNr">34932 </span> <span class="subxComment"># convert</span> -<span id="L34933" class="LineNr">34933 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L34934" class="LineNr">34934 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L34935" class="LineNr">34935 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L34936" class="Folded">34936 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L34942" class="LineNr">34942 </span> <span class="subxComment"># check output</span> -<span id="L34943" class="LineNr">34943 </span> (<a href='../109stream-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="L34944" class="LineNr">34944 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34945" class="LineNr">34945 </span> 89/<- %esp 5/r32/ebp -<span id="L34946" class="LineNr">34946 </span> 5d/pop-to-ebp -<span id="L34947" class="LineNr">34947 </span> c3/return -<span id="L34948" class="LineNr">34948 </span> -<span id="L34949" class="LineNr">34949 </span><span class="subxTest">test-shift-reg-by-literal</span>: -<span id="L34950" class="LineNr">34950 </span> <span class="subxComment"># var1/ecx <- shift-left 2</span> -<span id="L34951" class="LineNr">34951 </span> <span class="subxComment"># =></span> -<span id="L34952" class="LineNr">34952 </span> <span class="subxComment"># c1/shift 4/subop/left %ecx 2/imm8</span> -<span id="L34953" class="LineNr">34953 </span> <span class="subxComment">#</span> -<span id="L34954" class="LineNr">34954 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34955" class="LineNr">34955 </span> 55/push-ebp -<span id="L34956" class="LineNr">34956 </span> 89/<- %ebp 4/r32/esp -<span id="L34957" class="LineNr">34957 </span> <span class="subxComment"># setup</span> -<span id="L34958" class="LineNr">34958 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L34959" class="LineNr">34959 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L34960" class="LineNr">34960 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-type</span>: -<span id="L34961" class="LineNr">34961 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L34962" class="LineNr">34962 </span> 68/push 0/imm32/right:null -<span id="L34963" class="LineNr">34963 </span> 68/push 0/imm32/right:null -<span id="L34964" class="LineNr">34964 </span> 68/push 0/imm32/left:unused -<span id="L34965" class="LineNr">34965 </span> 68/push 1/imm32/value:int -<span id="L34966" class="LineNr">34966 </span> 68/push 1/imm32/is-atom?:true -<span id="L34967" class="LineNr">34967 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34968" class="LineNr">34968 </span> 89/<- %ecx 4/r32/esp -<span id="L34969" class="LineNr">34969 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var</span>: -<span id="L34970" class="LineNr">34970 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L34971" class="LineNr">34971 </span> 68/push 0/imm32/register -<span id="L34972" class="LineNr">34972 </span> 68/push 0/imm32/register -<span id="L34973" class="LineNr">34973 </span> 68/push 0/imm32/no-stack-offset -<span id="L34974" class="LineNr">34974 </span> 68/push 1/imm32/block-depth -<span id="L34975" class="LineNr">34975 </span> 51/push-ecx -<span id="L34976" class="LineNr">34976 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L34977" class="LineNr">34977 </span> 68/push 0/imm32/name -<span id="L34978" class="LineNr">34978 </span> 68/push 0/imm32/name -<span id="L34979" class="LineNr">34979 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34980" class="LineNr">34980 </span> 89/<- %ecx 4/r32/esp -<span id="L34981" class="LineNr">34981 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-name</span>: -<span id="L34982" class="LineNr">34982 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L34983" class="LineNr">34983 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L34984" class="LineNr">34984 </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="L34985" class="LineNr">34985 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-register</span>: -<span id="L34986" class="LineNr">34986 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L34987" class="LineNr">34987 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L34988" class="LineNr">34988 </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="L34989" class="LineNr">34989 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-type</span>: -<span id="L34990" class="LineNr">34990 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L34991" class="LineNr">34991 </span> 68/push 0/imm32/right:null -<span id="L34992" class="LineNr">34992 </span> 68/push 0/imm32/right:null -<span id="L34993" class="LineNr">34993 </span> 68/push 0/imm32/left:unused -<span id="L34994" class="LineNr">34994 </span> 68/push 0/imm32/value:literal -<span id="L34995" class="LineNr">34995 </span> 68/push 1/imm32/is-atom?:true -<span id="L34996" class="LineNr">34996 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L34997" class="LineNr">34997 </span> 89/<- %edx 4/r32/esp -<span id="L34998" class="LineNr">34998 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal</span>: -<span id="L34999" class="LineNr">34999 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L35000" class="LineNr">35000 </span> 68/push 0/imm32/register -<span id="L35001" class="LineNr">35001 </span> 68/push 0/imm32/register -<span id="L35002" class="LineNr">35002 </span> 68/push 0/imm32/no-stack-offset -<span id="L35003" class="LineNr">35003 </span> 68/push 1/imm32/block-depth -<span id="L35004" class="LineNr">35004 </span> 52/push-edx -<span id="L35005" class="LineNr">35005 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35006" class="LineNr">35006 </span> 68/push 0/imm32/name -<span id="L35007" class="LineNr">35007 </span> 68/push 0/imm32/name -<span id="L35008" class="LineNr">35008 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35009" class="LineNr">35009 </span> 89/<- %edx 4/r32/esp -<span id="L35010" class="LineNr">35010 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-value</span>: -<span id="L35011" class="LineNr">35011 </span> <span class="subxComment"># l->name = "2"</span> -<span id="L35012" class="LineNr">35012 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35013" class="LineNr">35013 </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="L35014" class="LineNr">35014 </span><span class="Constant">$test-shift-reg-by-literal:initialize-inouts</span>: -<span id="L35015" class="LineNr">35015 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L35016" class="LineNr">35016 </span> 68/push 0/imm32/is-deref:false -<span id="L35017" class="LineNr">35017 </span> 68/push 0/imm32/next -<span id="L35018" class="LineNr">35018 </span> 68/push 0/imm32/next -<span id="L35019" class="LineNr">35019 </span> 52/push-edx/l -<span id="L35020" class="LineNr">35020 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35021" class="LineNr">35021 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35022" class="LineNr">35022 </span> 89/<- %esi 4/r32/esp -<span id="L35023" class="LineNr">35023 </span><span class="Constant">$test-shift-reg-by-literal:initialize-outputs</span>: -<span id="L35024" class="LineNr">35024 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L35025" class="LineNr">35025 </span> 68/push 0/imm32/is-deref:false -<span id="L35026" class="LineNr">35026 </span> 68/push 0/imm32/next -<span id="L35027" class="LineNr">35027 </span> 68/push 0/imm32/next -<span id="L35028" class="LineNr">35028 </span> 51/push-ecx/v -<span id="L35029" class="LineNr">35029 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35030" class="LineNr">35030 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35031" class="LineNr">35031 </span> 89/<- %edi 4/r32/esp -<span id="L35032" class="LineNr">35032 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt</span>: -<span id="L35033" class="LineNr">35033 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L35034" class="LineNr">35034 </span> 68/push 0/imm32/next -<span id="L35035" class="LineNr">35035 </span> 68/push 0/imm32/next -<span id="L35036" class="LineNr">35036 </span> 57/push-edi/outputs -<span id="L35037" class="LineNr">35037 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35038" class="LineNr">35038 </span> 56/push-esi/inouts -<span id="L35039" class="LineNr">35039 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35040" class="LineNr">35040 </span> 68/push 0/imm32/operation -<span id="L35041" class="LineNr">35041 </span> 68/push 0/imm32/operation -<span id="L35042" class="LineNr">35042 </span> 68/push 1/imm32/tag:stmt1 -<span id="L35043" class="LineNr">35043 </span> 89/<- %esi 4/r32/esp -<span id="L35044" class="LineNr">35044 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt-operation</span>: -<span id="L35045" class="LineNr">35045 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> -<span id="L35046" class="LineNr">35046 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L35047" class="LineNr">35047 </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="L35048" class="LineNr">35048 </span> <span class="subxComment"># convert</span> -<span id="L35049" class="LineNr">35049 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L35050" class="LineNr">35050 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L35051" class="LineNr">35051 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L35052" class="Folded">35052 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L35058" class="LineNr">35058 </span> <span class="subxComment"># check output</span> -<span id="L35059" class="LineNr">35059 </span> (<a href='../109stream-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="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="subxTest">test-shift-mem-by-literal</span>: -<span id="L35066" class="LineNr">35066 </span> <span class="subxComment"># shift-left var 3</span> -<span id="L35067" class="LineNr">35067 </span> <span class="subxComment"># =></span> -<span id="L35068" class="LineNr">35068 </span> <span class="subxComment"># c1/shift 4/subop/left *(ebp+8) 3/imm8</span> -<span id="L35069" class="LineNr">35069 </span> <span class="subxComment">#</span> -<span id="L35070" class="LineNr">35070 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35071" class="LineNr">35071 </span> 55/push-ebp -<span id="L35072" class="LineNr">35072 </span> 89/<- %ebp 4/r32/esp -<span id="L35073" class="LineNr">35073 </span> <span class="subxComment"># setup</span> -<span id="L35074" class="LineNr">35074 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L35075" class="LineNr">35075 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L35076" class="LineNr">35076 </span><span class="Constant">$test-shift-mem-by-literal:initialize-type</span>: -<span id="L35077" class="LineNr">35077 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L35078" class="LineNr">35078 </span> 68/push 0/imm32/right:null -<span id="L35079" class="LineNr">35079 </span> 68/push 0/imm32/right:null -<span id="L35080" class="LineNr">35080 </span> 68/push 0/imm32/left:unused -<span id="L35081" class="LineNr">35081 </span> 68/push 1/imm32/value:int -<span id="L35082" class="LineNr">35082 </span> 68/push 1/imm32/is-atom?:true -<span id="L35083" class="LineNr">35083 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35084" class="LineNr">35084 </span> 89/<- %ecx 4/r32/esp -<span id="L35085" class="LineNr">35085 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1</span>: -<span id="L35086" class="LineNr">35086 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L35087" class="LineNr">35087 </span> 68/push 0/imm32/register -<span id="L35088" class="LineNr">35088 </span> 68/push 0/imm32/register -<span id="L35089" class="LineNr">35089 </span> 68/push 8/imm32/stack-offset -<span id="L35090" class="LineNr">35090 </span> 68/push 1/imm32/block-depth -<span id="L35091" class="LineNr">35091 </span> 51/push-ecx +<span id="L34868" class="LineNr">34868 </span> 68/push 0/imm32/name +<span id="L34869" class="LineNr">34869 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34870" class="LineNr">34870 </span> 89/<- %ecx 4/r32/esp +<span id="L34871" class="LineNr">34871 </span><span class="Constant">$test-increment-register:initialize-var-name</span>: +<span id="L34872" class="LineNr">34872 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L34873" class="LineNr">34873 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L34874" class="LineNr">34874 </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="L34875" class="LineNr">34875 </span><span class="Constant">$test-increment-register:initialize-var-register</span>: +<span id="L34876" class="LineNr">34876 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L34877" class="LineNr">34877 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L34878" class="LineNr">34878 </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="L34879" class="LineNr">34879 </span><span class="Constant">$test-increment-register:initialize-stmt-var</span>: +<span id="L34880" class="LineNr">34880 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L34881" class="LineNr">34881 </span> 68/push 0/imm32/is-deref:false +<span id="L34882" class="LineNr">34882 </span> 68/push 0/imm32/next +<span id="L34883" class="LineNr">34883 </span> 68/push 0/imm32/next +<span id="L34884" class="LineNr">34884 </span> 51/push-ecx/var-foo +<span id="L34885" class="LineNr">34885 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34886" class="LineNr">34886 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34887" class="LineNr">34887 </span> 89/<- %ebx 4/r32/esp +<span id="L34888" class="LineNr">34888 </span><span class="Constant">$test-increment-register:initialize-stmt</span>: +<span id="L34889" class="LineNr">34889 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L34890" class="LineNr">34890 </span> 53/push-ebx/outputs +<span id="L34891" class="LineNr">34891 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34892" class="LineNr">34892 </span> 68/push 0/imm32/no-inouts +<span id="L34893" class="LineNr">34893 </span> 68/push 0/imm32/no-inouts +<span id="L34894" class="LineNr">34894 </span> 68/push 0/imm32/operation +<span id="L34895" class="LineNr">34895 </span> 68/push 0/imm32/operation +<span id="L34896" class="LineNr">34896 </span> 68/push 1/imm32 +<span id="L34897" class="LineNr">34897 </span> 89/<- %esi 4/r32/esp +<span id="L34898" class="LineNr">34898 </span><span class="Constant">$test-increment-register:initialize-stmt-operation</span>: +<span id="L34899" class="LineNr">34899 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L34900" class="LineNr">34900 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L34901" class="LineNr">34901 </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="L34902" class="LineNr">34902 </span> <span class="subxComment"># convert</span> +<span id="L34903" class="LineNr">34903 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L34904" class="LineNr">34904 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L34905" class="LineNr">34905 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L34906" class="Folded">34906 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L34912" class="LineNr">34912 </span> <span class="subxComment"># check output</span> +<span id="L34913" class="LineNr">34913 </span> (<a href='../109stream-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="L34914" class="LineNr">34914 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34915" class="LineNr">34915 </span> 89/<- %esp 5/r32/ebp +<span id="L34916" class="LineNr">34916 </span> 5d/pop-to-ebp +<span id="L34917" class="LineNr">34917 </span> c3/return +<span id="L34918" class="LineNr">34918 </span> +<span id="L34919" class="LineNr">34919 </span><span class="subxTest">test-add-reg-to-reg</span>: +<span id="L34920" class="LineNr">34920 </span> <span class="subxComment"># var1/reg <- add var2/reg</span> +<span id="L34921" class="LineNr">34921 </span> <span class="subxComment"># =></span> +<span id="L34922" class="LineNr">34922 </span> <span class="subxComment"># 01/add-to %var1 var2</span> +<span id="L34923" class="LineNr">34923 </span> <span class="subxComment">#</span> +<span id="L34924" class="LineNr">34924 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34925" class="LineNr">34925 </span> 55/push-ebp +<span id="L34926" class="LineNr">34926 </span> 89/<- %ebp 4/r32/esp +<span id="L34927" class="LineNr">34927 </span> <span class="subxComment"># setup</span> +<span id="L34928" class="LineNr">34928 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L34929" class="LineNr">34929 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L34930" class="LineNr">34930 </span><span class="Constant">$test-add-reg-to-reg:initialize-type</span>: +<span id="L34931" class="LineNr">34931 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L34932" class="LineNr">34932 </span> 68/push 0/imm32/right:null +<span id="L34933" class="LineNr">34933 </span> 68/push 0/imm32/right:null +<span id="L34934" class="LineNr">34934 </span> 68/push 0/imm32/left:unused +<span id="L34935" class="LineNr">34935 </span> 68/push 1/imm32/value:int +<span id="L34936" class="LineNr">34936 </span> 68/push 1/imm32/is-atom?:true +<span id="L34937" class="LineNr">34937 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34938" class="LineNr">34938 </span> 89/<- %ecx 4/r32/esp +<span id="L34939" class="LineNr">34939 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1</span>: +<span id="L34940" class="LineNr">34940 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L34941" class="LineNr">34941 </span> 68/push 0/imm32/register +<span id="L34942" class="LineNr">34942 </span> 68/push 0/imm32/register +<span id="L34943" class="LineNr">34943 </span> 68/push 0/imm32/no-stack-offset +<span id="L34944" class="LineNr">34944 </span> 68/push 1/imm32/block-depth +<span id="L34945" class="LineNr">34945 </span> 51/push-ecx +<span id="L34946" class="LineNr">34946 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34947" class="LineNr">34947 </span> 68/push 0/imm32/name +<span id="L34948" class="LineNr">34948 </span> 68/push 0/imm32/name +<span id="L34949" class="LineNr">34949 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34950" class="LineNr">34950 </span> 89/<- %ecx 4/r32/esp +<span id="L34951" class="LineNr">34951 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-name</span>: +<span id="L34952" class="LineNr">34952 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L34953" class="LineNr">34953 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L34954" class="LineNr">34954 </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="L34955" class="LineNr">34955 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-register</span>: +<span id="L34956" class="LineNr">34956 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L34957" class="LineNr">34957 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L34958" class="LineNr">34958 </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="L34959" class="LineNr">34959 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2</span>: +<span id="L34960" class="LineNr">34960 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L34961" class="LineNr">34961 </span> 68/push 0/imm32/register +<span id="L34962" class="LineNr">34962 </span> 68/push 0/imm32/register +<span id="L34963" class="LineNr">34963 </span> 68/push 0/imm32/no-stack-offset +<span id="L34964" class="LineNr">34964 </span> 68/push 1/imm32/block-depth +<span id="L34965" class="LineNr">34965 </span> ff 6/subop/push *(ecx+0x10) +<span id="L34966" class="LineNr">34966 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34967" class="LineNr">34967 </span> 68/push 0/imm32/name +<span id="L34968" class="LineNr">34968 </span> 68/push 0/imm32/name +<span id="L34969" class="LineNr">34969 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34970" class="LineNr">34970 </span> 89/<- %edx 4/r32/esp +<span id="L34971" class="LineNr">34971 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-name</span>: +<span id="L34972" class="LineNr">34972 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L34973" class="LineNr">34973 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L34974" class="LineNr">34974 </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="L34975" class="LineNr">34975 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-register</span>: +<span id="L34976" class="LineNr">34976 </span> <span class="subxComment"># var2->register = "ecx"</span> +<span id="L34977" class="LineNr">34977 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L34978" class="LineNr">34978 </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="L34979" class="LineNr">34979 </span><span class="Constant">$test-add-reg-to-reg:initialize-inouts</span>: +<span id="L34980" class="LineNr">34980 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L34981" class="LineNr">34981 </span> 68/push 0/imm32/is-deref:false +<span id="L34982" class="LineNr">34982 </span> 68/push 0/imm32/next +<span id="L34983" class="LineNr">34983 </span> 68/push 0/imm32/next +<span id="L34984" class="LineNr">34984 </span> 52/push-edx/var2 +<span id="L34985" class="LineNr">34985 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34986" class="LineNr">34986 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34987" class="LineNr">34987 </span> 89/<- %esi 4/r32/esp +<span id="L34988" class="LineNr">34988 </span><span class="Constant">$test-add-reg-to-reg:initialize-outputs</span>: +<span id="L34989" class="LineNr">34989 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> +<span id="L34990" class="LineNr">34990 </span> 68/push 0/imm32/is-deref:false +<span id="L34991" class="LineNr">34991 </span> 68/push 0/imm32/next +<span id="L34992" class="LineNr">34992 </span> 68/push 0/imm32/next +<span id="L34993" class="LineNr">34993 </span> 51/push-ecx/var1 +<span id="L34994" class="LineNr">34994 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L34995" class="LineNr">34995 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L34996" class="LineNr">34996 </span> 89/<- %edi 4/r32/esp +<span id="L34997" class="LineNr">34997 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt</span>: +<span id="L34998" class="LineNr">34998 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L34999" class="LineNr">34999 </span> 68/push 0/imm32/next +<span id="L35000" class="LineNr">35000 </span> 68/push 0/imm32/next +<span id="L35001" class="LineNr">35001 </span> 57/push-edi/outputs +<span id="L35002" class="LineNr">35002 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35003" class="LineNr">35003 </span> 56/push-esi/inouts +<span id="L35004" class="LineNr">35004 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35005" class="LineNr">35005 </span> 68/push 0/imm32/operation +<span id="L35006" class="LineNr">35006 </span> 68/push 0/imm32/operation +<span id="L35007" class="LineNr">35007 </span> 68/push 1/imm32/tag:stmt1 +<span id="L35008" class="LineNr">35008 </span> 89/<- %esi 4/r32/esp +<span id="L35009" class="LineNr">35009 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt-operation</span>: +<span id="L35010" class="LineNr">35010 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L35011" class="LineNr">35011 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L35012" class="LineNr">35012 </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="L35013" class="LineNr">35013 </span> <span class="subxComment"># convert</span> +<span id="L35014" class="LineNr">35014 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L35015" class="LineNr">35015 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L35016" class="LineNr">35016 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L35017" class="Folded">35017 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L35023" class="LineNr">35023 </span> <span class="subxComment"># check output</span> +<span id="L35024" class="LineNr">35024 </span> (<a href='../109stream-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="L35025" class="LineNr">35025 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35026" class="LineNr">35026 </span> 89/<- %esp 5/r32/ebp +<span id="L35027" class="LineNr">35027 </span> 5d/pop-to-ebp +<span id="L35028" class="LineNr">35028 </span> c3/return +<span id="L35029" class="LineNr">35029 </span> +<span id="L35030" class="LineNr">35030 </span><span class="subxTest">test-add-reg-to-mem</span>: +<span id="L35031" class="LineNr">35031 </span> <span class="subxComment"># add-to var1 var2/reg</span> +<span id="L35032" class="LineNr">35032 </span> <span class="subxComment"># =></span> +<span id="L35033" class="LineNr">35033 </span> <span class="subxComment"># 01/add-to *(ebp+__) var2</span> +<span id="L35034" class="LineNr">35034 </span> <span class="subxComment">#</span> +<span id="L35035" class="LineNr">35035 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35036" class="LineNr">35036 </span> 55/push-ebp +<span id="L35037" class="LineNr">35037 </span> 89/<- %ebp 4/r32/esp +<span id="L35038" class="LineNr">35038 </span> <span class="subxComment"># setup</span> +<span id="L35039" class="LineNr">35039 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L35040" class="LineNr">35040 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L35041" class="LineNr">35041 </span><span class="Constant">$test-add-reg-to-mem:initialize-type</span>: +<span id="L35042" class="LineNr">35042 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L35043" class="LineNr">35043 </span> 68/push 0/imm32/right:null +<span id="L35044" class="LineNr">35044 </span> 68/push 0/imm32/right:null +<span id="L35045" class="LineNr">35045 </span> 68/push 0/imm32/left:unused +<span id="L35046" class="LineNr">35046 </span> 68/push 1/imm32/value:int +<span id="L35047" class="LineNr">35047 </span> 68/push 1/imm32/is-atom?:true +<span id="L35048" class="LineNr">35048 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35049" class="LineNr">35049 </span> 89/<- %ecx 4/r32/esp +<span id="L35050" class="LineNr">35050 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1</span>: +<span id="L35051" class="LineNr">35051 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L35052" class="LineNr">35052 </span> 68/push 0/imm32/register +<span id="L35053" class="LineNr">35053 </span> 68/push 0/imm32/register +<span id="L35054" class="LineNr">35054 </span> 68/push 8/imm32/stack-offset +<span id="L35055" class="LineNr">35055 </span> 68/push 1/imm32/block-depth +<span id="L35056" class="LineNr">35056 </span> 51/push-ecx +<span id="L35057" class="LineNr">35057 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35058" class="LineNr">35058 </span> 68/push 0/imm32/name +<span id="L35059" class="LineNr">35059 </span> 68/push 0/imm32/name +<span id="L35060" class="LineNr">35060 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35061" class="LineNr">35061 </span> 89/<- %ecx 4/r32/esp +<span id="L35062" class="LineNr">35062 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1-name</span>: +<span id="L35063" class="LineNr">35063 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L35064" class="LineNr">35064 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35065" class="LineNr">35065 </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="L35066" class="LineNr">35066 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2</span>: +<span id="L35067" class="LineNr">35067 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L35068" class="LineNr">35068 </span> 68/push 0/imm32/register +<span id="L35069" class="LineNr">35069 </span> 68/push 0/imm32/register +<span id="L35070" class="LineNr">35070 </span> 68/push 0/imm32/no-stack-offset +<span id="L35071" class="LineNr">35071 </span> 68/push 1/imm32/block-depth +<span id="L35072" class="LineNr">35072 </span> ff 6/subop/push *(ecx+0x10) +<span id="L35073" class="LineNr">35073 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35074" class="LineNr">35074 </span> 68/push 0/imm32/name +<span id="L35075" class="LineNr">35075 </span> 68/push 0/imm32/name +<span id="L35076" class="LineNr">35076 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35077" class="LineNr">35077 </span> 89/<- %edx 4/r32/esp +<span id="L35078" class="LineNr">35078 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-name</span>: +<span id="L35079" class="LineNr">35079 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L35080" class="LineNr">35080 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35081" class="LineNr">35081 </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="L35082" class="LineNr">35082 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-register</span>: +<span id="L35083" class="LineNr">35083 </span> <span class="subxComment"># var2->register = "ecx"</span> +<span id="L35084" class="LineNr">35084 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L35085" class="LineNr">35085 </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="L35086" class="LineNr">35086 </span><span class="Constant">$test-add-reg-to-mem:initialize-inouts</span>: +<span id="L35087" class="LineNr">35087 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L35088" class="LineNr">35088 </span> 68/push 0/imm32/is-deref:false +<span id="L35089" class="LineNr">35089 </span> 68/push 0/imm32/next +<span id="L35090" class="LineNr">35090 </span> 68/push 0/imm32/next +<span id="L35091" class="LineNr">35091 </span> 52/push-edx/var2 <span id="L35092" class="LineNr">35092 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35093" class="LineNr">35093 </span> 68/push 0/imm32/name -<span id="L35094" class="LineNr">35094 </span> 68/push 0/imm32/name -<span id="L35095" class="LineNr">35095 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35096" class="LineNr">35096 </span> 89/<- %ecx 4/r32/esp -<span id="L35097" class="LineNr">35097 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1-name</span>: -<span id="L35098" class="LineNr">35098 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L35099" class="LineNr">35099 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35100" class="LineNr">35100 </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="L35101" class="LineNr">35101 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-type</span>: -<span id="L35102" class="LineNr">35102 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L35103" class="LineNr">35103 </span> 68/push 0/imm32/right:null -<span id="L35104" class="LineNr">35104 </span> 68/push 0/imm32/right:null -<span id="L35105" class="LineNr">35105 </span> 68/push 0/imm32/left:unused -<span id="L35106" class="LineNr">35106 </span> 68/push 0/imm32/value:literal -<span id="L35107" class="LineNr">35107 </span> 68/push 1/imm32/is-atom?:true -<span id="L35108" class="LineNr">35108 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35109" class="LineNr">35109 </span> 89/<- %edx 4/r32/esp -<span id="L35110" class="LineNr">35110 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal</span>: -<span id="L35111" class="LineNr">35111 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L35112" class="LineNr">35112 </span> 68/push 0/imm32/register -<span id="L35113" class="LineNr">35113 </span> 68/push 0/imm32/register -<span id="L35114" class="LineNr">35114 </span> 68/push 0/imm32/no-stack-offset -<span id="L35115" class="LineNr">35115 </span> 68/push 1/imm32/block-depth -<span id="L35116" class="LineNr">35116 </span> 52/push-edx -<span id="L35117" class="LineNr">35117 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35118" class="LineNr">35118 </span> 68/push 0/imm32/name -<span id="L35119" class="LineNr">35119 </span> 68/push 0/imm32/name -<span id="L35120" class="LineNr">35120 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35121" class="LineNr">35121 </span> 89/<- %edx 4/r32/esp -<span id="L35122" class="LineNr">35122 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-value</span>: -<span id="L35123" class="LineNr">35123 </span> <span class="subxComment"># l->name = "3"</span> -<span id="L35124" class="LineNr">35124 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35125" class="LineNr">35125 </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="L35126" class="LineNr">35126 </span><span class="Constant">$test-shift-mem-by-literal:initialize-inouts</span>: -<span id="L35127" class="LineNr">35127 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L35128" class="LineNr">35128 </span> 68/push 0/imm32/is-deref:false -<span id="L35129" class="LineNr">35129 </span> 68/push 0/imm32/next -<span id="L35130" class="LineNr">35130 </span> 68/push 0/imm32/next -<span id="L35131" class="LineNr">35131 </span> 52/push-edx/l -<span id="L35132" class="LineNr">35132 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35133" class="LineNr">35133 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35134" class="LineNr">35134 </span> 89/<- %esi 4/r32/esp -<span id="L35135" class="LineNr">35135 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L35136" class="LineNr">35136 </span> 68/push 0/imm32/is-deref:false -<span id="L35137" class="LineNr">35137 </span> 56/push-esi/next -<span id="L35138" class="LineNr">35138 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35139" class="LineNr">35139 </span> 51/push-ecx/var1 -<span id="L35140" class="LineNr">35140 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35141" class="LineNr">35141 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35142" class="LineNr">35142 </span> 89/<- %esi 4/r32/esp -<span id="L35143" class="LineNr">35143 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt</span>: -<span id="L35144" class="LineNr">35144 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L35145" class="LineNr">35145 </span> 68/push 0/imm32/next -<span id="L35146" class="LineNr">35146 </span> 68/push 0/imm32/next -<span id="L35147" class="LineNr">35147 </span> 68/push 0/imm32/outputs -<span id="L35148" class="LineNr">35148 </span> 68/push 0/imm32/outputs -<span id="L35149" class="LineNr">35149 </span> 56/push-esi/inouts -<span id="L35150" class="LineNr">35150 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35151" class="LineNr">35151 </span> 68/push 0/imm32/operation -<span id="L35152" class="LineNr">35152 </span> 68/push 0/imm32/operation -<span id="L35153" class="LineNr">35153 </span> 68/push 1/imm32/tag:stmt1 -<span id="L35154" class="LineNr">35154 </span> 89/<- %esi 4/r32/esp -<span id="L35155" class="LineNr">35155 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt-operation</span>: -<span id="L35156" class="LineNr">35156 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> -<span id="L35157" class="LineNr">35157 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L35158" class="LineNr">35158 </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="L35159" class="LineNr">35159 </span> <span class="subxComment"># convert</span> -<span id="L35160" class="LineNr">35160 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L35161" class="LineNr">35161 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L35162" class="LineNr">35162 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L35163" class="Folded">35163 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L35169" class="LineNr">35169 </span> <span class="subxComment"># check output</span> -<span id="L35170" class="LineNr">35170 </span> (<a href='../109stream-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="L35171" class="LineNr">35171 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35172" class="LineNr">35172 </span> 89/<- %esp 5/r32/ebp -<span id="L35173" class="LineNr">35173 </span> 5d/pop-to-ebp -<span id="L35174" class="LineNr">35174 </span> c3/return -<span id="L35175" class="LineNr">35175 </span> -<span id="L35176" class="LineNr">35176 </span><span class="subxTest">test-compare-reg-with-reg</span>: -<span id="L35177" class="LineNr">35177 </span> <span class="subxComment"># compare var1/ecx, var2/eax</span> -<span id="L35178" class="LineNr">35178 </span> <span class="subxComment"># =></span> -<span id="L35179" class="LineNr">35179 </span> <span class="subxComment"># 39/compare %ecx 0/r32/eax</span> -<span id="L35180" class="LineNr">35180 </span> <span class="subxComment">#</span> -<span id="L35181" class="LineNr">35181 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35182" class="LineNr">35182 </span> 55/push-ebp -<span id="L35183" class="LineNr">35183 </span> 89/<- %ebp 4/r32/esp -<span id="L35184" class="LineNr">35184 </span> <span class="subxComment"># setup</span> -<span id="L35185" class="LineNr">35185 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L35186" class="LineNr">35186 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L35187" class="LineNr">35187 </span><span class="Constant">$test-compare-reg-with-reg:initialize-type</span>: -<span id="L35188" class="LineNr">35188 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L35189" class="LineNr">35189 </span> 68/push 0/imm32/right:null -<span id="L35190" class="LineNr">35190 </span> 68/push 0/imm32/right:null -<span id="L35191" class="LineNr">35191 </span> 68/push 0/imm32/left:unused -<span id="L35192" class="LineNr">35192 </span> 68/push 1/imm32/value:int -<span id="L35193" class="LineNr">35193 </span> 68/push 1/imm32/is-atom?:true -<span id="L35194" class="LineNr">35194 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35195" class="LineNr">35195 </span> 89/<- %ecx 4/r32/esp -<span id="L35196" class="LineNr">35196 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1</span>: -<span id="L35197" class="LineNr">35197 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L35198" class="LineNr">35198 </span> 68/push 0/imm32/register -<span id="L35199" class="LineNr">35199 </span> 68/push 0/imm32/register -<span id="L35200" class="LineNr">35200 </span> 68/push 0/imm32/no-stack-offset -<span id="L35201" class="LineNr">35201 </span> 68/push 1/imm32/block-depth -<span id="L35202" class="LineNr">35202 </span> 51/push-ecx -<span id="L35203" class="LineNr">35203 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35204" class="LineNr">35204 </span> 68/push 0/imm32/name -<span id="L35205" class="LineNr">35205 </span> 68/push 0/imm32/name -<span id="L35206" class="LineNr">35206 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35207" class="LineNr">35207 </span> 89/<- %ecx 4/r32/esp -<span id="L35208" class="LineNr">35208 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-name</span>: -<span id="L35209" class="LineNr">35209 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L35210" class="LineNr">35210 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35211" class="LineNr">35211 </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="L35212" class="LineNr">35212 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-register</span>: -<span id="L35213" class="LineNr">35213 </span> <span class="subxComment"># var1->register = "ecx"</span> -<span id="L35214" class="LineNr">35214 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L35215" class="LineNr">35215 </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="L35216" class="LineNr">35216 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2</span>: -<span id="L35217" class="LineNr">35217 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L35218" class="LineNr">35218 </span> 68/push 0/imm32/register -<span id="L35219" class="LineNr">35219 </span> 68/push 0/imm32/register -<span id="L35220" class="LineNr">35220 </span> 68/push 0/imm32/no-stack-offset -<span id="L35221" class="LineNr">35221 </span> 68/push 1/imm32/block-depth -<span id="L35222" class="LineNr">35222 </span> ff 6/subop/push *(ecx+0x10) -<span id="L35223" class="LineNr">35223 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35224" class="LineNr">35224 </span> 68/push 0/imm32/name -<span id="L35225" class="LineNr">35225 </span> 68/push 0/imm32/name -<span id="L35226" class="LineNr">35226 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35227" class="LineNr">35227 </span> 89/<- %edx 4/r32/esp -<span id="L35228" class="LineNr">35228 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-name</span>: -<span id="L35229" class="LineNr">35229 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L35230" class="LineNr">35230 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35231" class="LineNr">35231 </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="L35232" class="LineNr">35232 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-register</span>: -<span id="L35233" class="LineNr">35233 </span> <span class="subxComment"># var2->register = "eax"</span> -<span id="L35234" class="LineNr">35234 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L35235" class="LineNr">35235 </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="L35236" class="LineNr">35236 </span><span class="Constant">$test-compare-reg-with-reg:initialize-inouts</span>: -<span id="L35237" class="LineNr">35237 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L35238" class="LineNr">35238 </span> 68/push 0/imm32/is-deref:false -<span id="L35239" class="LineNr">35239 </span> 68/push 0/imm32/next -<span id="L35240" class="LineNr">35240 </span> 68/push 0/imm32/next -<span id="L35241" class="LineNr">35241 </span> 52/push-edx/var2 -<span id="L35242" class="LineNr">35242 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35243" class="LineNr">35243 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35244" class="LineNr">35244 </span> 89/<- %esi 4/r32/esp -<span id="L35245" class="LineNr">35245 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L35246" class="LineNr">35246 </span> 68/push 0/imm32/is-deref:false -<span id="L35247" class="LineNr">35247 </span> 56/push-esi/next -<span id="L35248" class="LineNr">35248 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35249" class="LineNr">35249 </span> 51/push-ecx/var1 -<span id="L35250" class="LineNr">35250 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35251" class="LineNr">35251 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35252" class="LineNr">35252 </span> 89/<- %esi 4/r32/esp -<span id="L35253" class="LineNr">35253 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt</span>: -<span id="L35254" class="LineNr">35254 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L35255" class="LineNr">35255 </span> 68/push 0/imm32/next -<span id="L35256" class="LineNr">35256 </span> 68/push 0/imm32/next -<span id="L35257" class="LineNr">35257 </span> 68/push 0/imm32/outputs -<span id="L35258" class="LineNr">35258 </span> 68/push 0/imm32/outputs -<span id="L35259" class="LineNr">35259 </span> 56/push-esi/inouts -<span id="L35260" class="LineNr">35260 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35261" class="LineNr">35261 </span> 68/push 0/imm32/operation -<span id="L35262" class="LineNr">35262 </span> 68/push 0/imm32/operation -<span id="L35263" class="LineNr">35263 </span> 68/push 1/imm32/tag:stmt1 -<span id="L35264" class="LineNr">35264 </span> 89/<- %esi 4/r32/esp -<span id="L35265" class="LineNr">35265 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt-operation</span>: -<span id="L35266" class="LineNr">35266 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L35267" class="LineNr">35267 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L35268" class="LineNr">35268 </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="L35269" class="LineNr">35269 </span> <span class="subxComment"># convert</span> -<span id="L35270" class="LineNr">35270 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L35271" class="LineNr">35271 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L35272" class="LineNr">35272 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L35273" class="Folded">35273 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L35279" class="LineNr">35279 </span> <span class="subxComment"># check output</span> -<span id="L35280" class="LineNr">35280 </span> (<a href='../109stream-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="L35281" class="LineNr">35281 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35282" class="LineNr">35282 </span> 89/<- %esp 5/r32/ebp -<span id="L35283" class="LineNr">35283 </span> 5d/pop-to-ebp -<span id="L35284" class="LineNr">35284 </span> c3/return -<span id="L35285" class="LineNr">35285 </span> -<span id="L35286" class="LineNr">35286 </span><span class="subxTest">test-compare-mem-with-reg</span>: -<span id="L35287" class="LineNr">35287 </span> <span class="subxComment"># compare var1, var2/eax</span> -<span id="L35288" class="LineNr">35288 </span> <span class="subxComment"># =></span> -<span id="L35289" class="LineNr">35289 </span> <span class="subxComment"># 39/compare *(ebp+___) 0/r32/eax</span> -<span id="L35290" class="LineNr">35290 </span> <span class="subxComment">#</span> -<span id="L35291" class="LineNr">35291 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35292" class="LineNr">35292 </span> 55/push-ebp -<span id="L35293" class="LineNr">35293 </span> 89/<- %ebp 4/r32/esp -<span id="L35294" class="LineNr">35294 </span> <span class="subxComment"># setup</span> -<span id="L35295" class="LineNr">35295 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L35296" class="LineNr">35296 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L35297" class="LineNr">35297 </span><span class="Constant">$test-compare-mem-with-reg:initialize-type</span>: -<span id="L35298" class="LineNr">35298 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L35299" class="LineNr">35299 </span> 68/push 0/imm32/right:null -<span id="L35300" class="LineNr">35300 </span> 68/push 0/imm32/right:null -<span id="L35301" class="LineNr">35301 </span> 68/push 0/imm32/left:unused -<span id="L35302" class="LineNr">35302 </span> 68/push 1/imm32/value:int -<span id="L35303" class="LineNr">35303 </span> 68/push 1/imm32/is-atom?:true -<span id="L35304" class="LineNr">35304 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35305" class="LineNr">35305 </span> 89/<- %ecx 4/r32/esp -<span id="L35306" class="LineNr">35306 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1</span>: -<span id="L35307" class="LineNr">35307 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L35308" class="LineNr">35308 </span> 68/push 0/imm32/register -<span id="L35309" class="LineNr">35309 </span> 68/push 0/imm32/register -<span id="L35310" class="LineNr">35310 </span> 68/push 8/imm32/stack-offset -<span id="L35311" class="LineNr">35311 </span> 68/push 1/imm32/block-depth -<span id="L35312" class="LineNr">35312 </span> 51/push-ecx -<span id="L35313" class="LineNr">35313 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35314" class="LineNr">35314 </span> 68/push 0/imm32/name -<span id="L35315" class="LineNr">35315 </span> 68/push 0/imm32/name -<span id="L35316" class="LineNr">35316 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35317" class="LineNr">35317 </span> 89/<- %ecx 4/r32/esp -<span id="L35318" class="LineNr">35318 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1-name</span>: -<span id="L35319" class="LineNr">35319 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L35320" class="LineNr">35320 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35321" class="LineNr">35321 </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="L35322" class="LineNr">35322 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2</span>: -<span id="L35323" class="LineNr">35323 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L35324" class="LineNr">35324 </span> 68/push 0/imm32/register -<span id="L35325" class="LineNr">35325 </span> 68/push 0/imm32/register -<span id="L35326" class="LineNr">35326 </span> 68/push 0/imm32/no-stack-offset -<span id="L35327" class="LineNr">35327 </span> 68/push 1/imm32/block-depth -<span id="L35328" class="LineNr">35328 </span> ff 6/subop/push *(ecx+0x10) -<span id="L35329" class="LineNr">35329 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35330" class="LineNr">35330 </span> 68/push 0/imm32/name -<span id="L35331" class="LineNr">35331 </span> 68/push 0/imm32/name -<span id="L35332" class="LineNr">35332 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35333" class="LineNr">35333 </span> 89/<- %edx 4/r32/esp -<span id="L35334" class="LineNr">35334 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-name</span>: -<span id="L35335" class="LineNr">35335 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L35336" class="LineNr">35336 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35337" class="LineNr">35337 </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="L35338" class="LineNr">35338 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-register</span>: -<span id="L35339" class="LineNr">35339 </span> <span class="subxComment"># var2->register = "eax"</span> -<span id="L35340" class="LineNr">35340 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L35341" class="LineNr">35341 </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="L35342" class="LineNr">35342 </span><span class="Constant">$test-compare-mem-with-reg:initialize-inouts</span>: -<span id="L35343" class="LineNr">35343 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L35344" class="LineNr">35344 </span> 68/push 0/imm32/is-deref:false -<span id="L35345" class="LineNr">35345 </span> 68/push 0/imm32/next -<span id="L35346" class="LineNr">35346 </span> 68/push 0/imm32/next -<span id="L35347" class="LineNr">35347 </span> 52/push-edx/var2 -<span id="L35348" class="LineNr">35348 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35349" class="LineNr">35349 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35350" class="LineNr">35350 </span> 89/<- %esi 4/r32/esp -<span id="L35351" class="LineNr">35351 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L35352" class="LineNr">35352 </span> 68/push 0/imm32/is-deref:false -<span id="L35353" class="LineNr">35353 </span> 56/push-esi/next -<span id="L35354" class="LineNr">35354 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35355" class="LineNr">35355 </span> 51/push-ecx/var1 -<span id="L35356" class="LineNr">35356 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35357" class="LineNr">35357 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35358" class="LineNr">35358 </span> 89/<- %esi 4/r32/esp -<span id="L35359" class="LineNr">35359 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt</span>: -<span id="L35360" class="LineNr">35360 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L35361" class="LineNr">35361 </span> 68/push 0/imm32/next -<span id="L35362" class="LineNr">35362 </span> 68/push 0/imm32/next -<span id="L35363" class="LineNr">35363 </span> 68/push 0/imm32/outputs -<span id="L35364" class="LineNr">35364 </span> 68/push 0/imm32/outputs -<span id="L35365" class="LineNr">35365 </span> 56/push-esi/inouts -<span id="L35366" class="LineNr">35366 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35367" class="LineNr">35367 </span> 68/push 0/imm32/operation -<span id="L35368" class="LineNr">35368 </span> 68/push 0/imm32/operation -<span id="L35369" class="LineNr">35369 </span> 68/push 1/imm32/tag:stmt1 -<span id="L35370" class="LineNr">35370 </span> 89/<- %esi 4/r32/esp -<span id="L35371" class="LineNr">35371 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt-operation</span>: -<span id="L35372" class="LineNr">35372 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L35373" class="LineNr">35373 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L35374" class="LineNr">35374 </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="L35375" class="LineNr">35375 </span> <span class="subxComment"># convert</span> -<span id="L35376" class="LineNr">35376 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L35377" class="LineNr">35377 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L35378" class="LineNr">35378 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L35379" class="Folded">35379 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L35385" class="LineNr">35385 </span> <span class="subxComment"># check output</span> -<span id="L35386" class="LineNr">35386 </span> (<a href='../109stream-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="L35387" class="LineNr">35387 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35388" class="LineNr">35388 </span> 89/<- %esp 5/r32/ebp -<span id="L35389" class="LineNr">35389 </span> 5d/pop-to-ebp -<span id="L35390" class="LineNr">35390 </span> c3/return -<span id="L35391" class="LineNr">35391 </span> -<span id="L35392" class="LineNr">35392 </span><span class="subxTest">test-compare-reg-with-mem</span>: -<span id="L35393" class="LineNr">35393 </span> <span class="subxComment"># compare var1/eax, var2</span> -<span id="L35394" class="LineNr">35394 </span> <span class="subxComment"># =></span> -<span id="L35395" class="LineNr">35395 </span> <span class="subxComment"># 3b/compare<- *(ebp+___) 0/r32/eax</span> -<span id="L35396" class="LineNr">35396 </span> <span class="subxComment">#</span> -<span id="L35397" class="LineNr">35397 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35398" class="LineNr">35398 </span> 55/push-ebp -<span id="L35399" class="LineNr">35399 </span> 89/<- %ebp 4/r32/esp -<span id="L35400" class="LineNr">35400 </span> <span class="subxComment"># setup</span> -<span id="L35401" class="LineNr">35401 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L35402" class="LineNr">35402 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L35403" class="LineNr">35403 </span><span class="Constant">$test-compare-reg-with-mem:initialize-type</span>: -<span id="L35404" class="LineNr">35404 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L35405" class="LineNr">35405 </span> 68/push 0/imm32/right:null -<span id="L35406" class="LineNr">35406 </span> 68/push 0/imm32/right:null -<span id="L35407" class="LineNr">35407 </span> 68/push 0/imm32/left:unused -<span id="L35408" class="LineNr">35408 </span> 68/push 1/imm32/value:int -<span id="L35409" class="LineNr">35409 </span> 68/push 1/imm32/is-atom?:true -<span id="L35410" class="LineNr">35410 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35411" class="LineNr">35411 </span> 89/<- %ecx 4/r32/esp -<span id="L35412" class="LineNr">35412 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1</span>: -<span id="L35413" class="LineNr">35413 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L35414" class="LineNr">35414 </span> 68/push 0/imm32/register -<span id="L35415" class="LineNr">35415 </span> 68/push 0/imm32/register -<span id="L35416" class="LineNr">35416 </span> 68/push 0/imm32/no-stack-offset -<span id="L35417" class="LineNr">35417 </span> 68/push 1/imm32/block-depth -<span id="L35418" class="LineNr">35418 </span> 51/push-ecx -<span id="L35419" class="LineNr">35419 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35420" class="LineNr">35420 </span> 68/push 0/imm32/name -<span id="L35421" class="LineNr">35421 </span> 68/push 0/imm32/name -<span id="L35422" class="LineNr">35422 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35423" class="LineNr">35423 </span> 89/<- %ecx 4/r32/esp -<span id="L35424" class="LineNr">35424 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-name</span>: -<span id="L35425" class="LineNr">35425 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L35426" class="LineNr">35426 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35427" class="LineNr">35427 </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="L35428" class="LineNr">35428 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-register</span>: -<span id="L35429" class="LineNr">35429 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L35430" class="LineNr">35430 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L35431" class="LineNr">35431 </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="L35432" class="LineNr">35432 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2</span>: -<span id="L35433" class="LineNr">35433 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L35434" class="LineNr">35434 </span> 68/push 0/imm32/register -<span id="L35435" class="LineNr">35435 </span> 68/push 0/imm32/register -<span id="L35436" class="LineNr">35436 </span> 68/push 8/imm32/stack-offset -<span id="L35437" class="LineNr">35437 </span> 68/push 1/imm32/block-depth -<span id="L35438" class="LineNr">35438 </span> ff 6/subop/push *(ecx+0x10) +<span id="L35093" class="LineNr">35093 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35094" class="LineNr">35094 </span> 89/<- %esi 4/r32/esp +<span id="L35095" class="LineNr">35095 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L35096" class="LineNr">35096 </span> 68/push 0/imm32/is-deref:false +<span id="L35097" class="LineNr">35097 </span> 56/push-esi/next +<span id="L35098" class="LineNr">35098 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35099" class="LineNr">35099 </span> 51/push-ecx/var1 +<span id="L35100" class="LineNr">35100 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35101" class="LineNr">35101 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35102" class="LineNr">35102 </span> 89/<- %esi 4/r32/esp +<span id="L35103" class="LineNr">35103 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt</span>: +<span id="L35104" class="LineNr">35104 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L35105" class="LineNr">35105 </span> 68/push 0/imm32/next +<span id="L35106" class="LineNr">35106 </span> 68/push 0/imm32/next +<span id="L35107" class="LineNr">35107 </span> 68/push 0/imm32/outputs +<span id="L35108" class="LineNr">35108 </span> 68/push 0/imm32/outputs +<span id="L35109" class="LineNr">35109 </span> 56/push-esi/inouts +<span id="L35110" class="LineNr">35110 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35111" class="LineNr">35111 </span> 68/push 0/imm32/operation +<span id="L35112" class="LineNr">35112 </span> 68/push 0/imm32/operation +<span id="L35113" class="LineNr">35113 </span> 68/push 1/imm32/tag:stmt1 +<span id="L35114" class="LineNr">35114 </span> 89/<- %esi 4/r32/esp +<span id="L35115" class="LineNr">35115 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt-operation</span>: +<span id="L35116" class="LineNr">35116 </span> <span class="subxComment"># stmt->operation = "add-to"</span> +<span id="L35117" class="LineNr">35117 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L35118" class="LineNr">35118 </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="L35119" class="LineNr">35119 </span> <span class="subxComment"># convert</span> +<span id="L35120" class="LineNr">35120 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L35121" class="LineNr">35121 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L35122" class="LineNr">35122 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L35123" class="Folded">35123 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L35129" class="LineNr">35129 </span> <span class="subxComment"># check output</span> +<span id="L35130" class="LineNr">35130 </span> (<a href='../109stream-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="L35131" class="LineNr">35131 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35132" class="LineNr">35132 </span> 89/<- %esp 5/r32/ebp +<span id="L35133" class="LineNr">35133 </span> 5d/pop-to-ebp +<span id="L35134" class="LineNr">35134 </span> c3/return +<span id="L35135" class="LineNr">35135 </span> +<span id="L35136" class="LineNr">35136 </span><span class="subxTest">test-add-mem-to-reg</span>: +<span id="L35137" class="LineNr">35137 </span> <span class="subxComment"># var1/reg <- add var2</span> +<span id="L35138" class="LineNr">35138 </span> <span class="subxComment"># =></span> +<span id="L35139" class="LineNr">35139 </span> <span class="subxComment"># 03/add *(ebp+__) var1</span> +<span id="L35140" class="LineNr">35140 </span> <span class="subxComment">#</span> +<span id="L35141" class="LineNr">35141 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35142" class="LineNr">35142 </span> 55/push-ebp +<span id="L35143" class="LineNr">35143 </span> 89/<- %ebp 4/r32/esp +<span id="L35144" class="LineNr">35144 </span> <span class="subxComment"># setup</span> +<span id="L35145" class="LineNr">35145 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L35146" class="LineNr">35146 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L35147" class="LineNr">35147 </span><span class="Constant">$test-add-mem-to-reg:initialize-type</span>: +<span id="L35148" class="LineNr">35148 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L35149" class="LineNr">35149 </span> 68/push 0/imm32/right:null +<span id="L35150" class="LineNr">35150 </span> 68/push 0/imm32/right:null +<span id="L35151" class="LineNr">35151 </span> 68/push 0/imm32/left:unused +<span id="L35152" class="LineNr">35152 </span> 68/push 1/imm32/value:int +<span id="L35153" class="LineNr">35153 </span> 68/push 1/imm32/is-atom?:true +<span id="L35154" class="LineNr">35154 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35155" class="LineNr">35155 </span> 89/<- %ecx 4/r32/esp +<span id="L35156" class="LineNr">35156 </span><span class="Constant">$test-add-mem-to-reg:initialize-var</span>: +<span id="L35157" class="LineNr">35157 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L35158" class="LineNr">35158 </span> 68/push 0/imm32/register +<span id="L35159" class="LineNr">35159 </span> 68/push 0/imm32/register +<span id="L35160" class="LineNr">35160 </span> 68/push 0/imm32/no-stack-offset +<span id="L35161" class="LineNr">35161 </span> 68/push 1/imm32/block-depth +<span id="L35162" class="LineNr">35162 </span> 51/push-ecx +<span id="L35163" class="LineNr">35163 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35164" class="LineNr">35164 </span> 68/push 0/imm32/name +<span id="L35165" class="LineNr">35165 </span> 68/push 0/imm32/name +<span id="L35166" class="LineNr">35166 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35167" class="LineNr">35167 </span> 89/<- %ecx 4/r32/esp +<span id="L35168" class="LineNr">35168 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-name</span>: +<span id="L35169" class="LineNr">35169 </span> <span class="subxComment"># var1->name = "foo"</span> +<span id="L35170" class="LineNr">35170 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35171" class="LineNr">35171 </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="L35172" class="LineNr">35172 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-register</span>: +<span id="L35173" class="LineNr">35173 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L35174" class="LineNr">35174 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L35175" class="LineNr">35175 </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="L35176" class="LineNr">35176 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2</span>: +<span id="L35177" class="LineNr">35177 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L35178" class="LineNr">35178 </span> 68/push 0/imm32/register +<span id="L35179" class="LineNr">35179 </span> 68/push 0/imm32/register +<span id="L35180" class="LineNr">35180 </span> 68/push 8/imm32/stack-offset +<span id="L35181" class="LineNr">35181 </span> 68/push 1/imm32/block-depth +<span id="L35182" class="LineNr">35182 </span> ff 6/subop/push *(ecx+0x10) +<span id="L35183" class="LineNr">35183 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35184" class="LineNr">35184 </span> 68/push 0/imm32/name +<span id="L35185" class="LineNr">35185 </span> 68/push 0/imm32/name +<span id="L35186" class="LineNr">35186 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35187" class="LineNr">35187 </span> 89/<- %edx 4/r32/esp +<span id="L35188" class="LineNr">35188 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2-name</span>: +<span id="L35189" class="LineNr">35189 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L35190" class="LineNr">35190 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35191" class="LineNr">35191 </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="L35192" class="LineNr">35192 </span><span class="Constant">$test-add-mem-to-reg:initialize-inouts</span>: +<span id="L35193" class="LineNr">35193 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L35194" class="LineNr">35194 </span> 68/push 0/imm32/is-deref:false +<span id="L35195" class="LineNr">35195 </span> 68/push 0/imm32/next +<span id="L35196" class="LineNr">35196 </span> 68/push 0/imm32/next +<span id="L35197" class="LineNr">35197 </span> 52/push-edx/var2 +<span id="L35198" class="LineNr">35198 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35199" class="LineNr">35199 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35200" class="LineNr">35200 </span> 89/<- %esi 4/r32/esp +<span id="L35201" class="LineNr">35201 </span><span class="Constant">$test-add-mem-to-reg:initialize-outputs</span>: +<span id="L35202" class="LineNr">35202 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> +<span id="L35203" class="LineNr">35203 </span> 68/push 0/imm32/is-deref:false +<span id="L35204" class="LineNr">35204 </span> 68/push 0/imm32/next +<span id="L35205" class="LineNr">35205 </span> 68/push 0/imm32/next +<span id="L35206" class="LineNr">35206 </span> 51/push-ecx/var1 +<span id="L35207" class="LineNr">35207 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35208" class="LineNr">35208 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35209" class="LineNr">35209 </span> 89/<- %edi 4/r32/esp +<span id="L35210" class="LineNr">35210 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt</span>: +<span id="L35211" class="LineNr">35211 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L35212" class="LineNr">35212 </span> 68/push 0/imm32/next +<span id="L35213" class="LineNr">35213 </span> 68/push 0/imm32/next +<span id="L35214" class="LineNr">35214 </span> 57/push-edi/outputs +<span id="L35215" class="LineNr">35215 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35216" class="LineNr">35216 </span> 56/push-esi/inouts +<span id="L35217" class="LineNr">35217 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35218" class="LineNr">35218 </span> 68/push 0/imm32/operation +<span id="L35219" class="LineNr">35219 </span> 68/push 0/imm32/operation +<span id="L35220" class="LineNr">35220 </span> 68/push 1/imm32/tag:stmt1 +<span id="L35221" class="LineNr">35221 </span> 89/<- %esi 4/r32/esp +<span id="L35222" class="LineNr">35222 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt-operation</span>: +<span id="L35223" class="LineNr">35223 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L35224" class="LineNr">35224 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L35225" class="LineNr">35225 </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="L35226" class="LineNr">35226 </span> <span class="subxComment"># convert</span> +<span id="L35227" class="LineNr">35227 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L35228" class="LineNr">35228 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L35229" class="LineNr">35229 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L35230" class="Folded">35230 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L35236" class="LineNr">35236 </span> <span class="subxComment"># check output</span> +<span id="L35237" class="LineNr">35237 </span> (<a href='../109stream-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="L35238" class="LineNr">35238 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35239" class="LineNr">35239 </span> 89/<- %esp 5/r32/ebp +<span id="L35240" class="LineNr">35240 </span> 5d/pop-to-ebp +<span id="L35241" class="LineNr">35241 </span> c3/return +<span id="L35242" class="LineNr">35242 </span> +<span id="L35243" class="LineNr">35243 </span><span class="subxTest">test-add-literal-to-eax</span>: +<span id="L35244" class="LineNr">35244 </span> <span class="subxComment"># var1/eax <- add 0x34</span> +<span id="L35245" class="LineNr">35245 </span> <span class="subxComment"># =></span> +<span id="L35246" class="LineNr">35246 </span> <span class="subxComment"># 05/add-to-eax 0x34/imm32</span> +<span id="L35247" class="LineNr">35247 </span> <span class="subxComment">#</span> +<span id="L35248" class="LineNr">35248 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35249" class="LineNr">35249 </span> 55/push-ebp +<span id="L35250" class="LineNr">35250 </span> 89/<- %ebp 4/r32/esp +<span id="L35251" class="LineNr">35251 </span> <span class="subxComment"># setup</span> +<span id="L35252" class="LineNr">35252 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L35253" class="LineNr">35253 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L35254" class="LineNr">35254 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-type</span>: +<span id="L35255" class="LineNr">35255 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L35256" class="LineNr">35256 </span> 68/push 0/imm32/right:null +<span id="L35257" class="LineNr">35257 </span> 68/push 0/imm32/right:null +<span id="L35258" class="LineNr">35258 </span> 68/push 0/imm32/left:unused +<span id="L35259" class="LineNr">35259 </span> 68/push 1/imm32/value:int +<span id="L35260" class="LineNr">35260 </span> 68/push 1/imm32/is-atom?:true +<span id="L35261" class="LineNr">35261 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35262" class="LineNr">35262 </span> 89/<- %ecx 4/r32/esp +<span id="L35263" class="LineNr">35263 </span><span class="Constant">$test-add-literal-to-eax:initialize-var</span>: +<span id="L35264" class="LineNr">35264 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L35265" class="LineNr">35265 </span> 68/push 0/imm32/register +<span id="L35266" class="LineNr">35266 </span> 68/push 0/imm32/register +<span id="L35267" class="LineNr">35267 </span> 68/push 0/imm32/no-stack-offset +<span id="L35268" class="LineNr">35268 </span> 68/push 1/imm32/block-depth +<span id="L35269" class="LineNr">35269 </span> 51/push-ecx +<span id="L35270" class="LineNr">35270 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35271" class="LineNr">35271 </span> 68/push 0/imm32/name +<span id="L35272" class="LineNr">35272 </span> 68/push 0/imm32/name +<span id="L35273" class="LineNr">35273 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35274" class="LineNr">35274 </span> 89/<- %ecx 4/r32/esp +<span id="L35275" class="LineNr">35275 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-name</span>: +<span id="L35276" class="LineNr">35276 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L35277" class="LineNr">35277 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35278" class="LineNr">35278 </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="L35279" class="LineNr">35279 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-register</span>: +<span id="L35280" class="LineNr">35280 </span> <span class="subxComment"># v->register = "eax"</span> +<span id="L35281" class="LineNr">35281 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L35282" class="LineNr">35282 </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="L35283" class="LineNr">35283 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-type</span>: +<span id="L35284" class="LineNr">35284 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L35285" class="LineNr">35285 </span> 68/push 0/imm32/right:null +<span id="L35286" class="LineNr">35286 </span> 68/push 0/imm32/right:null +<span id="L35287" class="LineNr">35287 </span> 68/push 0/imm32/left:unused +<span id="L35288" class="LineNr">35288 </span> 68/push 0/imm32/value:literal +<span id="L35289" class="LineNr">35289 </span> 68/push 1/imm32/is-atom?:true +<span id="L35290" class="LineNr">35290 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35291" class="LineNr">35291 </span> 89/<- %edx 4/r32/esp +<span id="L35292" class="LineNr">35292 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal</span>: +<span id="L35293" class="LineNr">35293 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L35294" class="LineNr">35294 </span> 68/push 0/imm32/register +<span id="L35295" class="LineNr">35295 </span> 68/push 0/imm32/register +<span id="L35296" class="LineNr">35296 </span> 68/push 0/imm32/no-stack-offset +<span id="L35297" class="LineNr">35297 </span> 68/push 1/imm32/block-depth +<span id="L35298" class="LineNr">35298 </span> 52/push-edx +<span id="L35299" class="LineNr">35299 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35300" class="LineNr">35300 </span> 68/push 0/imm32/name +<span id="L35301" class="LineNr">35301 </span> 68/push 0/imm32/name +<span id="L35302" class="LineNr">35302 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35303" class="LineNr">35303 </span> 89/<- %edx 4/r32/esp +<span id="L35304" class="LineNr">35304 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-value</span>: +<span id="L35305" class="LineNr">35305 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L35306" class="LineNr">35306 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35307" class="LineNr">35307 </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="L35308" class="LineNr">35308 </span><span class="Constant">$test-add-literal-to-eax:initialize-inouts</span>: +<span id="L35309" class="LineNr">35309 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L35310" class="LineNr">35310 </span> 68/push 0/imm32/is-deref:false +<span id="L35311" class="LineNr">35311 </span> 68/push 0/imm32/next +<span id="L35312" class="LineNr">35312 </span> 68/push 0/imm32/next +<span id="L35313" class="LineNr">35313 </span> 52/push-edx/l +<span id="L35314" class="LineNr">35314 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35315" class="LineNr">35315 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35316" class="LineNr">35316 </span> 89/<- %esi 4/r32/esp +<span id="L35317" class="LineNr">35317 </span><span class="Constant">$test-add-literal-to-eax:initialize-outputs</span>: +<span id="L35318" class="LineNr">35318 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L35319" class="LineNr">35319 </span> 68/push 0/imm32/is-deref:false +<span id="L35320" class="LineNr">35320 </span> 68/push 0/imm32/next +<span id="L35321" class="LineNr">35321 </span> 68/push 0/imm32/next +<span id="L35322" class="LineNr">35322 </span> 51/push-ecx/v +<span id="L35323" class="LineNr">35323 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35324" class="LineNr">35324 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35325" class="LineNr">35325 </span> 89/<- %edi 4/r32/esp +<span id="L35326" class="LineNr">35326 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt</span>: +<span id="L35327" class="LineNr">35327 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L35328" class="LineNr">35328 </span> 68/push 0/imm32/next +<span id="L35329" class="LineNr">35329 </span> 68/push 0/imm32/next +<span id="L35330" class="LineNr">35330 </span> 57/push-edi/outputs +<span id="L35331" class="LineNr">35331 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35332" class="LineNr">35332 </span> 56/push-esi/inouts +<span id="L35333" class="LineNr">35333 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35334" class="LineNr">35334 </span> 68/push 0/imm32/operation +<span id="L35335" class="LineNr">35335 </span> 68/push 0/imm32/operation +<span id="L35336" class="LineNr">35336 </span> 68/push 1/imm32/tag:stmt1 +<span id="L35337" class="LineNr">35337 </span> 89/<- %esi 4/r32/esp +<span id="L35338" class="LineNr">35338 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt-operation</span>: +<span id="L35339" class="LineNr">35339 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L35340" class="LineNr">35340 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L35341" class="LineNr">35341 </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="L35342" class="LineNr">35342 </span> <span class="subxComment"># convert</span> +<span id="L35343" class="LineNr">35343 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L35344" class="LineNr">35344 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L35345" class="LineNr">35345 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L35346" class="Folded">35346 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L35352" class="LineNr">35352 </span> <span class="subxComment"># check output</span> +<span id="L35353" class="LineNr">35353 </span> (<a href='../109stream-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="L35354" class="LineNr">35354 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35355" class="LineNr">35355 </span> 89/<- %esp 5/r32/ebp +<span id="L35356" class="LineNr">35356 </span> 5d/pop-to-ebp +<span id="L35357" class="LineNr">35357 </span> c3/return +<span id="L35358" class="LineNr">35358 </span> +<span id="L35359" class="LineNr">35359 </span><span class="subxTest">test-add-literal-to-reg</span>: +<span id="L35360" class="LineNr">35360 </span> <span class="subxComment"># var1/ecx <- add 0x34</span> +<span id="L35361" class="LineNr">35361 </span> <span class="subxComment"># =></span> +<span id="L35362" class="LineNr">35362 </span> <span class="subxComment"># 81 0/subop/add %ecx 0x34/imm32</span> +<span id="L35363" class="LineNr">35363 </span> <span class="subxComment">#</span> +<span id="L35364" class="LineNr">35364 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35365" class="LineNr">35365 </span> 55/push-ebp +<span id="L35366" class="LineNr">35366 </span> 89/<- %ebp 4/r32/esp +<span id="L35367" class="LineNr">35367 </span> <span class="subxComment"># setup</span> +<span id="L35368" class="LineNr">35368 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L35369" class="LineNr">35369 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L35370" class="LineNr">35370 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-type</span>: +<span id="L35371" class="LineNr">35371 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L35372" class="LineNr">35372 </span> 68/push 0/imm32/right:null +<span id="L35373" class="LineNr">35373 </span> 68/push 0/imm32/right:null +<span id="L35374" class="LineNr">35374 </span> 68/push 0/imm32/left:unused +<span id="L35375" class="LineNr">35375 </span> 68/push 1/imm32/value:int +<span id="L35376" class="LineNr">35376 </span> 68/push 1/imm32/is-atom?:true +<span id="L35377" class="LineNr">35377 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35378" class="LineNr">35378 </span> 89/<- %ecx 4/r32/esp +<span id="L35379" class="LineNr">35379 </span><span class="Constant">$test-add-literal-to-reg:initialize-var</span>: +<span id="L35380" class="LineNr">35380 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L35381" class="LineNr">35381 </span> 68/push 0/imm32/register +<span id="L35382" class="LineNr">35382 </span> 68/push 0/imm32/register +<span id="L35383" class="LineNr">35383 </span> 68/push 0/imm32/no-stack-offset +<span id="L35384" class="LineNr">35384 </span> 68/push 1/imm32/block-depth +<span id="L35385" class="LineNr">35385 </span> 51/push-ecx +<span id="L35386" class="LineNr">35386 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35387" class="LineNr">35387 </span> 68/push 0/imm32/name +<span id="L35388" class="LineNr">35388 </span> 68/push 0/imm32/name +<span id="L35389" class="LineNr">35389 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35390" class="LineNr">35390 </span> 89/<- %ecx 4/r32/esp +<span id="L35391" class="LineNr">35391 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-name</span>: +<span id="L35392" class="LineNr">35392 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L35393" class="LineNr">35393 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35394" class="LineNr">35394 </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="L35395" class="LineNr">35395 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-register</span>: +<span id="L35396" class="LineNr">35396 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L35397" class="LineNr">35397 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L35398" class="LineNr">35398 </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="L35399" class="LineNr">35399 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-type</span>: +<span id="L35400" class="LineNr">35400 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L35401" class="LineNr">35401 </span> 68/push 0/imm32/right:null +<span id="L35402" class="LineNr">35402 </span> 68/push 0/imm32/right:null +<span id="L35403" class="LineNr">35403 </span> 68/push 0/imm32/left:unused +<span id="L35404" class="LineNr">35404 </span> 68/push 0/imm32/value:literal +<span id="L35405" class="LineNr">35405 </span> 68/push 1/imm32/is-atom?:true +<span id="L35406" class="LineNr">35406 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35407" class="LineNr">35407 </span> 89/<- %edx 4/r32/esp +<span id="L35408" class="LineNr">35408 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal</span>: +<span id="L35409" class="LineNr">35409 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L35410" class="LineNr">35410 </span> 68/push 0/imm32/register +<span id="L35411" class="LineNr">35411 </span> 68/push 0/imm32/register +<span id="L35412" class="LineNr">35412 </span> 68/push 0/imm32/no-stack-offset +<span id="L35413" class="LineNr">35413 </span> 68/push 1/imm32/block-depth +<span id="L35414" class="LineNr">35414 </span> 52/push-edx +<span id="L35415" class="LineNr">35415 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35416" class="LineNr">35416 </span> 68/push 0/imm32/name +<span id="L35417" class="LineNr">35417 </span> 68/push 0/imm32/name +<span id="L35418" class="LineNr">35418 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35419" class="LineNr">35419 </span> 89/<- %edx 4/r32/esp +<span id="L35420" class="LineNr">35420 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-value</span>: +<span id="L35421" class="LineNr">35421 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L35422" class="LineNr">35422 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35423" class="LineNr">35423 </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="L35424" class="LineNr">35424 </span><span class="Constant">$test-add-literal-to-reg:initialize-inouts</span>: +<span id="L35425" class="LineNr">35425 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L35426" class="LineNr">35426 </span> 68/push 0/imm32/is-deref:false +<span id="L35427" class="LineNr">35427 </span> 68/push 0/imm32/next +<span id="L35428" class="LineNr">35428 </span> 68/push 0/imm32/next +<span id="L35429" class="LineNr">35429 </span> 52/push-edx/l +<span id="L35430" class="LineNr">35430 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35431" class="LineNr">35431 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35432" class="LineNr">35432 </span> 89/<- %esi 4/r32/esp +<span id="L35433" class="LineNr">35433 </span><span class="Constant">$test-add-literal-to-reg:initialize-outputs</span>: +<span id="L35434" class="LineNr">35434 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L35435" class="LineNr">35435 </span> 68/push 0/imm32/is-deref:false +<span id="L35436" class="LineNr">35436 </span> 68/push 0/imm32/next +<span id="L35437" class="LineNr">35437 </span> 68/push 0/imm32/next +<span id="L35438" class="LineNr">35438 </span> 51/push-ecx/v <span id="L35439" class="LineNr">35439 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35440" class="LineNr">35440 </span> 68/push 0/imm32/name -<span id="L35441" class="LineNr">35441 </span> 68/push 0/imm32/name -<span id="L35442" class="LineNr">35442 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35443" class="LineNr">35443 </span> 89/<- %edx 4/r32/esp -<span id="L35444" class="LineNr">35444 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2-name</span>: -<span id="L35445" class="LineNr">35445 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L35446" class="LineNr">35446 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35447" class="LineNr">35447 </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="L35448" class="LineNr">35448 </span><span class="Constant">$test-compare-reg-with-mem:initialize-inouts</span>: -<span id="L35449" class="LineNr">35449 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L35450" class="LineNr">35450 </span> 68/push 0/imm32/is-deref:false -<span id="L35451" class="LineNr">35451 </span> 68/push 0/imm32/next -<span id="L35452" class="LineNr">35452 </span> 68/push 0/imm32/next -<span id="L35453" class="LineNr">35453 </span> 52/push-edx/var2 -<span id="L35454" class="LineNr">35454 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35455" class="LineNr">35455 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35456" class="LineNr">35456 </span> 89/<- %esi 4/r32/esp -<span id="L35457" class="LineNr">35457 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L35458" class="LineNr">35458 </span> 68/push 0/imm32/is-deref:false -<span id="L35459" class="LineNr">35459 </span> 56/push-esi/next -<span id="L35460" class="LineNr">35460 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35461" class="LineNr">35461 </span> 51/push-ecx/var1 -<span id="L35462" class="LineNr">35462 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35463" class="LineNr">35463 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35464" class="LineNr">35464 </span> 89/<- %esi 4/r32/esp -<span id="L35465" class="LineNr">35465 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt</span>: -<span id="L35466" class="LineNr">35466 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L35467" class="LineNr">35467 </span> 68/push 0/imm32/next -<span id="L35468" class="LineNr">35468 </span> 68/push 0/imm32/next -<span id="L35469" class="LineNr">35469 </span> 68/push 0/imm32/outputs -<span id="L35470" class="LineNr">35470 </span> 68/push 0/imm32/outputs -<span id="L35471" class="LineNr">35471 </span> 56/push-esi/inouts -<span id="L35472" class="LineNr">35472 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35473" class="LineNr">35473 </span> 68/push 0/imm32/operation -<span id="L35474" class="LineNr">35474 </span> 68/push 0/imm32/operation -<span id="L35475" class="LineNr">35475 </span> 68/push 1/imm32/tag:stmt1 -<span id="L35476" class="LineNr">35476 </span> 89/<- %esi 4/r32/esp -<span id="L35477" class="LineNr">35477 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt-operation</span>: -<span id="L35478" class="LineNr">35478 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L35479" class="LineNr">35479 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L35480" class="LineNr">35480 </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="L35481" class="LineNr">35481 </span> <span class="subxComment"># convert</span> -<span id="L35482" class="LineNr">35482 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L35483" class="LineNr">35483 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L35484" class="LineNr">35484 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L35485" class="Folded">35485 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L35491" class="LineNr">35491 </span> <span class="subxComment"># check output</span> -<span id="L35492" class="LineNr">35492 </span> (<a href='../109stream-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="L35493" class="LineNr">35493 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35494" class="LineNr">35494 </span> 89/<- %esp 5/r32/ebp -<span id="L35495" class="LineNr">35495 </span> 5d/pop-to-ebp -<span id="L35496" class="LineNr">35496 </span> c3/return -<span id="L35497" class="LineNr">35497 </span> -<span id="L35498" class="LineNr">35498 </span><span class="subxTest">test-compare-mem-with-literal</span>: -<span id="L35499" class="LineNr">35499 </span> <span class="subxComment"># compare var1, 0x34</span> -<span id="L35500" class="LineNr">35500 </span> <span class="subxComment"># =></span> -<span id="L35501" class="LineNr">35501 </span> <span class="subxComment"># 81 7/subop/compare *(ebp+___) 0x34/imm32</span> -<span id="L35502" class="LineNr">35502 </span> <span class="subxComment">#</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"># setup</span> -<span id="L35507" class="LineNr">35507 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L35508" class="LineNr">35508 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L35509" class="LineNr">35509 </span><span class="Constant">$test-compare-mem-with-literal:initialize-type</span>: -<span id="L35510" class="LineNr">35510 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L35511" class="LineNr">35511 </span> 68/push 0/imm32/right:null -<span id="L35512" class="LineNr">35512 </span> 68/push 0/imm32/right:null -<span id="L35513" class="LineNr">35513 </span> 68/push 0/imm32/left:unused -<span id="L35514" class="LineNr">35514 </span> 68/push 1/imm32/value:int -<span id="L35515" class="LineNr">35515 </span> 68/push 1/imm32/is-atom?:true -<span id="L35516" class="LineNr">35516 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35517" class="LineNr">35517 </span> 89/<- %ecx 4/r32/esp -<span id="L35518" class="LineNr">35518 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1</span>: -<span id="L35519" class="LineNr">35519 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L35520" class="LineNr">35520 </span> 68/push 0/imm32/register -<span id="L35521" class="LineNr">35521 </span> 68/push 0/imm32/register -<span id="L35522" class="LineNr">35522 </span> 68/push 8/imm32/stack-offset -<span id="L35523" class="LineNr">35523 </span> 68/push 1/imm32/block-depth -<span id="L35524" class="LineNr">35524 </span> 51/push-ecx -<span id="L35525" class="LineNr">35525 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35526" class="LineNr">35526 </span> 68/push 0/imm32/name -<span id="L35527" class="LineNr">35527 </span> 68/push 0/imm32/name -<span id="L35528" class="LineNr">35528 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35529" class="LineNr">35529 </span> 89/<- %ecx 4/r32/esp -<span id="L35530" class="LineNr">35530 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1-name</span>: -<span id="L35531" class="LineNr">35531 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L35532" class="LineNr">35532 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35533" class="LineNr">35533 </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="L35534" class="LineNr">35534 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-type</span>: -<span id="L35535" class="LineNr">35535 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L35536" class="LineNr">35536 </span> 68/push 0/imm32/right:null -<span id="L35537" class="LineNr">35537 </span> 68/push 0/imm32/right:null -<span id="L35538" class="LineNr">35538 </span> 68/push 0/imm32/left:unused -<span id="L35539" class="LineNr">35539 </span> 68/push 0/imm32/value:literal -<span id="L35540" class="LineNr">35540 </span> 68/push 1/imm32/is-atom?:true -<span id="L35541" class="LineNr">35541 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35542" class="LineNr">35542 </span> 89/<- %edx 4/r32/esp -<span id="L35543" class="LineNr">35543 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal</span>: -<span id="L35544" class="LineNr">35544 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L35545" class="LineNr">35545 </span> 68/push 0/imm32/register -<span id="L35546" class="LineNr">35546 </span> 68/push 0/imm32/register -<span id="L35547" class="LineNr">35547 </span> 68/push 0/imm32/no-stack-offset -<span id="L35548" class="LineNr">35548 </span> 68/push 1/imm32/block-depth -<span id="L35549" class="LineNr">35549 </span> 52/push-edx +<span id="L35440" class="LineNr">35440 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35441" class="LineNr">35441 </span> 89/<- %edi 4/r32/esp +<span id="L35442" class="LineNr">35442 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt</span>: +<span id="L35443" class="LineNr">35443 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L35444" class="LineNr">35444 </span> 68/push 0/imm32/next +<span id="L35445" class="LineNr">35445 </span> 68/push 0/imm32/next +<span id="L35446" class="LineNr">35446 </span> 57/push-edi/outputs +<span id="L35447" class="LineNr">35447 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35448" class="LineNr">35448 </span> 56/push-esi/inouts +<span id="L35449" class="LineNr">35449 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35450" class="LineNr">35450 </span> 68/push 0/imm32/operation +<span id="L35451" class="LineNr">35451 </span> 68/push 0/imm32/operation +<span id="L35452" class="LineNr">35452 </span> 68/push 1/imm32/tag:stmt1 +<span id="L35453" class="LineNr">35453 </span> 89/<- %esi 4/r32/esp +<span id="L35454" class="LineNr">35454 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt-operation</span>: +<span id="L35455" class="LineNr">35455 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L35456" class="LineNr">35456 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L35457" class="LineNr">35457 </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="L35458" class="LineNr">35458 </span> <span class="subxComment"># convert</span> +<span id="L35459" class="LineNr">35459 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L35460" class="LineNr">35460 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L35461" class="LineNr">35461 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L35462" class="Folded">35462 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L35468" class="LineNr">35468 </span> <span class="subxComment"># check output</span> +<span id="L35469" class="LineNr">35469 </span> (<a href='../109stream-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="L35470" class="LineNr">35470 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35471" class="LineNr">35471 </span> 89/<- %esp 5/r32/ebp +<span id="L35472" class="LineNr">35472 </span> 5d/pop-to-ebp +<span id="L35473" class="LineNr">35473 </span> c3/return +<span id="L35474" class="LineNr">35474 </span> +<span id="L35475" class="LineNr">35475 </span><span class="subxTest">test-add-literal-to-mem</span>: +<span id="L35476" class="LineNr">35476 </span> <span class="subxComment"># add-to var1, 0x34</span> +<span id="L35477" class="LineNr">35477 </span> <span class="subxComment"># =></span> +<span id="L35478" class="LineNr">35478 </span> <span class="subxComment"># 81 0/subop/add %eax 0x34/imm32</span> +<span id="L35479" class="LineNr">35479 </span> <span class="subxComment">#</span> +<span id="L35480" class="LineNr">35480 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35481" class="LineNr">35481 </span> 55/push-ebp +<span id="L35482" class="LineNr">35482 </span> 89/<- %ebp 4/r32/esp +<span id="L35483" class="LineNr">35483 </span> <span class="subxComment"># setup</span> +<span id="L35484" class="LineNr">35484 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L35485" class="LineNr">35485 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L35486" class="LineNr">35486 </span><span class="Constant">$test-add-literal-to-mem:initialize-type</span>: +<span id="L35487" class="LineNr">35487 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L35488" class="LineNr">35488 </span> 68/push 0/imm32/right:null +<span id="L35489" class="LineNr">35489 </span> 68/push 0/imm32/right:null +<span id="L35490" class="LineNr">35490 </span> 68/push 0/imm32/left:unused +<span id="L35491" class="LineNr">35491 </span> 68/push 1/imm32/value:int +<span id="L35492" class="LineNr">35492 </span> 68/push 1/imm32/is-atom?:true +<span id="L35493" class="LineNr">35493 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35494" class="LineNr">35494 </span> 89/<- %ecx 4/r32/esp +<span id="L35495" class="LineNr">35495 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1</span>: +<span id="L35496" class="LineNr">35496 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L35497" class="LineNr">35497 </span> 68/push 0/imm32/register +<span id="L35498" class="LineNr">35498 </span> 68/push 0/imm32/register +<span id="L35499" class="LineNr">35499 </span> 68/push 8/imm32/stack-offset +<span id="L35500" class="LineNr">35500 </span> 68/push 1/imm32/block-depth +<span id="L35501" class="LineNr">35501 </span> 51/push-ecx +<span id="L35502" class="LineNr">35502 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35503" class="LineNr">35503 </span> 68/push 0/imm32/name +<span id="L35504" class="LineNr">35504 </span> 68/push 0/imm32/name +<span id="L35505" class="LineNr">35505 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35506" class="LineNr">35506 </span> 89/<- %ecx 4/r32/esp +<span id="L35507" class="LineNr">35507 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1-name</span>: +<span id="L35508" class="LineNr">35508 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L35509" class="LineNr">35509 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35510" class="LineNr">35510 </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="L35511" class="LineNr">35511 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-type</span>: +<span id="L35512" class="LineNr">35512 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L35513" class="LineNr">35513 </span> 68/push 0/imm32/right:null +<span id="L35514" class="LineNr">35514 </span> 68/push 0/imm32/right:null +<span id="L35515" class="LineNr">35515 </span> 68/push 0/imm32/left:unused +<span id="L35516" class="LineNr">35516 </span> 68/push 0/imm32/value:literal +<span id="L35517" class="LineNr">35517 </span> 68/push 1/imm32/is-atom?:true +<span id="L35518" class="LineNr">35518 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35519" class="LineNr">35519 </span> 89/<- %edx 4/r32/esp +<span id="L35520" class="LineNr">35520 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal</span>: +<span id="L35521" class="LineNr">35521 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L35522" class="LineNr">35522 </span> 68/push 0/imm32/register +<span id="L35523" class="LineNr">35523 </span> 68/push 0/imm32/register +<span id="L35524" class="LineNr">35524 </span> 68/push 0/imm32/no-stack-offset +<span id="L35525" class="LineNr">35525 </span> 68/push 1/imm32/block-depth +<span id="L35526" class="LineNr">35526 </span> 52/push-edx +<span id="L35527" class="LineNr">35527 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35528" class="LineNr">35528 </span> 68/push 0/imm32/name +<span id="L35529" class="LineNr">35529 </span> 68/push 0/imm32/name +<span id="L35530" class="LineNr">35530 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35531" class="LineNr">35531 </span> 89/<- %edx 4/r32/esp +<span id="L35532" class="LineNr">35532 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-value</span>: +<span id="L35533" class="LineNr">35533 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L35534" class="LineNr">35534 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35535" class="LineNr">35535 </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="L35536" class="LineNr">35536 </span><span class="Constant">$test-add-literal-to-mem:initialize-inouts</span>: +<span id="L35537" class="LineNr">35537 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L35538" class="LineNr">35538 </span> 68/push 0/imm32/is-deref:false +<span id="L35539" class="LineNr">35539 </span> 68/push 0/imm32/next +<span id="L35540" class="LineNr">35540 </span> 68/push 0/imm32/next +<span id="L35541" class="LineNr">35541 </span> 52/push-edx/l +<span id="L35542" class="LineNr">35542 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35543" class="LineNr">35543 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35544" class="LineNr">35544 </span> 89/<- %esi 4/r32/esp +<span id="L35545" class="LineNr">35545 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L35546" class="LineNr">35546 </span> 68/push 0/imm32/is-deref:false +<span id="L35547" class="LineNr">35547 </span> 56/push-esi/next +<span id="L35548" class="LineNr">35548 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35549" class="LineNr">35549 </span> 51/push-ecx/var1 <span id="L35550" class="LineNr">35550 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35551" class="LineNr">35551 </span> 68/push 0/imm32/name -<span id="L35552" class="LineNr">35552 </span> 68/push 0/imm32/name -<span id="L35553" class="LineNr">35553 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35554" class="LineNr">35554 </span> 89/<- %edx 4/r32/esp -<span id="L35555" class="LineNr">35555 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-value</span>: -<span id="L35556" class="LineNr">35556 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L35557" class="LineNr">35557 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35558" class="LineNr">35558 </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="L35559" class="LineNr">35559 </span><span class="Constant">$test-compare-mem-with-literal:initialize-inouts</span>: -<span id="L35560" class="LineNr">35560 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L35561" class="LineNr">35561 </span> 68/push 0/imm32/is-deref:false -<span id="L35562" class="LineNr">35562 </span> 68/push 0/imm32/next -<span id="L35563" class="LineNr">35563 </span> 68/push 0/imm32/next -<span id="L35564" class="LineNr">35564 </span> 52/push-edx/l -<span id="L35565" class="LineNr">35565 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35566" class="LineNr">35566 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35567" class="LineNr">35567 </span> 89/<- %esi 4/r32/esp -<span id="L35568" class="LineNr">35568 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L35569" class="LineNr">35569 </span> 68/push 0/imm32/is-deref:false -<span id="L35570" class="LineNr">35570 </span> 56/push-esi/next -<span id="L35571" class="LineNr">35571 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35572" class="LineNr">35572 </span> 51/push-ecx/var1 -<span id="L35573" class="LineNr">35573 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35574" class="LineNr">35574 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35575" class="LineNr">35575 </span> 89/<- %esi 4/r32/esp -<span id="L35576" class="LineNr">35576 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt</span>: -<span id="L35577" class="LineNr">35577 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L35578" class="LineNr">35578 </span> 68/push 0/imm32/next -<span id="L35579" class="LineNr">35579 </span> 68/push 0/imm32/next -<span id="L35580" class="LineNr">35580 </span> 68/push 0/imm32/outputs -<span id="L35581" class="LineNr">35581 </span> 68/push 0/imm32/outputs -<span id="L35582" class="LineNr">35582 </span> 56/push-esi/inouts -<span id="L35583" class="LineNr">35583 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35584" class="LineNr">35584 </span> 68/push 0/imm32/operation -<span id="L35585" class="LineNr">35585 </span> 68/push 0/imm32/operation -<span id="L35586" class="LineNr">35586 </span> 68/push 1/imm32/tag:stmt1 -<span id="L35587" class="LineNr">35587 </span> 89/<- %esi 4/r32/esp -<span id="L35588" class="LineNr">35588 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt-operation</span>: -<span id="L35589" class="LineNr">35589 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L35590" class="LineNr">35590 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L35591" class="LineNr">35591 </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="L35592" class="LineNr">35592 </span> <span class="subxComment"># convert</span> -<span id="L35593" class="LineNr">35593 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L35594" class="LineNr">35594 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L35595" class="LineNr">35595 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L35596" class="Folded">35596 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L35602" class="LineNr">35602 </span> <span class="subxComment"># check output</span> -<span id="L35603" class="LineNr">35603 </span> (<a href='../109stream-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="L35604" class="LineNr">35604 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35605" class="LineNr">35605 </span> 89/<- %esp 5/r32/ebp -<span id="L35606" class="LineNr">35606 </span> 5d/pop-to-ebp -<span id="L35607" class="LineNr">35607 </span> c3/return -<span id="L35608" class="LineNr">35608 </span> -<span id="L35609" class="LineNr">35609 </span><span class="subxTest">test-compare-eax-with-literal</span>: -<span id="L35610" class="LineNr">35610 </span> <span class="subxComment"># compare var1/eax 0x34</span> -<span id="L35611" class="LineNr">35611 </span> <span class="subxComment"># =></span> -<span id="L35612" class="LineNr">35612 </span> <span class="subxComment"># 3d/compare-eax-with 0x34/imm32</span> -<span id="L35613" class="LineNr">35613 </span> <span class="subxComment">#</span> -<span id="L35614" class="LineNr">35614 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35615" class="LineNr">35615 </span> 55/push-ebp -<span id="L35616" class="LineNr">35616 </span> 89/<- %ebp 4/r32/esp -<span id="L35617" class="LineNr">35617 </span> <span class="subxComment"># setup</span> -<span id="L35618" class="LineNr">35618 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L35619" class="LineNr">35619 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L35620" class="LineNr">35620 </span><span class="Constant">$test-compare-eax-with-literal:initialize-type</span>: -<span id="L35621" class="LineNr">35621 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L35622" class="LineNr">35622 </span> 68/push 0/imm32/right:null -<span id="L35623" class="LineNr">35623 </span> 68/push 0/imm32/right:null -<span id="L35624" class="LineNr">35624 </span> 68/push 0/imm32/left:unused -<span id="L35625" class="LineNr">35625 </span> 68/push 1/imm32/value:int -<span id="L35626" class="LineNr">35626 </span> 68/push 1/imm32/is-atom?:true -<span id="L35627" class="LineNr">35627 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35628" class="LineNr">35628 </span> 89/<- %ecx 4/r32/esp -<span id="L35629" class="LineNr">35629 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1</span>: -<span id="L35630" class="LineNr">35630 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L35631" class="LineNr">35631 </span> 68/push 0/imm32/register -<span id="L35632" class="LineNr">35632 </span> 68/push 0/imm32/register -<span id="L35633" class="LineNr">35633 </span> 68/push 0/imm32/no-stack-offset -<span id="L35634" class="LineNr">35634 </span> 68/push 1/imm32/block-depth -<span id="L35635" class="LineNr">35635 </span> 51/push-ecx -<span id="L35636" class="LineNr">35636 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35637" class="LineNr">35637 </span> 68/push 0/imm32/name -<span id="L35638" class="LineNr">35638 </span> 68/push 0/imm32/name -<span id="L35639" class="LineNr">35639 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35640" class="LineNr">35640 </span> 89/<- %ecx 4/r32/esp -<span id="L35641" class="LineNr">35641 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-name</span>: -<span id="L35642" class="LineNr">35642 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L35643" class="LineNr">35643 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35644" class="LineNr">35644 </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="L35645" class="LineNr">35645 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-register</span>: -<span id="L35646" class="LineNr">35646 </span> <span class="subxComment"># v->register = "eax"</span> -<span id="L35647" class="LineNr">35647 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L35648" class="LineNr">35648 </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="L35649" class="LineNr">35649 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-type</span>: -<span id="L35650" class="LineNr">35650 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L35651" class="LineNr">35651 </span> 68/push 0/imm32/right:null -<span id="L35652" class="LineNr">35652 </span> 68/push 0/imm32/right:null -<span id="L35653" class="LineNr">35653 </span> 68/push 0/imm32/left:unused -<span id="L35654" class="LineNr">35654 </span> 68/push 0/imm32/value:literal -<span id="L35655" class="LineNr">35655 </span> 68/push 1/imm32/is-atom?:true -<span id="L35656" class="LineNr">35656 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35657" class="LineNr">35657 </span> 89/<- %edx 4/r32/esp -<span id="L35658" class="LineNr">35658 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal</span>: -<span id="L35659" class="LineNr">35659 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L35660" class="LineNr">35660 </span> 68/push 0/imm32/register -<span id="L35661" class="LineNr">35661 </span> 68/push 0/imm32/register -<span id="L35662" class="LineNr">35662 </span> 68/push 0/imm32/no-stack-offset -<span id="L35663" class="LineNr">35663 </span> 68/push 1/imm32/block-depth -<span id="L35664" class="LineNr">35664 </span> 52/push-edx -<span id="L35665" class="LineNr">35665 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35666" class="LineNr">35666 </span> 68/push 0/imm32/name -<span id="L35667" class="LineNr">35667 </span> 68/push 0/imm32/name -<span id="L35668" class="LineNr">35668 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35669" class="LineNr">35669 </span> 89/<- %edx 4/r32/esp -<span id="L35670" class="LineNr">35670 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-value</span>: -<span id="L35671" class="LineNr">35671 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L35672" class="LineNr">35672 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35673" class="LineNr">35673 </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="L35674" class="LineNr">35674 </span><span class="Constant">$test-compare-eax-with-literal:initialize-inouts</span>: -<span id="L35675" class="LineNr">35675 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L35676" class="LineNr">35676 </span> 68/push 0/imm32/is-deref:false -<span id="L35677" class="LineNr">35677 </span> 68/push 0/imm32/next -<span id="L35678" class="LineNr">35678 </span> 68/push 0/imm32/next -<span id="L35679" class="LineNr">35679 </span> 52/push-edx/l -<span id="L35680" class="LineNr">35680 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35681" class="LineNr">35681 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35682" class="LineNr">35682 </span> 89/<- %esi 4/r32/esp -<span id="L35683" class="LineNr">35683 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L35684" class="LineNr">35684 </span> 68/push 0/imm32/is-deref:false -<span id="L35685" class="LineNr">35685 </span> 56/push-esi/next -<span id="L35686" class="LineNr">35686 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35687" class="LineNr">35687 </span> 51/push-ecx/var1 -<span id="L35688" class="LineNr">35688 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35689" class="LineNr">35689 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35690" class="LineNr">35690 </span> 89/<- %esi 4/r32/esp -<span id="L35691" class="LineNr">35691 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt</span>: -<span id="L35692" class="LineNr">35692 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L35693" class="LineNr">35693 </span> 68/push 0/imm32/next -<span id="L35694" class="LineNr">35694 </span> 68/push 0/imm32/next -<span id="L35695" class="LineNr">35695 </span> 68/push 0/imm32/outputs -<span id="L35696" class="LineNr">35696 </span> 68/push 0/imm32/outputs -<span id="L35697" class="LineNr">35697 </span> 56/push-esi/inouts -<span id="L35698" class="LineNr">35698 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35699" class="LineNr">35699 </span> 68/push 0/imm32/operation -<span id="L35700" class="LineNr">35700 </span> 68/push 0/imm32/operation -<span id="L35701" class="LineNr">35701 </span> 68/push 1/imm32/tag:stmt1 -<span id="L35702" class="LineNr">35702 </span> 89/<- %esi 4/r32/esp -<span id="L35703" class="LineNr">35703 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt-operation</span>: -<span id="L35704" class="LineNr">35704 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L35705" class="LineNr">35705 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L35706" class="LineNr">35706 </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="L35707" class="LineNr">35707 </span> <span class="subxComment"># convert</span> -<span id="L35708" class="LineNr">35708 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L35709" class="LineNr">35709 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L35710" class="LineNr">35710 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L35711" class="Folded">35711 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L35717" class="LineNr">35717 </span> <span class="subxComment"># check output</span> -<span id="L35718" class="LineNr">35718 </span> (<a href='../109stream-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="L35719" class="LineNr">35719 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35720" class="LineNr">35720 </span> 89/<- %esp 5/r32/ebp -<span id="L35721" class="LineNr">35721 </span> 5d/pop-to-ebp -<span id="L35722" class="LineNr">35722 </span> c3/return -<span id="L35723" class="LineNr">35723 </span> -<span id="L35724" class="LineNr">35724 </span><span class="subxTest">test-compare-reg-with-literal</span>: -<span id="L35725" class="LineNr">35725 </span> <span class="subxComment"># compare var1/ecx 0x34</span> -<span id="L35726" class="LineNr">35726 </span> <span class="subxComment"># =></span> -<span id="L35727" class="LineNr">35727 </span> <span class="subxComment"># 81 7/subop/compare %ecx 0x34/imm32</span> -<span id="L35728" class="LineNr">35728 </span> <span class="subxComment">#</span> -<span id="L35729" class="LineNr">35729 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35730" class="LineNr">35730 </span> 55/push-ebp -<span id="L35731" class="LineNr">35731 </span> 89/<- %ebp 4/r32/esp -<span id="L35732" class="LineNr">35732 </span> <span class="subxComment"># setup</span> -<span id="L35733" class="LineNr">35733 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L35734" class="LineNr">35734 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L35735" class="LineNr">35735 </span><span class="Constant">$test-compare-reg-with-literal:initialize-type</span>: -<span id="L35736" class="LineNr">35736 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L35737" class="LineNr">35737 </span> 68/push 0/imm32/right:null -<span id="L35738" class="LineNr">35738 </span> 68/push 0/imm32/right:null -<span id="L35739" class="LineNr">35739 </span> 68/push 0/imm32/left:unused -<span id="L35740" class="LineNr">35740 </span> 68/push 1/imm32/value:int -<span id="L35741" class="LineNr">35741 </span> 68/push 1/imm32/is-atom?:true -<span id="L35742" class="LineNr">35742 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35743" class="LineNr">35743 </span> 89/<- %ecx 4/r32/esp -<span id="L35744" class="LineNr">35744 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1</span>: -<span id="L35745" class="LineNr">35745 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L35746" class="LineNr">35746 </span> 68/push 0/imm32/register -<span id="L35747" class="LineNr">35747 </span> 68/push 0/imm32/register -<span id="L35748" class="LineNr">35748 </span> 68/push 0/imm32/no-stack-offset -<span id="L35749" class="LineNr">35749 </span> 68/push 1/imm32/block-depth -<span id="L35750" class="LineNr">35750 </span> 51/push-ecx -<span id="L35751" class="LineNr">35751 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35752" class="LineNr">35752 </span> 68/push 0/imm32/name -<span id="L35753" class="LineNr">35753 </span> 68/push 0/imm32/name -<span id="L35754" class="LineNr">35754 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35755" class="LineNr">35755 </span> 89/<- %ecx 4/r32/esp -<span id="L35756" class="LineNr">35756 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-name</span>: -<span id="L35757" class="LineNr">35757 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L35758" class="LineNr">35758 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35759" class="LineNr">35759 </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="L35760" class="LineNr">35760 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-register</span>: -<span id="L35761" class="LineNr">35761 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L35762" class="LineNr">35762 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L35763" class="LineNr">35763 </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="L35764" class="LineNr">35764 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-type</span>: -<span id="L35765" class="LineNr">35765 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L35766" class="LineNr">35766 </span> 68/push 0/imm32/right:null -<span id="L35767" class="LineNr">35767 </span> 68/push 0/imm32/right:null -<span id="L35768" class="LineNr">35768 </span> 68/push 0/imm32/left:unused -<span id="L35769" class="LineNr">35769 </span> 68/push 0/imm32/value:literal -<span id="L35770" class="LineNr">35770 </span> 68/push 1/imm32/is-atom?:true -<span id="L35771" class="LineNr">35771 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35772" class="LineNr">35772 </span> 89/<- %edx 4/r32/esp -<span id="L35773" class="LineNr">35773 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal</span>: -<span id="L35774" class="LineNr">35774 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L35775" class="LineNr">35775 </span> 68/push 0/imm32/register -<span id="L35776" class="LineNr">35776 </span> 68/push 0/imm32/register -<span id="L35777" class="LineNr">35777 </span> 68/push 0/imm32/no-stack-offset -<span id="L35778" class="LineNr">35778 </span> 68/push 1/imm32/block-depth -<span id="L35779" class="LineNr">35779 </span> 52/push-edx -<span id="L35780" class="LineNr">35780 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35781" class="LineNr">35781 </span> 68/push 0/imm32/name -<span id="L35782" class="LineNr">35782 </span> 68/push 0/imm32/name -<span id="L35783" class="LineNr">35783 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35784" class="LineNr">35784 </span> 89/<- %edx 4/r32/esp -<span id="L35785" class="LineNr">35785 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-value</span>: -<span id="L35786" class="LineNr">35786 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L35787" class="LineNr">35787 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35788" class="LineNr">35788 </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="L35789" class="LineNr">35789 </span><span class="Constant">$test-compare-reg-with-literal:initialize-inouts</span>: -<span id="L35790" class="LineNr">35790 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L35791" class="LineNr">35791 </span> 68/push 0/imm32/is-deref:false -<span id="L35792" class="LineNr">35792 </span> 68/push 0/imm32/next -<span id="L35793" class="LineNr">35793 </span> 68/push 0/imm32/next -<span id="L35794" class="LineNr">35794 </span> 52/push-edx/l -<span id="L35795" class="LineNr">35795 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35796" class="LineNr">35796 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35797" class="LineNr">35797 </span> 89/<- %esi 4/r32/esp -<span id="L35798" class="LineNr">35798 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L35799" class="LineNr">35799 </span> 68/push 0/imm32/is-deref:false -<span id="L35800" class="LineNr">35800 </span> 56/push-esi/next -<span id="L35801" class="LineNr">35801 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35802" class="LineNr">35802 </span> 51/push-ecx/var1 -<span id="L35803" class="LineNr">35803 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35804" class="LineNr">35804 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35805" class="LineNr">35805 </span> 89/<- %esi 4/r32/esp -<span id="L35806" class="LineNr">35806 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt</span>: -<span id="L35807" class="LineNr">35807 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L35808" class="LineNr">35808 </span> 68/push 0/imm32/next -<span id="L35809" class="LineNr">35809 </span> 68/push 0/imm32/next -<span id="L35810" class="LineNr">35810 </span> 68/push 0/imm32/outputs -<span id="L35811" class="LineNr">35811 </span> 68/push 0/imm32/outputs -<span id="L35812" class="LineNr">35812 </span> 56/push-esi/inouts -<span id="L35813" class="LineNr">35813 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35814" class="LineNr">35814 </span> 68/push 0/imm32/operation -<span id="L35815" class="LineNr">35815 </span> 68/push 0/imm32/operation -<span id="L35816" class="LineNr">35816 </span> 68/push 1/imm32/tag:stmt1 -<span id="L35817" class="LineNr">35817 </span> 89/<- %esi 4/r32/esp -<span id="L35818" class="LineNr">35818 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt-operation</span>: -<span id="L35819" class="LineNr">35819 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L35820" class="LineNr">35820 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L35821" class="LineNr">35821 </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="L35822" class="LineNr">35822 </span> <span class="subxComment"># convert</span> -<span id="L35823" class="LineNr">35823 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L35824" class="LineNr">35824 </span> (<a href='mu.subx.html#L26390'>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#L27949'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L35825" class="LineNr">35825 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L35826" class="Folded">35826 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L35832" class="LineNr">35832 </span> <span class="subxComment"># check output</span> -<span id="L35833" class="LineNr">35833 </span> (<a href='../109stream-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="L35834" class="LineNr">35834 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35835" class="LineNr">35835 </span> 89/<- %esp 5/r32/ebp -<span id="L35836" class="LineNr">35836 </span> 5d/pop-to-ebp -<span id="L35837" class="LineNr">35837 </span> c3/return -<span id="L35838" class="LineNr">35838 </span> -<span id="L35839" class="LineNr">35839 </span><span class="subxTest">test-emit-subx-stmt-function-call</span>: -<span id="L35840" class="LineNr">35840 </span> <span class="subxComment"># Call a function on a variable on the stack.</span> -<span id="L35841" class="LineNr">35841 </span> <span class="subxComment"># f foo</span> -<span id="L35842" class="LineNr">35842 </span> <span class="subxComment"># =></span> -<span id="L35843" class="LineNr">35843 </span> <span class="subxComment"># (f *(ebp-8))</span> -<span id="L35844" class="LineNr">35844 </span> <span class="subxComment"># (Changing the function name supports overloading in general, but here it</span> -<span id="L35845" class="LineNr">35845 </span> <span class="subxComment"># just serves to help disambiguate things.)</span> -<span id="L35846" class="LineNr">35846 </span> <span class="subxComment">#</span> -<span id="L35847" class="LineNr">35847 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L35848" class="LineNr">35848 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L35849" class="LineNr">35849 </span> <span class="subxComment"># type: int</span> -<span id="L35850" class="LineNr">35850 </span> <span class="subxComment"># stack-offset: -8</span> -<span id="L35851" class="LineNr">35851 </span> <span class="subxComment">#</span> -<span id="L35852" class="LineNr">35852 </span> <span class="subxComment"># There's nothing in primitives.</span> -<span id="L35853" class="LineNr">35853 </span> <span class="subxComment">#</span> -<span id="L35854" class="LineNr">35854 </span> <span class="subxComment"># We don't perform any checking here on the type of 'f'.</span> -<span id="L35855" class="LineNr">35855 </span> <span class="subxComment">#</span> -<span id="L35856" class="LineNr">35856 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35857" class="LineNr">35857 </span> 55/push-ebp -<span id="L35858" class="LineNr">35858 </span> 89/<- %ebp 4/r32/esp -<span id="L35859" class="LineNr">35859 </span> <span class="subxComment"># setup</span> -<span id="L35860" class="LineNr">35860 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L35861" class="LineNr">35861 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L35862" class="LineNr">35862 </span><span class="Constant">$test-emit-subx-function-call:initialize-type</span>: -<span id="L35863" class="LineNr">35863 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L35864" class="LineNr">35864 </span> 68/push 0/imm32/right:null -<span id="L35865" class="LineNr">35865 </span> 68/push 0/imm32/right:null -<span id="L35866" class="LineNr">35866 </span> 68/push 0/imm32/left:unused -<span id="L35867" class="LineNr">35867 </span> 68/push 1/imm32/value:int -<span id="L35868" class="LineNr">35868 </span> 68/push 1/imm32/is-atom?:true -<span id="L35869" class="LineNr">35869 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35870" class="LineNr">35870 </span> 89/<- %ecx 4/r32/esp -<span id="L35871" class="LineNr">35871 </span><span class="Constant">$test-emit-subx-function-call:initialize-var</span>: -<span id="L35872" class="LineNr">35872 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> -<span id="L35873" class="LineNr">35873 </span> 68/push 0/imm32/no-register -<span id="L35874" class="LineNr">35874 </span> 68/push 0/imm32/no-register -<span id="L35875" class="LineNr">35875 </span> 68/push -8/imm32/stack-offset -<span id="L35876" class="LineNr">35876 </span> 68/push 1/imm32/block-depth -<span id="L35877" class="LineNr">35877 </span> 51/push-ecx/type -<span id="L35878" class="LineNr">35878 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35879" class="LineNr">35879 </span> 68/push 0/imm32/name -<span id="L35880" class="LineNr">35880 </span> 68/push 0/imm32/name -<span id="L35881" class="LineNr">35881 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35882" class="LineNr">35882 </span> 89/<- %ecx 4/r32/esp -<span id="L35883" class="LineNr">35883 </span><span class="Constant">$test-emit-subx-function-call:initialize-var-name</span>: -<span id="L35884" class="LineNr">35884 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L35885" class="LineNr">35885 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35886" class="LineNr">35886 </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="L35887" class="LineNr">35887 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-var</span>: -<span id="L35888" class="LineNr">35888 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L35889" class="LineNr">35889 </span> 68/push 0/imm32/is-deref:false -<span id="L35890" class="LineNr">35890 </span> 68/push 0/imm32/next -<span id="L35891" class="LineNr">35891 </span> 68/push 0/imm32/next -<span id="L35892" class="LineNr">35892 </span> 51/push-ecx/var-foo -<span id="L35893" class="LineNr">35893 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35894" class="LineNr">35894 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35895" class="LineNr">35895 </span> 89/<- %ebx 4/r32/esp -<span id="L35896" class="LineNr">35896 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt</span>: -<span id="L35897" class="LineNr">35897 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L35898" class="LineNr">35898 </span> 68/push 0/imm32/no-outputs -<span id="L35899" class="LineNr">35899 </span> 68/push 0/imm32/no-outputs -<span id="L35900" class="LineNr">35900 </span> 53/push-ebx/inouts -<span id="L35901" class="LineNr">35901 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35902" class="LineNr">35902 </span> 68/push 0/imm32/operation -<span id="L35903" class="LineNr">35903 </span> 68/push 0/imm32/operation -<span id="L35904" class="LineNr">35904 </span> 68/push 1/imm32/tag -<span id="L35905" class="LineNr">35905 </span> 89/<- %esi 4/r32/esp -<span id="L35906" class="LineNr">35906 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-operation</span>: -<span id="L35907" class="LineNr">35907 </span> <span class="subxComment"># stmt->operation = "f"</span> -<span id="L35908" class="LineNr">35908 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L35909" class="LineNr">35909 </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="L35910" class="LineNr">35910 </span> <span class="subxComment"># convert</span> -<span id="L35911" class="LineNr">35911 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L35912" class="LineNr">35912 </span> (<a href='mu.subx.html#L26390'>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="L35913" class="LineNr">35913 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L35914" class="Folded">35914 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L35920" class="LineNr">35920 </span> <span class="subxComment"># check output</span> -<span id="L35921" class="LineNr">35921 </span> (<a href='../109stream-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="L35922" class="LineNr">35922 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35923" class="LineNr">35923 </span> 89/<- %esp 5/r32/ebp -<span id="L35924" class="LineNr">35924 </span> 5d/pop-to-ebp -<span id="L35925" class="LineNr">35925 </span> c3/return -<span id="L35926" class="LineNr">35926 </span> -<span id="L35927" class="LineNr">35927 </span><span class="subxTest">test-emit-subx-stmt-function-call-with-literal-arg</span>: -<span id="L35928" class="LineNr">35928 </span> <span class="subxComment"># Call a function on a literal.</span> -<span id="L35929" class="LineNr">35929 </span> <span class="subxComment"># f 0x34</span> -<span id="L35930" class="LineNr">35930 </span> <span class="subxComment"># =></span> -<span id="L35931" class="LineNr">35931 </span> <span class="subxComment"># (f2 0x34)</span> -<span id="L35932" class="LineNr">35932 </span> <span class="subxComment">#</span> -<span id="L35933" class="LineNr">35933 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35934" class="LineNr">35934 </span> 55/push-ebp -<span id="L35935" class="LineNr">35935 </span> 89/<- %ebp 4/r32/esp -<span id="L35936" class="LineNr">35936 </span> <span class="subxComment"># setup</span> -<span id="L35937" class="LineNr">35937 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L35938" class="LineNr">35938 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L35939" class="LineNr">35939 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-type</span>: -<span id="L35940" class="LineNr">35940 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L35941" class="LineNr">35941 </span> 68/push 0/imm32/right:null -<span id="L35942" class="LineNr">35942 </span> 68/push 0/imm32/right:null -<span id="L35943" class="LineNr">35943 </span> 68/push 0/imm32/left:unused -<span id="L35944" class="LineNr">35944 </span> 68/push 0/imm32/value:literal -<span id="L35945" class="LineNr">35945 </span> 68/push 1/imm32/is-atom?:true -<span id="L35946" class="LineNr">35946 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35947" class="LineNr">35947 </span> 89/<- %ecx 4/r32/esp -<span id="L35948" class="LineNr">35948 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var</span>: -<span id="L35949" class="LineNr">35949 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(lit)</span> -<span id="L35950" class="LineNr">35950 </span> 68/push 0/imm32/no-register -<span id="L35951" class="LineNr">35951 </span> 68/push 0/imm32/no-register -<span id="L35952" class="LineNr">35952 </span> 68/push 0/imm32/no-stack-offset -<span id="L35953" class="LineNr">35953 </span> 68/push 1/imm32/block-depth -<span id="L35954" class="LineNr">35954 </span> 51/push-ecx/type -<span id="L35955" class="LineNr">35955 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35956" class="LineNr">35956 </span> 68/push 0/imm32/name -<span id="L35957" class="LineNr">35957 </span> 68/push 0/imm32/name -<span id="L35958" class="LineNr">35958 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35959" class="LineNr">35959 </span> 89/<- %ecx 4/r32/esp -<span id="L35960" class="LineNr">35960 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var-name</span>: -<span id="L35961" class="LineNr">35961 </span> <span class="subxComment"># var-foo->name = "0x34"</span> -<span id="L35962" class="LineNr">35962 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35963" class="LineNr">35963 </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="L35964" class="LineNr">35964 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-var</span>: -<span id="L35965" class="LineNr">35965 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L35966" class="LineNr">35966 </span> 68/push 0/imm32/is-deref:false -<span id="L35967" class="LineNr">35967 </span> 68/push 0/imm32/next -<span id="L35968" class="LineNr">35968 </span> 68/push 0/imm32/next -<span id="L35969" class="LineNr">35969 </span> 51/push-ecx/var-foo -<span id="L35970" class="LineNr">35970 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35971" class="LineNr">35971 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35972" class="LineNr">35972 </span> 89/<- %ebx 4/r32/esp -<span id="L35973" class="LineNr">35973 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt</span>: -<span id="L35974" class="LineNr">35974 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L35975" class="LineNr">35975 </span> 68/push 0/imm32/no-outputs -<span id="L35976" class="LineNr">35976 </span> 68/push 0/imm32/no-outputs -<span id="L35977" class="LineNr">35977 </span> 53/push-ebx/inouts -<span id="L35978" class="LineNr">35978 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35979" class="LineNr">35979 </span> 68/push 0/imm32/operation -<span id="L35980" class="LineNr">35980 </span> 68/push 0/imm32/operation -<span id="L35981" class="LineNr">35981 </span> 68/push 1/imm32/tag -<span id="L35982" class="LineNr">35982 </span> 89/<- %esi 4/r32/esp -<span id="L35983" class="LineNr">35983 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-operation</span>: -<span id="L35984" class="LineNr">35984 </span> <span class="subxComment"># stmt->operation = "f"</span> -<span id="L35985" class="LineNr">35985 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L35986" class="LineNr">35986 </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="L35987" class="LineNr">35987 </span> <span class="subxComment"># convert</span> -<span id="L35988" class="LineNr">35988 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14178'>Curr-block-depth</a></span> 0/imm32 -<span id="L35989" class="LineNr">35989 </span> (<a href='mu.subx.html#L26390'>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="L35990" class="LineNr">35990 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L35991" class="Folded">35991 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream --------------------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L35997" class="LineNr">35997 </span> <span class="subxComment"># check output</span> -<span id="L35998" class="LineNr">35998 </span> (<a href='../109stream-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="L35999" class="LineNr">35999 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36000" class="LineNr">36000 </span> 89/<- %esp 5/r32/ebp -<span id="L36001" class="LineNr">36001 </span> 5d/pop-to-ebp -<span id="L36002" class="LineNr">36002 </span> c3/return -<span id="L36003" class="LineNr">36003 </span> -<span id="L36004" class="LineNr">36004 </span><span class="subxFunction">emit-indent</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> -<span id="L36005" class="LineNr">36005 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36006" class="LineNr">36006 </span> 55/push-ebp -<span id="L36007" class="LineNr">36007 </span> 89/<- %ebp 4/r32/esp -<span id="L36008" class="LineNr">36008 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L36009" class="LineNr">36009 </span> 50/push-eax -<span id="L36010" class="LineNr">36010 </span> <span class="subxComment"># var i/eax: int = n</span> -<span id="L36011" class="LineNr">36011 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L36012" class="LineNr">36012 </span> { -<span id="L36013" class="LineNr">36013 </span> <span class="subxComment"># if (i <= 0) break</span> -<span id="L36014" class="LineNr">36014 </span> 3d/compare-eax-with 0/imm32 -<span id="L36015" class="LineNr">36015 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L36016" class="LineNr">36016 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L36017" class="LineNr">36017 </span> 48/decrement-eax -<span id="L36018" class="LineNr">36018 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L36019" class="LineNr">36019 </span> } -<span id="L36020" class="LineNr">36020 </span><span class="Constant">$emit-indent:end</span>: -<span id="L36021" class="LineNr">36021 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L36022" class="LineNr">36022 </span> 58/pop-to-eax -<span id="L36023" class="LineNr">36023 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36024" class="LineNr">36024 </span> 89/<- %esp 5/r32/ebp -<span id="L36025" class="LineNr">36025 </span> 5d/pop-to-ebp -<span id="L36026" class="LineNr">36026 </span> c3/return -<span id="L36027" class="LineNr">36027 </span> -<span id="L36028" class="LineNr">36028 </span><span class="subxFunction">emit-subx-prologue</span>: <span class="subxComment"># out: (addr buffered-file)</span> -<span id="L36029" class="LineNr">36029 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36030" class="LineNr">36030 </span> 55/push-ebp -<span id="L36031" class="LineNr">36031 </span> 89/<- %ebp 4/r32/esp -<span id="L36032" class="LineNr">36032 </span> <span class="subxComment">#</span> -<span id="L36033" class="LineNr">36033 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . prologue\n"</span>) -<span id="L36034" class="LineNr">36034 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 55/push-ebp\n"</span>) -<span id="L36035" class="LineNr">36035 </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="L36036" class="LineNr">36036 </span><span class="Constant">$emit-subx-prologue:end</span>: -<span id="L36037" class="LineNr">36037 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36038" class="LineNr">36038 </span> 89/<- %esp 5/r32/ebp -<span id="L36039" class="LineNr">36039 </span> 5d/pop-to-ebp -<span id="L36040" class="LineNr">36040 </span> c3/return -<span id="L36041" class="LineNr">36041 </span> -<span id="L36042" class="LineNr">36042 </span><span class="subxFunction">emit-subx-epilogue</span>: <span class="subxComment"># out: (addr buffered-file)</span> -<span id="L36043" class="LineNr">36043 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36044" class="LineNr">36044 </span> 55/push-ebp -<span id="L36045" class="LineNr">36045 </span> 89/<- %ebp 4/r32/esp -<span id="L36046" class="LineNr">36046 </span> <span class="subxComment">#</span> -<span id="L36047" class="LineNr">36047 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . epilogue\n"</span>) -<span id="L36048" class="LineNr">36048 </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="L36049" class="LineNr">36049 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 5d/pop-to-ebp\n"</span>) -<span id="L36050" class="LineNr">36050 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" c3/return\n"</span>) -<span id="L36051" class="LineNr">36051 </span><span class="Constant">$emit-subx-epilogue:end</span>: -<span id="L36052" class="LineNr">36052 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36053" class="LineNr">36053 </span> 89/<- %esp 5/r32/ebp -<span id="L36054" class="LineNr">36054 </span> 5d/pop-to-ebp -<span id="L36055" class="LineNr">36055 </span> c3/return +<span id="L35551" class="LineNr">35551 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35552" class="LineNr">35552 </span> 89/<- %esi 4/r32/esp +<span id="L35553" class="LineNr">35553 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt</span>: +<span id="L35554" class="LineNr">35554 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L35555" class="LineNr">35555 </span> 68/push 0/imm32/next +<span id="L35556" class="LineNr">35556 </span> 68/push 0/imm32/next +<span id="L35557" class="LineNr">35557 </span> 68/push 0/imm32/outputs +<span id="L35558" class="LineNr">35558 </span> 68/push 0/imm32/outputs +<span id="L35559" class="LineNr">35559 </span> 56/push-esi/inouts +<span id="L35560" class="LineNr">35560 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35561" class="LineNr">35561 </span> 68/push 0/imm32/operation +<span id="L35562" class="LineNr">35562 </span> 68/push 0/imm32/operation +<span id="L35563" class="LineNr">35563 </span> 68/push 1/imm32/tag:stmt1 +<span id="L35564" class="LineNr">35564 </span> 89/<- %esi 4/r32/esp +<span id="L35565" class="LineNr">35565 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt-operation</span>: +<span id="L35566" class="LineNr">35566 </span> <span class="subxComment"># stmt->operation = "add-to"</span> +<span id="L35567" class="LineNr">35567 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L35568" class="LineNr">35568 </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="L35569" class="LineNr">35569 </span> <span class="subxComment"># convert</span> +<span id="L35570" class="LineNr">35570 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L35571" class="LineNr">35571 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L35572" class="LineNr">35572 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L35573" class="Folded">35573 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L35579" class="LineNr">35579 </span> <span class="subxComment"># check output</span> +<span id="L35580" class="LineNr">35580 </span> (<a href='../109stream-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="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="subxTest">test-shift-reg-by-literal</span>: +<span id="L35587" class="LineNr">35587 </span> <span class="subxComment"># var1/ecx <- shift-left 2</span> +<span id="L35588" class="LineNr">35588 </span> <span class="subxComment"># =></span> +<span id="L35589" class="LineNr">35589 </span> <span class="subxComment"># c1/shift 4/subop/left %ecx 2/imm8</span> +<span id="L35590" class="LineNr">35590 </span> <span class="subxComment">#</span> +<span id="L35591" class="LineNr">35591 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35592" class="LineNr">35592 </span> 55/push-ebp +<span id="L35593" class="LineNr">35593 </span> 89/<- %ebp 4/r32/esp +<span id="L35594" class="LineNr">35594 </span> <span class="subxComment"># setup</span> +<span id="L35595" class="LineNr">35595 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L35596" class="LineNr">35596 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L35597" class="LineNr">35597 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-type</span>: +<span id="L35598" class="LineNr">35598 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L35599" class="LineNr">35599 </span> 68/push 0/imm32/right:null +<span id="L35600" class="LineNr">35600 </span> 68/push 0/imm32/right:null +<span id="L35601" class="LineNr">35601 </span> 68/push 0/imm32/left:unused +<span id="L35602" class="LineNr">35602 </span> 68/push 1/imm32/value:int +<span id="L35603" class="LineNr">35603 </span> 68/push 1/imm32/is-atom?:true +<span id="L35604" class="LineNr">35604 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35605" class="LineNr">35605 </span> 89/<- %ecx 4/r32/esp +<span id="L35606" class="LineNr">35606 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var</span>: +<span id="L35607" class="LineNr">35607 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L35608" class="LineNr">35608 </span> 68/push 0/imm32/register +<span id="L35609" class="LineNr">35609 </span> 68/push 0/imm32/register +<span id="L35610" class="LineNr">35610 </span> 68/push 0/imm32/no-stack-offset +<span id="L35611" class="LineNr">35611 </span> 68/push 1/imm32/block-depth +<span id="L35612" class="LineNr">35612 </span> 51/push-ecx +<span id="L35613" class="LineNr">35613 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35614" class="LineNr">35614 </span> 68/push 0/imm32/name +<span id="L35615" class="LineNr">35615 </span> 68/push 0/imm32/name +<span id="L35616" class="LineNr">35616 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35617" class="LineNr">35617 </span> 89/<- %ecx 4/r32/esp +<span id="L35618" class="LineNr">35618 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-name</span>: +<span id="L35619" class="LineNr">35619 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L35620" class="LineNr">35620 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35621" class="LineNr">35621 </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="L35622" class="LineNr">35622 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-register</span>: +<span id="L35623" class="LineNr">35623 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L35624" class="LineNr">35624 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L35625" class="LineNr">35625 </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="L35626" class="LineNr">35626 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-type</span>: +<span id="L35627" class="LineNr">35627 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L35628" class="LineNr">35628 </span> 68/push 0/imm32/right:null +<span id="L35629" class="LineNr">35629 </span> 68/push 0/imm32/right:null +<span id="L35630" class="LineNr">35630 </span> 68/push 0/imm32/left:unused +<span id="L35631" class="LineNr">35631 </span> 68/push 0/imm32/value:literal +<span id="L35632" class="LineNr">35632 </span> 68/push 1/imm32/is-atom?:true +<span id="L35633" class="LineNr">35633 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35634" class="LineNr">35634 </span> 89/<- %edx 4/r32/esp +<span id="L35635" class="LineNr">35635 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal</span>: +<span id="L35636" class="LineNr">35636 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L35637" class="LineNr">35637 </span> 68/push 0/imm32/register +<span id="L35638" class="LineNr">35638 </span> 68/push 0/imm32/register +<span id="L35639" class="LineNr">35639 </span> 68/push 0/imm32/no-stack-offset +<span id="L35640" class="LineNr">35640 </span> 68/push 1/imm32/block-depth +<span id="L35641" class="LineNr">35641 </span> 52/push-edx +<span id="L35642" class="LineNr">35642 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35643" class="LineNr">35643 </span> 68/push 0/imm32/name +<span id="L35644" class="LineNr">35644 </span> 68/push 0/imm32/name +<span id="L35645" class="LineNr">35645 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35646" class="LineNr">35646 </span> 89/<- %edx 4/r32/esp +<span id="L35647" class="LineNr">35647 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-value</span>: +<span id="L35648" class="LineNr">35648 </span> <span class="subxComment"># l->name = "2"</span> +<span id="L35649" class="LineNr">35649 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35650" class="LineNr">35650 </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="L35651" class="LineNr">35651 </span><span class="Constant">$test-shift-reg-by-literal:initialize-inouts</span>: +<span id="L35652" class="LineNr">35652 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L35653" class="LineNr">35653 </span> 68/push 0/imm32/is-deref:false +<span id="L35654" class="LineNr">35654 </span> 68/push 0/imm32/next +<span id="L35655" class="LineNr">35655 </span> 68/push 0/imm32/next +<span id="L35656" class="LineNr">35656 </span> 52/push-edx/l +<span id="L35657" class="LineNr">35657 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35658" class="LineNr">35658 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35659" class="LineNr">35659 </span> 89/<- %esi 4/r32/esp +<span id="L35660" class="LineNr">35660 </span><span class="Constant">$test-shift-reg-by-literal:initialize-outputs</span>: +<span id="L35661" class="LineNr">35661 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L35662" class="LineNr">35662 </span> 68/push 0/imm32/is-deref:false +<span id="L35663" class="LineNr">35663 </span> 68/push 0/imm32/next +<span id="L35664" class="LineNr">35664 </span> 68/push 0/imm32/next +<span id="L35665" class="LineNr">35665 </span> 51/push-ecx/v +<span id="L35666" class="LineNr">35666 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35667" class="LineNr">35667 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35668" class="LineNr">35668 </span> 89/<- %edi 4/r32/esp +<span id="L35669" class="LineNr">35669 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt</span>: +<span id="L35670" class="LineNr">35670 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L35671" class="LineNr">35671 </span> 68/push 0/imm32/next +<span id="L35672" class="LineNr">35672 </span> 68/push 0/imm32/next +<span id="L35673" class="LineNr">35673 </span> 57/push-edi/outputs +<span id="L35674" class="LineNr">35674 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35675" class="LineNr">35675 </span> 56/push-esi/inouts +<span id="L35676" class="LineNr">35676 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35677" class="LineNr">35677 </span> 68/push 0/imm32/operation +<span id="L35678" class="LineNr">35678 </span> 68/push 0/imm32/operation +<span id="L35679" class="LineNr">35679 </span> 68/push 1/imm32/tag:stmt1 +<span id="L35680" class="LineNr">35680 </span> 89/<- %esi 4/r32/esp +<span id="L35681" class="LineNr">35681 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt-operation</span>: +<span id="L35682" class="LineNr">35682 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> +<span id="L35683" class="LineNr">35683 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L35684" class="LineNr">35684 </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="L35685" class="LineNr">35685 </span> <span class="subxComment"># convert</span> +<span id="L35686" class="LineNr">35686 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L35687" class="LineNr">35687 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L35688" class="LineNr">35688 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L35689" class="Folded">35689 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L35695" class="LineNr">35695 </span> <span class="subxComment"># check output</span> +<span id="L35696" class="LineNr">35696 </span> (<a href='../109stream-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="L35697" class="LineNr">35697 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35698" class="LineNr">35698 </span> 89/<- %esp 5/r32/ebp +<span id="L35699" class="LineNr">35699 </span> 5d/pop-to-ebp +<span id="L35700" class="LineNr">35700 </span> c3/return +<span id="L35701" class="LineNr">35701 </span> +<span id="L35702" class="LineNr">35702 </span><span class="subxTest">test-shift-mem-by-literal</span>: +<span id="L35703" class="LineNr">35703 </span> <span class="subxComment"># shift-left var 3</span> +<span id="L35704" class="LineNr">35704 </span> <span class="subxComment"># =></span> +<span id="L35705" class="LineNr">35705 </span> <span class="subxComment"># c1/shift 4/subop/left *(ebp+8) 3/imm8</span> +<span id="L35706" class="LineNr">35706 </span> <span class="subxComment">#</span> +<span id="L35707" class="LineNr">35707 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35708" class="LineNr">35708 </span> 55/push-ebp +<span id="L35709" class="LineNr">35709 </span> 89/<- %ebp 4/r32/esp +<span id="L35710" class="LineNr">35710 </span> <span class="subxComment"># setup</span> +<span id="L35711" class="LineNr">35711 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L35712" class="LineNr">35712 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L35713" class="LineNr">35713 </span><span class="Constant">$test-shift-mem-by-literal:initialize-type</span>: +<span id="L35714" class="LineNr">35714 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L35715" class="LineNr">35715 </span> 68/push 0/imm32/right:null +<span id="L35716" class="LineNr">35716 </span> 68/push 0/imm32/right:null +<span id="L35717" class="LineNr">35717 </span> 68/push 0/imm32/left:unused +<span id="L35718" class="LineNr">35718 </span> 68/push 1/imm32/value:int +<span id="L35719" class="LineNr">35719 </span> 68/push 1/imm32/is-atom?:true +<span id="L35720" class="LineNr">35720 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35721" class="LineNr">35721 </span> 89/<- %ecx 4/r32/esp +<span id="L35722" class="LineNr">35722 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1</span>: +<span id="L35723" class="LineNr">35723 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L35724" class="LineNr">35724 </span> 68/push 0/imm32/register +<span id="L35725" class="LineNr">35725 </span> 68/push 0/imm32/register +<span id="L35726" class="LineNr">35726 </span> 68/push 8/imm32/stack-offset +<span id="L35727" class="LineNr">35727 </span> 68/push 1/imm32/block-depth +<span id="L35728" class="LineNr">35728 </span> 51/push-ecx +<span id="L35729" class="LineNr">35729 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35730" class="LineNr">35730 </span> 68/push 0/imm32/name +<span id="L35731" class="LineNr">35731 </span> 68/push 0/imm32/name +<span id="L35732" class="LineNr">35732 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35733" class="LineNr">35733 </span> 89/<- %ecx 4/r32/esp +<span id="L35734" class="LineNr">35734 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1-name</span>: +<span id="L35735" class="LineNr">35735 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L35736" class="LineNr">35736 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35737" class="LineNr">35737 </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="L35738" class="LineNr">35738 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-type</span>: +<span id="L35739" class="LineNr">35739 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L35740" class="LineNr">35740 </span> 68/push 0/imm32/right:null +<span id="L35741" class="LineNr">35741 </span> 68/push 0/imm32/right:null +<span id="L35742" class="LineNr">35742 </span> 68/push 0/imm32/left:unused +<span id="L35743" class="LineNr">35743 </span> 68/push 0/imm32/value:literal +<span id="L35744" class="LineNr">35744 </span> 68/push 1/imm32/is-atom?:true +<span id="L35745" class="LineNr">35745 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35746" class="LineNr">35746 </span> 89/<- %edx 4/r32/esp +<span id="L35747" class="LineNr">35747 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal</span>: +<span id="L35748" class="LineNr">35748 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L35749" class="LineNr">35749 </span> 68/push 0/imm32/register +<span id="L35750" class="LineNr">35750 </span> 68/push 0/imm32/register +<span id="L35751" class="LineNr">35751 </span> 68/push 0/imm32/no-stack-offset +<span id="L35752" class="LineNr">35752 </span> 68/push 1/imm32/block-depth +<span id="L35753" class="LineNr">35753 </span> 52/push-edx +<span id="L35754" class="LineNr">35754 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35755" class="LineNr">35755 </span> 68/push 0/imm32/name +<span id="L35756" class="LineNr">35756 </span> 68/push 0/imm32/name +<span id="L35757" class="LineNr">35757 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35758" class="LineNr">35758 </span> 89/<- %edx 4/r32/esp +<span id="L35759" class="LineNr">35759 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-value</span>: +<span id="L35760" class="LineNr">35760 </span> <span class="subxComment"># l->name = "3"</span> +<span id="L35761" class="LineNr">35761 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35762" class="LineNr">35762 </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="L35763" class="LineNr">35763 </span><span class="Constant">$test-shift-mem-by-literal:initialize-inouts</span>: +<span id="L35764" class="LineNr">35764 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L35765" class="LineNr">35765 </span> 68/push 0/imm32/is-deref:false +<span id="L35766" class="LineNr">35766 </span> 68/push 0/imm32/next +<span id="L35767" class="LineNr">35767 </span> 68/push 0/imm32/next +<span id="L35768" class="LineNr">35768 </span> 52/push-edx/l +<span id="L35769" class="LineNr">35769 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35770" class="LineNr">35770 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35771" class="LineNr">35771 </span> 89/<- %esi 4/r32/esp +<span id="L35772" class="LineNr">35772 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L35773" class="LineNr">35773 </span> 68/push 0/imm32/is-deref:false +<span id="L35774" class="LineNr">35774 </span> 56/push-esi/next +<span id="L35775" class="LineNr">35775 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35776" class="LineNr">35776 </span> 51/push-ecx/var1 +<span id="L35777" class="LineNr">35777 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35778" class="LineNr">35778 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35779" class="LineNr">35779 </span> 89/<- %esi 4/r32/esp +<span id="L35780" class="LineNr">35780 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt</span>: +<span id="L35781" class="LineNr">35781 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L35782" class="LineNr">35782 </span> 68/push 0/imm32/next +<span id="L35783" class="LineNr">35783 </span> 68/push 0/imm32/next +<span id="L35784" class="LineNr">35784 </span> 68/push 0/imm32/outputs +<span id="L35785" class="LineNr">35785 </span> 68/push 0/imm32/outputs +<span id="L35786" class="LineNr">35786 </span> 56/push-esi/inouts +<span id="L35787" class="LineNr">35787 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35788" class="LineNr">35788 </span> 68/push 0/imm32/operation +<span id="L35789" class="LineNr">35789 </span> 68/push 0/imm32/operation +<span id="L35790" class="LineNr">35790 </span> 68/push 1/imm32/tag:stmt1 +<span id="L35791" class="LineNr">35791 </span> 89/<- %esi 4/r32/esp +<span id="L35792" class="LineNr">35792 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt-operation</span>: +<span id="L35793" class="LineNr">35793 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> +<span id="L35794" class="LineNr">35794 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L35795" class="LineNr">35795 </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="L35796" class="LineNr">35796 </span> <span class="subxComment"># convert</span> +<span id="L35797" class="LineNr">35797 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L35798" class="LineNr">35798 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L35799" class="LineNr">35799 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L35800" class="Folded">35800 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L35806" class="LineNr">35806 </span> <span class="subxComment"># check output</span> +<span id="L35807" class="LineNr">35807 </span> (<a href='../109stream-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="L35808" class="LineNr">35808 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35809" class="LineNr">35809 </span> 89/<- %esp 5/r32/ebp +<span id="L35810" class="LineNr">35810 </span> 5d/pop-to-ebp +<span id="L35811" class="LineNr">35811 </span> c3/return +<span id="L35812" class="LineNr">35812 </span> +<span id="L35813" class="LineNr">35813 </span><span class="subxTest">test-compare-reg-with-reg</span>: +<span id="L35814" class="LineNr">35814 </span> <span class="subxComment"># compare var1/ecx, var2/eax</span> +<span id="L35815" class="LineNr">35815 </span> <span class="subxComment"># =></span> +<span id="L35816" class="LineNr">35816 </span> <span class="subxComment"># 39/compare %ecx 0/r32/eax</span> +<span id="L35817" class="LineNr">35817 </span> <span class="subxComment">#</span> +<span id="L35818" class="LineNr">35818 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35819" class="LineNr">35819 </span> 55/push-ebp +<span id="L35820" class="LineNr">35820 </span> 89/<- %ebp 4/r32/esp +<span id="L35821" class="LineNr">35821 </span> <span class="subxComment"># setup</span> +<span id="L35822" class="LineNr">35822 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L35823" class="LineNr">35823 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L35824" class="LineNr">35824 </span><span class="Constant">$test-compare-reg-with-reg:initialize-type</span>: +<span id="L35825" class="LineNr">35825 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L35826" class="LineNr">35826 </span> 68/push 0/imm32/right:null +<span id="L35827" class="LineNr">35827 </span> 68/push 0/imm32/right:null +<span id="L35828" class="LineNr">35828 </span> 68/push 0/imm32/left:unused +<span id="L35829" class="LineNr">35829 </span> 68/push 1/imm32/value:int +<span id="L35830" class="LineNr">35830 </span> 68/push 1/imm32/is-atom?:true +<span id="L35831" class="LineNr">35831 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35832" class="LineNr">35832 </span> 89/<- %ecx 4/r32/esp +<span id="L35833" class="LineNr">35833 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1</span>: +<span id="L35834" class="LineNr">35834 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L35835" class="LineNr">35835 </span> 68/push 0/imm32/register +<span id="L35836" class="LineNr">35836 </span> 68/push 0/imm32/register +<span id="L35837" class="LineNr">35837 </span> 68/push 0/imm32/no-stack-offset +<span id="L35838" class="LineNr">35838 </span> 68/push 1/imm32/block-depth +<span id="L35839" class="LineNr">35839 </span> 51/push-ecx +<span id="L35840" class="LineNr">35840 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35841" class="LineNr">35841 </span> 68/push 0/imm32/name +<span id="L35842" class="LineNr">35842 </span> 68/push 0/imm32/name +<span id="L35843" class="LineNr">35843 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35844" class="LineNr">35844 </span> 89/<- %ecx 4/r32/esp +<span id="L35845" class="LineNr">35845 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-name</span>: +<span id="L35846" class="LineNr">35846 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L35847" class="LineNr">35847 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35848" class="LineNr">35848 </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="L35849" class="LineNr">35849 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-register</span>: +<span id="L35850" class="LineNr">35850 </span> <span class="subxComment"># var1->register = "ecx"</span> +<span id="L35851" class="LineNr">35851 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L35852" class="LineNr">35852 </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="L35853" class="LineNr">35853 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2</span>: +<span id="L35854" class="LineNr">35854 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L35855" class="LineNr">35855 </span> 68/push 0/imm32/register +<span id="L35856" class="LineNr">35856 </span> 68/push 0/imm32/register +<span id="L35857" class="LineNr">35857 </span> 68/push 0/imm32/no-stack-offset +<span id="L35858" class="LineNr">35858 </span> 68/push 1/imm32/block-depth +<span id="L35859" class="LineNr">35859 </span> ff 6/subop/push *(ecx+0x10) +<span id="L35860" class="LineNr">35860 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35861" class="LineNr">35861 </span> 68/push 0/imm32/name +<span id="L35862" class="LineNr">35862 </span> 68/push 0/imm32/name +<span id="L35863" class="LineNr">35863 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35864" class="LineNr">35864 </span> 89/<- %edx 4/r32/esp +<span id="L35865" class="LineNr">35865 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-name</span>: +<span id="L35866" class="LineNr">35866 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L35867" class="LineNr">35867 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35868" class="LineNr">35868 </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="L35869" class="LineNr">35869 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-register</span>: +<span id="L35870" class="LineNr">35870 </span> <span class="subxComment"># var2->register = "eax"</span> +<span id="L35871" class="LineNr">35871 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L35872" class="LineNr">35872 </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="L35873" class="LineNr">35873 </span><span class="Constant">$test-compare-reg-with-reg:initialize-inouts</span>: +<span id="L35874" class="LineNr">35874 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L35875" class="LineNr">35875 </span> 68/push 0/imm32/is-deref:false +<span id="L35876" class="LineNr">35876 </span> 68/push 0/imm32/next +<span id="L35877" class="LineNr">35877 </span> 68/push 0/imm32/next +<span id="L35878" class="LineNr">35878 </span> 52/push-edx/var2 +<span id="L35879" class="LineNr">35879 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35880" class="LineNr">35880 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35881" class="LineNr">35881 </span> 89/<- %esi 4/r32/esp +<span id="L35882" class="LineNr">35882 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L35883" class="LineNr">35883 </span> 68/push 0/imm32/is-deref:false +<span id="L35884" class="LineNr">35884 </span> 56/push-esi/next +<span id="L35885" class="LineNr">35885 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35886" class="LineNr">35886 </span> 51/push-ecx/var1 +<span id="L35887" class="LineNr">35887 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35888" class="LineNr">35888 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35889" class="LineNr">35889 </span> 89/<- %esi 4/r32/esp +<span id="L35890" class="LineNr">35890 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt</span>: +<span id="L35891" class="LineNr">35891 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L35892" class="LineNr">35892 </span> 68/push 0/imm32/next +<span id="L35893" class="LineNr">35893 </span> 68/push 0/imm32/next +<span id="L35894" class="LineNr">35894 </span> 68/push 0/imm32/outputs +<span id="L35895" class="LineNr">35895 </span> 68/push 0/imm32/outputs +<span id="L35896" class="LineNr">35896 </span> 56/push-esi/inouts +<span id="L35897" class="LineNr">35897 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35898" class="LineNr">35898 </span> 68/push 0/imm32/operation +<span id="L35899" class="LineNr">35899 </span> 68/push 0/imm32/operation +<span id="L35900" class="LineNr">35900 </span> 68/push 1/imm32/tag:stmt1 +<span id="L35901" class="LineNr">35901 </span> 89/<- %esi 4/r32/esp +<span id="L35902" class="LineNr">35902 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt-operation</span>: +<span id="L35903" class="LineNr">35903 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L35904" class="LineNr">35904 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L35905" class="LineNr">35905 </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="L35906" class="LineNr">35906 </span> <span class="subxComment"># convert</span> +<span id="L35907" class="LineNr">35907 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L35908" class="LineNr">35908 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L35909" class="LineNr">35909 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L35910" class="Folded">35910 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L35916" class="LineNr">35916 </span> <span class="subxComment"># check output</span> +<span id="L35917" class="LineNr">35917 </span> (<a href='../109stream-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="L35918" class="LineNr">35918 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35919" class="LineNr">35919 </span> 89/<- %esp 5/r32/ebp +<span id="L35920" class="LineNr">35920 </span> 5d/pop-to-ebp +<span id="L35921" class="LineNr">35921 </span> c3/return +<span id="L35922" class="LineNr">35922 </span> +<span id="L35923" class="LineNr">35923 </span><span class="subxTest">test-compare-mem-with-reg</span>: +<span id="L35924" class="LineNr">35924 </span> <span class="subxComment"># compare var1, var2/eax</span> +<span id="L35925" class="LineNr">35925 </span> <span class="subxComment"># =></span> +<span id="L35926" class="LineNr">35926 </span> <span class="subxComment"># 39/compare *(ebp+___) 0/r32/eax</span> +<span id="L35927" class="LineNr">35927 </span> <span class="subxComment">#</span> +<span id="L35928" class="LineNr">35928 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35929" class="LineNr">35929 </span> 55/push-ebp +<span id="L35930" class="LineNr">35930 </span> 89/<- %ebp 4/r32/esp +<span id="L35931" class="LineNr">35931 </span> <span class="subxComment"># setup</span> +<span id="L35932" class="LineNr">35932 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L35933" class="LineNr">35933 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L35934" class="LineNr">35934 </span><span class="Constant">$test-compare-mem-with-reg:initialize-type</span>: +<span id="L35935" class="LineNr">35935 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L35936" class="LineNr">35936 </span> 68/push 0/imm32/right:null +<span id="L35937" class="LineNr">35937 </span> 68/push 0/imm32/right:null +<span id="L35938" class="LineNr">35938 </span> 68/push 0/imm32/left:unused +<span id="L35939" class="LineNr">35939 </span> 68/push 1/imm32/value:int +<span id="L35940" class="LineNr">35940 </span> 68/push 1/imm32/is-atom?:true +<span id="L35941" class="LineNr">35941 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35942" class="LineNr">35942 </span> 89/<- %ecx 4/r32/esp +<span id="L35943" class="LineNr">35943 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1</span>: +<span id="L35944" class="LineNr">35944 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L35945" class="LineNr">35945 </span> 68/push 0/imm32/register +<span id="L35946" class="LineNr">35946 </span> 68/push 0/imm32/register +<span id="L35947" class="LineNr">35947 </span> 68/push 8/imm32/stack-offset +<span id="L35948" class="LineNr">35948 </span> 68/push 1/imm32/block-depth +<span id="L35949" class="LineNr">35949 </span> 51/push-ecx +<span id="L35950" class="LineNr">35950 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35951" class="LineNr">35951 </span> 68/push 0/imm32/name +<span id="L35952" class="LineNr">35952 </span> 68/push 0/imm32/name +<span id="L35953" class="LineNr">35953 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35954" class="LineNr">35954 </span> 89/<- %ecx 4/r32/esp +<span id="L35955" class="LineNr">35955 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1-name</span>: +<span id="L35956" class="LineNr">35956 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L35957" class="LineNr">35957 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35958" class="LineNr">35958 </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="L35959" class="LineNr">35959 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2</span>: +<span id="L35960" class="LineNr">35960 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L35961" class="LineNr">35961 </span> 68/push 0/imm32/register +<span id="L35962" class="LineNr">35962 </span> 68/push 0/imm32/register +<span id="L35963" class="LineNr">35963 </span> 68/push 0/imm32/no-stack-offset +<span id="L35964" class="LineNr">35964 </span> 68/push 1/imm32/block-depth +<span id="L35965" class="LineNr">35965 </span> ff 6/subop/push *(ecx+0x10) +<span id="L35966" class="LineNr">35966 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35967" class="LineNr">35967 </span> 68/push 0/imm32/name +<span id="L35968" class="LineNr">35968 </span> 68/push 0/imm32/name +<span id="L35969" class="LineNr">35969 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35970" class="LineNr">35970 </span> 89/<- %edx 4/r32/esp +<span id="L35971" class="LineNr">35971 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-name</span>: +<span id="L35972" class="LineNr">35972 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L35973" class="LineNr">35973 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35974" class="LineNr">35974 </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="L35975" class="LineNr">35975 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-register</span>: +<span id="L35976" class="LineNr">35976 </span> <span class="subxComment"># var2->register = "eax"</span> +<span id="L35977" class="LineNr">35977 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L35978" class="LineNr">35978 </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="L35979" class="LineNr">35979 </span><span class="Constant">$test-compare-mem-with-reg:initialize-inouts</span>: +<span id="L35980" class="LineNr">35980 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L35981" class="LineNr">35981 </span> 68/push 0/imm32/is-deref:false +<span id="L35982" class="LineNr">35982 </span> 68/push 0/imm32/next +<span id="L35983" class="LineNr">35983 </span> 68/push 0/imm32/next +<span id="L35984" class="LineNr">35984 </span> 52/push-edx/var2 +<span id="L35985" class="LineNr">35985 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35986" class="LineNr">35986 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35987" class="LineNr">35987 </span> 89/<- %esi 4/r32/esp +<span id="L35988" class="LineNr">35988 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L35989" class="LineNr">35989 </span> 68/push 0/imm32/is-deref:false +<span id="L35990" class="LineNr">35990 </span> 56/push-esi/next +<span id="L35991" class="LineNr">35991 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35992" class="LineNr">35992 </span> 51/push-ecx/var1 +<span id="L35993" class="LineNr">35993 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35994" class="LineNr">35994 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35995" class="LineNr">35995 </span> 89/<- %esi 4/r32/esp +<span id="L35996" class="LineNr">35996 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt</span>: +<span id="L35997" class="LineNr">35997 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L35998" class="LineNr">35998 </span> 68/push 0/imm32/next +<span id="L35999" class="LineNr">35999 </span> 68/push 0/imm32/next +<span id="L36000" class="LineNr">36000 </span> 68/push 0/imm32/outputs +<span id="L36001" class="LineNr">36001 </span> 68/push 0/imm32/outputs +<span id="L36002" class="LineNr">36002 </span> 56/push-esi/inouts +<span id="L36003" class="LineNr">36003 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36004" class="LineNr">36004 </span> 68/push 0/imm32/operation +<span id="L36005" class="LineNr">36005 </span> 68/push 0/imm32/operation +<span id="L36006" class="LineNr">36006 </span> 68/push 1/imm32/tag:stmt1 +<span id="L36007" class="LineNr">36007 </span> 89/<- %esi 4/r32/esp +<span id="L36008" class="LineNr">36008 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt-operation</span>: +<span id="L36009" class="LineNr">36009 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L36010" class="LineNr">36010 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36011" class="LineNr">36011 </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="L36012" class="LineNr">36012 </span> <span class="subxComment"># convert</span> +<span id="L36013" class="LineNr">36013 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L36014" class="LineNr">36014 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36015" class="LineNr">36015 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L36016" class="Folded">36016 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36022" class="LineNr">36022 </span> <span class="subxComment"># check output</span> +<span id="L36023" class="LineNr">36023 </span> (<a href='../109stream-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="L36024" class="LineNr">36024 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36025" class="LineNr">36025 </span> 89/<- %esp 5/r32/ebp +<span id="L36026" class="LineNr">36026 </span> 5d/pop-to-ebp +<span id="L36027" class="LineNr">36027 </span> c3/return +<span id="L36028" class="LineNr">36028 </span> +<span id="L36029" class="LineNr">36029 </span><span class="subxTest">test-compare-reg-with-mem</span>: +<span id="L36030" class="LineNr">36030 </span> <span class="subxComment"># compare var1/eax, var2</span> +<span id="L36031" class="LineNr">36031 </span> <span class="subxComment"># =></span> +<span id="L36032" class="LineNr">36032 </span> <span class="subxComment"># 3b/compare<- *(ebp+___) 0/r32/eax</span> +<span id="L36033" class="LineNr">36033 </span> <span class="subxComment">#</span> +<span id="L36034" class="LineNr">36034 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36035" class="LineNr">36035 </span> 55/push-ebp +<span id="L36036" class="LineNr">36036 </span> 89/<- %ebp 4/r32/esp +<span id="L36037" class="LineNr">36037 </span> <span class="subxComment"># setup</span> +<span id="L36038" class="LineNr">36038 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L36039" class="LineNr">36039 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36040" class="LineNr">36040 </span><span class="Constant">$test-compare-reg-with-mem:initialize-type</span>: +<span id="L36041" class="LineNr">36041 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36042" class="LineNr">36042 </span> 68/push 0/imm32/right:null +<span id="L36043" class="LineNr">36043 </span> 68/push 0/imm32/right:null +<span id="L36044" class="LineNr">36044 </span> 68/push 0/imm32/left:unused +<span id="L36045" class="LineNr">36045 </span> 68/push 1/imm32/value:int +<span id="L36046" class="LineNr">36046 </span> 68/push 1/imm32/is-atom?:true +<span id="L36047" class="LineNr">36047 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36048" class="LineNr">36048 </span> 89/<- %ecx 4/r32/esp +<span id="L36049" class="LineNr">36049 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1</span>: +<span id="L36050" class="LineNr">36050 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L36051" class="LineNr">36051 </span> 68/push 0/imm32/register +<span id="L36052" class="LineNr">36052 </span> 68/push 0/imm32/register +<span id="L36053" class="LineNr">36053 </span> 68/push 0/imm32/no-stack-offset +<span id="L36054" class="LineNr">36054 </span> 68/push 1/imm32/block-depth +<span id="L36055" class="LineNr">36055 </span> 51/push-ecx +<span id="L36056" class="LineNr">36056 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36057" class="LineNr">36057 </span> 68/push 0/imm32/name +<span id="L36058" class="LineNr">36058 </span> 68/push 0/imm32/name +<span id="L36059" class="LineNr">36059 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36060" class="LineNr">36060 </span> 89/<- %ecx 4/r32/esp +<span id="L36061" class="LineNr">36061 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-name</span>: +<span id="L36062" class="LineNr">36062 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L36063" class="LineNr">36063 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36064" class="LineNr">36064 </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="L36065" class="LineNr">36065 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-register</span>: +<span id="L36066" class="LineNr">36066 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L36067" class="LineNr">36067 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36068" class="LineNr">36068 </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="L36069" class="LineNr">36069 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2</span>: +<span id="L36070" class="LineNr">36070 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L36071" class="LineNr">36071 </span> 68/push 0/imm32/register +<span id="L36072" class="LineNr">36072 </span> 68/push 0/imm32/register +<span id="L36073" class="LineNr">36073 </span> 68/push 8/imm32/stack-offset +<span id="L36074" class="LineNr">36074 </span> 68/push 1/imm32/block-depth +<span id="L36075" class="LineNr">36075 </span> ff 6/subop/push *(ecx+0x10) +<span id="L36076" class="LineNr">36076 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36077" class="LineNr">36077 </span> 68/push 0/imm32/name +<span id="L36078" class="LineNr">36078 </span> 68/push 0/imm32/name +<span id="L36079" class="LineNr">36079 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36080" class="LineNr">36080 </span> 89/<- %edx 4/r32/esp +<span id="L36081" class="LineNr">36081 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2-name</span>: +<span id="L36082" class="LineNr">36082 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L36083" class="LineNr">36083 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36084" class="LineNr">36084 </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="L36085" class="LineNr">36085 </span><span class="Constant">$test-compare-reg-with-mem:initialize-inouts</span>: +<span id="L36086" class="LineNr">36086 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L36087" class="LineNr">36087 </span> 68/push 0/imm32/is-deref:false +<span id="L36088" class="LineNr">36088 </span> 68/push 0/imm32/next +<span id="L36089" class="LineNr">36089 </span> 68/push 0/imm32/next +<span id="L36090" class="LineNr">36090 </span> 52/push-edx/var2 +<span id="L36091" class="LineNr">36091 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36092" class="LineNr">36092 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36093" class="LineNr">36093 </span> 89/<- %esi 4/r32/esp +<span id="L36094" class="LineNr">36094 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L36095" class="LineNr">36095 </span> 68/push 0/imm32/is-deref:false +<span id="L36096" class="LineNr">36096 </span> 56/push-esi/next +<span id="L36097" class="LineNr">36097 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36098" class="LineNr">36098 </span> 51/push-ecx/var1 +<span id="L36099" class="LineNr">36099 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36100" class="LineNr">36100 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36101" class="LineNr">36101 </span> 89/<- %esi 4/r32/esp +<span id="L36102" class="LineNr">36102 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt</span>: +<span id="L36103" class="LineNr">36103 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<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> 68/push 0/imm32/outputs +<span id="L36107" class="LineNr">36107 </span> 68/push 0/imm32/outputs +<span id="L36108" class="LineNr">36108 </span> 56/push-esi/inouts +<span id="L36109" class="LineNr">36109 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36110" class="LineNr">36110 </span> 68/push 0/imm32/operation +<span id="L36111" class="LineNr">36111 </span> 68/push 0/imm32/operation +<span id="L36112" class="LineNr">36112 </span> 68/push 1/imm32/tag:stmt1 +<span id="L36113" class="LineNr">36113 </span> 89/<- %esi 4/r32/esp +<span id="L36114" class="LineNr">36114 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt-operation</span>: +<span id="L36115" class="LineNr">36115 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L36116" class="LineNr">36116 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36117" class="LineNr">36117 </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="L36118" class="LineNr">36118 </span> <span class="subxComment"># convert</span> +<span id="L36119" class="LineNr">36119 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L36120" class="LineNr">36120 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36121" class="LineNr">36121 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L36122" class="Folded">36122 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36128" class="LineNr">36128 </span> <span class="subxComment"># check output</span> +<span id="L36129" class="LineNr">36129 </span> (<a href='../109stream-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="L36130" class="LineNr">36130 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36131" class="LineNr">36131 </span> 89/<- %esp 5/r32/ebp +<span id="L36132" class="LineNr">36132 </span> 5d/pop-to-ebp +<span id="L36133" class="LineNr">36133 </span> c3/return +<span id="L36134" class="LineNr">36134 </span> +<span id="L36135" class="LineNr">36135 </span><span class="subxTest">test-compare-mem-with-literal</span>: +<span id="L36136" class="LineNr">36136 </span> <span class="subxComment"># compare var1, 0x34</span> +<span id="L36137" class="LineNr">36137 </span> <span class="subxComment"># =></span> +<span id="L36138" class="LineNr">36138 </span> <span class="subxComment"># 81 7/subop/compare *(ebp+___) 0x34/imm32</span> +<span id="L36139" class="LineNr">36139 </span> <span class="subxComment">#</span> +<span id="L36140" class="LineNr">36140 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36141" class="LineNr">36141 </span> 55/push-ebp +<span id="L36142" class="LineNr">36142 </span> 89/<- %ebp 4/r32/esp +<span id="L36143" class="LineNr">36143 </span> <span class="subxComment"># setup</span> +<span id="L36144" class="LineNr">36144 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L36145" class="LineNr">36145 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36146" class="LineNr">36146 </span><span class="Constant">$test-compare-mem-with-literal:initialize-type</span>: +<span id="L36147" class="LineNr">36147 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36148" class="LineNr">36148 </span> 68/push 0/imm32/right:null +<span id="L36149" class="LineNr">36149 </span> 68/push 0/imm32/right:null +<span id="L36150" class="LineNr">36150 </span> 68/push 0/imm32/left:unused +<span id="L36151" class="LineNr">36151 </span> 68/push 1/imm32/value:int +<span id="L36152" class="LineNr">36152 </span> 68/push 1/imm32/is-atom?:true +<span id="L36153" class="LineNr">36153 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36154" class="LineNr">36154 </span> 89/<- %ecx 4/r32/esp +<span id="L36155" class="LineNr">36155 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1</span>: +<span id="L36156" class="LineNr">36156 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L36157" class="LineNr">36157 </span> 68/push 0/imm32/register +<span id="L36158" class="LineNr">36158 </span> 68/push 0/imm32/register +<span id="L36159" class="LineNr">36159 </span> 68/push 8/imm32/stack-offset +<span id="L36160" class="LineNr">36160 </span> 68/push 1/imm32/block-depth +<span id="L36161" class="LineNr">36161 </span> 51/push-ecx +<span id="L36162" class="LineNr">36162 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36163" class="LineNr">36163 </span> 68/push 0/imm32/name +<span id="L36164" class="LineNr">36164 </span> 68/push 0/imm32/name +<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-compare-mem-with-literal:initialize-var1-name</span>: +<span id="L36168" class="LineNr">36168 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L36169" class="LineNr">36169 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36170" class="LineNr">36170 </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="L36171" class="LineNr">36171 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-type</span>: +<span id="L36172" class="LineNr">36172 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L36173" class="LineNr">36173 </span> 68/push 0/imm32/right:null +<span id="L36174" class="LineNr">36174 </span> 68/push 0/imm32/right:null +<span id="L36175" class="LineNr">36175 </span> 68/push 0/imm32/left:unused +<span id="L36176" class="LineNr">36176 </span> 68/push 0/imm32/value:literal +<span id="L36177" class="LineNr">36177 </span> 68/push 1/imm32/is-atom?:true +<span id="L36178" class="LineNr">36178 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36179" class="LineNr">36179 </span> 89/<- %edx 4/r32/esp +<span id="L36180" class="LineNr">36180 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal</span>: +<span id="L36181" class="LineNr">36181 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L36182" class="LineNr">36182 </span> 68/push 0/imm32/register +<span id="L36183" class="LineNr">36183 </span> 68/push 0/imm32/register +<span id="L36184" class="LineNr">36184 </span> 68/push 0/imm32/no-stack-offset +<span id="L36185" class="LineNr">36185 </span> 68/push 1/imm32/block-depth +<span id="L36186" class="LineNr">36186 </span> 52/push-edx +<span id="L36187" class="LineNr">36187 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36188" class="LineNr">36188 </span> 68/push 0/imm32/name +<span id="L36189" class="LineNr">36189 </span> 68/push 0/imm32/name +<span id="L36190" class="LineNr">36190 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36191" class="LineNr">36191 </span> 89/<- %edx 4/r32/esp +<span id="L36192" class="LineNr">36192 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-value</span>: +<span id="L36193" class="LineNr">36193 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L36194" class="LineNr">36194 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36195" class="LineNr">36195 </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="L36196" class="LineNr">36196 </span><span class="Constant">$test-compare-mem-with-literal:initialize-inouts</span>: +<span id="L36197" class="LineNr">36197 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L36198" class="LineNr">36198 </span> 68/push 0/imm32/is-deref:false +<span id="L36199" class="LineNr">36199 </span> 68/push 0/imm32/next +<span id="L36200" class="LineNr">36200 </span> 68/push 0/imm32/next +<span id="L36201" class="LineNr">36201 </span> 52/push-edx/l +<span id="L36202" class="LineNr">36202 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36203" class="LineNr">36203 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36204" class="LineNr">36204 </span> 89/<- %esi 4/r32/esp +<span id="L36205" class="LineNr">36205 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L36206" class="LineNr">36206 </span> 68/push 0/imm32/is-deref:false +<span id="L36207" class="LineNr">36207 </span> 56/push-esi/next +<span id="L36208" class="LineNr">36208 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36209" class="LineNr">36209 </span> 51/push-ecx/var1 +<span id="L36210" class="LineNr">36210 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36211" class="LineNr">36211 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36212" class="LineNr">36212 </span> 89/<- %esi 4/r32/esp +<span id="L36213" class="LineNr">36213 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt</span>: +<span id="L36214" class="LineNr">36214 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36215" class="LineNr">36215 </span> 68/push 0/imm32/next +<span id="L36216" class="LineNr">36216 </span> 68/push 0/imm32/next +<span id="L36217" class="LineNr">36217 </span> 68/push 0/imm32/outputs +<span id="L36218" class="LineNr">36218 </span> 68/push 0/imm32/outputs +<span id="L36219" class="LineNr">36219 </span> 56/push-esi/inouts +<span id="L36220" class="LineNr">36220 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36221" class="LineNr">36221 </span> 68/push 0/imm32/operation +<span id="L36222" class="LineNr">36222 </span> 68/push 0/imm32/operation +<span id="L36223" class="LineNr">36223 </span> 68/push 1/imm32/tag:stmt1 +<span id="L36224" class="LineNr">36224 </span> 89/<- %esi 4/r32/esp +<span id="L36225" class="LineNr">36225 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt-operation</span>: +<span id="L36226" class="LineNr">36226 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L36227" class="LineNr">36227 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36228" class="LineNr">36228 </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="L36229" class="LineNr">36229 </span> <span class="subxComment"># convert</span> +<span id="L36230" class="LineNr">36230 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L36231" class="LineNr">36231 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36232" class="LineNr">36232 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L36233" class="Folded">36233 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36239" class="LineNr">36239 </span> <span class="subxComment"># check output</span> +<span id="L36240" class="LineNr">36240 </span> (<a href='../109stream-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="L36241" class="LineNr">36241 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36242" class="LineNr">36242 </span> 89/<- %esp 5/r32/ebp +<span id="L36243" class="LineNr">36243 </span> 5d/pop-to-ebp +<span id="L36244" class="LineNr">36244 </span> c3/return +<span id="L36245" class="LineNr">36245 </span> +<span id="L36246" class="LineNr">36246 </span><span class="subxTest">test-compare-eax-with-literal</span>: +<span id="L36247" class="LineNr">36247 </span> <span class="subxComment"># compare var1/eax 0x34</span> +<span id="L36248" class="LineNr">36248 </span> <span class="subxComment"># =></span> +<span id="L36249" class="LineNr">36249 </span> <span class="subxComment"># 3d/compare-eax-with 0x34/imm32</span> +<span id="L36250" class="LineNr">36250 </span> <span class="subxComment">#</span> +<span id="L36251" class="LineNr">36251 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36252" class="LineNr">36252 </span> 55/push-ebp +<span id="L36253" class="LineNr">36253 </span> 89/<- %ebp 4/r32/esp +<span id="L36254" class="LineNr">36254 </span> <span class="subxComment"># setup</span> +<span id="L36255" class="LineNr">36255 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L36256" class="LineNr">36256 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36257" class="LineNr">36257 </span><span class="Constant">$test-compare-eax-with-literal:initialize-type</span>: +<span id="L36258" class="LineNr">36258 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36259" class="LineNr">36259 </span> 68/push 0/imm32/right:null +<span id="L36260" class="LineNr">36260 </span> 68/push 0/imm32/right:null +<span id="L36261" class="LineNr">36261 </span> 68/push 0/imm32/left:unused +<span id="L36262" class="LineNr">36262 </span> 68/push 1/imm32/value:int +<span id="L36263" class="LineNr">36263 </span> 68/push 1/imm32/is-atom?:true +<span id="L36264" class="LineNr">36264 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36265" class="LineNr">36265 </span> 89/<- %ecx 4/r32/esp +<span id="L36266" class="LineNr">36266 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1</span>: +<span id="L36267" class="LineNr">36267 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L36268" class="LineNr">36268 </span> 68/push 0/imm32/register +<span id="L36269" class="LineNr">36269 </span> 68/push 0/imm32/register +<span id="L36270" class="LineNr">36270 </span> 68/push 0/imm32/no-stack-offset +<span id="L36271" class="LineNr">36271 </span> 68/push 1/imm32/block-depth +<span id="L36272" class="LineNr">36272 </span> 51/push-ecx +<span id="L36273" class="LineNr">36273 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36274" class="LineNr">36274 </span> 68/push 0/imm32/name +<span id="L36275" class="LineNr">36275 </span> 68/push 0/imm32/name +<span id="L36276" class="LineNr">36276 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36277" class="LineNr">36277 </span> 89/<- %ecx 4/r32/esp +<span id="L36278" class="LineNr">36278 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-name</span>: +<span id="L36279" class="LineNr">36279 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L36280" class="LineNr">36280 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36281" class="LineNr">36281 </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="L36282" class="LineNr">36282 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-register</span>: +<span id="L36283" class="LineNr">36283 </span> <span class="subxComment"># v->register = "eax"</span> +<span id="L36284" class="LineNr">36284 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36285" class="LineNr">36285 </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="L36286" class="LineNr">36286 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-type</span>: +<span id="L36287" class="LineNr">36287 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L36288" class="LineNr">36288 </span> 68/push 0/imm32/right:null +<span id="L36289" class="LineNr">36289 </span> 68/push 0/imm32/right:null +<span id="L36290" class="LineNr">36290 </span> 68/push 0/imm32/left:unused +<span id="L36291" class="LineNr">36291 </span> 68/push 0/imm32/value:literal +<span id="L36292" class="LineNr">36292 </span> 68/push 1/imm32/is-atom?:true +<span id="L36293" class="LineNr">36293 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36294" class="LineNr">36294 </span> 89/<- %edx 4/r32/esp +<span id="L36295" class="LineNr">36295 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal</span>: +<span id="L36296" class="LineNr">36296 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L36297" class="LineNr">36297 </span> 68/push 0/imm32/register +<span id="L36298" class="LineNr">36298 </span> 68/push 0/imm32/register +<span id="L36299" class="LineNr">36299 </span> 68/push 0/imm32/no-stack-offset +<span id="L36300" class="LineNr">36300 </span> 68/push 1/imm32/block-depth +<span id="L36301" class="LineNr">36301 </span> 52/push-edx +<span id="L36302" class="LineNr">36302 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36303" class="LineNr">36303 </span> 68/push 0/imm32/name +<span id="L36304" class="LineNr">36304 </span> 68/push 0/imm32/name +<span id="L36305" class="LineNr">36305 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36306" class="LineNr">36306 </span> 89/<- %edx 4/r32/esp +<span id="L36307" class="LineNr">36307 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-value</span>: +<span id="L36308" class="LineNr">36308 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L36309" class="LineNr">36309 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36310" class="LineNr">36310 </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="L36311" class="LineNr">36311 </span><span class="Constant">$test-compare-eax-with-literal:initialize-inouts</span>: +<span id="L36312" class="LineNr">36312 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L36313" class="LineNr">36313 </span> 68/push 0/imm32/is-deref:false +<span id="L36314" class="LineNr">36314 </span> 68/push 0/imm32/next +<span id="L36315" class="LineNr">36315 </span> 68/push 0/imm32/next +<span id="L36316" class="LineNr">36316 </span> 52/push-edx/l +<span id="L36317" class="LineNr">36317 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36318" class="LineNr">36318 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36319" class="LineNr">36319 </span> 89/<- %esi 4/r32/esp +<span id="L36320" class="LineNr">36320 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L36321" class="LineNr">36321 </span> 68/push 0/imm32/is-deref:false +<span id="L36322" class="LineNr">36322 </span> 56/push-esi/next +<span id="L36323" class="LineNr">36323 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36324" class="LineNr">36324 </span> 51/push-ecx/var1 +<span id="L36325" class="LineNr">36325 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36326" class="LineNr">36326 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36327" class="LineNr">36327 </span> 89/<- %esi 4/r32/esp +<span id="L36328" class="LineNr">36328 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt</span>: +<span id="L36329" class="LineNr">36329 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36330" class="LineNr">36330 </span> 68/push 0/imm32/next +<span id="L36331" class="LineNr">36331 </span> 68/push 0/imm32/next +<span id="L36332" class="LineNr">36332 </span> 68/push 0/imm32/outputs +<span id="L36333" class="LineNr">36333 </span> 68/push 0/imm32/outputs +<span id="L36334" class="LineNr">36334 </span> 56/push-esi/inouts +<span id="L36335" class="LineNr">36335 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36336" class="LineNr">36336 </span> 68/push 0/imm32/operation +<span id="L36337" class="LineNr">36337 </span> 68/push 0/imm32/operation +<span id="L36338" class="LineNr">36338 </span> 68/push 1/imm32/tag:stmt1 +<span id="L36339" class="LineNr">36339 </span> 89/<- %esi 4/r32/esp +<span id="L36340" class="LineNr">36340 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt-operation</span>: +<span id="L36341" class="LineNr">36341 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L36342" class="LineNr">36342 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36343" class="LineNr">36343 </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="L36344" class="LineNr">36344 </span> <span class="subxComment"># convert</span> +<span id="L36345" class="LineNr">36345 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L36346" class="LineNr">36346 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36347" class="LineNr">36347 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L36348" class="Folded">36348 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36354" class="LineNr">36354 </span> <span class="subxComment"># check output</span> +<span id="L36355" class="LineNr">36355 </span> (<a href='../109stream-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="L36356" class="LineNr">36356 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36357" class="LineNr">36357 </span> 89/<- %esp 5/r32/ebp +<span id="L36358" class="LineNr">36358 </span> 5d/pop-to-ebp +<span id="L36359" class="LineNr">36359 </span> c3/return +<span id="L36360" class="LineNr">36360 </span> +<span id="L36361" class="LineNr">36361 </span><span class="subxTest">test-compare-reg-with-literal</span>: +<span id="L36362" class="LineNr">36362 </span> <span class="subxComment"># compare var1/ecx 0x34</span> +<span id="L36363" class="LineNr">36363 </span> <span class="subxComment"># =></span> +<span id="L36364" class="LineNr">36364 </span> <span class="subxComment"># 81 7/subop/compare %ecx 0x34/imm32</span> +<span id="L36365" class="LineNr">36365 </span> <span class="subxComment">#</span> +<span id="L36366" class="LineNr">36366 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36367" class="LineNr">36367 </span> 55/push-ebp +<span id="L36368" class="LineNr">36368 </span> 89/<- %ebp 4/r32/esp +<span id="L36369" class="LineNr">36369 </span> <span class="subxComment"># setup</span> +<span id="L36370" class="LineNr">36370 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L36371" class="LineNr">36371 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36372" class="LineNr">36372 </span><span class="Constant">$test-compare-reg-with-literal:initialize-type</span>: +<span id="L36373" class="LineNr">36373 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36374" class="LineNr">36374 </span> 68/push 0/imm32/right:null +<span id="L36375" class="LineNr">36375 </span> 68/push 0/imm32/right:null +<span id="L36376" class="LineNr">36376 </span> 68/push 0/imm32/left:unused +<span id="L36377" class="LineNr">36377 </span> 68/push 1/imm32/value:int +<span id="L36378" class="LineNr">36378 </span> 68/push 1/imm32/is-atom?:true +<span id="L36379" class="LineNr">36379 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36380" class="LineNr">36380 </span> 89/<- %ecx 4/r32/esp +<span id="L36381" class="LineNr">36381 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1</span>: +<span id="L36382" class="LineNr">36382 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L36383" class="LineNr">36383 </span> 68/push 0/imm32/register +<span id="L36384" class="LineNr">36384 </span> 68/push 0/imm32/register +<span id="L36385" class="LineNr">36385 </span> 68/push 0/imm32/no-stack-offset +<span id="L36386" class="LineNr">36386 </span> 68/push 1/imm32/block-depth +<span id="L36387" class="LineNr">36387 </span> 51/push-ecx +<span id="L36388" class="LineNr">36388 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36389" class="LineNr">36389 </span> 68/push 0/imm32/name +<span id="L36390" class="LineNr">36390 </span> 68/push 0/imm32/name +<span id="L36391" class="LineNr">36391 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36392" class="LineNr">36392 </span> 89/<- %ecx 4/r32/esp +<span id="L36393" class="LineNr">36393 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-name</span>: +<span id="L36394" class="LineNr">36394 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L36395" class="LineNr">36395 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36396" class="LineNr">36396 </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="L36397" class="LineNr">36397 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-register</span>: +<span id="L36398" class="LineNr">36398 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L36399" class="LineNr">36399 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36400" class="LineNr">36400 </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="L36401" class="LineNr">36401 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-type</span>: +<span id="L36402" class="LineNr">36402 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L36403" class="LineNr">36403 </span> 68/push 0/imm32/right:null +<span id="L36404" class="LineNr">36404 </span> 68/push 0/imm32/right:null +<span id="L36405" class="LineNr">36405 </span> 68/push 0/imm32/left:unused +<span id="L36406" class="LineNr">36406 </span> 68/push 0/imm32/value:literal +<span id="L36407" class="LineNr">36407 </span> 68/push 1/imm32/is-atom?:true +<span id="L36408" class="LineNr">36408 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36409" class="LineNr">36409 </span> 89/<- %edx 4/r32/esp +<span id="L36410" class="LineNr">36410 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal</span>: +<span id="L36411" class="LineNr">36411 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L36412" class="LineNr">36412 </span> 68/push 0/imm32/register +<span id="L36413" class="LineNr">36413 </span> 68/push 0/imm32/register +<span id="L36414" class="LineNr">36414 </span> 68/push 0/imm32/no-stack-offset +<span id="L36415" class="LineNr">36415 </span> 68/push 1/imm32/block-depth +<span id="L36416" class="LineNr">36416 </span> 52/push-edx +<span id="L36417" class="LineNr">36417 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36418" class="LineNr">36418 </span> 68/push 0/imm32/name +<span id="L36419" class="LineNr">36419 </span> 68/push 0/imm32/name +<span id="L36420" class="LineNr">36420 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36421" class="LineNr">36421 </span> 89/<- %edx 4/r32/esp +<span id="L36422" class="LineNr">36422 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-value</span>: +<span id="L36423" class="LineNr">36423 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L36424" class="LineNr">36424 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36425" class="LineNr">36425 </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="L36426" class="LineNr">36426 </span><span class="Constant">$test-compare-reg-with-literal:initialize-inouts</span>: +<span id="L36427" class="LineNr">36427 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L36428" class="LineNr">36428 </span> 68/push 0/imm32/is-deref:false +<span id="L36429" class="LineNr">36429 </span> 68/push 0/imm32/next +<span id="L36430" class="LineNr">36430 </span> 68/push 0/imm32/next +<span id="L36431" class="LineNr">36431 </span> 52/push-edx/l +<span id="L36432" class="LineNr">36432 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36433" class="LineNr">36433 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36434" class="LineNr">36434 </span> 89/<- %esi 4/r32/esp +<span id="L36435" class="LineNr">36435 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L36436" class="LineNr">36436 </span> 68/push 0/imm32/is-deref:false +<span id="L36437" class="LineNr">36437 </span> 56/push-esi/next +<span id="L36438" class="LineNr">36438 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36439" class="LineNr">36439 </span> 51/push-ecx/var1 +<span id="L36440" class="LineNr">36440 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36441" class="LineNr">36441 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36442" class="LineNr">36442 </span> 89/<- %esi 4/r32/esp +<span id="L36443" class="LineNr">36443 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt</span>: +<span id="L36444" class="LineNr">36444 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36445" class="LineNr">36445 </span> 68/push 0/imm32/next +<span id="L36446" class="LineNr">36446 </span> 68/push 0/imm32/next +<span id="L36447" class="LineNr">36447 </span> 68/push 0/imm32/outputs +<span id="L36448" class="LineNr">36448 </span> 68/push 0/imm32/outputs +<span id="L36449" class="LineNr">36449 </span> 56/push-esi/inouts +<span id="L36450" class="LineNr">36450 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36451" class="LineNr">36451 </span> 68/push 0/imm32/operation +<span id="L36452" class="LineNr">36452 </span> 68/push 0/imm32/operation +<span id="L36453" class="LineNr">36453 </span> 68/push 1/imm32/tag:stmt1 +<span id="L36454" class="LineNr">36454 </span> 89/<- %esi 4/r32/esp +<span id="L36455" class="LineNr">36455 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt-operation</span>: +<span id="L36456" class="LineNr">36456 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L36457" class="LineNr">36457 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36458" class="LineNr">36458 </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="L36459" class="LineNr">36459 </span> <span class="subxComment"># convert</span> +<span id="L36460" class="LineNr">36460 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L36461" class="LineNr">36461 </span> (<a href='mu.subx.html#L27027'>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#L28586'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36462" class="LineNr">36462 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L36463" class="Folded">36463 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36469" class="LineNr">36469 </span> <span class="subxComment"># check output</span> +<span id="L36470" class="LineNr">36470 </span> (<a href='../109stream-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="L36471" class="LineNr">36471 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36472" class="LineNr">36472 </span> 89/<- %esp 5/r32/ebp +<span id="L36473" class="LineNr">36473 </span> 5d/pop-to-ebp +<span id="L36474" class="LineNr">36474 </span> c3/return +<span id="L36475" class="LineNr">36475 </span> +<span id="L36476" class="LineNr">36476 </span><span class="subxTest">test-emit-subx-stmt-function-call</span>: +<span id="L36477" class="LineNr">36477 </span> <span class="subxComment"># Call a function on a variable on the stack.</span> +<span id="L36478" class="LineNr">36478 </span> <span class="subxComment"># f foo</span> +<span id="L36479" class="LineNr">36479 </span> <span class="subxComment"># =></span> +<span id="L36480" class="LineNr">36480 </span> <span class="subxComment"># (f *(ebp-8))</span> +<span id="L36481" class="LineNr">36481 </span> <span class="subxComment"># (Changing the function name supports overloading in general, but here it</span> +<span id="L36482" class="LineNr">36482 </span> <span class="subxComment"># just serves to help disambiguate things.)</span> +<span id="L36483" class="LineNr">36483 </span> <span class="subxComment">#</span> +<span id="L36484" class="LineNr">36484 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L36485" class="LineNr">36485 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L36486" class="LineNr">36486 </span> <span class="subxComment"># type: int</span> +<span id="L36487" class="LineNr">36487 </span> <span class="subxComment"># stack-offset: -8</span> +<span id="L36488" class="LineNr">36488 </span> <span class="subxComment">#</span> +<span id="L36489" class="LineNr">36489 </span> <span class="subxComment"># There's nothing in primitives.</span> +<span id="L36490" class="LineNr">36490 </span> <span class="subxComment">#</span> +<span id="L36491" class="LineNr">36491 </span> <span class="subxComment"># We don't perform any checking here on the type of 'f'.</span> +<span id="L36492" class="LineNr">36492 </span> <span class="subxComment">#</span> +<span id="L36493" class="LineNr">36493 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36494" class="LineNr">36494 </span> 55/push-ebp +<span id="L36495" class="LineNr">36495 </span> 89/<- %ebp 4/r32/esp +<span id="L36496" class="LineNr">36496 </span> <span class="subxComment"># setup</span> +<span id="L36497" class="LineNr">36497 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L36498" class="LineNr">36498 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36499" class="LineNr">36499 </span><span class="Constant">$test-emit-subx-function-call:initialize-type</span>: +<span id="L36500" class="LineNr">36500 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36501" class="LineNr">36501 </span> 68/push 0/imm32/right:null +<span id="L36502" class="LineNr">36502 </span> 68/push 0/imm32/right:null +<span id="L36503" class="LineNr">36503 </span> 68/push 0/imm32/left:unused +<span id="L36504" class="LineNr">36504 </span> 68/push 1/imm32/value:int +<span id="L36505" class="LineNr">36505 </span> 68/push 1/imm32/is-atom?:true +<span id="L36506" class="LineNr">36506 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36507" class="LineNr">36507 </span> 89/<- %ecx 4/r32/esp +<span id="L36508" class="LineNr">36508 </span><span class="Constant">$test-emit-subx-function-call:initialize-var</span>: +<span id="L36509" class="LineNr">36509 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> +<span id="L36510" class="LineNr">36510 </span> 68/push 0/imm32/no-register +<span id="L36511" class="LineNr">36511 </span> 68/push 0/imm32/no-register +<span id="L36512" class="LineNr">36512 </span> 68/push -8/imm32/stack-offset +<span id="L36513" class="LineNr">36513 </span> 68/push 1/imm32/block-depth +<span id="L36514" class="LineNr">36514 </span> 51/push-ecx/type +<span id="L36515" class="LineNr">36515 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36516" class="LineNr">36516 </span> 68/push 0/imm32/name +<span id="L36517" class="LineNr">36517 </span> 68/push 0/imm32/name +<span id="L36518" class="LineNr">36518 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36519" class="LineNr">36519 </span> 89/<- %ecx 4/r32/esp +<span id="L36520" class="LineNr">36520 </span><span class="Constant">$test-emit-subx-function-call:initialize-var-name</span>: +<span id="L36521" class="LineNr">36521 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L36522" class="LineNr">36522 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36523" class="LineNr">36523 </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="L36524" class="LineNr">36524 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-var</span>: +<span id="L36525" class="LineNr">36525 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L36526" class="LineNr">36526 </span> 68/push 0/imm32/is-deref:false +<span id="L36527" class="LineNr">36527 </span> 68/push 0/imm32/next +<span id="L36528" class="LineNr">36528 </span> 68/push 0/imm32/next +<span id="L36529" class="LineNr">36529 </span> 51/push-ecx/var-foo +<span id="L36530" class="LineNr">36530 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36531" class="LineNr">36531 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36532" class="LineNr">36532 </span> 89/<- %ebx 4/r32/esp +<span id="L36533" class="LineNr">36533 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt</span>: +<span id="L36534" class="LineNr">36534 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36535" class="LineNr">36535 </span> 68/push 0/imm32/no-outputs +<span id="L36536" class="LineNr">36536 </span> 68/push 0/imm32/no-outputs +<span id="L36537" class="LineNr">36537 </span> 53/push-ebx/inouts +<span id="L36538" class="LineNr">36538 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36539" class="LineNr">36539 </span> 68/push 0/imm32/operation +<span id="L36540" class="LineNr">36540 </span> 68/push 0/imm32/operation +<span id="L36541" class="LineNr">36541 </span> 68/push 1/imm32/tag +<span id="L36542" class="LineNr">36542 </span> 89/<- %esi 4/r32/esp +<span id="L36543" class="LineNr">36543 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-operation</span>: +<span id="L36544" class="LineNr">36544 </span> <span class="subxComment"># stmt->operation = "f"</span> +<span id="L36545" class="LineNr">36545 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36546" class="LineNr">36546 </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="L36547" class="LineNr">36547 </span> <span class="subxComment"># convert</span> +<span id="L36548" class="LineNr">36548 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L36549" class="LineNr">36549 </span> (<a href='mu.subx.html#L27027'>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="L36550" class="LineNr">36550 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L36551" class="Folded">36551 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36557" class="LineNr">36557 </span> <span class="subxComment"># check output</span> +<span id="L36558" class="LineNr">36558 </span> (<a href='../109stream-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="L36559" class="LineNr">36559 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36560" class="LineNr">36560 </span> 89/<- %esp 5/r32/ebp +<span id="L36561" class="LineNr">36561 </span> 5d/pop-to-ebp +<span id="L36562" class="LineNr">36562 </span> c3/return +<span id="L36563" class="LineNr">36563 </span> +<span id="L36564" class="LineNr">36564 </span><span class="subxTest">test-emit-subx-stmt-function-call-with-literal-arg</span>: +<span id="L36565" class="LineNr">36565 </span> <span class="subxComment"># Call a function on a literal.</span> +<span id="L36566" class="LineNr">36566 </span> <span class="subxComment"># f 0x34</span> +<span id="L36567" class="LineNr">36567 </span> <span class="subxComment"># =></span> +<span id="L36568" class="LineNr">36568 </span> <span class="subxComment"># (f2 0x34)</span> +<span id="L36569" class="LineNr">36569 </span> <span class="subxComment">#</span> +<span id="L36570" class="LineNr">36570 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36571" class="LineNr">36571 </span> 55/push-ebp +<span id="L36572" class="LineNr">36572 </span> 89/<- %ebp 4/r32/esp +<span id="L36573" class="LineNr">36573 </span> <span class="subxComment"># setup</span> +<span id="L36574" class="LineNr">36574 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) +<span id="L36575" class="LineNr">36575 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36576" class="LineNr">36576 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-type</span>: +<span id="L36577" class="LineNr">36577 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36578" class="LineNr">36578 </span> 68/push 0/imm32/right:null +<span id="L36579" class="LineNr">36579 </span> 68/push 0/imm32/right:null +<span id="L36580" class="LineNr">36580 </span> 68/push 0/imm32/left:unused +<span id="L36581" class="LineNr">36581 </span> 68/push 0/imm32/value:literal +<span id="L36582" class="LineNr">36582 </span> 68/push 1/imm32/is-atom?:true +<span id="L36583" class="LineNr">36583 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36584" class="LineNr">36584 </span> 89/<- %ecx 4/r32/esp +<span id="L36585" class="LineNr">36585 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var</span>: +<span id="L36586" class="LineNr">36586 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(lit)</span> +<span id="L36587" class="LineNr">36587 </span> 68/push 0/imm32/no-register +<span id="L36588" class="LineNr">36588 </span> 68/push 0/imm32/no-register +<span id="L36589" class="LineNr">36589 </span> 68/push 0/imm32/no-stack-offset +<span id="L36590" class="LineNr">36590 </span> 68/push 1/imm32/block-depth +<span id="L36591" class="LineNr">36591 </span> 51/push-ecx/type +<span id="L36592" class="LineNr">36592 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36593" class="LineNr">36593 </span> 68/push 0/imm32/name +<span id="L36594" class="LineNr">36594 </span> 68/push 0/imm32/name +<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-emit-subx-function-call-with-literal-arg:initialize-var-name</span>: +<span id="L36598" class="LineNr">36598 </span> <span class="subxComment"># var-foo->name = "0x34"</span> +<span id="L36599" class="LineNr">36599 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36600" class="LineNr">36600 </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="L36601" class="LineNr">36601 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-var</span>: +<span id="L36602" class="LineNr">36602 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L36603" class="LineNr">36603 </span> 68/push 0/imm32/is-deref:false +<span id="L36604" class="LineNr">36604 </span> 68/push 0/imm32/next +<span id="L36605" class="LineNr">36605 </span> 68/push 0/imm32/next +<span id="L36606" class="LineNr">36606 </span> 51/push-ecx/var-foo +<span id="L36607" class="LineNr">36607 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36608" class="LineNr">36608 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36609" class="LineNr">36609 </span> 89/<- %ebx 4/r32/esp +<span id="L36610" class="LineNr">36610 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt</span>: +<span id="L36611" class="LineNr">36611 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36612" class="LineNr">36612 </span> 68/push 0/imm32/no-outputs +<span id="L36613" class="LineNr">36613 </span> 68/push 0/imm32/no-outputs +<span id="L36614" class="LineNr">36614 </span> 53/push-ebx/inouts +<span id="L36615" class="LineNr">36615 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36616" class="LineNr">36616 </span> 68/push 0/imm32/operation +<span id="L36617" class="LineNr">36617 </span> 68/push 0/imm32/operation +<span id="L36618" class="LineNr">36618 </span> 68/push 1/imm32/tag +<span id="L36619" class="LineNr">36619 </span> 89/<- %esi 4/r32/esp +<span id="L36620" class="LineNr">36620 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-operation</span>: +<span id="L36621" class="LineNr">36621 </span> <span class="subxComment"># stmt->operation = "f"</span> +<span id="L36622" class="LineNr">36622 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36623" class="LineNr">36623 </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="L36624" class="LineNr">36624 </span> <span class="subxComment"># convert</span> +<span id="L36625" class="LineNr">36625 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L14611'>Curr-block-depth</a></span> 0/imm32 +<span id="L36626" class="LineNr">36626 </span> (<a href='mu.subx.html#L27027'>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="L36627" class="LineNr">36627 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L36628" class="Folded">36628 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream ---------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36634" class="LineNr">36634 </span> <span class="subxComment"># check output</span> +<span id="L36635" class="LineNr">36635 </span> (<a href='../109stream-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="L36636" class="LineNr">36636 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36637" class="LineNr">36637 </span> 89/<- %esp 5/r32/ebp +<span id="L36638" class="LineNr">36638 </span> 5d/pop-to-ebp +<span id="L36639" class="LineNr">36639 </span> c3/return +<span id="L36640" class="LineNr">36640 </span> +<span id="L36641" class="LineNr">36641 </span><span class="subxFunction">emit-indent</span>: <span class="subxComment"># out: (addr buffered-file), n: int</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="subxS1Comment"># . save registers</span> +<span id="L36646" class="LineNr">36646 </span> 50/push-eax +<span id="L36647" class="LineNr">36647 </span> <span class="subxComment"># var i/eax: int = n</span> +<span id="L36648" class="LineNr">36648 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L36649" class="LineNr">36649 </span> { +<span id="L36650" class="LineNr">36650 </span> <span class="subxComment"># if (i <= 0) break</span> +<span id="L36651" class="LineNr">36651 </span> 3d/compare-eax-with 0/imm32 +<span id="L36652" class="LineNr">36652 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L36653" class="LineNr">36653 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L36654" class="LineNr">36654 </span> 48/decrement-eax +<span id="L36655" class="LineNr">36655 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L36656" class="LineNr">36656 </span> } +<span id="L36657" class="LineNr">36657 </span><span class="Constant">$emit-indent:end</span>: +<span id="L36658" class="LineNr">36658 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L36659" class="LineNr">36659 </span> 58/pop-to-eax +<span id="L36660" class="LineNr">36660 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36661" class="LineNr">36661 </span> 89/<- %esp 5/r32/ebp +<span id="L36662" class="LineNr">36662 </span> 5d/pop-to-ebp +<span id="L36663" class="LineNr">36663 </span> c3/return +<span id="L36664" class="LineNr">36664 </span> +<span id="L36665" class="LineNr">36665 </span><span class="subxFunction">emit-subx-prologue</span>: <span class="subxComment"># out: (addr buffered-file)</span> +<span id="L36666" class="LineNr">36666 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36667" class="LineNr">36667 </span> 55/push-ebp +<span id="L36668" class="LineNr">36668 </span> 89/<- %ebp 4/r32/esp +<span id="L36669" class="LineNr">36669 </span> <span class="subxComment">#</span> +<span id="L36670" class="LineNr">36670 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . prologue\n"</span>) +<span id="L36671" class="LineNr">36671 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 55/push-ebp\n"</span>) +<span id="L36672" class="LineNr">36672 </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="L36673" class="LineNr">36673 </span><span class="Constant">$emit-subx-prologue:end</span>: +<span id="L36674" class="LineNr">36674 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36675" class="LineNr">36675 </span> 89/<- %esp 5/r32/ebp +<span id="L36676" class="LineNr">36676 </span> 5d/pop-to-ebp +<span id="L36677" class="LineNr">36677 </span> c3/return +<span id="L36678" class="LineNr">36678 </span> +<span id="L36679" class="LineNr">36679 </span><span class="subxFunction">emit-subx-epilogue</span>: <span class="subxComment"># out: (addr buffered-file)</span> +<span id="L36680" class="LineNr">36680 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36681" class="LineNr">36681 </span> 55/push-ebp +<span id="L36682" class="LineNr">36682 </span> 89/<- %ebp 4/r32/esp +<span id="L36683" class="LineNr">36683 </span> <span class="subxComment">#</span> +<span id="L36684" class="LineNr">36684 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . epilogue\n"</span>) +<span id="L36685" class="LineNr">36685 </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="L36686" class="LineNr">36686 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 5d/pop-to-ebp\n"</span>) +<span id="L36687" class="LineNr">36687 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" c3/return\n"</span>) +<span id="L36688" class="LineNr">36688 </span><span class="Constant">$emit-subx-epilogue:end</span>: +<span id="L36689" class="LineNr">36689 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36690" class="LineNr">36690 </span> 89/<- %esp 5/r32/ebp +<span id="L36691" class="LineNr">36691 </span> 5d/pop-to-ebp +<span id="L36692" class="LineNr">36692 </span> c3/return </pre> </body> </html> |